Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2001-06

I present to Klinton

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Joao Paulo Schwarz Schuler
to Luis R. Hilario

Hi.

I made something that I found useful for
me and I think that it can help other
people. I made an application (Delphi for a while) that generate 3 pascal files from each Delphi DFM file. The target files can be compiled under both Delphi and FPC.

Source an binaries can be found at http://www.schulers.com/pub/pascal/lcl/

Follow examples of generated files:

<myform.pas>
...
constructor TForm1.Create(AOwner: TComponent);
 begin
 inherited Create(AOwner);
 {$I myformrc.pas}
 end;
 ...
<myproject.dpr>
...
 Application.Initialize;
 Application.CreateForm(TForm1,Form1);
 Application.Run;
...
<myformrc.pas>
....
 with MainMenu1 do
     begin
     File1:=TMenuItem.Create(Self);
     with File1 do
          begin
          Caption := 'File';
          Quit1:=TMenuItem.Create(Self);
          with Quit1 do
               begin
               Caption := 'Quit';
...

Thank's four your attention, JPSS.
---------------------------------
Joao Paulo Schwarz Schuler
http://www.schulers.com/jpss

Reply by email