If anyone knows how to do a line without assembler or BGI, as I'm using VESA, I'm all ears.I can't find the source that is non 32 bit assembler, even for TP.

fpc-pascal-requ...@lists.freepascal.org wrote:
Send fpc-pascal mailing list submissions to
        fpc-pascal@lists.freepascal.org

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.freepascal.org/mailman/listinfo/fpc-pascal
or, via email, send a message with subject or body 'help' to
        fpc-pascal-requ...@lists.freepascal.org

You can reach the person managing the list at
        fpc-pascal-ow...@lists.freepascal.org

When replying, please edit your Subject line so it is more specific
than "Re: Contents of fpc-pascal digest..."


Today's Topics:

   1. Re:  Insert into ... mysql (John Coppens)
   2. Re:  GRAPHICS HELP : PLEASE PLEASE???? (John Coppens)
   3. Re:  SHA1 implementation (Graeme Geldenhuys)
   4. Re:  Re: SHA1 implementation (Graeme Geldenhuys)
   5.  Re: GRAPHICS HELP : PLEASE PLEASE????
      (Guillermo Mart?nez Jim?nez)


----------------------------------------------------------------------

Message: 1
Date: Mon, 29 Jun 2009 00:34:57 -0300
From: John Coppens <j...@jcoppens.com>
Subject: Re: [fpc-pascal] Insert into ... mysql
To: fpc-pascal@lists.freepascal.org
Message-ID: <20090629003457.7e48512a.j...@jcoppens.com>
Content-Type: text/plain; charset=ISO-8859-1

On Sun, 28 Jun 2009 15:42:04 -0500
César Espinoza <cesarespinozas...@gmail.com> wrote:

But I can't (may be I dont know :-( ) insert data in a table

If you can query, but not insert, there are a few things to check:

- Is the syntax of your insert correct? I mean, does column 'lugar' exist,
  and is it a varchar column, etc.?
- Are you allowed to insert? (Check the privileges for the person
  as who you log in. Insert, update, select, all have separate 'enables')
- What is the message returned by mysql_error?

John


------------------------------

Message: 2
Date: Mon, 29 Jun 2009 00:43:54 -0300
From: John Coppens <j...@jcoppens.com>
Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE????
To: fpc-pascal@lists.freepascal.org
Message-ID: <20090629004354.ad18ba16.j...@jcoppens.com>
Content-Type: text/plain; charset=ISO-8859-1

On Sun, 28 Jun 2009 18:23:12 -0700 (PDT)
Zachary Marlow <zachary_mar...@yahoo.com> wrote:

Well Like How to draw a circle , I just need some example code please

Check this tutorial:

http://pascalprogramming.byethost15.com/lesson8.php

John


------------------------------

Message: 3
Date: Mon, 29 Jun 2009 09:02:52 +0200
From: Graeme Geldenhuys <grae...@opensoft.homeip.net>
Subject: Re: [fpc-pascal] SHA1 implementation
To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Message-ID: <4a48671c.6020...@opensoft.homeip.net>
Content-Type: text/plain; charset=UTF-8

David Butler wrote:
Have a look at Fundamentals 4's cHash unit:
  http://sourceforge.net/projects/fundementals/

Thanks, there are some interesting code in there... Cool. :)


In the end I did some more Google'ing and found a free implementation
based on the FIPS 180-1 document. And it's all done in a single unit,
which makes it nice and easy to use.

I wrote a few unit tests just to confirm that the implementation is
correct - and it was. :-)  The code is free of any license restrictions
or platform specific code, so would FPC find a unit like this useful in
the FCL? It makes no difference to me, but I thought I would ask.


Regards,
  - Graeme -

_______________________________________________________
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/



------------------------------

Message: 4
Date: Mon, 29 Jun 2009 09:06:04 +0200
From: Graeme Geldenhuys <grae...@opensoft.homeip.net>
Subject: Re: [fpc-pascal] Re: SHA1 implementation
To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Message-ID: <4a4867dc.1010...@opensoft.homeip.net>
Content-Type: text/plain; charset=UTF-8

Paul Nicholls wrote:
http://wiki.freepascal.org/DCPcrypt

Ah thanks, I already use the Blowfish implementation from that package,
but for some reason never thought to look in there for the SHA1
implementation. In the end I got a nice lightweight (single unit)
implementation that also passes all unit tests based on various
documentation.


Regards,
  - Graeme -

_______________________________________________________
fpGUI - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/



------------------------------

Message: 5
Date: Mon, 29 Jun 2009 09:59:20 +0200
From: Guillermo Mart?nez Jim?nez <gmarti...@burdjia.com>
Subject: [fpc-pascal] Re: GRAPHICS HELP : PLEASE PLEASE????
To: fpc-pascal@lists.freepascal.org
Message-ID:
        <a2a0fbc20906290059l605b040bq335d11fae64d...@mail.gmail.com>
Content-Type: text/plain; charset=ISO-8859-1

From: Zachary Marlow <zachary_mar...@yahoo.com>
Subject: Re: [fpc-pascal] GRAPHICS HELP : PLEASE PLEASE????
To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Message-ID: <491787.41572...@web35505.mail.mud.yahoo.com>
Content-Type: text/plain; charset="iso-8859-1"

Well =

=A0=A0=A0=A0=A0 Like How to draw a circle , I just need some example code p=
lease =

=A0
PS THANKS FOR READING AND REPLYING

There are a lot of ways to draw a circle. It depends why and where you
need to draw a circle. There are a lot of differences if you need to
draw it using X11 or using a graphical library. For example, using the
Allegro.pas library:

(* Draw circle using Allegro (http://allegro-pas.sourceforge.net/) *)
PROGRAM circle;

USES
  allegro;

BEGIN
  IF NOT al_init THEN
  BEGIN
    WriteLn ('Error initialising Allegro');
    EXIT;
  END;
  IF al_set_gfx_mode (AL_GFX_AUTODETECT, 320, 240, 0, 0) THEN
  BEGIN
    al_install_keyboard;
    al_circle (al_screen, 160, 100, 50, al_makecol (255, 255, 255));
    al_readkey;
    al_exit;
  END
  ELSE
    WriteLn ('Error setting graphics');
END.

Another way, using Lazarus add a TPaintBox to the TForm and set the
"onDraw" event of the TPaintBox to this:

PROCEDURE TForm1.PaintBox1Paint(Sender: TObject);
VAR
  Tmp: TForm1;
BEGIN
  Tmp := SELF;
  WITH (Sender AS TPaintBox).Canvas DO
  BEGIN
    Ellipse (0, 0, Tmp.Width - 1, Tmp.Height - 1);
  END;
END;


------------------------------

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

End of fpc-pascal Digest, Vol 60, Issue 47
******************************************

____________________________________________________________________________________
Use the link below to report this message as spam.
https://lavabit.com/apps/teacher?sig=631912&key=2074436861
____________________________________________________________________________________


_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to