[lazarus] New version of fd2lcl published!!!

[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 |
 |-----------------------------|