Skip to content

Commit bb0dd39

Browse files
lmbelolmbelo
committed
FMX form demo
1 parent 3027ed1 commit bb0dd39

File tree

6 files changed

+1267
-0
lines changed

6 files changed

+1267
-0
lines changed

‎Demos/FMX/FormDemo/FormDemo.dpr

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,15 @@
1+
program FormDemo;
2+
3+
uses
4+
System.StartUpCopy,
5+
FMX.Forms,
6+
MainForm in 'MainForm.pas' {Form1},
7+
SecondForm in 'SecondForm.pas' {DelphiSecondForm};
8+
9+
{$R *.res}
10+
11+
begin
12+
Application.Initialize;
13+
Application.CreateForm(TForm1, Form1);
14+
Application.Run;
15+
end.

‎Demos/FMX/FormDemo/FormDemo.dproj

Lines changed: 976 additions & 0 deletions
Large diffs are not rendered by default.

‎Demos/FMX/FormDemo/MainForm.fmx

Lines changed: 153 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,153 @@
1+
object Form1: TForm1
2+
Left = 0
3+
Top = 0
4+
Caption = 'MainForm'
5+
ClientHeight = 480
6+
ClientWidth = 640
7+
FormFactor.Width = 320
8+
FormFactor.Height = 480
9+
FormFactor.Devices = [Desktop]
10+
DesignerMasterStyle = 0
11+
object OpenDialog1: TOpenDialog
12+
DefaultExt = '*.py'
13+
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
14+
Left = 200
15+
end
16+
object SaveDialog1: TSaveDialog
17+
DefaultExt = '*.py'
18+
Filter = 'Python files|*.py|Text files|*.txt|All files|*.*'
19+
Left = 232
20+
end
21+
object Memo1: TMemo
22+
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
23+
DataDetectorTypes = []
24+
Align = Top
25+
Size.Width = 640.000000000000000000
26+
Size.Height = 200.000000000000000000
27+
Size.PlatformDefault = False
28+
TabOrder = 8
29+
Viewport.Width = 636.000000000000000000
30+
Viewport.Height = 196.000000000000000000
31+
end
32+
object Splitter1: TSplitter
33+
Align = Top
34+
Cursor = crVSplit
35+
MinSize = 20.000000000000000000
36+
Position.Y = 200.000000000000000000
37+
Size.Width = 640.000000000000000000
38+
Size.Height = 3.000000000000000000
39+
Size.PlatformDefault = False
40+
end
41+
object Memo2: TMemo
42+
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
43+
DataDetectorTypes = []
44+
Lines.Strings = (
45+
'from spam import Form'
46+
''
47+
'class SubForm(Form): '
48+
' def __init__(self, Owner):'
49+
' self.Caption = '#39'Subclassed form defined in Python'#39
50+
''
51+
'class DelphiSecondForm(Form):'
52+
' pass'
53+
''
54+
'def createbaseform():'
55+
' print('#39'Creates a Delphi FMX.TForm'#39')'
56+
' form = Form(None)'
57+
' try:'
58+
' form.Caption = "Delphi FMX base form"'
59+
' form.ShowModal()'
60+
' finally:'
61+
' form.Free();'
62+
''
63+
'def createpysubform():'
64+
' print('#39'Creates a Delphi FMX.TForm subtype defined in Python'#39')'
65+
' form = SubForm(None)'
66+
' try:'
67+
' form.ShowModal()'
68+
' finally:'
69+
' form.Free()'
70+
''
71+
'def createdelphisubform():'
72+
73+
' print('#39'Creates an instance of TDelphiSecondForm registerd form' +
74+
#39')'
75+
' form = DelphiSecondForm(None)'
76+
' try:'
77+
' print('#39'Label: '#39', form.Label1.Text)'
78+
' form.ShowModal()'
79+
' finally:'
80+
' form.Free()'
81+
''
82+
'def main():'
83+
' createbaseform()'
84+
' createpysubform()'
85+
' createdelphisubform()'
86+
''
87+
'if __name__ == '#39'__main__'#39':'
88+
' try:'
89+
' main()'
90+
' except SystemExit:'
91+
' pass')
92+
Align = Client
93+
Size.Width = 640.000000000000000000
94+
Size.Height = 232.000000000000000000
95+
Size.PlatformDefault = False
96+
TabOrder = 10
97+
Viewport.Width = 620.000000000000000000
98+
Viewport.Height = 228.000000000000000000
99+
end
100+
object Panel1: TPanel
101+
Align = Bottom
102+
Position.Y = 435.000000000000000000
103+
Size.Width = 640.000000000000000000
104+
Size.Height = 45.000000000000000000
105+
Size.PlatformDefault = False
106+
TabOrder = 11
107+
object Button1: TButton
108+
Position.X = 8.000000000000000000
109+
Position.Y = 10.000000000000000000
110+
Size.Width = 97.000000000000000000
111+
Size.Height = 22.000000000000000000
112+
Size.PlatformDefault = False
113+
TabOrder = 2
114+
Text = 'Execute script'
115+
OnClick = Button1Click
116+
end
117+
object Button2: TButton
118+
Position.X = 192.000000000000000000
119+
Position.Y = 10.000000000000000000
120+
TabOrder = 1
121+
Text = 'Load script...'
122+
OnClick = Button2Click
123+
end
124+
object Button3: TButton
125+
Position.X = 280.000000000000000000
126+
Position.Y = 10.000000000000000000
127+
TabOrder = 0
128+
Text = 'Save script...'
129+
OnClick = Button3Click
130+
end
131+
end
132+
object PythonEngine1: TPythonEngine
133+
IO = PythonGUIInputOutput1
134+
Left = 8
135+
end
136+
object PythonModule1: TPythonModule
137+
Engine = PythonEngine1
138+
ModuleName = 'spam'
139+
Errors = <>
140+
Left = 40
141+
end
142+
object PythonGUIInputOutput1: TPythonGUIInputOutput
143+
UnicodeIO = True
144+
RawOutput = False
145+
Output = Memo1
146+
Left = 104
147+
end
148+
object PyDelphiWrapper1: TPyDelphiWrapper
149+
Engine = PythonEngine1
150+
Module = PythonModule1
151+
Left = 72
152+
end
153+
end

