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.