pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2392 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
dopi
2012-04-19 16:20:37 +00:00
parent a4c4e60de5
commit ecfd8c10a5
5 changed files with 669 additions and 2224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
components/tdi/Demo/TDIDemo.lps
View File

@ -12,7 +12,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="36" Y="18"/> <CursorPos X="36" Y="18"/>
<UsageCount Value="86"/> <UsageCount Value="88"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
@ -23,7 +23,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="10" Y="8"/> <CursorPos X="10" Y="8"/>
<UsageCount Value="86"/> <UsageCount Value="88"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="uform1.pas"/> <Filename Value="uform1.pas"/>
@ -34,9 +34,9 @@
<UnitName Value="uForm1"/> <UnitName Value="uForm1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="40"/> <TopLine Value="64"/>
<CursorPos X="60" Y="67"/> <CursorPos X="15" Y="70"/>
<UsageCount Value="86"/> <UsageCount Value="88"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -46,27 +46,27 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="uMainForm"/> <UnitName Value="uMainForm"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="90"/> <TopLine Value="87"/>
<CursorPos X="17" Y="105"/> <CursorPos X="17" Y="90"/>
<UsageCount Value="43"/> <UsageCount Value="44"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<UnitName Value="TDIClass"/> <UnitName Value="TDIClass"/>
<IsVisibleTab Value="True"/> <EditorIndex Value="3"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="219"/> <TopLine Value="770"/>
<CursorPos X="51" Y="233"/> <CursorPos X="49" Y="709"/>
<UsageCount Value="43"/> <UsageCount Value="44"/>
<Bookmarks Count="3"> <Bookmarks Count="3">
<Item0 X="17" Y="728" ID="3"/> <Item0 X="17" Y="729" ID="3"/>
<Item1 X="3" Y="649" ID="2"/> <Item1 X="3" Y="650" ID="2"/>
<Item2 X="68" Y="227" ID="1"/> <Item2 X="3" Y="443" ID="1"/>
</Bookmarks> </Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
@ -99,7 +99,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="23" Y="5"/> <CursorPos X="23" Y="5"/>
<UsageCount Value="27"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -165,8 +165,8 @@
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="17" Y="9"/> <CursorPos X="13" Y="10"/>
<UsageCount Value="40"/> <UsageCount Value="41"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
@ -406,8 +406,8 @@
<Unit46> <Unit46>
<Filename Value="C:\lazarus\lcl\include\customform.inc"/> <Filename Value="C:\lazarus\lcl\include\customform.inc"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2132"/> <TopLine Value="2173"/>
<CursorPos X="3" Y="2132"/> <CursorPos X="32" Y="2186"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit46> </Unit46>
<Unit47> <Unit47>
@ -420,10 +420,10 @@
<Unit48> <Unit48>
<Filename Value="C:\lazarus\lcl\forms.pp"/> <Filename Value="C:\lazarus\lcl\forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<EditorIndex Value="3"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="697"/> <TopLine Value="588"/>
<CursorPos X="3" Y="708"/> <CursorPos X="31" Y="598"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit48> </Unit48>
@ -497,7 +497,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="132"/> <TopLine Value="132"/>
<CursorPos X="1" Y="154"/> <CursorPos X="1" Y="154"/>
<UsageCount Value="13"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit57> </Unit57>
@ -529,123 +529,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="606" Column="1" TopLine="594"/> <Caret Line="256" Column="1" TopLine="241"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="608" Column="1" TopLine="594"/> <Caret Line="54" Column="1" TopLine="45"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="609" Column="1" TopLine="594"/> <Caret Line="188" Column="1" TopLine="178"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="611" Column="1" TopLine="594"/> <Caret Line="225" Column="1" TopLine="215"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="612" Column="1" TopLine="594"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="611" Column="1" TopLine="594"/> <Caret Line="40" Column="48" TopLine="29"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="612" Column="1" TopLine="594"/> <Caret Line="244" Column="27" TopLine="237"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="609" Column="37" TopLine="584"/> <Caret Line="210" Column="70" TopLine="196"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="615" Column="19" TopLine="593"/> <Caret Line="1" Column="1" TopLine="40"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="227" Column="73" TopLine="214"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="222" Column="9" TopLine="203"/> <Caret Line="721" Column="17" TopLine="706"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="229" Column="1" TopLine="209"/> <Caret Line="80" Column="20" TopLine="69"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="uform1.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="69" Column="25" TopLine="47"/> <Caret Line="443" Column="3" TopLine="429"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="umainform.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="91" Column="83" TopLine="82"/> <Caret Line="754" Column="27" TopLine="747"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="58" Column="15" TopLine="47"/> <Caret Line="44" Column="18" TopLine="40"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="254" Column="3" TopLine="248"/> <Caret Line="45" Column="18" TopLine="41"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="221" Column="1" TopLine="211"/> <Caret Line="46" Column="18" TopLine="42"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="8" Column="38" TopLine="1"/> <Caret Line="48" Column="18" TopLine="44"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="252" Column="1" TopLine="241"/> <Caret Line="71" Column="22" TopLine="42"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="256" Column="1" TopLine="241"/> <Caret Line="53" Column="12" TopLine="42"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="54" Column="1" TopLine="45"/> <Caret Line="56" Column="12" TopLine="45"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="188" Column="1" TopLine="178"/> <Caret Line="93" Column="8" TopLine="66"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="225" Column="1" TopLine="215"/> <Caret Line="93" Column="17" TopLine="90"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="92" Column="17" TopLine="89"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="40" Column="48" TopLine="29"/> <Caret Line="91" Column="17" TopLine="88"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="244" Column="27" TopLine="237"/> <Caret Line="90" Column="17" TopLine="87"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="210" Column="70" TopLine="196"/> <Caret Line="89" Column="17" TopLine="86"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\tdiclass.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="1" Column="1" TopLine="40"/> <Caret Line="90" Column="17" TopLine="87"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="227" Column="73" TopLine="214"/> <Caret Line="68" Column="15" TopLine="62"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\tdiclass.pas"/> <Filename Value="uform1.pas"/>
<Caret Line="721" Column="17" TopLine="706"/> <Caret Line="69" Column="15" TopLine="63"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