‎Demos/FMX/FormDemo/MainForm.pas

Lines changed: 63 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,63 @@
1+
unit MainForm;
2+
3+
interface
4+
5+
uses
6+
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7+
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
8+
FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,
9+
PythonEngine, WrapDelphi, FMX.PythonGUIInputOutput, WrapDelphiFmx;
10+
11+
type
12+
TForm1 = class(TForm)
13+
OpenDialog1: TOpenDialog;
14+
SaveDialog1: TSaveDialog;
15+
Memo1: TMemo;
16+
Splitter1: TSplitter;
17+
Memo2: TMemo;
18+
Panel1: TPanel;
19+
Button1: TButton;
20+
Button2: TButton;
21+
Button3: TButton;
22+
PythonEngine1: TPythonEngine;
23+
PythonModule1: TPythonModule;
24+
PythonGUIInputOutput1: TPythonGUIInputOutput;
25+
PyDelphiWrapper1: TPyDelphiWrapper;
26+
procedure Button2Click(Sender: TObject);
27+
procedure Button3Click(Sender: TObject);
28+
procedure Button1Click(Sender: TObject);
29+
private
30+
{ Private declarations }
31+
public
32+
{ Public declarations }
33+
end;
34+
35+
var
36+
Form1: TForm1;
37+
38+
implementation
39+
40+
{$R *.fmx}
41+
42+
procedure TForm1.Button1Click(Sender: TObject);
43+
begin
44+
PythonEngine1.ExecStrings(Memo2.Lines);
45+
end;
46+
47+
procedure TForm1.Button2Click(Sender: TObject);
48+
begin
49+
with OpenDialog1 do begin
50+
if Execute then
51+
Memo2.Lines.LoadFromFile( FileName );
52+
end;
53+
end;
54+
55+
procedure TForm1.Button3Click(Sender: TObject);
56+
begin
57+
with SaveDialog1 do begin
58+
if Execute then
59+
Memo2.Lines.SaveToFile(FileName);
60+
end;
61+
end;
62+
63+
end.

‎Demos/FMX/FormDemo/SecondForm.fmx

Lines changed: 31 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
object DelphiSecondForm: TDelphiSecondForm
2+
Left = 0
3+
Top = 0
4+
Caption = 'Delphi second form'
5+
ClientHeight = 480
6+
ClientWidth = 640
7+
FormFactor.Width = 320
8+
FormFactor.Height = 480
9+
FormFactor.Devices = [Desktop]
10+
DesignerMasterStyle = 0
11+
object Label1: TLabel
12+
Align = Top
13+
AutoSize = True
14+
StyledSettings = [Family, FontColor]
15+
Margins.Left = 10.000000000000000000
16+
Margins.Top = 10.000000000000000000
17+
Margins.Right = 10.000000000000000000
18+
Margins.Bottom = 10.000000000000000000
19+
Position.X = 10.000000000000000000
20+
Position.Y = 10.000000000000000000
21+
Size.Width = 620.000000000000000000
22+
Size.Height = 30.000000000000000000
23+
Size.PlatformDefault = False
24+
StyleLookup = 'labelstyle'
25+
TextSettings.Font.Size = 22.000000000000000000
26+
TextSettings.Font.StyleExt = {00070000000000000004000000}
27+
TextSettings.HorzAlign = Center
28+
Text = 'This is a Delphi registerd form'
29+
TabOrder = 1
30+
end
31+
end

‎Demos/FMX/FormDemo/SecondForm.pas

Lines changed: 29 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,29 @@
1+
unit SecondForm;
2+
3+
interface
4+
5+
uses
6+
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7+
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
8+
FMX.Controls.Presentation, FMX.StdCtrls;
9+
10+
type
11+
TDelphiSecondForm = class(TForm)
12+
Label1: TLabel;
13+
private
14+
{ Private declarations }
15+
public
16+
{ Public declarations }
17+
end;
18+
19+
var
20+
DelphiSecondForm: TDelphiSecondForm;
21+
22+
implementation
23+
24+
{$R *.fmx}
25+
26+
initialization
27+
RegisterClass(TDelphiSecondForm);
28+
29+
end.

0 commit comments

Comments
 (0)
pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy