You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2392 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
dopi
@ -12,7 +12,7 @@
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="36" Y="18"/>
|
||||
<UsageCount Value="86"/>
|
||||
<UsageCount Value="88"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="mainform.pas"/>
|
||||
@ -23,7 +23,7 @@
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="10" Y="8"/>
|
||||
<UsageCount Value="86"/>
|
||||
<UsageCount Value="88"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="uform1.pas"/>
|
||||
@ -34,9 +34,9 @@
|
||||
<UnitName Value="uForm1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="40"/>
|
||||
<CursorPos X="60" Y="67"/>
|
||||
<UsageCount Value="86"/>
|
||||
<TopLine Value="64"/>
|
||||
<CursorPos X="15" Y="70"/>
|
||||
<UsageCount Value="88"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit2>
|
||||
@ -46,27 +46,27 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uMainForm"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="90"/>
|
||||
<CursorPos X="17" Y="105"/>
|
||||
<UsageCount Value="43"/>
|
||||
<TopLine Value="87"/>
|
||||
<CursorPos X="17" Y="90"/>
|
||||
<UsageCount Value="44"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<UnitName Value="TDIClass"/>
|
||||
<IsVisibleTab Value="True"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="219"/>
|
||||
<CursorPos X="51" Y="233"/>
|
||||
<UsageCount Value="43"/>
|
||||
<TopLine Value="770"/>
|
||||
<CursorPos X="49" Y="709"/>
|
||||
<UsageCount Value="44"/>
|
||||
<Bookmarks Count="3">
|
||||
<Item0 X="17" Y="728" ID="3"/>
|
||||
<Item1 X="3" Y="649" ID="2"/>
|
||||
<Item2 X="68" Y="227" ID="1"/>
|
||||
<Item0 X="17" Y="729" ID="3"/>
|
||||
<Item1 X="3" Y="650" ID="2"/>
|
||||
<Item2 X="3" Y="443" ID="1"/>
|
||||
</Bookmarks>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
@ -99,7 +99,7 @@
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="23" Y="5"/>
|
||||
<UsageCount Value="27"/>
|
||||
<UsageCount Value="28"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
@ -165,8 +165,8 @@
|
||||
<EditorIndex Value="5"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="17" Y="9"/>
|
||||
<UsageCount Value="40"/>
|
||||
<CursorPos X="13" Y="10"/>
|
||||
<UsageCount Value="41"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
@ -406,8 +406,8 @@
|
||||
<Unit46>
|
||||
<Filename Value="C:\lazarus\lcl\include\customform.inc"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="2132"/>
|
||||
<CursorPos X="3" Y="2132"/>
|
||||
<TopLine Value="2173"/>
|
||||
<CursorPos X="32" Y="2186"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit46>
|
||||
<Unit47>
|
||||
@ -420,10 +420,10 @@
|
||||
<Unit48>
|
||||
<Filename Value="C:\lazarus\lcl\forms.pp"/>
|
||||
<UnitName Value="Forms"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="697"/>
|
||||
<CursorPos X="3" Y="708"/>
|
||||
<TopLine Value="588"/>
|
||||
<CursorPos X="31" Y="598"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit48>
|
||||
@ -497,7 +497,7 @@
|
||||
<WindowIndex Value="0"/>
|
||||
<TopLine Value="132"/>
|
||||
<CursorPos X="1" Y="154"/>
|
||||
<UsageCount Value="13"/>
|
||||
<UsageCount Value="14"/>
|
||||
<Loaded Value="True"/>
|
||||
<LoadedDesigner Value="True"/>
|
||||
</Unit57>
|
||||
@ -529,123 +529,123 @@
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="606" Column="1" TopLine="594"/>
|
||||
<Caret Line="256" Column="1" TopLine="241"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="608" Column="1" TopLine="594"/>
|
||||
<Caret Line="54" Column="1" TopLine="45"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="609" Column="1" TopLine="594"/>
|
||||
<Caret Line="188" Column="1" TopLine="178"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="611" Column="1" TopLine="594"/>
|
||||
<Caret Line="225" Column="1" TopLine="215"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="612" Column="1" TopLine="594"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="611" Column="1" TopLine="594"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="40" Column="48" TopLine="29"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="612" Column="1" TopLine="594"/>
|
||||
<Caret Line="244" Column="27" TopLine="237"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="609" Column="37" TopLine="584"/>
|
||||
<Caret Line="210" Column="70" TopLine="196"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="615" Column="19" TopLine="593"/>
|
||||
<Caret Line="1" Column="1" TopLine="40"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
<Caret Line="227" Column="73" TopLine="214"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="222" Column="9" TopLine="203"/>
|
||||
<Caret Line="721" Column="17" TopLine="706"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="229" Column="1" TopLine="209"/>
|
||||
<Caret Line="80" Column="20" TopLine="69"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="69" Column="25" TopLine="47"/>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="443" Column="3" TopLine="429"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="91" Column="83" TopLine="82"/>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="754" Column="27" TopLine="747"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="58" Column="15" TopLine="47"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="44" Column="18" TopLine="40"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="254" Column="3" TopLine="248"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="45" Column="18" TopLine="41"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="221" Column="1" TopLine="211"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="46" Column="18" TopLine="42"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="8" Column="38" TopLine="1"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="48" Column="18" TopLine="44"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="252" Column="1" TopLine="241"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="71" Column="22" TopLine="42"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="256" Column="1" TopLine="241"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="53" Column="12" TopLine="42"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="54" Column="1" TopLine="45"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="56" Column="12" TopLine="45"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="188" Column="1" TopLine="178"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="93" Column="8" TopLine="66"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="225" Column="1" TopLine="215"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="93" Column="17" TopLine="90"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
<Caret Line="92" Column="17" TopLine="89"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="40" Column="48" TopLine="29"/>
|
||||
<Caret Line="91" Column="17" TopLine="88"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="244" Column="27" TopLine="237"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="90" Column="17" TopLine="87"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="210" Column="70" TopLine="196"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="89" Column="17" TopLine="86"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="40"/>
|
||||
<Filename Value="umainform.pas"/>
|
||||
<Caret Line="90" Column="17" TopLine="87"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="227" Column="73" TopLine="214"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="68" Column="15" TopLine="62"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="..\tdiclass.pas"/>
|
||||
<Caret Line="721" Column="17" TopLine="706"/>
|
||||
<Filename Value="uform1.pas"/>
|
||||
<Caret Line="69" Column="15" TopLine="63"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectSession>
|
||||
|
||||
@ -15,18 +15,18 @@ object Form1: TForm1
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnDestroy = FormDestroy
|
||||
LCLVersion = '1.1'
|
||||
object Button1: TButton
|
||||
Left = 376
|
||||
object bClose: TButton
|
||||
Left = 400
|
||||
Height = 25
|
||||
Top = 248
|
||||
Top = 224
|
||||
Width = 86
|
||||
AutoSize = True
|
||||
Caption = 'Close Form'
|
||||
OnClick = Button1Click
|
||||
OnClick = bCloseClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object Edit1: TEdit
|
||||
Left = 40
|
||||
Left = 24
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 82
|
||||
@ -34,19 +34,82 @@ object Form1: TForm1
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object Edit2: TEdit
|
||||
Left = 40
|
||||
Left = 24
|
||||
Height = 23
|
||||
Top = 56
|
||||
Top = 96
|
||||
Width = 82
|
||||
OnExit = Edit2Exit
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 51
|
||||
Height = 16
|
||||
Top = 268
|
||||
Width = 35
|
||||
Caption = 'Label1'
|
||||
Left = 144
|
||||
Height = 1
|
||||
Top = 63
|
||||
Width = 1
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
Left = 23
|
||||
Height = 16
|
||||
Top = 143
|
||||
Width = 454
|
||||
Caption = 'This Form has Max Constraints. It will be centralized on Tab Sheet if it is smaller than it'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Height = 46
|
||||
Top = 208
|
||||
Width = 360
|
||||
Caption = 'You can Close or Hide your Forms the same way you used to.'#13#10'No Special method is necessary. TDINotebook will detect by internal'#13#10'Notification and Close the Tab Sheet'
|
||||
ParentColor = False
|
||||
end
|
||||
object bHide: TButton
|
||||
AnchorSideLeft.Control = bClose
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
Left = 402
|
||||
Height = 25
|
||||
Top = 256
|
||||
Width = 82
|
||||
AutoSize = True
|
||||
Caption = 'Hide Form'
|
||||
OnClick = bHideClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object lShowmeAgain: TLabel
|
||||
Left = 16
|
||||
Height = 16
|
||||
Top = 272
|
||||
Width = 364
|
||||
Caption = 'But, If you Hide the Form, is better you have a way to Show it again :)'
|
||||
Font.Color = clRed
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 24
|
||||
Height = 16
|
||||
Top = 8
|
||||
Width = 106
|
||||
Caption = 'This is a regular Edit'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 24
|
||||
Height = 31
|
||||
Top = 63
|
||||
Width = 450
|
||||
Caption = 'This Edit has a OnExit Validation, who doesn''t allow Page Change if this Edit is empty'#13#10'This can be configured by "VerifyIfCanChange" property'
|
||||
ParentColor = False
|
||||
end
|
||||
object tShowmeAgain: TTimer
|
||||
Enabled = False
|
||||
Interval = 3000
|
||||
OnTimer = tShowmeAgainTimer
|
||||
left = 450
|
||||
top = 8
|
||||
end
|
||||
end
|
||||
|
||||
@ -5,22 +5,32 @@ unit uForm1 ;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls ;
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
ExtCtrls ;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Button1 : TButton ;
|
||||
bClose : TButton ;
|
||||
bHide : TButton ;
|
||||
Edit1 : TEdit ;
|
||||
Edit2 : TEdit ;
|
||||
Label1 : TLabel ;
|
||||
procedure Button1Click(Sender : TObject) ;
|
||||
Label2 : TLabel ;
|
||||
Label3 : TLabel ;
|
||||
Label4 : TLabel ;
|
||||
Label5 : TLabel ;
|
||||
lShowmeAgain : TLabel ;
|
||||
tShowmeAgain : TTimer ;
|
||||
procedure bCloseClick(Sender : TObject) ;
|
||||
procedure bHideClick(Sender : TObject) ;
|
||||
procedure Edit2Exit(Sender : TObject) ;
|
||||
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
|
||||
procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
|
||||
procedure FormDestroy(Sender : TObject) ;
|
||||
procedure tShowmeAgainTimer(Sender : TObject) ;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
@ -38,12 +48,18 @@ Uses uMainForm;
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.Button1Click(Sender : TObject) ;
|
||||
procedure TForm1.bCloseClick(Sender : TObject) ;
|
||||
begin
|
||||
// You can close Forms from Inside, TDI will detect and close the parent Page //
|
||||
// You can close Forms from Inside, TDINoteBook will detect and close the parent Page //
|
||||
Close ;
|
||||
end;
|
||||
|
||||
procedure TForm1.bHideClick(Sender : TObject) ;
|
||||
begin
|
||||
Hide;
|
||||
tShowmeAgain.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TForm1.Edit2Exit(Sender : TObject) ;
|
||||
begin
|
||||
if Edit2.Text = '' then
|
||||
@ -76,5 +92,12 @@ begin
|
||||
fMainForm.mEvents.Lines.Add( 'Form1.Destroy' );
|
||||
end;
|
||||
|
||||
procedure TForm1.tShowmeAgainTimer(Sender : TObject) ;
|
||||
begin
|
||||
tShowmeAgain.Enabled := False;
|
||||
Show;
|
||||
lShowmeAgain.Visible := True;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -14,15 +14,13 @@ type
|
||||
|
||||
TfMainForm = class(TForm)
|
||||
Button1 : TButton ;
|
||||
Button2 : TButton ;
|
||||
cbxBackgroundCorner : TComboBox ;
|
||||
Edit1 : TEdit ;
|
||||
Edit2 : TEdit ;
|
||||
Edit3 : TEdit ;
|
||||
Edit4 : TEdit ;
|
||||
Image1 : TImage ;
|
||||
ImageList1 : TImageList ;
|
||||
Label1 : TLabel ;
|
||||
Label2 : TLabel ;
|
||||
MainMenu1 : TMainMenu ;
|
||||
mEvents : TMemo ;
|
||||
MenuItem1 : TMenuItem ;
|
||||
@ -34,7 +32,6 @@ type
|
||||
Splitter1 : TSplitter ;
|
||||
StatusBar1 : TStatusBar ;
|
||||
TabSheet1 : TTabSheet ;
|
||||
TabSheet2 : TTabSheet ;
|
||||
TDINoteBook1 : TTDINoteBook ;
|
||||
procedure cbxBackgroundCornerChange(Sender : TObject) ;
|
||||
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
|
||||
|
||||
Reference in New Issue
Block a user