87
components/tdi/Demo/uform1.lfm
View File

@ -15,18 +15,18 @@ object Form1: TForm1
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.1' LCLVersion = '1.1'
object Button1: TButton object bClose: TButton
Left = 376 Left = 400
Height = 25 Height = 25
Top = 248 Top = 224
Width = 86 Width = 86
AutoSize = True AutoSize = True
Caption = 'Close Form' Caption = 'Close Form'
OnClick = Button1Click OnClick = bCloseClick
TabOrder = 2 TabOrder = 2
end end
object Edit1: TEdit object Edit1: TEdit
Left = 40 Left = 24
Height = 23 Height = 23
Top = 24 Top = 24
Width = 82 Width = 82
@ -34,19 +34,82 @@ object Form1: TForm1
Text = 'Edit1' Text = 'Edit1'
end end
object Edit2: TEdit object Edit2: TEdit
Left = 40 Left = 24
Height = 23 Height = 23
Top = 56 Top = 96
Width = 82 Width = 82
OnExit = Edit2Exit OnExit = Edit2Exit
TabOrder = 1 TabOrder = 1
end end
object Label1: TLabel object Label1: TLabel
Left = 51 Left = 144
Height = 16 Height = 1
Top = 268 Top = 63
Width = 35 Width = 1
Caption = 'Label1'
ParentColor = False ParentColor = False
end 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 end

33
components/tdi/Demo/uform1.pas
View File

@ -5,22 +5,32 @@ unit uForm1 ;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls ; Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls ;
type type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Button1 : TButton ; bClose : TButton ;
bHide : TButton ;
Edit1 : TEdit ; Edit1 : TEdit ;
Edit2 : TEdit ; Edit2 : TEdit ;
Label1 : TLabel ; 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 Edit2Exit(Sender : TObject) ;
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ; procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;
procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ; procedure FormCloseQuery(Sender : TObject ; var CanClose : boolean) ;
procedure FormDestroy(Sender : TObject) ; procedure FormDestroy(Sender : TObject) ;
procedure tShowmeAgainTimer(Sender : TObject) ;
private private
{ private declarations } { private declarations }
public public
@ -38,12 +48,18 @@ Uses uMainForm;
{ TForm1 } { TForm1 }
procedure TForm1.Button1Click(Sender : TObject) ; procedure TForm1.bCloseClick(Sender : TObject) ;
begin 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 ; Close ;
end; end;
procedure TForm1.bHideClick(Sender : TObject) ;
begin
Hide;
tShowmeAgain.Enabled := True;
end;
procedure TForm1.Edit2Exit(Sender : TObject) ; procedure TForm1.Edit2Exit(Sender : TObject) ;
begin begin
if Edit2.Text = '' then if Edit2.Text = '' then
@ -76,5 +92,12 @@ begin
fMainForm.mEvents.Lines.Add( 'Form1.Destroy' ); fMainForm.mEvents.Lines.Add( 'Form1.Destroy' );
end; end;
procedure TForm1.tShowmeAgainTimer(Sender : TObject) ;
begin
tShowmeAgain.Enabled := False;
Show;
lShowmeAgain.Visible := True;
end;
end. end.

2622
components/tdi/Demo/umainform.lfm
View File

File diff suppressed because it is too large Load Diff

5
components/tdi/Demo/umainform.pas
View File

@ -14,15 +14,13 @@ type
TfMainForm = class(TForm) TfMainForm = class(TForm)
Button1 : TButton ; Button1 : TButton ;
Button2 : TButton ;
cbxBackgroundCorner : TComboBox ; cbxBackgroundCorner : TComboBox ;
Edit1 : TEdit ; Edit1 : TEdit ;
Edit2 : TEdit ; Edit2 : TEdit ;
Edit3 : TEdit ;
Edit4 : TEdit ;
Image1 : TImage ; Image1 : TImage ;
ImageList1 : TImageList ; ImageList1 : TImageList ;
Label1 : TLabel ; Label1 : TLabel ;
Label2 : TLabel ;
MainMenu1 : TMainMenu ; MainMenu1 : TMainMenu ;
mEvents : TMemo ; mEvents : TMemo ;
MenuItem1 : TMenuItem ; MenuItem1 : TMenuItem ;
@ -34,7 +32,6 @@ type
Splitter1 : TSplitter ; Splitter1 : TSplitter ;
StatusBar1 : TStatusBar ; StatusBar1 : TStatusBar ;
TabSheet1 : TTabSheet ; TabSheet1 : TTabSheet ;
TabSheet2 : TTabSheet ;
TDINoteBook1 : TTDINoteBook ; TDINoteBook1 : TTDINoteBook ;
procedure cbxBackgroundCornerChange(Sender : TObject) ; procedure cbxBackgroundCornerChange(Sender : TObject) ;
procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ; procedure FormClose(Sender : TObject ; var CloseAction : TCloseAction) ;