|
Enthält das in Delphi erstellte Formular als Textblob. Ein Beispiel für ein
solches Delphi-Formular haben wir angefügt. Dieser „Formulartext“
wird von Delphi automatisch erzeugt, weshalb die Zeilen nicht weiter
beschrieben werden. Zur Anzeige werden ausschließlich Delphi-Standard-Elemente
benutzt.
Beispiel:
Data=object FrameInfoAdresseRechnung: TForm
Left = 0
Top = 0
Width = 486
Height = 179
TabOrder = 0
object CnPanel1: TCnPanel
Left = 0
Top = 0
Width = 239
Height = 118
PanelStyle = cpsEulanda
Caption = 'Allgemein'
TabOrder = 0
ButtonStyle = cpbNone
object Label1: TLabel
Left = 8
Top = 31
Width = 39
Height = 13
Caption = 'Matchcode'
end
object Label2: TLabel
Left = 8
Top = 53
Width = 31
Height = 13
Caption = 'Datum'
end
object Label3: TLabel
Left = 8
Top = 75
Width = 42
Height = 13
Caption = 'Vk Netto'
end
object Label4: TLabel
Left = 8
Top = 96
Width = 44
Height = 13
Caption = 'Vk Brutto'
end
object DBEdit1: TDBEdit
Left = 112
Top = 32
Width = 121
Height = 17
BorderStyle = bsNone
Ctl3D = False
DataField = 'KopfNummer'
DataSource = dsRechnung
ParentCtl3D = False
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 112
Top = 53
Width = 121
Height = 17
BorderStyle = bsNone
Ctl3D = False
DataField = 'Datum'
DataSource = dsRechnung
ParentCtl3D = False
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 112
Top = 73
Width = 121
Height = 17
BorderStyle = bsNone
Ctl3D = False
DataField = 'VkNetto'
DataSource = dsRechnung
ParentCtl3D = False
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 112
Top = 93
Width = 121
Height = 17
BorderStyle = bsNone
Ctl3D = False
DataField = 'VkBrutto'
DataSource = dsRechnung
ParentCtl3D = False
TabOrder = 3
end
end
object CnPanel2: TCnPanel
Left = 243
Top = 0
Width = 243
Height = 179
PanelStyle = cpsEulanda
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Info'
TabOrder = 1
ButtonStyle = cpbNone
object DBMemo1: TDBMemo
Left = 8
Top = 25
Width = 227
Height = 146
Anchors = [akLeft, akTop, akRight, akBottom]
BorderStyle = bsNone
DataField = 'Info'
DataSource = dsRechnung
TabOrder = 0
end
end
object dsRechnung: TCnProxyDataSource
AutoEdit = False
ObjectName = 'Eulanda.Rechnung'
Left = 302
Top = 11
end
end
|
