DFMEdit

[luwo]

Zitat von _frank_:

lest ihr auch die hinweise auf der beta-seite bzw. den ganzen thread? hab das schon mehrfach in diesem thread geschrieben...

Ups, sorry, hab ich nicht gelesen, hab mir die Dateien von SF gezogen.

Zitat von _frank_:

dfmedit hat bereits eine createpas/modifypas-funktion , sogar für lazarus (nur beta)

ja, stimmt, aber die erstellt ja das komplette Codegerüst,
ich dachte an was viel simpleres wie:

Aus dem DFM-"QuellCode"...

Code:

object Form1: TForm1
  BorderStyle = bsSizeable
  Caption = 'Ein einfaches formular'
  Height = 300
  Left = 908
  Top = 149
  Visible = True
  Width = 400
  object Panel1: TPanel
    Width = 291
    Visible = True
    Top = 16
    Left = 10
    Height = 107
    object Label1: TLabel
      Font.Name = 'Verdana'
      Width = 202
      Top = 5
      Left = 10
      Height = 13
      Caption = 'Ich bin ein Label'
    end
  end
end

...wird z.B. folgender PascalCode generiert:

Code:

function MyCreateForm:TForm;
var
     Form1 : TForm;
    Panel1 : TPanel;
    Label1 : TLabel;
begin

Form1:=TForm.create(nil); 
with Form1 do 
 begin
  BorderStyle:=bsSizeable;
  Caption:='Ein einfaches formular';
  Height:=300;
  Left:=908;
  Top:=149;
  Visible:=True;
  Width:=400;
  
  Panel1:=TPanel.create(Form1); 
  with Panel1 do 
  begin
    Parent:=Form1; // <-- ! Hierarchie beachten
    Width:=291;
    Visible:=True;
    Top:=16;
    Left:=10;
    Height:=107;
    

    Label1:=TLabel.create(Panel1); 
    with Label1 do 
    begin
      Parent:=Panel1; // <-- ! Hierarchie beachten
      Font.Name:='Verdana';
      Width:=202;
      Visible:=True;
      Top:=5;
      Left:=10;
      Height:=13;
      Caption:='Ich bin ein Label';
    end;

  end;

end;


result:=Form1;
end;

Dieses Ergebnis wurde übrigens mit meinen o.g. Prototypen generiert.
(Es fehlen halt noch viele Sachen wie z.B. Listboxen mit Strings, Imagelisten mit Bildern usw.)

Ziel: Die Erstellung der Formulare direkt im Programmcode, ohne Ressourcen zu verwenden.