Стартовый пул
This commit is contained in:
BIN
RXLib/demos/RxMDI/project1.ico
Normal file
BIN
RXLib/demos/RxMDI/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
108
RXLib/demos/RxMDI/project1.lpi
Normal file
108
RXLib/demos/RxMDI/project1.lpi
Normal file
@@ -0,0 +1,108 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<AutoCreateForms Value="False"/>
|
||||
<Title Value="project1"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default"/>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="rxnew"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="unit2.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form2"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit2"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="unit3.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form3"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit3"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="unit4.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form4"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit4"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="project1"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
20
RXLib/demos/RxMDI/project1.lpr
Normal file
20
RXLib/demos/RxMDI/project1.lpr
Normal file
@@ -0,0 +1,20 @@
|
||||
program project1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, Unit1, rxnew, Unit2, Unit3, Unit4;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
179
RXLib/demos/RxMDI/unit1.lfm
Normal file
179
RXLib/demos/RxMDI/unit1.lfm
Normal file
@@ -0,0 +1,179 @@
|
||||
object Form1: TForm1
|
||||
Left = 527
|
||||
Height = 435
|
||||
Top = 222
|
||||
Width = 613
|
||||
Caption = 'MainForm'
|
||||
ClientHeight = 407
|
||||
ClientWidth = 613
|
||||
Menu = MainMenu1
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.9.0.0'
|
||||
WindowState = wsMaximized
|
||||
object ToolPanel1: TToolPanel
|
||||
Left = 0
|
||||
Height = 31
|
||||
Top = 0
|
||||
Width = 613
|
||||
Items = <>
|
||||
Options = []
|
||||
CustomizeShortCut = False
|
||||
Align = alTop
|
||||
BorderWidth = 4
|
||||
ClientHeight = 31
|
||||
ClientWidth = 613
|
||||
TabOrder = 0
|
||||
object RxMDICloseButton1: TRxMDICloseButton
|
||||
AnchorSideTop.Control = ToolPanel1
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = ToolPanel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 585
|
||||
Height = 22
|
||||
Top = 4
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Glyph.Data = {
|
||||
1A020000424D1A0200000000000036000000280000000B0000000B0000000100
|
||||
200000000000E401000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF00000000000000000000000000000000000000FF000000FF000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000000000
|
||||
000000000000000000000000000000000000000000FF000000FF000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000FF0000
|
||||
00FF0000000000000000000000FF000000FF0000000000000000000000000000
|
||||
0000000000FF000000FF00000000000000000000000000000000000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000000000000
|
||||
}
|
||||
ShowInfoLabel = False
|
||||
end
|
||||
end
|
||||
object RxMDITasks1: TRxMDITasks
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 360
|
||||
Width = 613
|
||||
Align = alBottom
|
||||
FlatButton = True
|
||||
Options = [rxtoMidleClickClose]
|
||||
end
|
||||
object StatusBar1: TStatusBar
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 385
|
||||
Width = 613
|
||||
Panels = <
|
||||
item
|
||||
Width = 100
|
||||
end
|
||||
item
|
||||
Width = 150
|
||||
end>
|
||||
SimplePanel = False
|
||||
end
|
||||
object RxMDIPanel1: TRxMDIPanel
|
||||
Left = 0
|
||||
Height = 329
|
||||
Top = 31
|
||||
Width = 613
|
||||
CloseButton = RxMDICloseButton1
|
||||
TaskPanel = RxMDITasks1
|
||||
Align = alClient
|
||||
BevelOuter = bvLowered
|
||||
HideCloseButton = False
|
||||
OnChangeCurrentChild = RxMDIPanel1ChangeCurrentChild
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 440
|
||||
Top = 72
|
||||
object sysClose: TAction
|
||||
Category = 'System'
|
||||
Caption = 'Close'
|
||||
OnExecute = sysCloseExecute
|
||||
end
|
||||
object Action1: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'Form # 1'
|
||||
OnExecute = Action1Execute
|
||||
end
|
||||
object Action2: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'Form # 2'
|
||||
OnExecute = Action2Execute
|
||||
end
|
||||
object Action3: TAction
|
||||
Category = 'MDI forms'
|
||||
Caption = 'New single MDI form'
|
||||
OnExecute = Action3Execute
|
||||
end
|
||||
object optShowInfoLabel: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Show info label'
|
||||
Checked = True
|
||||
OnExecute = optShowInfoLabelExecute
|
||||
end
|
||||
object optMidleMouseClickClose: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Midle mouse button close form'
|
||||
Checked = True
|
||||
OnExecute = optMidleMouseClickCloseExecute
|
||||
end
|
||||
object optHideCloseButton: TAction
|
||||
Category = 'Options'
|
||||
Caption = 'Hide close button'
|
||||
Checked = True
|
||||
OnExecute = optHideCloseButtonExecute
|
||||
end
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
Left = 408
|
||||
Top = 72
|
||||
object MenuItem1: TMenuItem
|
||||
Caption = 'System'
|
||||
object MenuItem2: TMenuItem
|
||||
Action = sysClose
|
||||
end
|
||||
end
|
||||
object MenuItem8: TMenuItem
|
||||
Caption = 'Options'
|
||||
object MenuItem9: TMenuItem
|
||||
Action = optShowInfoLabel
|
||||
end
|
||||
object MenuItem10: TMenuItem
|
||||
Action = optMidleMouseClickClose
|
||||
end
|
||||
object MenuItem11: TMenuItem
|
||||
Action = optHideCloseButton
|
||||
end
|
||||
end
|
||||
object MenuItem3: TMenuItem
|
||||
Caption = 'MDI forms'
|
||||
object MenuItem4: TMenuItem
|
||||
Action = Action1
|
||||
end
|
||||
object MenuItem5: TMenuItem
|
||||
Action = Action2
|
||||
end
|
||||
object MenuItem7: TMenuItem
|
||||
Caption = '-'
|
||||
end
|
||||
object MenuItem6: TMenuItem
|
||||
Action = Action3
|
||||
end
|
||||
end
|
||||
end
|
||||
object Timer1: TTimer
|
||||
Interval = 500
|
||||
OnTimer = Timer1Timer
|
||||
Left = 451
|
||||
Top = 117
|
||||
end
|
||||
end
|
||||
146
RXLib/demos/RxMDI/unit1.pas
Normal file
146
RXLib/demos/RxMDI/unit1.pas
Normal file
@@ -0,0 +1,146 @@
|
||||
unit Unit1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, rxtoolbar, RxMDI, Forms, Controls, Graphics,
|
||||
Dialogs, ActnList, Menus, ComCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Action1: TAction;
|
||||
Action2: TAction;
|
||||
Action3: TAction;
|
||||
MenuItem11: TMenuItem;
|
||||
optHideCloseButton: TAction;
|
||||
MenuItem10: TMenuItem;
|
||||
optMidleMouseClickClose: TAction;
|
||||
MenuItem9: TMenuItem;
|
||||
optShowInfoLabel: TAction;
|
||||
MenuItem1: TMenuItem;
|
||||
MenuItem2: TMenuItem;
|
||||
MenuItem3: TMenuItem;
|
||||
MenuItem4: TMenuItem;
|
||||
MenuItem5: TMenuItem;
|
||||
MenuItem6: TMenuItem;
|
||||
MenuItem7: TMenuItem;
|
||||
MenuItem8: TMenuItem;
|
||||
sysClose: TAction;
|
||||
ActionList1: TActionList;
|
||||
MainMenu1: TMainMenu;
|
||||
RxMDICloseButton1: TRxMDICloseButton;
|
||||
RxMDIPanel1: TRxMDIPanel;
|
||||
RxMDITasks1: TRxMDITasks;
|
||||
StatusBar1: TStatusBar;
|
||||
Timer1: TTimer;
|
||||
ToolPanel1: TToolPanel;
|
||||
procedure Action1Execute(Sender: TObject);
|
||||
procedure Action2Execute(Sender: TObject);
|
||||
procedure Action3Execute(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure optHideCloseButtonExecute(Sender: TObject);
|
||||
procedure optMidleMouseClickCloseExecute(Sender: TObject);
|
||||
procedure optShowInfoLabelExecute(Sender: TObject);
|
||||
procedure RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm);
|
||||
procedure sysCloseExecute(Sender: TObject);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
private
|
||||
procedure UpdateOptions;
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
uses Unit2, Unit3, Unit4;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.sysCloseExecute(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TForm1.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
if Assigned(ActiveControl) then
|
||||
StatusBar1.Panels[0].Text:=ActiveControl.Caption
|
||||
else
|
||||
StatusBar1.Panels[0].Text:='<NONE>'
|
||||
;
|
||||
end;
|
||||
|
||||
procedure TForm1.UpdateOptions;
|
||||
begin
|
||||
RxMDICloseButton1.ShowInfoLabel:=optShowInfoLabel.Checked;
|
||||
if optMidleMouseClickClose.Checked then
|
||||
RxMDITasks1.Options:=RxMDITasks1.Options + [rxtoMidleClickClose]
|
||||
else
|
||||
RxMDITasks1.Options:=RxMDITasks1.Options - [rxtoMidleClickClose];
|
||||
|
||||
RxMDIPanel1.HideCloseButton:=optHideCloseButton.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.Action1Execute(Sender: TObject);
|
||||
begin
|
||||
RxMDIPanel1.ChildWindowsCreate(Form2, TForm2);
|
||||
end;
|
||||
|
||||
procedure TForm1.Action2Execute(Sender: TObject);
|
||||
begin
|
||||
RxMDIPanel1.ChildWindowsCreate(Form3, TForm3);
|
||||
end;
|
||||
|
||||
procedure TForm1.Action3Execute(Sender: TObject);
|
||||
var
|
||||
Form4: TForm4;
|
||||
begin
|
||||
Form4:=TForm4.Create(Application);
|
||||
RxMDIPanel1.ChildWindowsAdd(Form4);
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
UpdateOptions;
|
||||
end;
|
||||
|
||||
procedure TForm1.optHideCloseButtonExecute(Sender: TObject);
|
||||
begin
|
||||
optHideCloseButton.Checked:=not optHideCloseButton.Checked;
|
||||
UpdateOptions;
|
||||
end;
|
||||
|
||||
procedure TForm1.optMidleMouseClickCloseExecute(Sender: TObject);
|
||||
begin
|
||||
optMidleMouseClickClose.Checked:=not optMidleMouseClickClose.Checked;
|
||||
UpdateOptions;
|
||||
end;
|
||||
|
||||
procedure TForm1.optShowInfoLabelExecute(Sender: TObject);
|
||||
begin
|
||||
optShowInfoLabel.Checked:=not optShowInfoLabel.Checked;
|
||||
UpdateOptions;
|
||||
end;
|
||||
|
||||
procedure TForm1.RxMDIPanel1ChangeCurrentChild(Sender: TRxMDIPanel; AForm: TForm
|
||||
);
|
||||
begin
|
||||
if Assigned(AForm) then
|
||||
StatusBar1.Panels[1].Text:=AForm.Caption
|
||||
else
|
||||
StatusBar1.Panels[1].Text:='<NONE>'
|
||||
;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
83
RXLib/demos/RxMDI/unit2.lfm
Normal file
83
RXLib/demos/RxMDI/unit2.lfm
Normal file
@@ -0,0 +1,83 @@
|
||||
object Form2: TForm2
|
||||
Left = 502
|
||||
Height = 414
|
||||
Top = 245
|
||||
Width = 478
|
||||
Caption = 'MDI form 1'
|
||||
ClientHeight = 414
|
||||
ClientWidth = 478
|
||||
Icon.Data = {
|
||||
7E04000000000100010010100000010020006804000016000000280000001000
|
||||
0000200000000100200000000000000400006400000064000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000BE7A45FFBE7A
|
||||
45FFBE7A45FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000BE7A45FFBE7A45FF78553958BE7A45FFE3CD
|
||||
BCFFBE7A45FF78553958BE7A45FFBE7A45FF0000000000000000000000000000
|
||||
00000000000000000000BE7A45FFE3CDBCFFD2A786FFBE7A45FFC79064FFDAB8
|
||||
9DFFC79064FFBE7A45FFD2A786FFE3CDBCFFBE7A45FF00000000000000000000
|
||||
00000000000000000000BE7A45FFD2A786FFDAB89DFFDAB89DFFDAB89DFFDAB8
|
||||
9DFFDAB89DFFDAB89DFFDAB89DFFD2A786FFBE7A45FF00000000000000000000
|
||||
0000000000000000000078553958BE7A45FFE3CDBCFFCFA17CFFBD7F4CF8C386
|
||||
56FFBA7A46F4D5AE8FFFDAB89DFFBE7A45FF7855395800000000000000000000
|
||||
000000000000BE7A45FFBE7A45FFC79064FFDAB89DFFBD7F4CF8B78256CD7855
|
||||
3959A56F43C0BA7A46F4DAB89DFFC79064FFBE7A45FFBE7A45FF000000000000
|
||||
000000000000BE7A45FFE3CDBCFFDAB89DFFDAB89DFFC38656FF785539590000
|
||||
000078553959C38656FFDAB89DFFDAB89DFFE3CDBCFFBE7A45FF000000000000
|
||||
000000000000BE7A45FFBE7A45FFC79064FFDAB89DFFBA7A46F49C6B42AE7855
|
||||
39598F633F97BA7C49EEDAB89DFFC79064FFBE7A45FFBE7A45FF000000000000
|
||||
0000000000000000000078553958BE7A45FFDAB89DFFCFA17CFFBA7A46F4C386
|
||||
56FFBA7A46F4D1A582FFDAB89DFFBE7A45FF7855395800000000000000000000
|
||||
00000000000000000000BE7A45FFD2A786FFDAB89DFFDAB89DFFDAB89DFFDAB8
|
||||
9DFFDAB89DFFDAB89DFFDAB89DFFD2A786FFBE7A45FF00000000000000000000
|
||||
00000000000000000000BE7A45FFE3CDBCFFD2A786FFBE7A45FFC79064FFDAB8
|
||||
9DFFC79064FFBE7A45FFD2A786FFE3CDBCFFBE7A45FF00000000000000000000
|
||||
0000000000000000000078553958BE7A45FFBE7A45FF78553958BE7A45FFE3CD
|
||||
BCFFBE7A45FF78553958BE7A45FFBE7A45FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000BE7A45FFBE7A
|
||||
45FFBE7A45FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000
|
||||
}
|
||||
OnClose = FormClose
|
||||
LCLVersion = '1.1'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 0
|
||||
Width = 478
|
||||
Align = alTop
|
||||
Caption = 'MDI form # 1'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 21
|
||||
Height = 25
|
||||
Top = 106
|
||||
Width = 80
|
||||
TabOrder = 1
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 118
|
||||
Height = 25
|
||||
Top = 105
|
||||
Width = 80
|
||||
TabOrder = 2
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 223
|
||||
Height = 25
|
||||
Top = 103
|
||||
Width = 80
|
||||
TabOrder = 3
|
||||
Text = 'Edit3'
|
||||
end
|
||||
end
|
||||
43
RXLib/demos/RxMDI/unit2.pas
Normal file
43
RXLib/demos/RxMDI/unit2.pas
Normal file
@@ -0,0 +1,43 @@
|
||||
unit Unit2;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TForm2 }
|
||||
|
||||
TForm2 = class(TForm)
|
||||
Edit1: TEdit;
|
||||
Edit2: TEdit;
|
||||
Edit3: TEdit;
|
||||
Panel1: TPanel;
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form2: TForm2 = nil;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm2 }
|
||||
|
||||
procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction:=caFree;
|
||||
Form2:=nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
70
RXLib/demos/RxMDI/unit3.lfm
Normal file
70
RXLib/demos/RxMDI/unit3.lfm
Normal file
@@ -0,0 +1,70 @@
|
||||
object Form3: TForm3
|
||||
Left = 604
|
||||
Height = 442
|
||||
Top = 239
|
||||
Width = 640
|
||||
Caption = 'MDI form # 2'
|
||||
ClientHeight = 442
|
||||
ClientWidth = 640
|
||||
Icon.Data = {
|
||||
7E04000000000100010010100000010020006804000016000000280000001000
|
||||
0000200000000100200000000000000400006400000064000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000E2C0AAFFE2C0AAFF000000000000
|
||||
00000000000000000000E2C0AAFFE2C0AAFF0000000000000000000000000000
|
||||
0000000000000000000000000000C8865BFFBE713FFFC58053FF000000000000
|
||||
00000000000000000000CE946EFFBE703EFFC17746FF00000000000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
00000000000000000000D6A586FFC2794AFFCA8A61FF00000000000000000000
|
||||
0000000000000000000000000000D39E7CFFC2794AFFCC9068FF000000000000
|
||||
00000000000000000000C9885EFFC07443FFC27849FF00000000000000000000
|
||||
0000000000000000000000000000C9885EFFC2794AFFC9885EFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000BD6E3BFFBD6E3BFFE2C0AAFF000000000000
|
||||
0000000000000000000000000000D4A17FFFBD6F3CFFBE703DFF000000000000
|
||||
00000000000000000000C68155FFBF7241FFCC8D66FF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000
|
||||
}
|
||||
OnClose = FormClose
|
||||
LCLVersion = '1.1'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 0
|
||||
Width = 640
|
||||
Align = alTop
|
||||
Caption = 'MDI form # 2'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 392
|
||||
Top = 50
|
||||
Width = 640
|
||||
Align = alClient
|
||||
Lines.Strings = (
|
||||
'Memo1'
|
||||
)
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
41
RXLib/demos/RxMDI/unit3.pas
Normal file
41
RXLib/demos/RxMDI/unit3.pas
Normal file
@@ -0,0 +1,41 @@
|
||||
unit Unit3;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TForm3 }
|
||||
|
||||
TForm3 = class(TForm)
|
||||
Memo1: TMemo;
|
||||
Panel1: TPanel;
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form3: TForm3 = nil;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm3 }
|
||||
|
||||
procedure TForm3.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction:=caFree;
|
||||
Form3:=nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
84
RXLib/demos/RxMDI/unit4.lfm
Normal file
84
RXLib/demos/RxMDI/unit4.lfm
Normal file
@@ -0,0 +1,84 @@
|
||||
object Form4: TForm4
|
||||
Left = 477
|
||||
Height = 446
|
||||
Top = 196
|
||||
Width = 620
|
||||
Caption = 'Form4'
|
||||
ClientHeight = 446
|
||||
ClientWidth = 620
|
||||
Icon.Data = {
|
||||
7E04000000000100010010100000010020006804000016000000280000001000
|
||||
0000200000000100200000000000000400006400000064000000000000000000
|
||||
0000874A2056874A20FF874A20FF874A20FF874A204400000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000874A20FFBEA592FFB89C86FFB89C86FF874A20FF874A2044000000000000
|
||||
0000000000000000000000000000858A8881858A88D3858A8881000000000000
|
||||
0000874A20FFCCBBADFFA7917DFFB5957AFFAE8B72FF874A20FF874A20440000
|
||||
00000000000000000000858A884C858A88FF9EA1A0FF858A88FF000000000000
|
||||
0000874A20FFCCBBADFFA48D78FFA28A74FFB4957AFFB3937CFF874A20FF0000
|
||||
000000000000858A884C858A88FFD2D3D4FFC2C3C4FF858A88FF000000000000
|
||||
0000874A2030874A20FFD4C8BDFFA48D78FFA48D78FFBEA592FF874A20FF0000
|
||||
0000858A884C858A88FFE2E3E4FFC2C4C6FF858A88FF858A8881000000000000
|
||||
000000000000874A2019874A20FFCCBBADFFCCBBADFFB3937CFF874A20FF858A
|
||||
8881858A88FFD3D3D4FFBDBEBFFF858A88FF858A884C00000002000000000000
|
||||
00000000000000000000874A2019874A20FF874A20FF874A20FF85837DFFAAAD
|
||||
ADFFC8C9CAFFBDBEBFFF858A88FF858A884C0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000B5B7B8FF858A
|
||||
88FFB7B8B9FF858A88FF858A884C000000020000000000000000000000000000
|
||||
000000000000858A884C858A88FF858A88FF858A88FF858A88FFD0D1D2FFA3A4
|
||||
A4FF858A88FF858A888100000000000000000000000000000000000000000000
|
||||
0000858A884C858A88FFF3F3F3FEEFF0F0FFEDEEEEFEEAECECFEB6B9BAFF858A
|
||||
88FF858A884C858A88FF858A884C000000000000000000000000000000000000
|
||||
0000858A88FFF5F6F6FEA9ACABFF858A88FFF7F7F7FFE2E3E5FFAAADADFFECEE
|
||||
EE8100000000858A884C858A88FF858A884C0000000000000000000000000000
|
||||
0000858A884C858A88FF00000000858A884C858A88FFFAFAFAFF858A88FF0000
|
||||
00000000000000000000858A884C858A88FF878C8AFF0000004C000000000000
|
||||
000000000000000000000000000000000000858A88FFEEF0F0FF858A88FF0000
|
||||
0000000000000000000000000000858A88FFF0F0F0FF858A88FF0000004C0000
|
||||
0000000000000000000000000000858A88FFE9EBECFF858A88FF858A884C0000
|
||||
00000000000000000000000000000000004C858A88FFEEEFEFFC858A88FF0000
|
||||
0000000000000000000000000000858A884C858A88FF858A884C000000000000
|
||||
0000000000000000000000000000000000000000004C858A88FF858A884C0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000
|
||||
}
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '1.1'
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 50
|
||||
Top = 0
|
||||
Width = 620
|
||||
Align = alTop
|
||||
Caption = 'MDI form # ...'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 47
|
||||
Height = 25
|
||||
Top = 84
|
||||
Width = 80
|
||||
TabOrder = 1
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 43
|
||||
Height = 25
|
||||
Top = 154
|
||||
Width = 80
|
||||
TabOrder = 2
|
||||
Text = 'Edit2'
|
||||
end
|
||||
object Edit3: TEdit
|
||||
Left = 45
|
||||
Height = 25
|
||||
Top = 215
|
||||
Width = 80
|
||||
TabOrder = 3
|
||||
Text = 'Edit3'
|
||||
end
|
||||
end
|
||||
49
RXLib/demos/RxMDI/unit4.pas
Normal file
49
RXLib/demos/RxMDI/unit4.pas
Normal file
@@ -0,0 +1,49 @@
|
||||
unit Unit4;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
|
||||
ExtCtrls, StdCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TForm4 }
|
||||
|
||||
TForm4 = class(TForm)
|
||||
Edit1: TEdit;
|
||||
Edit2: TEdit;
|
||||
Edit3: TEdit;
|
||||
Panel1: TPanel;
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
CntMM:integer = 0;
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm4 }
|
||||
|
||||
procedure TForm4.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
CloseAction:=caFree;
|
||||
end;
|
||||
|
||||
procedure TForm4.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Inc(CntMM);
|
||||
Panel1.Caption:=Panel1.Caption + IntToStr(CntMM);
|
||||
Caption:=Panel1.Caption;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user