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

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

Browse Source
This commit is contained in:
dopi
2012-06-29 22:31:49 +00:00
parent e29764a85f
commit 494cf3af6e
2 changed files with 17 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,7 +12,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="8"/> <TopLine Value="8"/>
<CursorPos X="7" Y="11"/> <CursorPos X="7" Y="11"/>
<UsageCount Value="184"/> <UsageCount Value="187"/>
</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="184"/> <UsageCount Value="187"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="uform1.pas"/> <Filename Value="uform1.pas"/>
@ -35,7 +35,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="25" Y="86"/> <CursorPos X="25" Y="86"/>
<UsageCount Value="184"/> <UsageCount Value="187"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="uform2.pas"/> <Filename Value="uform2.pas"/>
@ -47,7 +47,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="76"/> <TopLine Value="76"/>
<CursorPos X="18" Y="80"/> <CursorPos X="18" Y="80"/>
<UsageCount Value="106"/> <UsageCount Value="109"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
@ -58,8 +58,8 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="142"/> <TopLine Value="139"/>
<CursorPos X="35" Y="151"/> <CursorPos X="11" Y="144"/>
<UsageCount Value="90"/> <UsageCount Value="90"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -69,8 +69,8 @@
<UnitName Value="TDIClass"/> <UnitName Value="TDIClass"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="703"/> <TopLine Value="697"/>
<CursorPos X="7" Y="710"/> <CursorPos X="14" Y="714"/>
<UsageCount Value="90"/> <UsageCount Value="90"/>
<Bookmarks Count="6"> <Bookmarks Count="6">
<Item0 X="3" Y="1044" ID="3"/> <Item0 X="3" Y="1044" ID="3"/>
@ -159,7 +159,7 @@
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="28"/> <TopLine Value="28"/>
<CursorPos X="19" Y="39"/> <CursorPos X="20" Y="36"/>
<UsageCount Value="53"/> <UsageCount Value="53"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
@ -728,7 +728,7 @@
<General> <General>
<ActiveWindowIndexAtStart Value="0"/> <ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<JumpHistory Count="25" HistoryIndex="24"> <JumpHistory Count="24" HistoryIndex="23">
<Position1> <Position1>
<Filename Value="umainform.pas"/> <Filename Value="umainform.pas"/>
<Caret Line="10" Column="19" TopLine="1"/> <Caret Line="10" Column="19" TopLine="1"/>
@ -825,10 +825,7 @@
<Filename Value="..\tdiclass.pas"/> <Filename Value="..\tdiclass.pas"/>
<Caret Line="709" Column="29" TopLine="703"/> <Caret Line="709" Column="29" TopLine="703"/>
</Position24> </Position24>
<Position25>
<Filename Value="umainform.pas"/>
<Caret Line="100" Column="9" TopLine="133"/>
</Position25>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>
<EditorMacros Count="0"/>
</CONFIG> </CONFIG>

13
components/tdi/tdiclass.pas
View File

@ -184,7 +184,8 @@ type
destructor Destroy ; override; destructor Destroy ; override;
procedure DoCloseTabClicked(APage: TCustomPage); override; procedure DoCloseTabClicked(APage: TCustomPage); override;
procedure CreateFormInNewPage( AFormClass: TFormClass; ImageIndex : Integer = -1 ) ; function CreateFormInNewPage( AFormClass: TFormClass;
ImageIndex : Integer = -1 ) : TForm;
procedure ShowFormInPage( AForm: TForm; ImageIndex : Integer = -1 ); procedure ShowFormInPage( AForm: TForm; ImageIndex : Integer = -1 );
Function FindFormInPages( AForm: TForm): Integer ; Function FindFormInPages( AForm: TForm): Integer ;
@ -690,14 +691,12 @@ begin
FMainMenu := AValue ; FMainMenu := AValue ;
end ; end ;
procedure TTDINoteBook.CreateFormInNewPage(AFormClass : TFormClass ; function TTDINoteBook.CreateFormInNewPage(AFormClass: TFormClass;
ImageIndex : Integer) ; ImageIndex: Integer): TForm;
Var
NewForm : TForm ;
begin begin
NewForm := AFormClass.Create(Application); Result := AFormClass.Create(Application);
ShowFormInPage( NewForm, ImageIndex ); ShowFormInPage( Result, ImageIndex );
end ; end ;
procedure TTDINoteBook.ShowFormInPage(AForm : TForm ; ImageIndex : Integer) ; procedure TTDINoteBook.ShowFormInPage(AForm : TForm ; ImageIndex : Integer) ;