[lazarus] New version of fd2lcl published!!!

[FoodTechnologist]

Luis R. Hilario ÐÉÛÅÔ:

> Hi,
>
> I was playing with his program and found an error.
>
> "luis.fd" complete:
>
> Magic: 13000
>
> Internal Form Definition File
>     (do not change)
>
> Number of forms: 1
> Unit of measure: FL_COORD_PIXEL
>
> =============== FORM ===============
> Name: Luis
> Width: 320
> Height: 250
> Number of Objects: 7
>
> --------------------
> class: FL_BOX
> type: UP_BOX
> box: 0 0 320 250
> boxtype: FL_UP_BOX
> colors: FL_COL1 FL_COL1
> alignment: FL_ALIGN_CENTER
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label:
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> --------------------
> class: FL_BUTTON
> type: NORMAL_BUTTON
> box: 110 200 80 30
> boxtype: FL_UP_BOX
> colors: FL_INACTIVE FL_DARKORANGE
> alignment: FL_ALIGN_CENTER
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_DARKVIOLET
> label: Button
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback: Button1Click
> argument: 0
>
> --------------------
> class: FL_TEXT
> type: NORMAL_TEXT
> box: 10 20 90 30
> boxtype: FL_FLAT_BOX
> colors: FL_COL1 FL_MCOL
> alignment: FL_ALIGN_LEFT|FL_ALIGN_INSIDE
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label: Hola!
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> --------------------
> class: FL_CHECKBUTTON
> type: PUSH_BUTTON
> box: 60 100 110 30
> boxtype: FL_NO_BOX
> colors: FL_COL1 FL_YELLOW
> alignment: FL_ALIGN_CENTER
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label: Button
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> --------------------
> class: FL_CHECKBUTTON
> type: PUSH_BUTTON
> box: 60 140 110 30
> boxtype: FL_NO_BOX
> colors: FL_COL1 FL_YELLOW
> alignment: FL_ALIGN_CENTER
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label: Button
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> --------------------
> class: FL_INPUT
> type: NORMAL_INPUT
> box: 130 30 160 40
> boxtype: FL_DOWN_BOX
> colors: FL_COL1 FL_MCOL
> alignment: FL_ALIGN_LEFT
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label: Input
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> --------------------
> class: FL_ROUNDBUTTON
> type: PUSH_BUTTON
> box: 170 110 130 30
> boxtype: FL_NO_BOX
> colors: FL_MCOL FL_YELLOW
> alignment: FL_ALIGN_CENTER
> style: FL_NORMAL_STYLE
> size: FL_DEFAULT_SIZE
> lcol: FL_BLACK
> label: Button
> shortcut:
> resize: FL_RESIZE_ALL
> gravity: FL_NoGravity FL_NoGravity
> name:
> callback:
> argument:
>
> ==============================
> create_the_forms
>
> "luis.pp" incomplete:
>
> unit luis;
> {$mode delphi}
> interface
> uses classes,forms,controls,sysutils,graphics,stdctrls,extctrls,
>      comctrls,buttons,menus;
> type TLuis=class(TForm)
>    Button1:TButton;
>    Label1:TLabel;
>    CheckBox1:TCheckBox;
>    CheckBox2:TCheckBox;
>    Edit1:TEdit;
>    Button1:TRadioButton;
>    public
>    procedure Button1Click(Sender:TObject);
>    constructor Create(AOwner:TComponent);override;
>    end;
>
> As it is possible to be seen, "Button1" is duplicated.
>
> FoodTechnologist wrote:
> >
> > I've made new version of fd2lcl program, which make lazarus usefull
> > right now.
> > You can download source  here. But you should go to its homepage here.
>
> --
>  |-----------------------------|
> | Luis R. Hilario               |
> | http://www.luisdigital.2y.net |
>  |-----------------------------|
>
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>     archives at http://www.miraclec.com/list_archives/lazarus

I'll test it and write an answer (or, may be, fix) tomorrow.