ocs-comps-commits Mailing List for OCS Component Suite
Brought to you by:
tectsoft
Menu
▾
▴
ocs-comps-commits — Notification of Commits to CVS
You can subscribe to this list here.
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(122) |
Dec
(3) |
|---|
Update of /cvsroot/ocs-comps/OCS2/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17978 Removed Files: CSVProcs.obj OrckaAddinManager.obj OrckaAddinManagerShared.obj OrckaButton.obj OrckaDBCtls.obj OrckaDBGrid.obj OrckaDBLabelEdit.obj OrckaEdit.obj OrckaFontControls.obj OrckaGroupBox.obj OrckaInterceptor.obj OrckaLabelEdit.obj OrckaLibraryLoader.obj OrckaMap.obj OrckaMapEditor.obj OrckaMemo.obj OrckaNotify.obj OrckaPluginManager.obj OrckaPluginManagerShared.obj OrckaRegister.obj OrckaRuler.obj OrckaScreenSaver.obj OrckaSpellChecker.obj OrckaSpellCheckForm.obj OrckaStringGrid.obj OrckaStrings.obj OrckaSubClass.obj OrckaTimer.obj OrckaTrayIcon.obj OrckaVersionInfo.obj OrckaWebLabel.obj PluginModule.obj ToolbarEditor.obj Log Message: no message --- OrckaMemo.obj DELETED --- --- OrckaPluginManagerShared.obj DELETED --- --- OrckaAddinManagerShared.obj DELETED --- --- OrckaDBGrid.obj DELETED --- --- ToolbarEditor.obj DELETED --- --- OrckaVersionInfo.obj DELETED --- --- OrckaSubClass.obj DELETED --- --- OrckaStrings.obj DELETED --- --- OrckaEdit.obj DELETED --- --- OrckaLabelEdit.obj DELETED --- --- OrckaTimer.obj DELETED --- --- CSVProcs.obj DELETED --- --- PluginModule.obj DELETED --- --- OrckaRegister.obj DELETED --- --- OrckaInterceptor.obj DELETED --- --- OrckaNotify.obj DELETED --- --- OrckaAddinManager.obj DELETED --- --- OrckaMap.obj DELETED --- --- OrckaDBLabelEdit.obj DELETED --- --- OrckaDBCtls.obj DELETED --- --- OrckaSpellCheckForm.obj DELETED --- --- OrckaRuler.obj DELETED --- --- OrckaFontControls.obj DELETED --- --- OrckaWebLabel.obj DELETED --- --- OrckaStringGrid.obj DELETED --- --- OrckaButton.obj DELETED --- --- OrckaPluginManager.obj DELETED --- --- OrckaLibraryLoader.obj DELETED --- --- OrckaMapEditor.obj DELETED --- --- OrckaTrayIcon.obj DELETED --- --- OrckaScreenSaver.obj DELETED --- --- OrckaSpellChecker.obj DELETED --- --- OrckaGroupBox.obj DELETED --- |
|
From: hdalis <hd...@us...> - 2005-12-02 13:13:06
|
Update of /cvsroot/ocs-comps/OCS2/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13254 Modified Files: OrckaPluginManager.pas Log Message: InternalAddButton now names the toolbars it creates when TB2K is defined, so it's save functions can do it's work without complaining of missing name. Index: OrckaPluginManager.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaPluginManager.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** OrckaPluginManager.pas 1 Dec 2005 09:35:39 -0000 1.3 --- OrckaPluginManager.pas 2 Dec 2005 13:12:53 -0000 1.4 *************** *** 1387,1390 **** --- 1387,1391 ---- Pnl.Images := FImageList; Pnl.Caption := HolderName; + Pnl.Name:='PluginToolBar_'+HolderName; {$ELSE} Pnl := TPluginPanel.Create(nil); |
|
From: Si C. <tec...@us...> - 2005-12-01 09:35:47
|
Update of /cvsroot/ocs-comps/OCS2/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29993 Modified Files: OrckaPluginManager.pas Log Message: Merged different code bases Index: OrckaPluginManager.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaPluginManager.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** OrckaPluginManager.pas 21 Nov 2005 14:15:40 -0000 1.2 --- OrckaPluginManager.pas 1 Dec 2005 09:35:39 -0000 1.3 *************** *** 32,40 **** uses Classes, SysUtils, OrckaButton, IniFiles, Messages, - {$IFDEF DelphiVer8Up} - StdCtrls, Registry, - Windows, Forms, Menus, Graphics, buttons, comctrls, Controls, - extctrls, Dialogs, ActnList, - {$ENDIF} {$IFDEF MSWindows} {$IFNDEF DelphiVer3Up}ImageLst,{$ENDIF} StdCtrls, Registry, --- 32,35 ---- *************** *** 65,69 **** TPluginSettingsType = class of TPluginSettings; ! TToolBarStyle = (tbsControlBar {$IFNDEF TB2K}, tbsOwner {$ELSE}, tbsToolbar2000{$ENDIF}); TPluginSettingTypes = (psIniFile, psCustom --- 60,64 ---- TPluginSettingsType = class of TPluginSettings; ! TToolBarStyle = (tbsControlBar {$IFNDEF TB2K}, tbsOwner {$ELSE}, tbsToolbar2000{$ENDIF}); TPluginSettingTypes = (psIniFile, psCustom *************** *** 244,250 **** {$ENDIF} procedure FreeAllCDMenuItems; - procedure FreeAllButtons; procedure AddDefaultMenus; ! procedure RemovePlugin(ExitProc: Pointer); {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} procedure SetToolBarStyle(const Value: TToolBarStyle); function GetPlugin(Index: Integer): string; --- 239,244 ---- {$ENDIF} procedure FreeAllCDMenuItems; procedure AddDefaultMenus; ! procedure RemovePlugin(ExitProc: Pointer); procedure SetToolBarStyle(const Value: TToolBarStyle); function GetPlugin(Index: Integer): string; *************** *** 259,265 **** function LoadVersion1Plugin(Proc: TLoadProc; Plugin: string; ! var ExitProcedure: Pointer): Boolean; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} function LoadVersion2Plugin(Proc: TLoadProc2; Plugin: string; ! var ExitProcedure: Pointer): Boolean; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} protected FPluginServices: TPluginServicesMain; --- 253,259 ---- function LoadVersion1Plugin(Proc: TLoadProc; Plugin: string; ! var ExitProcedure: Pointer): Boolean; function LoadVersion2Plugin(Proc: TLoadProc2; Plugin: string; ! var ExitProcedure: Pointer): Boolean; protected FPluginServices: TPluginServicesMain; *************** *** 284,288 **** {$ENDIF} function DoInvalidPlugin(Plugin: string): Boolean; virtual; ! function DoGetDatabaseHandle: Pointer; virtual; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} procedure DoTransaction(TransactionEvent: TTransactionEvent); virtual; procedure DoToolBarInsertRemove(ToolbarName: string; Operation: TOperation); --- 278,282 ---- {$ENDIF} function DoInvalidPlugin(Plugin: string): Boolean; virtual; ! function DoGetDatabaseHandle: Pointer; virtual; procedure DoTransaction(TransactionEvent: TTransactionEvent); virtual; procedure DoToolBarInsertRemove(ToolbarName: string; Operation: TOperation); *************** *** 570,574 **** constructor CreateNew(ToolService: TPluginServicesMain); function GetEnabled: Boolean; override; - function SetEnabled(IsEnabled: Boolean): Boolean; override; function GetGroupIndex: Integer; override; --- 564,567 ---- *************** *** 870,874 **** uses {$IFDEF Linux}Libc, {$ENDIF} {$IFDEF MSWindows}ShellAPI, {$ENDIF} ! SyncObjs, PluginToolbar; {$IFDEF Linux} --- 863,873 ---- uses {$IFDEF Linux}Libc, {$ENDIF} {$IFDEF MSWindows}ShellAPI, {$ENDIF} ! SyncObjs; ! ! type ! TPluginPanel = class(TPanel) ! private ! FCount: Longint; ! end; {$IFDEF Linux} *************** *** 1017,1021 **** if not FPluginManager.LoadPlugin(Plugin) then raise Exception.Create(sBlank); ! with lstPlugins.Items.Add do begin --- 1016,1020 ---- if not FPluginManager.LoadPlugin(Plugin) then raise Exception.Create(sBlank); ! with lstPlugins.Items.Add do begin *************** *** 1152,1156 **** UnLoadAllPlugins; FreeAllCDMenuItems; - FreeAllButtons; FPluginExitProcList.Free; FMenuList.Free; --- 1151,1154 ---- *************** *** 1188,1196 **** end; - procedure TOrckaCustomPluginManager.FreeAllButtons; - begin - - end; - procedure TOrckaCustomPluginManager.AddDefaultMenus; --- 1186,1189 ---- *************** *** 1263,1267 **** sTemp := Holder; FOnInsertButton(Self, Button, Holder); ! if Holder = sBlank then Holder := sTemp; end; --- 1256,1260 ---- sTemp := Holder; FOnInsertButton(Self, Button, Holder); ! if Holder = sBlank then Holder := sTemp; end; *************** *** 1395,1400 **** Pnl.Caption := HolderName; {$ELSE} ! Pnl := TPluginToolbar.Create(nil); ! TPluginToolbar(pnl).Count := 0; {$ENDIF} --- 1388,1393 ---- Pnl.Caption := HolderName; {$ELSE} ! Pnl := TPluginPanel.Create(nil); ! TPluginPanel(pnl).FCount := 0; {$ENDIF} *************** *** 1407,1414 **** Pnl.Height := 26; {$ELSE} ! TPluginToolbar(Pnl).Height := 1; ! TPluginToolbar(Pnl).Width := 1; {$IFDEF DelphiVER4Up} ! TPluginToolbar(Pnl).AutoSize := True; {$ENDIF} Pnl.Parent := FControlBar; --- 1400,1409 ---- Pnl.Height := 26; {$ELSE} ! TPluginPanel(Pnl).BevelInner := bvNone; ! TPluginPanel(Pnl).BevelOuter := bvNone; ! TPluginPanel(Pnl).Height := 1; ! TPluginPanel(Pnl).Width := 1; {$IFDEF DelphiVER4Up} ! TPluginPanel(Pnl).AutoSize := True; {$ENDIF} Pnl.Parent := FControlBar; *************** *** 1425,1440 **** Pnl.Items.Add(Button); {$ELSE} ! Pnl := TPluginToolbar(FToolBarHosts.Objects[Index]); ! TPluginToolbar(Pnl).Insert(Button); ! Button.Position := Position; Button.Width := FDefButtonSize; Button.Height := FDefButtonSize; {$ENDIF} end; procedure TOrckaCustomPluginManager.InternalRemoveButton(HolderName: string); var ! Pnl: TPluginToolbar; Index: Longint; begin --- 1420,1437 ---- Pnl.Items.Add(Button); {$ELSE} ! Pnl := TPluginPanel(FToolBarHosts.Objects[Index]); ! Button.Parent := TPluginPanel(Pnl); Button.Position := Position; Button.Width := FDefButtonSize; Button.Height := FDefButtonSize; + TPluginPanel(pnl).FCount := TPluginPanel(pnl).FCount + 1; {$ENDIF} + + pnl.Visible := True; end; procedure TOrckaCustomPluginManager.InternalRemoveButton(HolderName: string); var ! Pnl: TPluginPanel; Index: Longint; begin *************** *** 1442,1448 **** if Index > -1 then begin ! Pnl := TPluginToolbar(FToolBarHosts.Objects[Index]); ! Pnl.Count := Pnl.Count -1; ! if Pnl.Count = 0 then if ComponentState = [] then begin --- 1439,1445 ---- if Index > -1 then begin ! Pnl := TPluginPanel(FToolBarHosts.Objects[Index]); ! Pnl.FCount := Pnl.FCount -1; ! if Pnl.FCount = 0 then if ComponentState = [] then begin *************** *** 2283,2287 **** Result := MessageBox(hwnd, Text, PChar(Application.Title), MsgType); {$ENDIF} ! {$ENDIF} {$IFDEF Linux} ShowMessage(Text); --- 2280,2284 ---- Result := MessageBox(hwnd, Text, PChar(Application.Title), MsgType); {$ENDIF} ! {$ENDIF} {$IFDEF Linux} ShowMessage(Text); *************** *** 2367,2371 **** {$ELSE} Btn: TOrckaButton; - Host: TControl; {$ENDIF} RtnButton: TOButtonMain; --- 2364,2367 ---- *************** *** 2385,2391 **** {$ENDIF} {$ELSE} ! Host := FPluginManager.FToolbars.GetToolBarObject(TabName); ! Btn := TOrckaButton.Create(Host); ! Btn.Parent := TWinControl(Host); {$ENDIF} FPluginManager.FButtonList.Add(Btn); --- 2381,2385 ---- {$ENDIF} {$ELSE} ! Btn := TOrckaButton.Create(FPluginManager); {$ENDIF} FPluginManager.FButtonList.Add(Btn); *************** *** 2400,2405 **** {$IFNDEF TB2K} Btn.ShowHint := True; ! Btn.Flat := FPluginManager.FlatButtons; ! Btn.Position := NewIndex; {$ENDIF} --- 2394,2398 ---- {$IFNDEF TB2K} Btn.ShowHint := True; ! Btn.Flat := FPluginManager.FlatButtons; {$ENDIF} *************** *** 3787,3790 **** --- 3780,3784 ---- bmp.Handle := PictureHandle; Result := FPluginManager.MenuImages.Add(bmp, bmp); + finally bmp.Free; *************** *** 3829,3834 **** Client: TClientPluginType; begin try - Result := False; PluginCriticalSection.Acquire; try --- 3823,3828 ---- Client: TClientPluginType; begin + Result := False; try PluginCriticalSection.Acquire; try |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase Modified Files: IB_DB Share Handle Sample.dsk Log Message: 2.5 Import Index: IB_DB Share Handle Sample.dsk =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/IB_DB Share Handle Sample.dsk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IB_DB Share Handle Sample.dsk 21 Nov 2005 10:33:28 -0000 1.1 --- IB_DB Share Handle Sample.dsk 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 1,107 **** [Closed Files] ! File_0=SourceModule,'c:\program files\borland\delphi7\source\vcl\Forms.pas',0,1,6217,49,6221,0,0 ! File_1=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,1384,29,1388,0,0 ! File_2=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,76,38,8,0,0 ! File_3=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaButton.pas',0,1,245,26,256,0,0 ! File_4=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,29051,18,29065,0,0 ! File_5=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaDV.inc',0,1,142,19,145,0,0 ! File_6=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\DataMod.pas',0,1,1,1,1,0,0 ! File_7=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\Main.pas',0,1,140,20,128,0,1 ! File_8=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\images.rc',0,1,1,13,1,0,0 ! File_9=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\images.rc',0,1,1,31,1,0,0 [Modules] ! Module0=c:\program files\borland\delphi7\source\vcl\appevnts.pas ! Module1=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas ! Module2=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas ! Module3=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas ! Module4=C:\Projects\Components\OCS2.3\Source\PluginModule.pas ! Module5=C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas ! Module6=C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas ! Module7=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas ! Module8=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas ! Module9=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr ! Count=10 EditWindowCount=1 ! [c:\program files\borland\delphi7\source\vcl\appevnts.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas] ! ModuleType=SourceModule ! FormState=1 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=1 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Source\PluginModule.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas] ! ModuleType=SourceModule ! FormState=1 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\IB_DB Share Handle Sample.bpg] FormState=0 FormOnTop=0 ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\IB_DB_SHARE.dpr] FormState=0 FormOnTop=0 ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\Country.dpr] FormState=0 FormOnTop=0 ! [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\Customer.dpr] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=10 ! CurrentView=6 View0=0 - View1=1 - View2=2 - View3=3 - View4=4 - View5=5 - View6=6 - View7=7 - View8=8 - View9=9 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 --- 1,43 ---- [Closed Files] ! File_0=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\DataMod.pas',0,1,1,1,1,0,0 ! File_1=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\Main.pas',0,1,140,20,128,0,1 ! File_2=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\images.rc',0,1,1,13,1,0,0 ! File_3=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\images.rc',0,1,1,31,1,0,0 ! File_4=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\CustomerForm.pas',0,1,1,70,13,0,0 ! File_5=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\HostShared.pas',0,1,1,16,1,0,0 ! File_6=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\IBMastApp\Main.pas',0,1,1,24,6,1,0 ! File_7=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\IBMastApp\Edcust.pas',0,1,1,55,8,1,0 ! File_8=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\IBMastApp\DataMod.pas',0,1,1,91,16,0,0 [Modules] ! Module0=C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr ! Count=1 EditWindowCount=1 ! [C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\IB_DB Share Handle Sample.bpg] FormState=0 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Host\IB_DB_SHARE.dpr] FormState=0 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\Country.dpr] FormState=0 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\Customer.dpr] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=1 ! CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 *************** *** 109,196 **** Visible=1 State=0 ! Left=286 ! Top=117 ! Width=694 ! Height=485 MaxLeft=-1 MaxTop=-1 ! ClientWidth=686 ! ClientHeight=451 LeftPanelSize=0 RightPanelSize=0 ! BottomPanelSize=219 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=0000040000000000AE0200000000000002DB00000000000000010000000000000000000000000100000000AE020000000000000100000000AE020000000000000100000000AE0200000B0000004D65737361676556696577FFFFFFFF [View0] ! Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr ! CursorX=9 ! CursorY=6 ! TopLine=1 ! LeftCol=1 ! ! [View1] ! Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas ! CursorX=44 ! CursorY=85 ! TopLine=79 ! LeftCol=1 ! ! [View2] ! Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas ! CursorX=16 ! CursorY=98 ! TopLine=90 ! LeftCol=1 ! ! [View3] ! Module=C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas ! CursorX=28 ! CursorY=974 ! TopLine=963 ! LeftCol=1 ! ! [View4] ! Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas ! CursorX=1 ! CursorY=85 ! TopLine=74 ! LeftCol=1 ! ! [View5] ! Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas CursorX=1 - CursorY=66 - TopLine=61 - LeftCol=1 - - [View6] - Module=c:\program files\borland\delphi7\source\vcl\appevnts.pas - CursorX=28 - CursorY=431 - TopLine=417 - LeftCol=1 - - [View7] - Module=C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas - CursorX=53 - CursorY=82 - TopLine=72 - LeftCol=1 - - [View8] - Module=C:\Projects\Components\OCS2.3\Source\PluginModule.pas - CursorX=18 CursorY=1 TopLine=1 LeftCol=1 - [View9] - Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas - CursorX=7 - CursorY=55 - TopLine=50 - LeftCol=1 - [Watches] Count=0 --- 45,69 ---- Visible=1 State=0 ! Left=278 ! Top=109 ! Width=740 ! Height=620 MaxLeft=-1 MaxTop=-1 ! ClientWidth=732 ! ClientHeight=586 LeftPanelSize=0 RightPanelSize=0 ! BottomPanelSize=85 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=0000040000000000DC02000000000000025500000000000000010000000000000000000000000100000000DC020000000000000100000000DC020000000000000100000000DC0200000B0000004D65737361676556696577FFFFFFFF [View0] ! Module=C:\Program Files\orcka\component suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr CursorX=1 CursorY=1 TopLine=1 LeftCol=1 [Watches] Count=0 *************** *** 200,213 **** WatchShowColumnHeaders=1 Create=1 ! Visible=0 State=0 ! Left=17 ! Top=503 ! Width=426 ! Height=157 MaxLeft=-1 MaxTop=-1 ! ClientWidth=418 ! ClientHeight=129 TBDockHeight=157 LRDockWidth=426 --- 73,86 ---- WatchShowColumnHeaders=1 Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=542 ! Height=215 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 TBDockHeight=157 LRDockWidth=426 *************** *** 215,225 **** [Breakpoints] ! Count=6 ! Breakpoint0='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas',95,'',0,1,'',1,0,0,'',1,'','','' ! Breakpoint1='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas',53,'',0,1,'',1,0,0,'',1,'','','' ! Breakpoint2='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas',91,'',0,1,'',1,0,0,'',1,'','','' ! Breakpoint3='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas',66,'',0,1,'',1,0,0,'',1,'','','' ! Breakpoint4='c:\program files\borland\delphi7\source\vcl\Forms.pas',7049,'',0,1,'',1,0,0,'',1,'','','' ! Breakpoint5='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas',63,'',0,1,'',1,0,0,'',1,'','','' [AddressBreakpoints] --- 88,92 ---- [Breakpoints] ! Count=0 [AddressBreakpoints] *************** *** 245,258 **** Left=0 Top=0 ! Width=237 ! Height=536 MaxLeft=-1 MaxTop=-1 ! ClientWidth=237 ! ClientHeight=536 ! TBDockHeight=305 LRDockWidth=438 Dockable=1 [AlignmentPalette] Create=1 --- 112,142 ---- Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=303 LRDockWidth=438 Dockable=1 + [CPUWindow] + Create=1 + Visible=0 + State=0 + Left=85 + Top=101 + Width=853 + Height=565 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=845 + ClientHeight=531 + DumpPane=79 + DisassemblyPane=187 + RegisterPane=231 + FlagPane=64 + [AlignmentPalette] Create=1 *************** *** 260,266 **** State=0 Left=200 ! Top=114 Width=156 ! Height=86 MaxLeft=-1 MaxTop=-1 --- 144,150 ---- State=0 Left=200 ! Top=107 Width=156 ! Height=84 MaxLeft=-1 MaxTop=-1 *************** *** 270,306 **** [PropertyInspector] Create=1 ! Visible=1 State=0 Left=0 Top=0 ! Width=237 ! Height=536 MaxLeft=-1 MaxTop=-1 ! ClientWidth=237 ! ClientHeight=536 ! TBDockHeight=367 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name ! SelectedItem=Caption ! ExpandedItems=Options HiddenCategories= [BreakpointWindow] Create=1 ! Visible=0 State=0 ! Left=17 ! Top=503 ! Width=737 ! Height=197 MaxLeft=-1 MaxTop=-1 ! ClientWidth=729 ! ClientHeight=169 ! TBDockHeight=197 ! LRDockWidth=737 Dockable=1 Column0Width=100 --- 154,190 ---- [PropertyInspector] Create=1 ! Visible=0 State=0 Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=381 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name ! SelectedItem= ! ExpandedItems= HiddenCategories= [BreakpointWindow] Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=542 ! Height=215 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 ! TBDockHeight=151 ! LRDockWidth=205 Dockable=1 Column0Width=100 *************** *** 313,326 **** [CallStackWindow] Create=1 ! Visible=0 State=0 ! Left=17 ! Top=503 ! Width=294 ! Height=161 MaxLeft=-1 MaxTop=-1 ! ClientWidth=286 ! ClientHeight=133 TBDockHeight=161 LRDockWidth=294 --- 197,210 ---- [CallStackWindow] Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=542 ! Height=215 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 TBDockHeight=161 LRDockWidth=294 *************** *** 329,343 **** [ThreadStatusWindow] Create=1 ! Visible=0 State=0 ! Left=17 ! Top=503 ! Width=624 ! Height=152 MaxLeft=-1 MaxTop=-1 ! ClientWidth=616 ! ClientHeight=124 ! TBDockHeight=152 LRDockWidth=624 Dockable=1 --- 213,227 ---- [ThreadStatusWindow] Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=542 ! Height=215 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 ! TBDockHeight=211 LRDockWidth=624 Dockable=1 *************** *** 349,363 **** [ObjectTree] Create=1 ! Visible=1 State=0 Left=0 Top=0 ! Width=237 ! Height=536 MaxLeft=-1 MaxTop=-1 ! ClientWidth=237 ! ClientHeight=536 ! TBDockHeight=248 LRDockWidth=190 Dockable=1 --- 233,247 ---- [ObjectTree] Create=1 ! Visible=0 State=0 Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=252 LRDockWidth=190 Dockable=1 *************** *** 365,419 **** [DebugLogView] Create=1 ! Visible=0 State=0 ! Left=17 ! Top=505 ! Width=696 ! Height=216 MaxLeft=-1 MaxTop=-1 ! ClientWidth=688 ! ClientHeight=188 TBDockHeight=291 LRDockWidth=417 Dockable=1 - [LocalVarsWindow] - Create=1 - Visible=0 - State=0 - Left=17 - Top=503 - Width=421 - Height=191 - MaxLeft=-1 - MaxTop=-1 - ClientWidth=413 - ClientHeight=163 - TBDockHeight=191 - LRDockWidth=421 - Dockable=1 - - [ModuleWindow] - Create=1 - Visible=0 - State=0 - Left=17 - Top=503 - Width=638 - Height=355 - MaxLeft=-1 - MaxTop=-1 - ClientWidth=630 - ClientHeight=327 - TBDockHeight=355 - LRDockWidth=638 - Dockable=1 - Column0Width=125 - Column1Width=100 - Column2Width=155 - EntryPointPane=225 - CompUnitPane=104 - [CodeExplorer@EditWindow0] Create=1 --- 249,266 ---- [DebugLogView] Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=542 ! Height=215 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 TBDockHeight=291 LRDockWidth=417 Dockable=1 [CodeExplorer@EditWindow0] Create=1 *************** *** 422,433 **** Left=0 Top=0 ! Width=237 ! Height=536 MaxLeft=-1 MaxTop=-1 ! ClientWidth=237 ! ClientHeight=536 ! TBDockHeight=439 ! LRDockWidth=237 Dockable=1 --- 269,280 ---- Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=305 ! LRDockWidth=140 Dockable=1 *************** *** 438,453 **** Left=12 Top=0 ! Width=674 ! Height=219 MaxLeft=-1 MaxTop=-1 ! ClientWidth=674 ! ClientHeight=219 ! TBDockHeight=219 LRDockWidth=443 Dockable=1 [DockHosts] ! DockHostCount=1 [DockSite0] --- 285,300 ---- Left=12 Top=0 ! Width=720 ! Height=85 MaxLeft=-1 MaxTop=-1 ! ClientWidth=720 ! ClientHeight=85 ! TBDockHeight=85 LRDockWidth=443 Dockable=1 [DockHosts] ! DockHostCount=2 [DockSite0] *************** *** 456,475 **** Visible=1 State=0 ! Left=5 ! Top=115 ! Width=272 ! Height=572 MaxLeft=-1 MaxTop=-1 ! ClientWidth=264 ! ClientHeight=544 ! TBDockHeight=367 LRDockWidth=190 Dockable=1 TabPosition=2 ActiveTab=Project Manager ! TabDockClients=PropertyInspector,ObjectTree,CodeExplorer@EditWindow0,ProjectManager [ActiveProject] ! ActiveProject=2 --- 303,342 ---- Visible=1 State=0 ! Left=-2 ! Top=428 ! Width=558 ! Height=270 MaxLeft=-1 MaxTop=-1 ! ClientWidth=550 ! ClientHeight=244 ! TBDockHeight=270 ! LRDockWidth=558 ! Dockable=1 ! TabPosition=0 ! ActiveTab=Watch List ! TabDockClients=WatchWindow,CallStackWindow,BreakpointWindow,DebugLogView,ThreadStatusWindow ! ! [DockSite1] ! DockSiteType=1 ! Create=1 ! Visible=0 ! State=0 ! Left=0 ! Top=113 ! Width=270 ! Height=540 ! MaxLeft=-1 ! MaxTop=-1 ! ClientWidth=262 ! ClientHeight=514 ! TBDockHeight=381 LRDockWidth=190 Dockable=1 TabPosition=2 ActiveTab=Project Manager ! TabDockClients=PropertyInspector,CodeExplorer@EditWindow0,ObjectTree,ProjectManager [ActiveProject] ! ActiveProject=4 |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Text Bounce In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/ScreenSaver/Text Bounce Modified Files: BounceText.dof Log Message: 2.5 Import Index: BounceText.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Text Bounce/BounceText.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BounceText.dof 21 Nov 2005 10:33:29 -0000 1.1 --- BounceText.dof 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + [FileVersion] + Version=7.0 [Compiler] A=8 *************** *** 29,32 **** --- 31,83 ---- ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + NamespacePrefix= + SymbolDeprecated=1 + SymbolLibrary=1 + SymbolPlatform=1 + UnitLibrary=1 + UnitPlatform=1 + UnitDeprecated=1 + HResultCompat=1 + HidingMember=1 + HiddenVirtual=1 + Garbage=1 + BoundsError=1 + ZeroNilCompat=1 + StringConstTruncated=1 + ForLoopVarVarPar=1 + TypedConstVarPar=1 + AsgToTypedConst=1 + CaseLabelRange=1 + ForVariable=1 + ConstructingAbstract=1 + ComparisonFalse=1 + ComparisonTrue=1 + ComparingSignedUnsigned=1 + CombiningSignedUnsigned=1 + UnsupportedConstruct=1 + FileOpen=1 + FileOpenUnitSrc=1 + BadGlobalSymbol=1 + DuplicateConstructorDestructor=1 + InvalidDirective=1 + PackageNoLink=1 + PackageThreadVar=1 + ImplicitImport=1 + HPPEMITIgnored=1 + NoRetVal=1 + UseBeforeDef=1 + ForLoopVarUndef=1 + UnitNameMismatch=1 + NoCFGFileFound=1 + MessageDirective=1 + ImplicitVariants=1 + UnicodeToLocale=1 + LocaleToUnicode=1 + ImagebaseMultiple=1 + SuspiciousTypecast=1 + PrivatePropAccessor=1 + UnsafeType=1 + UnsafeCode=1 + UnsafeCast=1 [Linker] MapFile=0 *************** *** 34,37 **** --- 85,89 ---- ConsoleApp=1 DebugInfo=0 + RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 *************** *** 41,44 **** --- 93,98 ---- OutputDir= UnitOutputDir= + PackageDLLOutputDir= + PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclaxserver;OrckaD6 *************** *** 47,52 **** UsePackages=0 [Parameters] ! RunParams=p HostApplication= [Version Info] IncludeVerInfo=0 --- 101,113 ---- UsePackages=0 [Parameters] ! RunParams=/p HostApplication= + Launcher= + UseLauncher=0 + DebugCWD= + [Language] + ActiveLang= + ProjectLang= + RootDir= [Version Info] IncludeVerInfo=0 |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/D7 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/D7 Modified Files: OrckaD7.dof OrckaD7.dpk OrckaD7.dsk OrckaD7.res Log Message: 2.5 Import Index: OrckaD7.dpk =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/D7/OrckaD7.dpk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaD7.dpk 21 Nov 2005 10:33:26 -0000 1.1 --- OrckaD7.dpk 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 25,29 **** {$IMAGEBASE $400000} {$DESCRIPTION 'Orcka Component Suite v2.0 (Simon Carter)'} - {$DESIGNONLY} {$IMPLICITBUILD ON} --- 25,28 ---- Index: OrckaD7.dsk =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/D7/OrckaD7.dsk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaD7.dsk 21 Nov 2005 10:33:26 -0000 1.1 --- OrckaD7.dsk 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 12,41 **** [Modules] ! Module0=D:\Program Files\Borland\Delphi7\Projects\Unit1.pas ! Count=1 EditWindowCount=1 PackageWindowCount=1 ! [D:\Program Files\Borland\Delphi7\Projects\Unit1.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [D:\Program Files\Orcka\Component Suite\D7\OrckaD7.dpk] FormState=0 ! FormOnTop=1 ! [D:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg] FormState=0 FormOnTop=0 ! [D:\Program Files\Borland\Delphi7\Projects\Project1.dpr] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=1 ! CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 --- 12,65 ---- [Modules] ! Module0=C:\Program Files\orcka\component suite\Source\OrckaTrayIcon.pas ! Module1=c:\program files\borland\delphi7\source\vcl\Menus.pas ! Module2=c:\program files\borland\delphi7\source\rtl\common\Classes.pas ! Module3=c:\program files\borland\delphi7\source\rtl\Sys\SysUtils.pas ! Module4=c:\program files\borland\delphi7\source\vcl\Forms.pas ! Count=5 EditWindowCount=1 PackageWindowCount=1 ! [C:\Program Files\orcka\component suite\Source\OrckaTrayIcon.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [c:\program files\borland\delphi7\source\vcl\Menus.pas] ! ModuleType=SourceModule FormState=0 ! FormOnTop=0 ! [c:\program files\borland\delphi7\source\rtl\common\Classes.pas] ! ModuleType=SourceModule FormState=0 FormOnTop=0 ! [c:\program files\borland\delphi7\source\rtl\Sys\SysUtils.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [c:\program files\borland\delphi7\source\vcl\Forms.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [C:\Program Files\orcka\component suite\D7\OrckaD7.dpk] ! FormState=0 ! FormOnTop=1 ! ! [C:\Projects\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=5 ! CurrentView=3 View0=0 + View1=1 + View2=2 + View3=3 + View4=4 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 *************** *** 43,64 **** Visible=1 State=0 ! Left=529 ! Top=284 ! Width=783 ! Height=542 MaxLeft=-1 MaxTop=-1 ! ClientWidth=775 ! ClientHeight=515 ! LeftPanelSize=140 ! LeftPanelClients=CodeExplorer@EditWindow0 ! LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] ! Module=D:\Program Files\Borland\Delphi7\Projects\Unit1.pas CursorX=1 CursorY=1 --- 67,100 ---- Visible=1 State=0 ! Left=278 ! Top=109 ! Width=740 ! Height=620 MaxLeft=-1 MaxTop=-1 ! ClientWidth=732 ! ClientHeight=586 ! LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=00000400010000000B0000004D65737361676556696577DC02000000000000025500000000000000010000000000000000000000000100000000DC02000000000000FFFFFFFF [View0] ! Module=c:\program files\borland\delphi7\source\vcl\Forms.pas ! CursorX=14 ! CursorY=6201 ! TopLine=6186 ! LeftCol=1 ! ! [View1] ! Module=c:\program files\borland\delphi7\source\rtl\Sys\SysUtils.pas ! CursorX=37 ! CursorY=15 ! TopLine=4 ! LeftCol=1 ! ! [View2] ! Module=c:\program files\borland\delphi7\source\rtl\common\Classes.pas CursorX=1 CursorY=1 *************** *** 66,69 **** --- 102,119 ---- LeftCol=1 + [View3] + Module=C:\Program Files\orcka\component suite\Source\OrckaTrayIcon.pas + CursorX=19 + CursorY=206 + TopLine=198 + LeftCol=1 + + [View4] + Module=c:\program files\borland\delphi7\source\vcl\Menus.pas + CursorX=20 + CursorY=3483 + TopLine=3474 + LeftCol=1 + [PackageWindow0] Create=1 *************** *** 77,81 **** MaxTop=-1 ClientWidth=360 ! ClientHeight=220 TBDockHeight=244 LRDockWidth=368 --- 127,131 ---- MaxTop=-1 ClientWidth=360 ! ClientHeight=218 TBDockHeight=244 LRDockWidth=368 *************** *** 86,94 **** SectionWidth0=150 SectionWidth1=210 ! Module=D:\Program Files\Orcka\Component Suite\D7\OrckaD7.dpk [Watches] Count=0 [Breakpoints] Count=0 --- 136,162 ---- SectionWidth0=150 SectionWidth1=210 ! Module=C:\Program Files\orcka\component suite\D7\OrckaD7.dpk [Watches] Count=0 + [WatchWindow] + WatchColumnWidth=100 + WatchShowColumnHeaders=1 + Create=1 + Visible=0 + State=0 + Left=12 + Top=525 + Width=517 + Height=217 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=509 + ClientHeight=191 + TBDockHeight=157 + LRDockWidth=426 + Dockable=1 + [Breakpoints] Count=0 *************** *** 103,125 **** Left=0 Top=0 ! Width=1152 ! Height=105 MaxLeft=-1 MaxTop=-1 ! ClientWidth=1144 ClientHeight=78 [ProjectManager] Create=1 ! Visible=0 State=0 ! Left=369 ! Top=372 ! Width=438 ! Height=303 MaxLeft=-1 MaxTop=-1 ! ClientWidth=430 ! ClientHeight=279 TBDockHeight=303 LRDockWidth=438 --- 171,193 ---- Left=0 Top=0 ! Width=1024 ! Height=112 MaxLeft=-1 MaxTop=-1 ! ClientWidth=1016 ClientHeight=78 [ProjectManager] Create=1 ! Visible=1 State=0 ! Left=0 ! Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 TBDockHeight=303 LRDockWidth=438 *************** *** 133,137 **** Top=107 Width=156 ! Height=82 MaxLeft=-1 MaxTop=-1 --- 201,205 ---- Top=107 Width=156 ! Height=84 MaxLeft=-1 MaxTop=-1 *************** *** 144,155 **** State=0 Left=0 ! Top=397 ! Width=190 ! Height=429 MaxLeft=-1 MaxTop=-1 ! ClientWidth=182 ! ClientHeight=405 ! TBDockHeight=429 LRDockWidth=190 Dockable=1 --- 212,223 ---- State=0 Left=0 ! Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=381 LRDockWidth=190 Dockable=1 *************** *** 160,163 **** --- 228,269 ---- HiddenCategories= + [BreakpointWindow] + Create=1 + Visible=0 + State=0 + Left=12 + Top=525 + Width=517 + Height=217 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=509 + ClientHeight=191 + TBDockHeight=151 + LRDockWidth=205 + Dockable=1 + Column0Width=100 + Column1Width=75 + Column2Width=200 + Column3Width=200 + Column4Width=75 + Column5Width=75 + + [CallStackWindow] + Create=1 + Visible=0 + State=0 + Left=12 + Top=525 + Width=517 + Height=217 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=509 + ClientHeight=191 + TBDockHeight=161 + LRDockWidth=294 + Dockable=1 + [ObjectTree] Create=1 *************** *** 165,176 **** State=0 Left=0 ! Top=105 ! Width=190 ! Height=290 MaxLeft=-1 MaxTop=-1 ! ClientWidth=182 ! ClientHeight=266 ! TBDockHeight=290 LRDockWidth=190 Dockable=1 --- 271,282 ---- State=0 Left=0 ! Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=252 LRDockWidth=190 Dockable=1 *************** *** 181,191 **** State=0 Left=0 ! Top=12 ! Width=140 ! Height=503 MaxLeft=-1 MaxTop=-1 ! ClientWidth=140 ! ClientHeight=503 TBDockHeight=305 LRDockWidth=140 --- 287,297 ---- State=0 Left=0 ! Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 TBDockHeight=305 LRDockWidth=140 *************** *** 196,206 **** Visible=0 State=0 ! Left=-6 ! Top=-557 ! Width=443 Height=85 MaxLeft=-1 MaxTop=-1 ! ClientWidth=443 ClientHeight=85 TBDockHeight=85 --- 302,312 ---- Visible=0 State=0 ! Left=12 ! Top=0 ! Width=720 Height=85 MaxLeft=-1 MaxTop=-1 ! ClientWidth=720 ClientHeight=85 TBDockHeight=85 *************** *** 209,212 **** [DockHosts] ! DockHostCount=0 --- 315,338 ---- [DockHosts] ! DockHostCount=1 ! ! [DockSite0] ! DockSiteType=1 ! Create=1 ! Visible=1 ! State=0 ! Left=0 ! Top=113 ! Width=270 ! Height=540 ! MaxLeft=-1 ! MaxTop=-1 ! ClientWidth=262 ! ClientHeight=514 ! TBDockHeight=381 ! LRDockWidth=190 ! Dockable=1 ! TabPosition=2 ! ActiveTab=Object Inspector ! TabDockClients=PropertyInspector,CodeExplorer@EditWindow0,ObjectTree,ProjectManager Index: OrckaD7.res =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/D7/OrckaD7.res,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsXKM1XB and /tmp/cvsSFskzS differ Index: OrckaD7.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/D7/OrckaD7.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaD7.dof 21 Nov 2005 10:33:26 -0000 1.1 --- OrckaD7.dof 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 116,120 **** MinorVer=0 Release=0 ! Build=139 Debug=0 PreRelease=0 --- 116,120 ---- MinorVer=0 Release=0 ! Build=151 Debug=0 PreRelease=0 *************** *** 127,131 **** CompanyName=Orcka FileDescription= ! FileVersion=2.0.0.139 InternalName= LegalCopyright=Copyright © 1999 - 2001. Orcka Development. --- 127,131 ---- CompanyName=Orcka FileDescription= ! FileVersion=2.0.0.151 InternalName= LegalCopyright=Copyright © 1999 - 2001. Orcka Development. *************** *** 139,146 **** Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] ! Count=1 ! Item0=..\Source;D:\Program Files\Borland\Delphi6\Source\Rtl [HistoryLists\hlOutputDirectorry] ! Count=2 ! Item0=C:\Inetpub\wwwroot\cgi-bin ! Item1=D:\Program Files\Other\TB2K\Demo --- 139,149 ---- Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] ! Count=3 ! Item0=c:\build\PresentationTier\Common\DelphiClasses\Components\ThirdParty;c:\build\PresentationTier\Common\DelphiClasses\Components;c:\build\PresentationTier\Common\DelphiClasses\Drawing;c:\build\Common\DelphiUnits;c:\build\PresentationTier\Common\;c:\build\PresentationTier\Common\DelphiClasses\application ! Item1=C:\Build\PresentationTier\Common\DelphiClasses\Components;C:\Build\PresentationTier\Applications\npt\Plugins;C:\Build\PresentationTier\Applications\npt;C:\Build\Common\DelphiUnits;C:\Build\PresentationTier\Common\DelphiClasses\Drawing;C:\Build\PresentationTier\Common\DelphiClasses\Application ! Item2=..\Source;D:\Program Files\Borland\Delphi6\Source\Rtl [HistoryLists\hlOutputDirectorry] ! Count=3 ! Item0=c:\build\bin ! Item1=C:\Inetpub\wwwroot\cgi-bin ! Item2=D:\Program Files\Other\TB2K\Demo |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/GroupBox In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/GroupBox Modified Files: GroupBox.res Log Message: 2.5 Import Index: GroupBox.res =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/GroupBox/GroupBox.res,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsZQTzvH and /tmp/cvsuqRerY differ |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Region In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/ScreenSaver/Region Modified Files: ScreenSaver.cfg ScreenSaver.dof Log Message: 2.5 Import Index: ScreenSaver.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Region/ScreenSaver.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ScreenSaver.dof 21 Nov 2005 10:33:29 -0000 1.1 --- ScreenSaver.dof 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + [FileVersion] + Version=7.0 [Compiler] A=0 *************** *** 29,32 **** --- 31,83 ---- ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + NamespacePrefix= + SymbolDeprecated=1 + SymbolLibrary=1 + SymbolPlatform=1 + UnitLibrary=1 + UnitPlatform=1 + UnitDeprecated=1 + HResultCompat=1 + HidingMember=1 + HiddenVirtual=1 + Garbage=1 + BoundsError=1 + ZeroNilCompat=1 + StringConstTruncated=1 + ForLoopVarVarPar=1 + TypedConstVarPar=1 + AsgToTypedConst=1 + CaseLabelRange=1 + ForVariable=1 + ConstructingAbstract=1 + ComparisonFalse=1 + ComparisonTrue=1 + ComparingSignedUnsigned=1 + CombiningSignedUnsigned=1 + UnsupportedConstruct=1 + FileOpen=1 + FileOpenUnitSrc=1 + BadGlobalSymbol=1 + DuplicateConstructorDestructor=1 + InvalidDirective=1 + PackageNoLink=1 + PackageThreadVar=1 + ImplicitImport=1 + HPPEMITIgnored=1 + NoRetVal=1 + UseBeforeDef=1 + ForLoopVarUndef=1 + UnitNameMismatch=1 + NoCFGFileFound=1 + MessageDirective=1 + ImplicitVariants=1 + UnicodeToLocale=1 + LocaleToUnicode=1 + ImagebaseMultiple=1 + SuspiciousTypecast=1 + PrivatePropAccessor=1 + UnsafeType=1 + UnsafeCode=1 + UnsafeCast=1 [Linker] MapFile=0 *************** *** 52,55 **** --- 103,109 ---- RunParams= HostApplication= + Launcher= + UseLauncher=0 + DebugCWD= [Language] ActiveLang= Index: ScreenSaver.cfg =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Region/ScreenSaver.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ScreenSaver.cfg 21 Nov 2005 10:33:29 -0000 1.1 --- ScreenSaver.cfg 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,3 **** ! -$A- -$B- -$C+ --- 1,3 ---- ! -$A0 -$B- -$C+ *************** *** 32,37 **** -$M16384,1048576 -K$00400000 ! -LE"d:\program files\borland\delphi5\Projects\Bpl" ! -LN"d:\program files\borland\delphi5\Projects\Bpl" -U"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" -O"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" --- 32,37 ---- -$M16384,1048576 -K$00400000 ! -LE"c:\program files\borland\delphi7\Projects\Bpl" ! -LN"c:\program files\borland\delphi7\Projects\Bpl" -U"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" -O"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country Modified Files: Country.cfg Country.dof CountryForm.dfm CountryForm.pas Log Message: 2.5 Import Index: Country.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country/Country.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Country.dof 21 Nov 2005 10:33:28 -0000 1.1 --- Country.dof 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 1,4 **** [FileVersion] ! Version=7.0 [Compiler] A=8 --- 1,4 ---- [FileVersion] ! Version=6.0 [Compiler] A=8 *************** *** 31,83 **** ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - NamespacePrefix= - SymbolDeprecated=1 - SymbolLibrary=1 - SymbolPlatform=1 - UnitLibrary=1 - UnitPlatform=1 - UnitDeprecated=1 - HResultCompat=1 - HidingMember=1 - HiddenVirtual=1 - Garbage=1 - BoundsError=1 - ZeroNilCompat=1 - StringConstTruncated=1 - ForLoopVarVarPar=1 - TypedConstVarPar=1 - AsgToTypedConst=1 - CaseLabelRange=1 - ForVariable=1 - ConstructingAbstract=1 - ComparisonFalse=1 - ComparisonTrue=1 - ComparingSignedUnsigned=1 - CombiningSignedUnsigned=1 - UnsupportedConstruct=1 - FileOpen=1 - FileOpenUnitSrc=1 - BadGlobalSymbol=1 - DuplicateConstructorDestructor=1 - InvalidDirective=1 - PackageNoLink=1 - PackageThreadVar=1 - ImplicitImport=1 - HPPEMITIgnored=1 - NoRetVal=1 - UseBeforeDef=1 - ForLoopVarUndef=1 - UnitNameMismatch=1 - NoCFGFileFound=1 - MessageDirective=1 - ImplicitVariants=1 - UnicodeToLocale=1 - LocaleToUnicode=1 - ImagebaseMultiple=1 - SuspiciousTypecast=1 - PrivatePropAccessor=1 - UnsafeType=0 - UnsafeCode=0 - UnsafeCast=0 [Linker] MapFile=0 --- 31,34 ---- *************** *** 91,99 **** ExeDescription= [Directories] ! OutputDir=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=$(DELPHI)\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\ Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= --- 42,50 ---- ExeDescription= [Directories] ! OutputDir=..\..\Prog UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= ! SearchPath=..\..\ Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= *************** *** 102,106 **** [Parameters] RunParams= ! HostApplication=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog\IB_DB_SHARE.exe Launcher= UseLauncher=0 --- 53,57 ---- [Parameters] RunParams= ! HostApplication=..\..\Prog\ib_db_share.exe Launcher= UseLauncher=0 *************** *** 135,149 **** ProductVersion=1.0.0.0 Comments= - [Excluded Packages] - c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) - [HistoryLists\hlUnitAliases] - Count=1 - Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [HistoryLists\hlSearchPath] - Count=2 - Item0=$(DELPHI)\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\ - Item1=..\..\ - [HistoryLists\hlOutputDirectorry] - Count=2 - Item0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog - Item1=..\..\Prog --- 86,87 ---- Index: Country.cfg =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country/Country.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Country.cfg 21 Nov 2005 10:33:28 -0000 1.1 --- Country.cfg 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 32,43 **** -$M16384,1048576 -K$00400000 ! -E"C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog" ! -LE"c:\program files\borland\delphi7\Projects\Bpl" ! -LN"c:\program files\borland\delphi7\Projects\Bpl" ! -U"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" ! -O"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" ! -I"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" ! -R"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" ! -w-UNSAFE_TYPE ! -w-UNSAFE_CODE ! -w-UNSAFE_CAST --- 32,40 ---- -$M16384,1048576 -K$00400000 ! -E"..\..\Prog" ! -LE"d:\program files\borland\delphi6\Projects\Bpl" ! -LN"d:\program files\borland\delphi6\Projects\Bpl" ! -U"..\..\" ! -O"..\..\" ! -I"..\..\" ! -R"..\..\" Index: CountryForm.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country/CountryForm.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CountryForm.dfm 21 Nov 2005 10:33:28 -0000 1.1 --- CountryForm.dfm 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 73,85 **** OnClick = Button1Click end - object Button2: TButton - Left = 208 - Top = 64 - Width = 75 - Height = 25 - Caption = 'Button2' - TabOrder = 4 - OnClick = Button2Click - end object IBDatabase1: TIBDatabase DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb' --- 73,76 ---- *************** *** 153,159 **** Top = 144 end - object ApplicationEvents1: TApplicationEvents - Left = 176 - Top = 64 - end end --- 144,146 ---- Index: CountryForm.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country/CountryForm.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CountryForm.pas 21 Nov 2005 10:33:28 -0000 1.1 --- CountryForm.pas 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 6,10 **** Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBCustomDataSet, IBUpdateSQL, StdCtrls, ExtCtrls, DBCtrls, Mask, ! DB, IBTable, IBDatabase, AppEvnts; type --- 6,10 ---- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBCustomDataSet, IBUpdateSQL, StdCtrls, ExtCtrls, DBCtrls, Mask, ! DB, IBTable, IBDatabase; type *************** *** 24,31 **** Button1: TButton; IBUpdateSQL1: TIBUpdateSQL; - Button2: TButton; - ApplicationEvents1: TApplicationEvents; procedure Button1Click(Sender: TObject); - procedure Button2Click(Sender: TObject); private { Private declarations } --- 24,28 ---- *************** *** 59,70 **** end; - procedure TfrmCountry.Button2Click(Sender: TObject); - begin - if (Assigned(ApplicationHandleException)) then - begin - - raise exception.create('test'); - end; - end; - end. --- 56,58 ---- |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:52
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts Modified Files: Parts.cfg Parts.dof Log Message: 2.5 Import Index: Parts.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts/Parts.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Parts.dof 21 Nov 2005 10:33:28 -0000 1.1 --- Parts.dof 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 1,4 **** [FileVersion] ! Version=7.0 [Compiler] A=8 --- 1,4 ---- [FileVersion] ! Version=6.0 [Compiler] A=8 *************** *** 16,20 **** M=0 N=1 ! O=0 P=1 Q=0 --- 16,20 ---- M=0 N=1 ! O=1 P=1 Q=0 *************** *** 31,83 **** ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - NamespacePrefix= - SymbolDeprecated=1 - SymbolLibrary=1 - SymbolPlatform=1 - UnitLibrary=1 - UnitPlatform=1 - UnitDeprecated=1 - HResultCompat=1 - HidingMember=1 - HiddenVirtual=1 - Garbage=1 - BoundsError=1 - ZeroNilCompat=1 - StringConstTruncated=1 - ForLoopVarVarPar=1 - TypedConstVarPar=1 - AsgToTypedConst=1 - CaseLabelRange=1 - ForVariable=1 - ConstructingAbstract=1 - ComparisonFalse=1 - ComparisonTrue=1 - ComparingSignedUnsigned=1 - CombiningSignedUnsigned=1 - UnsupportedConstruct=1 - FileOpen=1 - FileOpenUnitSrc=1 - BadGlobalSymbol=1 - DuplicateConstructorDestructor=1 - InvalidDirective=1 - PackageNoLink=1 - PackageThreadVar=1 - ImplicitImport=1 - HPPEMITIgnored=1 - NoRetVal=1 - UseBeforeDef=1 - ForLoopVarUndef=1 - UnitNameMismatch=1 - NoCFGFileFound=1 - MessageDirective=1 - ImplicitVariants=1 - UnicodeToLocale=1 - LocaleToUnicode=1 - ImagebaseMultiple=1 - SuspiciousTypecast=1 - PrivatePropAccessor=1 - UnsafeType=0 - UnsafeCode=0 - UnsafeCast=0 [Linker] MapFile=0 --- 31,34 ---- *************** *** 91,95 **** ExeDescription= [Directories] ! OutputDir=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog UnitOutputDir= PackageDLLOutputDir= --- 42,46 ---- ExeDescription= [Directories] ! OutputDir=..\..\Prog UnitOutputDir= PackageDLLOutputDir= *************** *** 102,106 **** [Parameters] RunParams= ! HostApplication=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog\IB_DB_SHARE.exe Launcher= UseLauncher=0 --- 53,57 ---- [Parameters] RunParams= ! HostApplication=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Prog\ib_db_share.exe Launcher= UseLauncher=0 *************** *** 135,147 **** ProductVersion=1.0.0.0 Comments= - [Excluded Packages] - c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) - [HistoryLists\hlUnitAliases] - Count=1 - Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [HistoryLists\hlSearchPath] - Count=1 - Item0=..\..\ - [HistoryLists\hlOutputDirectorry] - Count=1 - Item0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog --- 86,87 ---- Index: Parts.cfg =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts/Parts.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Parts.cfg 21 Nov 2005 10:33:28 -0000 1.1 --- Parts.cfg 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 13,17 **** -$M- -$N+ ! -$O- -$P+ -$Q- --- 13,17 ---- -$M- -$N+ ! -$O+ -$P+ -$Q- *************** *** 32,43 **** -$M16384,1048576 -K$00400000 ! -E"C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog" ! -LE"c:\program files\borland\delphi7\Projects\Bpl" ! -LN"c:\program files\borland\delphi7\Projects\Bpl" -U"..\..\" -O"..\..\" -I"..\..\" -R"..\..\" - -w-UNSAFE_TYPE - -w-UNSAFE_CODE - -w-UNSAFE_CAST --- 32,40 ---- -$M16384,1048576 -K$00400000 ! -E"..\..\Prog" ! -LE"d:\program files\borland\delphi6\Projects\Bpl" ! -LN"d:\program files\borland\delphi6\Projects\Bpl" -U"..\..\" -O"..\..\" -I"..\..\" -R"..\..\" |
Update of /cvsroot/ocs-comps/OCS2/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Source Modified Files: InterbaseProcs.pas OrckaButton.pas OrckaDBGrid.pas OrckaDV.inc OrckaEdit.pas OrckaGroupBox.pas OrckaMapEditor.dfm OrckaMapEditor.pas OrckaPluginManager.pas OrckaPluginManagerShared.pas OrckaRegister.pas OrckaSpellCheckForm.dfm OrckaSpellCheckForm.pas OrckaTrayIcon.pas PluginModule.pas ToolbarEditor.dfm ToolbarEditor.pas Log Message: 2.5 Import Index: OrckaSpellCheckForm.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaSpellCheckForm.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs0Yj6m3 and /tmp/cvsHXaQ1n differ Index: OrckaButton.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaButton.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaButton.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaButton.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 47,50 **** --- 47,53 ---- FAlignTopLeft: Boolean; FIgnoreReOrder: Boolean; + FShowCaption: Boolean; + function GetCaption: string; + procedure SetCaption(const Value: string); protected function GetWidth: Longint; *************** *** 80,85 **** --- 83,92 ---- property Left: Longint read GetLeft write SetLeft; property Top: Longint read GetTop write SetTop; + property Caption: string read GetCaption write SetCaption; + property ShowCaption: Boolean read FShowCaption write FShowCaption; end; + procedure FindAllButtons(List: TList; AParent: TControl; + Ctl: TComponent; All: Boolean); implementation *************** *** 92,95 **** --- 99,105 ---- QForms; {$ENDIF} + {$IFDEF DelphiVer8Up} + Forms, Borland.Vcl.Types; + {$ENDIF} *************** *** 97,118 **** function CompareInt(Int1, Int2: Longint): Longint; asm ! MOV @Result, 0 CMP Int1, Int2 JA @@1 JB @@2 JMP @@Exit ! @@1: MOV @Result, 1 JMP @@Exit ! @@2: ! MOV @Result, -1 @@Exit: end; ! function OrckaButtonSort(Item1, Item2: Pointer): Integer; ! begin ! Result := CompareInt(TOrckaButton(Item1).Position, ! TOrckaButton(Item2).Position); end; --- 107,168 ---- function CompareInt(Int1, Int2: Longint): Longint; + {$IFDEF DelphiVer8Up} + begin + Result := 0; + if Int1 = Int2 then + Exit; + + if Int1 > Int2 then + Result := 1 + else + Result := -1; + {$ELSE} asm ! MOV @Result, 0 CMP Int1, Int2 JA @@1 JB @@2 JMP @@Exit ! @@1: MOV @Result, 1 JMP @@Exit ! @@2: ! MOV @Result, -1 @@Exit: + {$ENDIF} end; ! function OrckaButtonSort(Item1, Item2: ! {$IFDEF DelphiVer8Up}TObject{$ELSE} ! Pointer{$ENDIF}): Integer; {$IFDEF DelphiVer8Up}Unsafe;{$ENDIF} ! begin ! Result := CompareInt(TOrckaButton(TObject(Item1)).Position, ! TOrckaButton(TObject(Item2)).Position); ! end; ! ! procedure FindAllButtons(List: TList; AParent: TControl; ! Ctl: TComponent; All: Boolean); ! var ! I: Integer; ! begin ! for I := 0 to Ctl.ComponentCount -1 do ! begin ! if Ctl.Components[I] is TControl then ! begin ! if (Ctl.Components[I] is TOrckaButton) then ! begin ! if All then ! List.Add(Ctl.Components[I]) ! else ! begin ! if ((TOrckaButton(Ctl.Components[I]).Visible) and ! (TOrckaButton(Ctl.Components[I]).Parent = AParent)) then ! List.Add(Ctl.Components[I]); ! end; ! end; ! ! FindAllButtons(List, AParent, Ctl.Components[I], All); ! end; ! end; end; *************** *** 125,128 **** --- 175,179 ---- FStyle := obButton; FIgnoreReOrder := False; + FShowCaption := False; end; *************** *** 131,135 **** begin inherited Notification(AComponent, Operation); ! if (AComponent = FImageList) and (Operation = opRemove) then begin FImageIndex := -1; --- 182,186 ---- begin inherited Notification(AComponent, Operation); ! if (AComponent = FImageList) and (Operation = opRemove) then begin FImageIndex := -1; *************** *** 142,166 **** var Ctl: TComponent; ! OBtn: TOrckaButton; I, NewLeft, NewTop: Longint; List: TList; begin ! Ctl := Owner as TComponent; (* Try for the active form, just incase the button was dynamically created and there is no owner*) if not Assigned(Ctl) then Ctl := Screen.ActiveForm; ! if Assigned(Ctl) then begin List := TList.Create; try ! {Get A List of all the TOrckaButton Controls} ! for I := 0 to Ctl.ComponentCount -1 do ! if (Ctl.Components[I] is TOrckaButton) then ! begin ! OBtn := TOrckaButton(Ctl.Components[I]); ! if (OBtn.Parent = Parent) and (OBtn.Position > -1) then ! List.Add(OBtn); ! end; {Pack and Sort the list by Position} --- 193,216 ---- var Ctl: TComponent; ! OBtn: TOrckaButton; I, NewLeft, NewTop: Longint; List: TList; begin ! Ctl := Self; ! (* Try for the active form, just incase the button was dynamically created and there is no owner*) if not Assigned(Ctl) then Ctl := Screen.ActiveForm; ! ! if Assigned(Ctl) then begin + (* Get the root parent *) + while Assigned(Ctl.Owner) do + Ctl := Ctl.Owner; + List := TList.Create; try ! FindAllButtons(List, Parent, Ctl, False); {Pack and Sort the list by Position} *************** *** 172,176 **** {Order the controls based on the first control in the list} ! OBtn := List[0]; if FAlignTopLeft then begin --- 222,226 ---- {Order the controls based on the first control in the list} ! OBtn := TOrckaButton(List[0]); if FAlignTopLeft then begin *************** *** 184,188 **** for i := 1 to List.Count -1 do begin ! OBtn := List[i]; OBtn.FIgnoreReOrder := True; OBtn.Top := NewTop; --- 234,238 ---- for i := 1 to List.Count -1 do begin ! OBtn := TOrckaButton(List[i]); OBtn.FIgnoreReOrder := True; OBtn.Top := NewTop; *************** *** 313,318 **** obButton: begin ! Width := 22; ! Height := 22; end; obHSeperator: --- 363,368 ---- obButton: begin ! Width := 24; ! Height := 24; end; obHSeperator: *************** *** 324,328 **** begin Width := Width; ! Height := 22; end; end; --- 374,378 ---- begin Width := Width; ! Height := 24; end; end; *************** *** 370,372 **** --- 420,435 ---- end; + function TOrckaButton.GetCaption: string; + begin + Result := inherited Caption; + end; + + procedure TOrckaButton.SetCaption(const Value: string); + begin + if FShowCaption then + inherited Caption := Value + else + inherited Caption := ''; + end; + end. Index: OrckaSpellCheckForm.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaSpellCheckForm.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaSpellCheckForm.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaSpellCheckForm.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,35 **** ! {************************************************************************} ! {* *} ! {* Copyright © 1998 - 2001. Simon Carter (Orcka Development) *} ! {* *} ! {* http://www.orcka.com - in...@or... *} ! {* *} ! {* Package: Orcka Component Suite. *} ! {* *} ! {* Permission is granted to anyone to use this software for any *} ! {* purpose, including use in commercial applications, and to *} ! {* redistribute it freely, subject to the following restrictions: *} ! {* *} ! {* 1. You are allowed to modify any of this software, but not to *} ! {* distribute the modified source code. Modifications are to be *} ! {* distributed as patches to the released version. *} ! {* *} ! {* 2. Redistributions of source code must retain the above copyright *} ! {* notice, this list of conditions and the following disclaimer. *} ! {* *} ! {* 3. All source code remains Simon Carter's exclusive property. *} ! {* *} ! {* Software distributed under this License is distributed on an *} ! {* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or *} ! {* implied. See the License for the specific language governing *} ! {* rights and limitations under the License. *} ! {* *} ! {* This product is maintained and supported by Simon Carter (Orcka *} ! {* Development). To receive support send an email message to *} ! {* sim...@or..., alternatively join the mailing list at *} ! {* http://groups.yahoo.com/group/orckacomponentsuite or *} ! {* http://groups.yahoo.com/group/Orcka-AddinManager. *} ! {* *} ! {************************************************************************} unit OrckaSpellCheckForm; --- 1,26 ---- ! //////////////////////////////////////////////////////////////////////////////// ! // ! // The contents of this file are subject to the Initial Developer's Public ! // License Version 1.0 (the "License"); you may not use this file except in ! // compliance with the License. You may obtain a copy of the License from the ! // Firebird Project website, at ! // http://www.firebirdsql.org/index.php?op=doc&id=idpl. ! // ! // Software distributed under the License is distributed on an "AS IS" basis, ! // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License ! // for the specific language governing rights and limitations under the License. ! // ! // The Original Code is part of OCS Component Suite (http://sourceforge.net/projects/ocs-comps/). ! // ! // The Initial Developer of the Original Code is Simon Carter. ! // ! // Portions created by Simon Carter ! // are Copyright (C) 1998 - 2005. Simon Carter. All Rights Reserved. ! // ! // All Rights Reserved. ! // ! // Contributor(s): Simon Carter. ! // ! //////////////////////////////////////////////////////////////////////////////// unit OrckaSpellCheckForm; Index: OrckaEdit.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaEdit.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaEdit.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaEdit.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 144,152 **** procedure TOrckaButtonEdit.MouseMove(Shift: TShiftState; X, Y: Integer); - var - RMargin: Longint; begin ! RMargin := HiWord(SendMessage(Handle, EM_GETMARGINS, 0, 0)) + 2; ! FOverButton := X > (Width - RMargin); if FOverButton then Cursor := crArrow --- 144,149 ---- procedure TOrckaButtonEdit.MouseMove(Shift: TShiftState; X, Y: Integer); begin ! FOverButton := X > (Width - Height); if FOverButton then Cursor := crArrow Index: OrckaMapEditor.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaMapEditor.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaMapEditor.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaMapEditor.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,35 **** ! {************************************************************************} ! {* *} ! {* Copyright © 1998 - 2001. Simon Carter (Orcka Development) *} ! {* *} ! {* http://www.orcka.com - in...@or... *} ! {* *} ! {* Package: Orcka Component Suite. *} ! {* *} ! {* Permission is granted to anyone to use this software for any *} ! {* purpose, including use in commercial applications, and to *} ! {* redistribute it freely, subject to the following restrictions: *} ! {* *} ! {* 1. You are allowed to modify any of this software, but not to *} ! {* distribute the modified source code. Modifications are to be *} ! {* distributed as patches to the released version. *} ! {* *} ! {* 2. Redistributions of source code must retain the above copyright *} ! {* notice, this list of conditions and the following disclaimer. *} ! {* *} ! {* 3. All source code remains Simon Carter's exclusive property. *} ! {* *} ! {* Software distributed under this License is distributed on an *} ! {* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or *} ! {* implied. See the License for the specific language governing *} ! {* rights and limitations under the License. *} ! {* *} ! {* This product is maintained and supported by Simon Carter (Orcka *} ! {* Development). To receive support send an email message to *} ! {* sim...@or..., alternatively join the mailing list at *} ! {* http://groups.yahoo.com/group/orckacomponentsuite or *} ! {* http://groups.yahoo.com/group/Orcka-AddinManager. *} ! {* *} ! {************************************************************************} unit OrckaMapEditor; --- 1,26 ---- ! //////////////////////////////////////////////////////////////////////////////// ! // ! // The contents of this file are subject to the Initial Developer's Public ! // License Version 1.0 (the "License"); you may not use this file except in ! // compliance with the License. You may obtain a copy of the License from the ! // Firebird Project website, at ! // http://www.firebirdsql.org/index.php?op=doc&id=idpl. ! // ! // Software distributed under the License is distributed on an "AS IS" basis, ! // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License ! // for the specific language governing rights and limitations under the License. ! // ! // The Original Code is part of OCS Component Suite (http://sourceforge.net/projects/ocs-comps/). ! // ! // The Initial Developer of the Original Code is Simon Carter. ! // ! // Portions created by Simon Carter ! // are Copyright (C) 1998 - 2005. Simon Carter. All Rights Reserved. ! // ! // All Rights Reserved. ! // ! // Contributor(s): Simon Carter. ! // ! //////////////////////////////////////////////////////////////////////////////// unit OrckaMapEditor; Index: OrckaPluginManager.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaPluginManager.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaPluginManager.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaPluginManager.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,35 **** ! {************************************************************************} ! {* *} ! {* Copyright © 1998 - 2001. Simon Carter (Orcka Development) *} ! {* *} ! {* http://www.orcka.com - in...@or... *} ! {* *} ! {* Package: Orcka Component Suite. *} ! {* *} ! {* Permission is granted to anyone to use this software for any *} ! {* purpose, including use in commercial applications, and to *} ! {* redistribute it freely, subject to the following restrictions: *} ! {* *} ! {* 1. You are allowed to modify any of this software, but not to *} ! {* distribute the modified source code. Modifications are to be *} ! {* distributed as patches to the released version. *} ! {* *} ! {* 2. Redistributions of source code must retain the above copyright *} ! {* notice, this list of conditions and the following disclaimer. *} ! {* *} ! {* 3. All source code remains Simon Carter's exclusive property. *} ! {* *} ! {* Software distributed under this License is distributed on an *} ! {* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or *} ! {* implied. See the License for the specific language governing *} ! {* rights and limitations under the License. *} ! {* *} ! {* This product is maintained and supported by Simon Carter (Orcka *} ! {* Development). To receive support send an email message to *} ! {* sim...@or..., alternatively join the mailing list at *} ! {* http://groups.yahoo.com/group/orckacomponentsuite or *} ! {* http://groups.yahoo.com/group/Orcka-AddinManager. *} ! {* *} ! {************************************************************************} unit OrckaPluginManager; --- 1,26 ---- ! //////////////////////////////////////////////////////////////////////////////// ! // ! // The contents of this file are subject to the Initial Developer's Public ! // License Version 1.0 (the "License"); you may not use this file except in ! // compliance with the License. You may obtain a copy of the License from the ! // Firebird Project website, at ! // http://www.firebirdsql.org/index.php?op=doc&id=idpl. ! // ! // Software distributed under the License is distributed on an "AS IS" basis, ! // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License ! // for the specific language governing rights and limitations under the License. ! // ! // The Original Code is part of OCS Component Suite (http://sourceforge.net/projects/ocs-comps/). ! // ! // The Initial Developer of the Original Code is Simon Carter. ! // ! // Portions created by Simon Carter ! // are Copyright (C) 1998 - 2005. Simon Carter. All Rights Reserved. ! // ! // All Rights Reserved. ! // ! // Contributor(s): Simon Carter. ! // ! //////////////////////////////////////////////////////////////////////////////// unit OrckaPluginManager; *************** *** 41,44 **** --- 32,40 ---- uses Classes, SysUtils, OrckaButton, IniFiles, Messages, + {$IFDEF DelphiVer8Up} + StdCtrls, Registry, + Windows, Forms, Menus, Graphics, buttons, comctrls, Controls, + extctrls, Dialogs, ActnList, + {$ENDIF} {$IFDEF MSWindows} {$IFNDEF DelphiVer3Up}ImageLst,{$ENDIF} StdCtrls, Registry, *************** *** 85,88 **** --- 81,87 ---- TOHandleEvent = procedure(Sender: TObject; var Hwnd: Longint) of object; {$ENDIF} + {$IFDEF DelphiVer8Up} + TOHandleEvent = procedure(Sender: TObject; var Hwnd: Longint) of object; + {$ENDIF} {$IFDEF Linux} TOHandleEvent = procedure(Sender: TObject; var Hwnd: QWidgetH) of object; *************** *** 245,250 **** {$ENDIF} procedure FreeAllCDMenuItems; procedure AddDefaultMenus; ! procedure RemovePlugin(ExitProc: Pointer); procedure SetToolBarStyle(const Value: TToolBarStyle); function GetPlugin(Index: Integer): string; --- 244,250 ---- {$ENDIF} procedure FreeAllCDMenuItems; + procedure FreeAllButtons; procedure AddDefaultMenus; ! procedure RemovePlugin(ExitProc: Pointer); {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} procedure SetToolBarStyle(const Value: TToolBarStyle); function GetPlugin(Index: Integer): string; *************** *** 259,265 **** function LoadVersion1Plugin(Proc: TLoadProc; Plugin: string; ! var ExitProcedure: Pointer): Boolean; function LoadVersion2Plugin(Proc: TLoadProc2; Plugin: string; ! var ExitProcedure: Pointer): Boolean; protected FPluginServices: TPluginServicesMain; --- 259,265 ---- function LoadVersion1Plugin(Proc: TLoadProc; Plugin: string; ! var ExitProcedure: Pointer): Boolean; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} function LoadVersion2Plugin(Proc: TLoadProc2; Plugin: string; ! var ExitProcedure: Pointer): Boolean; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} protected FPluginServices: TPluginServicesMain; *************** *** 284,288 **** {$ENDIF} function DoInvalidPlugin(Plugin: string): Boolean; virtual; ! function DoGetDatabaseHandle: Pointer; virtual; procedure DoTransaction(TransactionEvent: TTransactionEvent); virtual; procedure DoToolBarInsertRemove(ToolbarName: string; Operation: TOperation); --- 284,288 ---- {$ENDIF} function DoInvalidPlugin(Plugin: string): Boolean; virtual; ! function DoGetDatabaseHandle: Pointer; virtual; {$IFDEF DelphiVer8Up}unsafe;{$ENDIF} procedure DoTransaction(TransactionEvent: TTransactionEvent); virtual; procedure DoToolBarInsertRemove(ToolbarName: string; Operation: TOperation); *************** *** 570,573 **** --- 570,574 ---- constructor CreateNew(ToolService: TPluginServicesMain); function GetEnabled: Boolean; override; + function SetEnabled(IsEnabled: Boolean): Boolean; override; function GetGroupIndex: Integer; override; *************** *** 869,879 **** uses {$IFDEF Linux}Libc, {$ENDIF} {$IFDEF MSWindows}ShellAPI, {$ENDIF} ! SyncObjs; ! ! type ! TPluginPanel = class(TPanel) ! private ! FCount: Longint; ! end; {$IFDEF Linux} --- 870,874 ---- uses {$IFDEF Linux}Libc, {$ENDIF} {$IFDEF MSWindows}ShellAPI, {$ENDIF} ! SyncObjs, PluginToolbar; {$IFDEF Linux} *************** *** 902,907 **** #13#13'Error Message: %s'; sNoSysProp = 'Can Not Modify a System Object'; ! sInvalidDLL = '%s'#13'Is not a valid Orcka Addin'; ! sNoLoadDLL = '%s'#13'Does not appear to be a valid DLL'; sNoUnLoadDLL = 'A Problem occured unloading'#13#13'%s'; sPluginNotLoaded = '%s'#13#13'Was not loaded'; --- 897,903 ---- #13#13'Error Message: %s'; sNoSysProp = 'Can Not Modify a System Object'; ! sInvalidDLL = '%s'#13'Is not a valid Orcka Plugin'; ! sNoLoadDLL = '%s'#13'Does not appear to be a valid DLL.'; ! sNoLoadDLLNotFound = '%s'#13'Could not be found.'; sNoUnLoadDLL = 'A Problem occured unloading'#13#13'%s'; sPluginNotLoaded = '%s'#13#13'Was not loaded'; *************** *** 1156,1159 **** --- 1152,1156 ---- UnLoadAllPlugins; FreeAllCDMenuItems; + FreeAllButtons; FPluginExitProcList.Free; FMenuList.Free; *************** *** 1187,1194 **** i: Longint; begin ! for i := 1 to FMenuList.Count -1 do TOMenuItemMain(FMenuList.Items[i]).Free; end; procedure TOrckaCustomPluginManager.AddDefaultMenus; --- 1184,1196 ---- i: Longint; begin ! for i := 0 to FMenuList.Count -1 do TOMenuItemMain(FMenuList.Items[i]).Free; end; + procedure TOrckaCustomPluginManager.FreeAllButtons; + begin + + end; + procedure TOrckaCustomPluginManager.AddDefaultMenus; *************** *** 1393,1398 **** Pnl.Caption := HolderName; {$ELSE} ! Pnl := TPluginPanel.Create(nil); ! TPluginPanel(pnl).FCount := 0; {$ENDIF} --- 1395,1400 ---- Pnl.Caption := HolderName; {$ELSE} ! Pnl := TPluginToolbar.Create(nil); ! TPluginToolbar(pnl).Count := 0; {$ENDIF} *************** *** 1405,1414 **** Pnl.Height := 26; {$ELSE} ! TPluginPanel(Pnl).BevelInner := bvNone; ! TPluginPanel(Pnl).BevelOuter := bvNone; ! TPluginPanel(Pnl).Height := 1; ! TPluginPanel(Pnl).Width := 1; {$IFDEF DelphiVER4Up} ! TPluginPanel(Pnl).AutoSize := True; {$ENDIF} Pnl.Parent := FControlBar; --- 1407,1414 ---- Pnl.Height := 26; {$ELSE} ! TPluginToolbar(Pnl).Height := 1; ! TPluginToolbar(Pnl).Width := 1; {$IFDEF DelphiVER4Up} ! TPluginToolbar(Pnl).AutoSize := True; {$ENDIF} Pnl.Parent := FControlBar; *************** *** 1425,1442 **** Pnl.Items.Add(Button); {$ELSE} ! Pnl := TPluginPanel(FToolBarHosts.Objects[Index]); ! Button.Parent := TPluginPanel(Pnl); Button.Position := Position; Button.Width := FDefButtonSize; Button.Height := FDefButtonSize; - TPluginPanel(pnl).FCount := TPluginPanel(pnl).FCount + 1; {$ENDIF} - - pnl.Visible := True; end; procedure TOrckaCustomPluginManager.InternalRemoveButton(HolderName: string); var ! Pnl: TPluginPanel; Index: Longint; begin --- 1425,1440 ---- Pnl.Items.Add(Button); {$ELSE} ! Pnl := TPluginToolbar(FToolBarHosts.Objects[Index]); ! TPluginToolbar(Pnl).Insert(Button); ! Button.Position := Position; Button.Width := FDefButtonSize; Button.Height := FDefButtonSize; {$ENDIF} end; procedure TOrckaCustomPluginManager.InternalRemoveButton(HolderName: string); var ! Pnl: TPluginToolbar; Index: Longint; begin *************** *** 1444,1450 **** if Index > -1 then begin ! Pnl := TPluginPanel(FToolBarHosts.Objects[Index]); ! Pnl.FCount := Pnl.FCount -1; ! if Pnl.FCount = 0 then if ComponentState = [] then begin --- 1442,1448 ---- if Index > -1 then begin ! Pnl := TPluginToolbar(FToolBarHosts.Objects[Index]); ! Pnl.Count := Pnl.Count -1; ! if Pnl.Count = 0 then if ComponentState = [] then begin *************** *** 2192,2196 **** s := Name; Result := nil; ! for i := 1 to FPluginManager.FMenuList.Count -1 do begin Result := TOMenuItem(FPluginManager.FMenuList.Items[i]); --- 2190,2194 ---- s := Name; Result := nil; ! for i := 0 to FPluginManager.FMenuList.Count -1 do begin Result := TOMenuItem(FPluginManager.FMenuList.Items[i]); *************** *** 2207,2211 **** if not Assigned(Result) then begin (* Compare Captions *) ! for i := 1 to FPluginManager.FMenuList.Count -1 do begin Result := TOMenuItem(FPluginManager.FMenuList.Items[i]); --- 2205,2209 ---- if not Assigned(Result) then begin (* Compare Captions *) ! for i := 0 to FPluginManager.FMenuList.Count -1 do begin Result := TOMenuItem(FPluginManager.FMenuList.Items[i]); *************** *** 2369,2372 **** --- 2367,2371 ---- {$ELSE} Btn: TOrckaButton; + Host: TControl; {$ENDIF} RtnButton: TOButtonMain; *************** *** 2386,2390 **** {$ENDIF} {$ELSE} ! Btn := TOrckaButton.Create(FPluginManager); {$ENDIF} FPluginManager.FButtonList.Add(Btn); --- 2385,2391 ---- {$ENDIF} {$ELSE} ! Host := FPluginManager.FToolbars.GetToolBarObject(TabName); ! Btn := TOrckaButton.Create(Host); ! Btn.Parent := TWinControl(Host); {$ENDIF} FPluginManager.FButtonList.Add(Btn); *************** *** 2399,2403 **** {$IFNDEF TB2K} Btn.ShowHint := True; ! Btn.Flat := FPluginManager.FlatButtons; {$ENDIF} --- 2400,2405 ---- {$IFNDEF TB2K} Btn.ShowHint := True; ! Btn.Flat := FPluginManager.FlatButtons; ! Btn.Position := NewIndex; {$ENDIF} *************** *** 2488,2494 **** if bmp.Height < FPluginManager.ImageList.Height then bmp.Height := FPluginManager.ImageList.Height; ! bmpA.Handle := bmp.Handle; end; ! Result := FPluginManager.ImageList. Add(bmpa, bmpa); finally bmpA.Free; --- 2490,2502 ---- if bmp.Height < FPluginManager.ImageList.Height then bmp.Height := FPluginManager.ImageList.Height; ! ! //bmpa.Canvas.Draw(0, 0, bmp); ! bmpa.Handle := bmp.Handle; end; ! ! (* finally add image to imagelist *) ! Result := FPluginManager.ImageList.AddMasked(bmpa, ! bmpa.Canvas.Pixels[1, FPluginManager.ImageList.Height -1]); ! //Result := FPluginManager.ImageList.Add(bmpa, bmpa); finally bmpA.Free; *************** *** 2962,2970 **** begin {$IFDEF MSWindows} ! MessageBox(0, PChar(Format(sNoLoadDLL, [PluginName])), PChar(sTitle), ! MB_OK or MB_ICONINFORMATION); {$ENDIF} {$IFDEF Linux} ! Application.MessageBox(Format(sNoLoadDLL, [PluginName]), sTitle); {$ENDIF} end; --- 2970,2985 ---- begin {$IFDEF MSWindows} ! if FileExists(PluginName) then ! MessageBox(0, PChar(Format(sNoLoadDLL, [PluginName])), PChar(sTitle), ! MB_OK or MB_ICONINFORMATION) ! else ! MessageBox(0, PChar(Format(sNoLoadDLLNotFound, [PluginName])), ! PChar(sTitle), MB_OK or MB_ICONINFORMATION); {$ENDIF} {$IFDEF Linux} ! if FileExists(PluginName) then ! Application.MessageBox(Format(sNoLoadDLL, [PluginName]), sTitle) ! else ! Application.MessageBox(Format(sNoLoadDLLNotFound, [PluginName]), sTitle); {$ENDIF} end; *************** *** 3772,3776 **** bmp.Handle := PictureHandle; Result := FPluginManager.MenuImages.Add(bmp, bmp); - finally bmp.Free; --- 3787,3790 ---- *************** *** 3815,3845 **** Client: TClientPluginType; begin - Result := False; - PluginCriticalSection.Acquire; try ! for I := 0 to Count -1 do ! begin ! Result := CompareText(Plugin[I].GetName, ! PluginClient.GetName) = 0; ! if Result then ! Break; ! end; ! (* Negate the result *) ! Result := not Result; ! (* If the plugin wasn't found then *) ! if Result then begin ! PluginClient.CreateMenuItems; ! PluginClient.CreateButtons; ! Client := TClientPluginType.Create; ! Client.AppEvents := []; ! Client.PluginClient := PluginClient; ! FPluginList.Add(Client); ! FPluginList.Pack; end; - finally - PluginCriticalSection.Release; end; end; --- 3829,3866 ---- Client: TClientPluginType; begin try ! Result := False; ! PluginCriticalSection.Acquire; ! try ! for I := 0 to Count -1 do ! begin ! Result := CompareText(Plugin[I].GetName, ! PluginClient.GetName) = 0; ! if Result then ! Break; ! end; ! (* Negate the result *) ! Result := not Result; ! (* If the plugin wasn't found then *) ! if Result then ! begin ! PluginClient.CreateMenuItems; ! PluginClient.CreateButtons; ! Client := TClientPluginType.Create; ! Client.AppEvents := []; ! Client.PluginClient := PluginClient; ! FPluginList.Add(Client); ! FPluginList.Pack; ! end; ! finally ! PluginCriticalSection.Release; ! end; ! except ! on E: Exception do begin ! Result := False; end; end; end; *************** *** 3978,3985 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnActivate in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnActivate; end; end; --- 3999,4011 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnActivate in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnActivate; ! end; ! finally ! if Assigned(FOldActivate) then ! FOldActivate(Sender); end; end; *************** *** 3989,3996 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnDeactivate in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnDeactivate; end; end; --- 4015,4027 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnDeactivate in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnDeactivate; ! end; ! finally ! if Assigned(FOldDeactivate) then ! FOldDeactivate(Sender); end; end; *************** *** 4000,4008 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnException in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnException(StringToMediumString(E.ClassName), ! StringToLargeString(E.Message)); end; end; --- 4031,4044 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnException in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnException(StringToMediumString(E.ClassName), ! StringToLargeString(E.Message)); ! end; ! finally ! if Assigned(FOldException) then ! FOldException(Sender, E); end; end; *************** *** 4013,4022 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnHelp in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnHelp(Command, Data, CallHelp); end; - Result := True; end; --- 4049,4063 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnHelp in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnHelp(Command, Data, CallHelp); ! end; ! Result := True; ! finally ! if Assigned(FOldHelp) then ! Result := FOldHelp(Command, Data, CallHelp); end; end; *************** *** 4025,4032 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnHint in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnHint; end; end; --- 4066,4078 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnHint in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnHint; ! end; ! finally ! if Assigned(FOldHint) then ! FOldHint(Sender); end; end; *************** *** 4036,4043 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnIdle in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnIdle(Done); end; end; --- 4082,4094 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnIdle in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnIdle(Done); ! end; ! finally ! if Assigned(FOldIdle) then ! FOldIdle(Sender, Done); end; end; *************** *** 4048,4055 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnMessage in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnMessage(Msg, Handled); end; end; --- 4099,4111 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnMessage in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnMessage(Msg, Handled); ! end; ! finally ! if Assigned(FOldMessage) then ! FOldMessage(Msg, Handled); end; end; *************** *** 4059,4066 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnMinimize in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnMinimize; end; end; --- 4115,4127 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnMinimize in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnMinimize; ! end; ! finally ! if Assigned(FOldMinimize) then ! FOldMinimize(Sender); end; end; *************** *** 4070,4077 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnRestore in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnRestore; end; end; --- 4131,4143 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnRestore in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnRestore; ! end; ! finally ! if Assigned(FOldRestore) then ! FOldRestore(Sender); end; end; *************** *** 4082,4089 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnSettingsChanged in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnSettingsChanged(Flag, Section, Result); end; end; --- 4148,4160 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnSettingsChanged in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnSettingsChanged(Flag, Section, Result); ! end; ! finally ! if Assigned(FOldSettingsChanged) then ! FOldSettingsChanged(Sender, Flag, Section, Result); end; end; *************** *** 4093,4100 **** I: Longint; begin ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnShortcut in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnShortCut(Msg, Handled); end; end; --- 4164,4176 ---- I: Longint; begin ! try ! for I := 0 to FPluginServices.Count -1 do ! begin ! if poOnShortcut in FPluginServices.PluginOptions[I] then ! FPluginServices.Plugin[I].OnShortCut(Msg, Handled); ! end; ! finally ! if Assigned(FOldShortCut) then ! FOldShortCut(Msg, Handled); end; end; Index: OrckaMapEditor.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaMapEditor.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsUep5ea and /tmp/cvsHb7lbv differ Index: OrckaGroupBox.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaGroupBox.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaGroupBox.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaGroupBox.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 30,33 **** --- 30,37 ---- uses SysUtils, Classes, + {$IFDEF DelphiVer8Up} + Windows, Messages, Graphics, Controls, Forms, Dialogs, + StdCtrls; + {$ENDIF} {$IFDEF MSWindows} Windows, Messages, Graphics, Controls, Forms, Dialogs, *************** *** 50,54 **** FAutoDisable: Boolean; FDrawBorder: Boolean; - FCheckChanged: TNotifyEvent; protected procedure SetDrawBorder(const Value: Boolean); --- 54,57 ---- *************** *** 77,82 **** property AutoDisable: Boolean read FAutoDisable write SetAutoDisable; property DrawBorder: Boolean read FDrawBorder write SetDrawBorder; - property OnCheckChanged: TNotifyEvent read FCheckChanged - write FCheckChanged; published end; --- 80,83 ---- *************** *** 106,110 **** property TabStop; property Visible; - property OnCheckChanged; property OnClick; property OnDblClick; --- 107,110 ---- *************** *** 161,165 **** property TabStop; property Visible; - property OnCheckChanged; property OnClick; property OnDblClick; --- 161,164 ---- *************** *** 216,220 **** property TabStop; property Visible; - property OnCheckChanged; property OnClick; property OnDblClick; --- 215,218 ---- *************** *** 271,275 **** property TabStop; property Visible; - property OnCheckChanged; property OnClick; property OnDblClick; --- 269,272 ---- *************** *** 304,307 **** --- 301,308 ---- implementation + {$IFDEF DelphiVer8Up} + uses Borland.Vcl.Types; + {$ENDIF} + { TCheckGroupBox } *************** *** 319,323 **** if Message.WParam = FGroupIndex then begin ! Sender := TCustomOrckaGroupBox(Message.LParam); if Sender <> Self then begin --- 320,325 ---- if Message.WParam = FGroupIndex then begin ! Sender := TCustomOrckaGroupBox(TObject(Message.LParam)); ! if Sender <> Self then begin *************** *** 348,352 **** Msg.Msg := CM_BUTTONPRESSED; Msg.WParam := FGroupIndex; ! Msg.LParam := Longint(Self); Msg.Result := 0; Parent.Broadcast(Msg); --- 350,354 ---- Msg.Msg := CM_BUTTONPRESSED; Msg.WParam := FGroupIndex; ! Msg.LParam := Longint(TObject(Self)); Msg.Result := 0; Parent.Broadcast(Msg); *************** *** 417,420 **** --- 419,423 ---- CheckRect.Bottom := 15; CheckRect.Right := 18 + (Canvas.TextWidth(Caption) + 8); + Canvas.Brush.Color := Color; Canvas.FillRect(CheckRect); CheckRect.Right := 18; *************** *** 439,443 **** DrawFrameControl(Canvas.Handle, CheckRect, DFC_BUTTON, uState); ! TextOut(Canvas.Handle, 22, 2, PChar(Caption), Length(Caption)); CheckRect.Right := Canvas.TextWidth(Caption) + 25; CopyRect(R, CheckRect); --- 442,450 ---- DrawFrameControl(Canvas.Handle, CheckRect, DFC_BUTTON, uState); ! {$IFDEF DelphiVer8Up} ! TextOut(Canvas.Handle, 22, 2, Caption, Length(Caption)); ! {$ELSE} ! TextOut(Canvas.Handle, 22, 2, PChar(Caption), Length(Caption)); ! {$ENDIF} CheckRect.Right := Canvas.TextWidth(Caption) + 25; CopyRect(R, CheckRect); *************** *** 452,462 **** begin FChecked := Value; - - if (Assigned(FCheckChanged)) then - FCheckChanged(Self); - if FAutoDisable then ChangeChildState(Value and Enabled); - RePaint; UpdateExclusive; --- 459,464 ---- Index: OrckaPluginManagerShared.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaPluginManagerShared.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaPluginManagerShared.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaPluginManagerShared.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 36,39 **** --- 36,42 ---- Qt; {$ENDIF} + {$IFDEF DelphiVer8Up} + Windows, Messages; + {$ENDIF} type *************** *** 69,73 **** THelpContext = -MaxLongInt..MaxLongInt; ! TOInterface = class private --- 72,76 ---- THelpContext = -MaxLongInt..MaxLongInt; ! TOInterface = class private *************** *** 77,80 **** --- 80,84 ---- public constructor Create; virtual; + destructor Destroy; override; procedure Free; function AddRef: Longint; virtual; stdcall; *************** *** 293,297 **** (* Database Management *) ! function GetDatabaseHandle: Pointer; virtual; stdcall; abstract; procedure StartTransaction; virtual; stdcall; abstract; procedure CommitTransaction; virtual; stdcall; abstract; --- 297,301 ---- (* Database Management *) ! function GetDatabaseHandle: {$IFDEF DelphiVer8Up}Integer;{$ELSE}Pointer; {$ENDIF} virtual; stdcall; abstract; procedure StartTransaction; virtual; stdcall; abstract; procedure CommitTransaction; virtual; stdcall; abstract; *************** *** 498,501 **** --- 502,511 ---- end; + destructor TOInterface.Destroy; + begin + + inherited; + end; + end. Index: ToolbarEditor.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/ToolbarEditor.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsCy75nd and /tmp/cvsJctesy differ Index: ToolbarEditor.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/ToolbarEditor.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ToolbarEditor.pas 21 Nov 2005 10:33:29 -0000 1.1 --- ToolbarEditor.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 1,2 **** --- 1,26 ---- + //////////////////////////////////////////////////////////////////////////////// + // + // The contents of this file are subject to the Initial Developer's Public + // License Version 1.0 (the "License"); you may not use this file except in + // compliance with the License. You may obtain a copy of the License from the + // Firebird Project website, at + // http://www.firebirdsql.org/index.php?op=doc&id=idpl. + // + // Software distributed under the License is distributed on an "AS IS" basis, + // WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License + // for the specific language governing rights and limitations under the License. + // + // The Original Code is part of OCS Component Suite (http://sourceforge.net/projects/ocs-comps/). + // + // The Initial Developer of the Original Code is Simon Carter. + // + // Portions created by Simon Carter + // are Copyright (C) 1998 - 2005. Simon Carter. All Rights Reserved. + // + // All Rights Reserved. + // + // Contributor(s): Simon Carter. + // + //////////////////////////////////////////////////////////////////////////////// unit ToolbarEditor; Index: OrckaDBGrid.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaDBGrid.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaDBGrid.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaDBGrid.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 57,60 **** --- 57,61 ---- procedure ColEnter; override; procedure ColExit; override; + procedure DoEnter; override; procedure DrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); override; *************** *** 83,86 **** --- 84,89 ---- FFullSizeCheckBox := False; FSelectedOptions := TSelectedOptions.Create(Self); + if Assigned(InplaceEditor) then + InplaceEditor.Hide; end; *************** *** 227,229 **** --- 230,247 ---- end; + procedure TOrckaDBGrid.DoEnter; + begin + if (SelectedField.DataType = ftBoolean) or + (FBoolFields.IndexOf(SelectedField.FieldName) > -1) then + begin + if Assigned(InplaceEditor) then + InplaceEditor.Hide; + FIsEditing := dgEditing in Options; + FIsShowingEditor := dgAlwaysShowEditor in Options; + Options := Options - [dgEditing, dgAlwaysShowEditor]; + end; + + inherited DoEnter; + end; + end. \ No newline at end of file Index: InterbaseProcs.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/InterbaseProcs.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** InterbaseProcs.pas 21 Nov 2005 10:33:29 -0000 1.1 --- InterbaseProcs.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 37,41 **** {$IFDEF MSWindows} ! uses Windows; {$ENDIF} {$IFDEF LINUX} --- 37,41 ---- {$IFDEF MSWindows} ! uses Windows, SysUtils; {$ENDIF} {$IFDEF LINUX} *************** *** 60,95 **** const ! InterbaseLibrary = 'gds32.dll'; ! sBlank = ''; ! AttachProc = 'isc_attach_database'; ! DetachProc = 'isc_detach_database'; ! (* DBP constants *) ! isc_dpb_version1 = 1; ! isc_dpb_user_name = 28; ! isc_dpb_password = 29; ! isc_dpb_userrole = 60; ! function IBInstalled: Boolean; ! var ! LibHandle: THandle; ! begin try LibHandle := LoadLibrary(InterbaseLibrary); ! try ! Result := LibHandle <> 0; ! finally ! if LibHandle <> 0 then ! FreeLibrary(LibHandle); ! end; ! except ! Result := False; ! end; ! end; ! function IBDatabaseAvailable(DBPath, UserName, Password, Role: string): Boolean; ! var LibHandle: THandle; Attach: TiscAttachDatabase; --- 60,95 ---- const ! InterbaseLibrary = 'gds32.dll'; ! sBlank = ''; ! AttachProc = 'isc_attach_database'; ! DetachProc = 'isc_detach_database'; ! (* DBP constants *) ! isc_dpb_version1 = 1; ! isc_dpb_user_name = 28; ! isc_dpb_password = 29; ! isc_dpb_userrole = 60; ! function IBInstalled: Boolean; ! var ! LibHandle: THandle; ! begin try LibHandle := LoadLibrary(InterbaseLibrary); ! try ! Result := LibHandle <> 0; ! finally ! if LibHandle <> 0 then ! FreeLibrary(LibHandle); ! end; ! except ! Result := False; ! end; ! end; ! function IBDatabaseAvailable(DBPath, UserName, Password, Role: string): Boolean; ! var LibHandle: THandle; Attach: TiscAttachDatabase; *************** *** 104,108 **** try (* load the interbase library *) ! LibHandle := LoadLibrary(InterbaseLibrary); (* if the lib failed to load theres no point continuing *) --- 104,108 ---- try (* load the interbase library *) ! LibHandle := LoadLibrary(InterbaseLibrary); (* if the lib failed to load theres no point continuing *) *************** *** 128,132 **** Params := Params + Char(isc_dpb_password) + Char(Length(Password)) + Password; ! if Role <> sBlank then Params := Params + Char(isc_dpb_userrole) + --- 128,132 ---- Params := Params + Char(isc_dpb_password) + Char(Length(Password)) + Password; ! if Role <> sBlank then Params := Params + Char(isc_dpb_userrole) + *************** *** 151,155 **** (* disconnect the database connection *) TISCDetachDatabase(Detach)(Status, DBHandle); ! end; finally (* ensure we unload the library *) --- 151,156 ---- (* disconnect the database connection *) TISCDetachDatabase(Detach)(Status, DBHandle); ! end else ! raise Exception.Create('Could not attach to database'); finally (* ensure we unload the library *) *************** *** 158,162 **** except (* if theres an error then return false *) ! Result := False; end; end; --- 159,164 ---- except (* if theres an error then return false *) ! Result := False; ! raise; end; end; Index: OrckaTrayIcon.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaTrayIcon.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaTrayIcon.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaTrayIcon.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 37,44 **** X, Y: Longint) of object; TOrckaMouseMove = procedure(Sender: TObject; X, Y: Longint) of object; ! TCustomOrckaTrayIcon = class(TComponent) private ! IconData: TNotifyIconData; FTip: string; FHandle: Longint; --- 37,63 ---- X, Y: Longint) of object; TOrckaMouseMove = procedure(Sender: TObject; X, Y: Longint) of object; ! ! TBalloonIcon = (biNone, biInfo, biWarning, biError, biIcon); ! ! _NOTIFYICONDATAXP = record ! cbSize: DWORD; ! Wnd: HWND; ! uID: UINT; ! uFlags: UINT; ! uCallbackMessage: UINT; ! hIcon: HICON; ! szTip: array[0..127] of Char; ! dwState: DWORD; ! dwStateMask: DWORD; ! szInfo: array[0..255] of Char; ! uTimeOutVer: UINT; ! szInfoTitle: array[0..64] of Char; ! dwInfoFlags: DWORD; ! end; ! TNotifyIconDataXP = _NOTIFYICONDATAXP; ! TCustomOrckaTrayIcon = class(TComponent) private ! IconData: TNotifyIconDataXP; FTip: string; FHandle: Longint; *************** *** 68,77 **** procedure DoDblClick; virtual; procedure Loaded; override; ! procedure Notification(AComponent: TComponent; Operation: TOperation); override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure MoveLeft; property Active: Boolean read FActive write SetActive; property Icon: TIcon read FIcon write SetIcon; --- 87,99 ---- procedure DoDblClick; virtual; procedure Loaded; override; ! procedure Notification(AComponent: TComponent; Operation: TOperation); override; + function IsWinXPOrAbove(): Boolean; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure MoveLeft; + procedure ShowBalloonHint(Title, Tip: string; TimeOut: Integer; + BalloonIcon: TBalloonIcon); property Active: Boolean read FActive write SetActive; property Icon: TIcon read FIcon write SetIcon; *************** *** 102,106 **** property Tip; end; ! implementation --- 124,128 ---- property Tip; end; ! implementation *************** *** 108,112 **** const ! TASK_BAR_MESSAGE = $1F8F; constructor TCustomOrckaTrayIcon.Create(AOwner: TComponent); --- 130,147 ---- const ! TASK_BAR_MESSAGE = $00001F8F; ! NIF_INFO = $00000010; ! NIM_SETVERION = $00000004; ! VERSION5_SIZE = $000001E8; ! ! NIIF_NONE = $00000000; ! NIIF_INFO = $00000001; ! NIIF_WARNING = $00000002; ! NIIF_ERROR = $00000003; ! NIIF_ICON_MASK = $0000000F; ! NIIF_NOSOUND = $00000010; ! ! NIS_HIDDEN = $00000001; ! NIS_SHAREDICON = $00000002; constructor TCustomOrckaTrayIcon.Create(AOwner: TComponent); *************** *** 188,199 **** procedure TCustomOrckaTrayIcon.ShowTaskBarIcon; begin ! IconData.cbSize := SizeOf(TNotifyIconData); IconData.hIcon := FIcon.Handle; StrPCopy(IconData.szTip, FTip); IconData.uCallbackMessage := TASK_BAR_MESSAGE; IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; IconData.uID := Longint(Self); IconData.Wnd := FHandle; Shell_NotifyIcon(NIM_ADD, @IconData); end; --- 223,243 ---- procedure TCustomOrckaTrayIcon.ShowTaskBarIcon; begin ! if (csLoading in ComponentState) then ! Exit; ! ! if (IsWinXPOrAbove()) then ! IconData.cbSize := VERSION5_SIZE ! else ! IconData.cbSize := SizeOf(TNotifyIconData); IconData.hIcon := FIcon.Handle; StrPCopy(IconData.szTip, FTip); + //IconData.dwState := NIS_SHAREDICON; IconData.uCallbackMessage := TASK_BAR_MESSAGE; IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; IconData.uID := Longint(Self); IconData.Wnd := FHandle; + IconData.uTimeOutVer := 3; Shell_NotifyIcon(NIM_ADD, @IconData); + Shell_NotifyIcon(NIM_SETVERION, @IconData); end; *************** *** 243,247 **** inherited Loaded; if (Active) and (not (csDesigning in ComponentState)) then ! ShowTaskBarIcon; end; --- 287,291 ---- inherited Loaded; if (Active) and (not (csDesigning in ComponentState)) then ! ShowTaskBarIcon(); end; *************** *** 255,259 **** begin FActive := Value; ! if not (csLoading in ComponentState) or (csDesigning in ComponentState) then begin if Value then --- 299,303 ---- begin FActive := Value; ! if (not (csDesigning in ComponentState)) then begin if Value then *************** *** 303,306 **** end; end. - \ No newline at end of file --- 347,373 ---- end; + procedure TCustomOrckaTrayIcon.ShowBalloonHint(Title, Tip: string; + TimeOut: Integer; BalloonIcon: TBalloonIcon); + const + BalloonIconValues: array[TBalloonIcon] of Integer = (NIIF_NONE, NIIF_INFO, + NIIF_WARNING, NIIF_ERROR, NIIF_ICON_MASK); + begin + if (IsWinXPOrAbove()) then + begin + StrLCopy(IconData.szInfoTitle, PChar(Title), 64); + StrLCopy(IconData.szInfo, PChar(Tip), 256); + IconData.dwState := NIS_SHAREDICON; + IconData.uFlags := NIF_INFO; + IconData.uTimeOutVer := TimeOut; + IconData.dwInfoFlags := BalloonIconValues[BalloonIcon]; + + Shell_NotifyIcon(NIM_MODIFY, @IconData); + end; + end; + + function TCustomOrckaTrayIcon.IsWinXPOrAbove: Boolean; + begin + Result := (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1); + end; + end. Index: OrckaRegister.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Source/OrckaRegister.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** OrckaRegister.pas 21 Nov 2005 10:33:29 -0000 1.1 --- OrckaRegister.pas 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 29,44 **** {$I OrckaDV.inc} ! uses Classes, {$IFDEF Linux} ! DesignEditors, DesignIntf; {$ENDIF} {$IFDEF MSWindows} {$IFDEF DelphiVer6Up} ! DesignEditors, DesignIntf; {$ELSE} ! DsgnIntf; {$ENDIF} {$ENDIF} type TDefaultToolbarEditor = class(TPropertyEditor) --- 29,48 ---- {$I OrckaDV.inc} ! uses Classes {$IFDEF Linux} ! , DesignEditors, DesignIntf; {$ENDIF} {$IFDEF MSWindows} {$IFDEF DelphiVer6Up} ! , DesignEditors, DesignIntf; {$ELSE} ! , DsgnIntf; {$ENDIF} {$ENDIF} + {$IFDEF DelphiVer8Up} + ; + {$ENDIF} + {$IFNDEF DelphiVer8Up} type TDefaultToolbarEditor = class(TPropertyEditor) *************** *** 76,79 **** --- 80,84 ---- end; {$ENDIF} + {$ENDIF} procedure Register; *************** *** 81,92 **** implementation ! uses SysUtils, Dialogs, OrckaPluginManager, OrckaAddinManager, OrckaButton, ! OrckaTimer, OrckaWebLabel, OrckaLibraryLoader, OrckaSpellChecker, PluginModule, OrckaSpellCheckForm, OrckaStringGrid, ToolbarEditor, ExptIntf, EditIntf, ToolIntf, {$IFDEF MSWindows} ! Windows, Messages, Forms, Controls, ShellAPI, OrckaInterceptor, OrckaSubClass, ! OrckaGroupBox, OrckaEdit, OrckaScreenSaver, OrckaTrayIcon, OrckaVersionInfo, {$IFDEF InstallOrckaMap} OrckaMap, OrckaMapEditor, {$ENDIF} OrckaNotify, OrckaLabelEdit, OrckaDBLabelEdit, OrckaFontControls, OrckaRuler, OrckaMemo, --- 86,98 ---- implementation ! uses SysUtils, Dialogs, OrckaPluginManager, OrckaAddinManager, OrckaButton, ! OrckaWebLabel, OrckaLibraryLoader, OrckaSpellChecker, PluginModule, OrckaSpellCheckForm, OrckaStringGrid, ToolbarEditor, ExptIntf, EditIntf, ToolIntf, {$IFDEF MSWindows} ! Windows, Messages, Forms, Controls, ShellAPI, OrckaInterceptor, ! OrckaGroupBox, OrckaEdit, {$IFNDEF DelphiVer8Up}OrckaScreenSaver, ! OrckaTimer, OrckaVersionInfo, OrckaTrayIcon, OrckaSubClass, {$ENDIF} {$IFDEF InstallOrckaMap} OrckaMap, OrckaMapEditor, {$ENDIF} OrckaNotify, OrckaLabelEdit, OrckaDBLabelEdit, OrckaFontControls, OrckaRuler, OrckaMemo, Index: PluginModule.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2... [truncated message content] |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:51
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Prog In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase/Prog Modified Files: Customer.dll IB_DB_SHARE.exe IB_DB_SHARE.ini Log Message: 2.5 Import Index: Customer.dll =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Prog/Customer.dll,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvshwffqA and /tmp/cvs6jgLYT differ Index: IB_DB_SHARE.exe =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Prog/IB_DB_SHARE.exe,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsd71DYB and /tmp/cvsRZY9GV differ Index: IB_DB_SHARE.ini =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Prog/IB_DB_SHARE.ini,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IB_DB_SHARE.ini 21 Nov 2005 10:33:28 -0000 1.1 --- IB_DB_SHARE.ini 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 1,3 **** [Database] ! DB Location=C:\Program Files\Firebird\Firebird_1_5_64000\examples\EMPLOYEE.FDB ! Password=masterkey --- 1,2 ---- [Database] ! DB Location=C:\Program Files\Firebird\Firebird_1_5\examples\*.* |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:51
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/TB2000 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/TB2000 Modified Files: Demo1.pas Log Message: 2.5 Import |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:51
|
Update of /cvsroot/ocs-comps/OCS2/Help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Help Modified Files: ORCKAPLUGINMANAGER.GID Log Message: 2.5 Import Index: ORCKAPLUGINMANAGER.GID =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Help/ORCKAPLUGINMANAGER.GID,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsfxDv7C and /tmp/cvsfdM8RT differ |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/SpellCheck/Visual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/SpellCheck/Visual Modified Files: SpellCheck.dsk Unit1.dfm Log Message: 2.5 Import Index: SpellCheck.dsk =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/SpellCheck/Visual/SpellCheck.dsk,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SpellCheck.dsk 21 Nov 2005 10:33:29 -0000 1.1 --- SpellCheck.dsk 21 Nov 2005 14:15:40 -0000 1.2 *************** *** 11,52 **** [Modules] ! Module0=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas ! Module1=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas ! Module2=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas ! Module3=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr ! Count=4 EditWindowCount=1 ! [D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 ! [D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas] ! ModuleType=SourceModule ! FormState=0 ! FormOnTop=0 ! ! [D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas] ModuleType=SourceModule ! FormState=0 FormOnTop=0 ! [D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [D:\Program Files\Borland\Delphi6\Projects\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=4 CurrentView=2 View0=0 View1=1 View2=2 - View3=3 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 --- 11,45 ---- [Modules] ! Module0=C:\Program Files\orcka\component suite\source\OrckaSpellCheckForm.pas ! Module1=C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\Unit1.pas ! Module2=C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr ! Count=3 EditWindowCount=1 ! [C:\Program Files\orcka\component suite\source\OrckaSpellCheckForm.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\Unit1.pas] ModuleType=SourceModule ! FormState=1 FormOnTop=0 ! [C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 ! [C:\Projects\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ! ViewCount=3 CurrentView=2 View0=0 View1=1 View2=2 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 *************** *** 54,73 **** Visible=1 State=0 ! Left=272 ! Top=110 ! Width=742 ! Height=546 MaxLeft=-1 MaxTop=-1 ! ClientWidth=734 ! ClientHeight=519 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=00000400010000000B0000004D65737361676556696577DE02000000000000023400000000000000010000000000000000000000000100000000DF020000000000000100000000DE020000000000000100000000DE02000000000000FFFFFFFF [View0] ! Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr CursorX=6 CursorY=5 --- 47,66 ---- Visible=1 State=0 ! Left=278 ! Top=109 ! Width=740 ! Height=620 MaxLeft=-1 MaxTop=-1 ! ClientWidth=732 ! ClientHeight=586 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 ! BottomPanelData=00000400010000000B0000004D65737361676556696577DC02000000000000025500000000000000010000000000000000000000000100000000DC02000000000000FFFFFFFF [View0] ! Module=C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\SpellCheck.dpr CursorX=6 CursorY=5 *************** *** 76,97 **** [View1] ! Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\SpellCheck\Visual\Unit1.pas ! CursorX=35 ! CursorY=9 TopLine=1 LeftCol=1 [View2] ! Module=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellCheckForm.pas ! CursorX=15 ! CursorY=446 ! TopLine=438 ! LeftCol=1 ! ! [View3] ! Module=D:\Program Files\Orcka\Component Suite\Source\OrckaSpellChecker.pas CursorX=1 ! CursorY=105 ! TopLine=103 LeftCol=1 --- 69,83 ---- [View1] ! Module=C:\Program Files\orcka\component suite\Samples\VCL\SpellCheck\Visual\Unit1.pas ! CursorX=1 ! CursorY=1 TopLine=1 LeftCol=1 [View2] ! Module=C:\Program Files\orcka\component suite\source\OrckaSpellCheckForm.pas CursorX=1 ! CursorY=329 ! TopLine=315 LeftCol=1 *************** *** 99,102 **** --- 85,106 ---- Count=0 + [WatchWindow] + WatchColumnWidth=100 + WatchShowColumnHeaders=1 + Create=1 + Visible=0 + State=0 + Left=12 + Top=525 + Width=517 + Height=217 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=509 + ClientHeight=191 + TBDockHeight=157 + LRDockWidth=426 + Dockable=1 + [Breakpoints] Count=0 *************** *** 112,116 **** Top=0 Width=1024 ! Height=105 MaxLeft=-1 MaxTop=-1 --- 116,120 ---- Top=0 Width=1024 ! Height=112 MaxLeft=-1 MaxTop=-1 *************** *** 124,137 **** Left=0 Top=0 ! Width=223 ! Height=479 MaxLeft=-1 MaxTop=-1 ! ClientWidth=223 ! ClientHeight=479 TBDockHeight=303 LRDockWidth=438 Dockable=1 [AlignmentPalette] Create=1 --- 128,158 ---- Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 TBDockHeight=303 LRDockWidth=438 Dockable=1 + [CPUWindow] + Create=1 + Visible=0 + State=0 + Left=85 + Top=101 + Width=853 + Height=565 + MaxLeft=-1 + MaxTop=-1 + ClientWidth=845 + ClientHeight=531 + DumpPane=79 + DisassemblyPane=187 + RegisterPane=231 + FlagPane=64 + [AlignmentPalette] Create=1 *************** *** 141,145 **** Top=107 Width=156 ! Height=82 MaxLeft=-1 MaxTop=-1 --- 162,166 ---- Top=107 Width=156 ! Height=84 MaxLeft=-1 MaxTop=-1 *************** *** 153,186 **** Left=0 Top=0 ! Width=223 ! Height=479 MaxLeft=-1 MaxTop=-1 ! ClientWidth=223 ! ClientHeight=479 ! TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name ! SelectedItem=Name ! ExpandedItems=Value ! HiddenCategories=Legacy ! ! [WatchWindow] ! Create=1 ! Visible=0 ! State=0 ! Left=10 ! Top=554 ! Width=516 ! Height=179 ! MaxLeft=-1 ! MaxTop=-1 ! ClientWidth=508 ! ClientHeight=155 ! TBDockHeight=149 ! LRDockWidth=421 ! Dockable=1 [BreakpointWindow] --- 174,191 ---- Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 ! TBDockHeight=381 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name ! SelectedItem=CustomDictionary ! ExpandedItems= ! HiddenCategories= [BreakpointWindow] *************** *** 188,201 **** Visible=0 State=0 ! Left=10 ! Top=554 ! Width=516 ! Height=179 MaxLeft=-1 MaxTop=-1 ! ClientWidth=508 ! ClientHeight=155 ! TBDockHeight=197 ! LRDockWidth=737 Dockable=1 Column0Width=100 --- 193,206 ---- Visible=0 State=0 ! Left=12 ! Top=525 ! Width=517 ! Height=217 MaxLeft=-1 MaxTop=-1 ! ClientWidth=509 ! ClientHeight=191 ! TBDockHeight=151 ! LRDockWidth=205 Dockable=1 Column0Width=100 *************** *** 210,221 **** Visible=0 State=0 ! Left=10 ! Top=554 ! Width=516 ! Height=179 MaxLeft=-1 MaxTop=-1 ! ClientWidth=508 ! ClientHeight=155 TBDockHeight=161 LRDockWidth=294 --- 215,226 ---- Visible=0 State=0 ! Left=12 ! Top=525 ! Width=517 ! Height=217 MaxLeft=-1 MaxTop=-1 ! ClientWidth=509 ! ClientHeight=191 TBDockHeight=161 LRDockWidth=294 *************** *** 226,238 **** Visible=0 State=0 ! Left=0 ! Top=0 ! Width=615 ! Height=546 MaxLeft=-1 MaxTop=-1 ! ClientWidth=607 ! ClientHeight=522 ! TBDockHeight=152 LRDockWidth=624 Dockable=1 --- 231,243 ---- Visible=0 State=0 ! Left=6 ! Top=475 ! Width=550 ! Height=241 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 ! TBDockHeight=211 LRDockWidth=624 Dockable=1 *************** *** 242,278 **** Column3Width=250 - [ModuleWindow] - Create=1 - Visible=0 - State=0 - Left=10 - Top=554 - Width=516 - Height=179 - MaxLeft=-1 - MaxTop=-1 - ClientWidth=508 - ClientHeight=155 - TBDockHeight=118 - LRDockWidth=353 - Dockable=1 - Column0Width=125 - Column1Width=100 - Column2Width=155 - EntryPointPane=225 - CompUnitPane=104 - [ObjectTree] Create=1 ! Visible=0 State=0 Left=0 ! Top=105 ! Width=190 ! Height=252 MaxLeft=-1 MaxTop=-1 ! ClientWidth=182 ! ClientHeight=228 TBDockHeight=252 LRDockWidth=190 --- 247,262 ---- Column3Width=250 [ObjectTree] Create=1 ! Visible=1 State=0 Left=0 ! Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 TBDockHeight=252 LRDockWidth=190 *************** *** 283,314 **** Visible=0 State=0 ! Left=10 ! Top=554 ! Width=516 ! Height=179 MaxLeft=-1 MaxTop=-1 ! ClientWidth=508 ! ClientHeight=155 TBDockHeight=291 LRDockWidth=417 Dockable=1 - [LocalVarsWindow] - Create=1 - Visible=0 - State=0 - Left=10 - Top=462 - Width=421 - Height=189 - MaxLeft=-1 - MaxTop=-1 - ClientWidth=413 - ClientHeight=165 - TBDockHeight=189 - LRDockWidth=421 - Dockable=1 - [CodeExplorer@EditWindow0] Create=1 --- 267,282 ---- Visible=0 State=0 ! Left=6 ! Top=475 ! Width=550 ! Height=241 MaxLeft=-1 MaxTop=-1 ! ClientWidth=542 ! ClientHeight=215 TBDockHeight=291 LRDockWidth=417 Dockable=1 [CodeExplorer@EditWindow0] Create=1 *************** *** 317,326 **** Left=0 Top=0 ! Width=223 ! Height=479 MaxLeft=-1 MaxTop=-1 ! ClientWidth=223 ! ClientHeight=479 TBDockHeight=305 LRDockWidth=140 --- 285,294 ---- Left=0 Top=0 ! Width=235 ! Height=506 MaxLeft=-1 MaxTop=-1 ! ClientWidth=235 ! ClientHeight=506 TBDockHeight=305 LRDockWidth=140 *************** *** 333,343 **** Left=12 Top=0 ! Width=722 ! Height=52 MaxLeft=-1 MaxTop=-1 ! ClientWidth=722 ! ClientHeight=52 ! TBDockHeight=52 LRDockWidth=443 Dockable=1 --- 301,311 ---- Left=12 Top=0 ! Width=720 ! Height=85 MaxLeft=-1 MaxTop=-1 ! ClientWidth=720 ! ClientHeight=85 ! TBDockHeight=85 LRDockWidth=443 Dockable=1 *************** *** 352,367 **** State=0 Left=0 ! Top=107 ! Width=258 ! Height=511 MaxLeft=-1 MaxTop=-1 ! ClientWidth=250 ! ClientHeight=487 ! TBDockHeight=511 ! LRDockWidth=258 Dockable=1 TabPosition=2 ActiveTab=Object Inspector ! TabDockClients=PropertyInspector,ProjectManager,CodeExplorer@EditWindow0 --- 320,335 ---- State=0 Left=0 ! Top=113 ! Width=270 ! Height=540 MaxLeft=-1 MaxTop=-1 ! ClientWidth=262 ! ClientHeight=514 ! TBDockHeight=381 ! LRDockWidth=190 Dockable=1 TabPosition=2 ActiveTab=Object Inspector ! TabDockClients=PropertyInspector,CodeExplorer@EditWindow0,ObjectTree,ProjectManager Index: Unit1.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/SpellCheck/Visual/Unit1.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvshmdxLU and /tmp/cvsTLDmaf differ |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Host In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase/Host Modified Files: IB_DB_SHARE.cfg IB_DB_SHARE.dof uMain.dfm uMain.pas Log Message: 2.5 Import Index: uMain.dfm =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Host/uMain.dfm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** uMain.dfm 21 Nov 2005 10:33:28 -0000 1.1 --- uMain.dfm 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 19,23 **** Top = 0 Width = 640 ! Height = 63 Align = alClient AutoSize = True --- 19,23 ---- Top = 0 Width = 640 ! Height = 71 Align = alClient AutoSize = True *************** *** 28,32 **** object StatusBar1: TStatusBar Left = 0 ! Top = 63 Width = 640 Height = 19 --- 28,32 ---- object StatusBar1: TStatusBar Left = 0 ! Top = 71 Width = 640 Height = 19 *************** *** 41,44 **** --- 41,45 ---- Width = 50 end> + SimplePanel = False end object MainMenu1: TMainMenu *************** *** 69,73 **** ControlBar = ControlBar1 FlatButtons = True - ButtonSize = 26 Toolbars.DefaultToolbar = 'PluginToolbar' Toolbars.Public = True --- 70,73 ---- *************** *** 85,92 **** end object IBDatabase1: TIBDatabase - Params.Strings = ( - 'user_name=sysdba' - 'password=masterkey') - LoginPrompt = False DefaultTransaction = IBTransaction1 IdleTimer = 0 --- 85,88 ---- *************** *** 105,110 **** object OpenDialog1: TOpenDialog FileName = 'employee.gdb' ! Filter = 'Sample Employee Database|employee.fdb|All Files|*.*' ! Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing] Left = 104 Top = 32 --- 101,106 ---- object OpenDialog1: TOpenDialog FileName = 'employee.gdb' ! Filter = 'Sample Employee Database|employee.gdb' ! Options = [ofHideReadOnly, ofNoValidate, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing] Left = 104 Top = 32 Index: IB_DB_SHARE.cfg =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Host/IB_DB_SHARE.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IB_DB_SHARE.cfg 21 Nov 2005 10:33:28 -0000 1.1 --- IB_DB_SHARE.cfg 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 35,39 **** -LE"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files\borland\delphi7\Projects\Bpl" - -w-UNSAFE_TYPE - -w-UNSAFE_CODE - -w-UNSAFE_CAST --- 35,36 ---- Index: uMain.pas =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Host/uMain.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** uMain.pas 21 Nov 2005 10:33:28 -0000 1.1 --- uMain.pas 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 161,165 **** end; ! IBDatabase1.DatabaseName := '127.0.0.1/64000:' + dbName; IBDatabase1.Params.Text := 'user_name=sysdba'; if dbPassword <> '' then --- 161,165 ---- end; ! IBDatabase1.DatabaseName := dbName; IBDatabase1.Params.Text := 'user_name=sysdba'; if dbPassword <> '' then Index: IB_DB_SHARE.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Host/IB_DB_SHARE.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** IB_DB_SHARE.dof 21 Nov 2005 10:33:28 -0000 1.1 --- IB_DB_SHARE.dof 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 77,83 **** SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=0 ! UnsafeCode=0 ! UnsafeCast=0 [Linker] MapFile=0 --- 77,83 ---- SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=1 ! UnsafeCode=1 ! UnsafeCast=1 [Linker] MapFile=0 *************** *** 135,138 **** ProductVersion=1.0.0.0 Comments= - [Excluded Packages] - c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) --- 135,136 ---- |
|
From: Si C. <tec...@us...> - 2005-11-21 14:15:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv501/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer Modified Files: Customer.cfg Customer.dof Log Message: 2.5 Import Index: Customer.cfg =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer/Customer.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Customer.cfg 21 Nov 2005 10:33:28 -0000 1.1 --- Customer.cfg 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 39,43 **** -I"..\..\" -R"..\..\" - -w-UNSAFE_TYPE - -w-UNSAFE_CODE - -w-UNSAFE_CAST --- 39,40 ---- Index: Customer.dof =================================================================== RCS file: /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer/Customer.dof,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Customer.dof 21 Nov 2005 10:33:28 -0000 1.1 --- Customer.dof 21 Nov 2005 14:15:39 -0000 1.2 *************** *** 77,83 **** SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=0 ! UnsafeCode=0 ! UnsafeCast=0 [Linker] MapFile=0 --- 77,83 ---- SuspiciousTypecast=1 PrivatePropAccessor=1 ! UnsafeType=1 ! UnsafeCode=1 ! UnsafeCast=1 [Linker] MapFile=0 *************** *** 135,138 **** ProductVersion=1.0.0.0 Comments= - [Excluded Packages] - c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) --- 135,136 ---- |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:51
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Country Added Files: Country.cfg Country.dof Country.dpr Country.res CountryForm.dfm CountryForm.pas CountryUnit.pas earth.ico images.rc images.res Log Message: Initially added to source control --- NEW FILE: images.rc --- COUNTRYICON ICON "earth.ico" --- NEW FILE: Country.dpr --- library Country; {$R 'images.res' 'images.rc'} uses CountryUnit in 'CountryUnit.pas', CountryForm in 'CountryForm.pas' {frmCountry}; {$R *.res} begin end. --- NEW FILE: earth.ico --- (This appears to be a binary file; contents omitted.) --- NEW FILE: CountryForm.pas --- unit CountryForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBCustomDataSet, IBUpdateSQL, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, IBTable, IBDatabase, AppEvnts; type TfrmCountry = class(TForm) IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBTable1: TIBTable; DataSource1: TDataSource; IBTable1COUNTRY: TIBStringField; IBTable1CURRENCY: TIBStringField; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Bevel1: TBevel; DBNavigator1: TDBNavigator; Button1: TButton; IBUpdateSQL1: TIBUpdateSQL; Button2: TButton; ApplicationEvents1: TApplicationEvents; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public constructor CreateCountryForm(DBHandle: Pointer); destructor Destroy; override; end; implementation {$R *.dfm} { TfrmCountry } constructor TfrmCountry.CreateCountryForm(DBHandle: Pointer); begin inherited Create(nil); IBDatabase1.SetHandle(DBHandle); IBTable1.Open; end; destructor TfrmCountry.Destroy; begin IBDatabase1.Close; inherited Destroy; end; procedure TfrmCountry.Button1Click(Sender: TObject); begin Close; end; procedure TfrmCountry.Button2Click(Sender: TObject); begin if (Assigned(ApplicationHandleException)) then begin raise exception.create('test'); end; end; end. --- NEW FILE: Country.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=0 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=$(DELPHI)\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\ Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog\IB_DB_SHARE.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Borland\Delphi6\Bin\ [Version Info] IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=2 Item0=$(DELPHI)\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\ Item1=..\..\ [HistoryLists\hlOutputDirectorry] Count=2 Item0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog Item1=..\..\Prog --- NEW FILE: Country.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O- -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -E"C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog" -LE"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files\borland\delphi7\Projects\Bpl" -U"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" -O"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" -I"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" -R"c:\program files\borland\delphi7\Lib\Debug;C:\Projects\COMPON~1\jcl\lib\D7\debug;..\..\" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: CountryForm.dfm --- object frmCountry: TfrmCountry Left = 227 Top = 110 BorderStyle = bsDialog Caption = 'Country' ClientHeight = 177 ClientWidth = 258 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 53 Height = 13 Caption = 'COUNTRY' FocusControl = DBEdit1 end object Label2: TLabel Left = 8 Top = 56 Width = 60 Height = 13 Caption = 'CURRENCY' FocusControl = DBEdit2 end object Bevel1: TBevel Left = 8 Top = 136 Width = 241 Height = 2 end object DBEdit1: TDBEdit Left = 8 Top = 24 Width = 199 Height = 21 DataField = 'COUNTRY' DataSource = DataSource1 TabOrder = 0 end object DBEdit2: TDBEdit Left = 8 Top = 72 Width = 134 Height = 21 DataField = 'CURRENCY' DataSource = DataSource1 TabOrder = 1 end object DBNavigator1: TDBNavigator Left = 8 Top = 104 Width = 240 Height = 25 DataSource = DataSource1 TabOrder = 2 end object Button1: TButton Left = 176 Top = 144 Width = 75 Height = 25 Caption = '&Close' TabOrder = 3 OnClick = Button1Click end object Button2: TButton Left = 208 Top = 64 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 4 OnClick = Button2Click end object IBDatabase1: TIBDatabase DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb' Params.Strings = ( 'user_name=sysdba') DefaultTransaction = IBTransaction1 IdleTimer = 0 SQLDialect = 1 TraceFlags = [] Left = 8 Top = 144 end object IBTransaction1: TIBTransaction Active = False DefaultDatabase = IBDatabase1 AutoStopAction = saNone Left = 40 Top = 144 end object IBTable1: TIBTable Database = IBDatabase1 Transaction = IBTransaction1 BufferChunks = 1000 CachedUpdates = False TableName = 'COUNTRY' UpdateObject = IBUpdateSQL1 Left = 72 Top = 144 object IBTable1COUNTRY: TIBStringField FieldName = 'COUNTRY' Required = True Size = 15 end object IBTable1CURRENCY: TIBStringField FieldName = 'CURRENCY' Required = True Size = 10 end end object DataSource1: TDataSource DataSet = IBTable1 Left = 104 Top = 144 end object IBUpdateSQL1: TIBUpdateSQL RefreshSQL.Strings = ( 'Select ' ' RDB$DB_KEY as IBX_INTERNAL_DBKEY, ' ' COUNTRY,' ' CURRENCY' 'from COUNTRY ' 'where' ' COUNTRY = :COUNTRY') ModifySQL.Strings = ( 'update COUNTRY' 'set' ' COUNTRY = :COUNTRY,' ' CURRENCY = :CURRENCY' 'where' ' COUNTRY = :OLD_COUNTRY') InsertSQL.Strings = ( 'insert into COUNTRY' ' (COUNTRY, CURRENCY)' 'values' ' (:COUNTRY, :CURRENCY)') DeleteSQL.Strings = ( 'delete from COUNTRY' 'where' ' COUNTRY = :OLD_COUNTRY') Left = 136 Top = 144 end object ApplicationEvents1: TApplicationEvents Left = 176 Top = 64 end end --- NEW FILE: images.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: CountryUnit.pas --- unit CountryUnit; interface uses Windows, Messages, OrckaPluginManagerShared, HostShared; type TCountry = class(TPluginClient) private FService: TPluginServices; FHostShared: THostShared; (* Button's *) FbtnCountry: TOButtonItem; (* Menu's *) FmnuViewCountry: TOMenuItem; protected (* Button Click Events *) procedure btnCountryClickEvent(Sender: TOButtonItem); (* Menu Click Events *) procedure mnuViewCountryClickEvent(Sender: TOMenuItem); procedure ShowCountryEditor; public constructor CreateNew(AService: TPluginServices); destructor Destroy; override; (* Returns the name of the plugin *) function GetName: TOString; override; (* Functions which control the creation and deletion of menu items and toolbar buttons *) procedure CreateMenuItems; override; procedure DeleteMenuItems; override; procedure CreateButtons; override; procedure DeleteButtons; override; (* General functions for applications, can be used to control open/save/close/create documents, Close the application *) procedure Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterClose(PEType: TPluginEventType); override; procedure BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterNew(PEType: TPluginEventType); override; (* Application Events *) procedure OnActivate; override; procedure OnDeactivate; override; procedure OnMinimize; override; procedure OnRestore; override; procedure OnException(ClassName: TMediumString; ErrorMessage: TLargeString); override; procedure OnHelp(Command: Word; Data: Longint; var CallHelp: Boolean); override; procedure OnHint; override; procedure OnIdle(var Done: Boolean); override; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override; procedure OnSettingsChanged(Flag: Integer; const Section: string; var Result: Longint); override; procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override; end; implementation uses SysUtils, CountryForm; var Plugin: TCountry = nil; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := TCountry.CreateNew(TPluginServices(InParams.PluginService)); Plugin.FHostShared := THostShared(InParams.User); ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'Country'); FillChar(Description, SizeOf(TMediumString), 0); StrPCopy(Description, 'Country Description'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TNewPlugin } { Button Click Events } procedure TCountry.btnCountryClickEvent(Sender: TOButtonItem); begin ShowCountryEditor; end; (* Menu Click Events *) procedure TCountry.mnuViewCountryClickEvent(Sender: TOMenuItem); begin ShowCountryEditor; end; { Standard methods } procedure TCountry.AfterClose(PEType: TPluginEventType); begin end; procedure TCountry.AfterNew(PEType: TPluginEventType); begin end; procedure TCountry.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TCountry.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TCountry.CreateButtons; begin (* Add the Toolbar's *) FService.InsertToolbar(StringToOString('View')); (* Insert the Button's *) FbtnCountry := FService.InsertButton(1, StringToOString('View'), StringToOString('Country|View or ammend country and currency details'), btnCountryClickEvent); FbtnCountry.SetImageIndex(FService.AddIcon(LoadIcon(Hinstance, 'COUNTRYICON'))); FbtnCountry.SetCaption('Country'); end; procedure TCountry.CreateMenuItems; var mnuTemp: TOMenuItem; begin mnuTemp := FService.FindMenu(StringToOString('mnuView')); if not Assigned(mnuTemp) then mnuTemp := FService.InsertMenu(1, nil, '&View', nil); if Assigned(mnuTemp) then FmnuViewCountry := FService.InsertMenu(0, mnuTemp, StringToOString('&Country'), mnuViewCountryClickEvent); end; constructor TCountry.CreateNew(AService: TPluginServices); begin inherited Create; FService := AService; FService.PluginClientInsert(Self); FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars); end; procedure TCountry.DeleteButtons; begin (* Remove the Button's *) FService.RemoveButton(FbtnCountry); (* Remove the Toolbar's *) FService.DeleteToolbar(StringToOString('View')); end; procedure TCountry.DeleteMenuItems; begin FService.RemoveMenu(FmnuViewCountry); end; destructor TCountry.Destroy; begin FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars); FService.PluginClientRemove(Self); inherited Destroy; end; function TCountry.GetName: TOString; begin Result := StringToOString('Country'); end; procedure TCountry.OnActivate; begin end; procedure TCountry.OnDeactivate; begin end; procedure TCountry.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure TCountry.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure TCountry.OnHint; begin end; procedure TCountry.OnIdle(var Done: Boolean); begin end; procedure TCountry.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure TCountry.OnMinimize; begin end; procedure TCountry.OnRestore; begin end; procedure TCountry.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure TCountry.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure TCountry.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TCountry.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TCountry.ShowCountryEditor; var frmCountry: TfrmCountry; begin FHostShared.SetTitle('[Country]'); frmCountry := TfrmCountry.CreateCountryForm(FService.GetDatabaseHandle); try frmCountry.ShowModal; finally FHostShared.SetTitle(''); FreeAndNil(frmCountry); end; end; end. --- NEW FILE: Country.res --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:51
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Button In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Button Added Files: Button.dpr Button.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: Button.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, OrckaButton, StdCtrls; type TForm1 = class(TForm) OrckaButton1: TOrckaButton; OrckaButton2: TOrckaButton; OrckaButton3: TOrckaButton; OrckaButton4: TOrckaButton; OrckaButton5: TOrckaButton; OrckaButton6: TOrckaButton; OrckaButton7: TOrckaButton; OrckaButton8: TOrckaButton; OrckaButton9: TOrckaButton; Button1: TButton; Button2: TButton; CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); private FButtonPos: array[1..9, 0..1] of integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin FButtonPos[1,0] := OrckaButton1.Top; FButtonPos[2,0] := OrckaButton2.Top; FButtonPos[3,0] := OrckaButton3.Top; FButtonPos[4,0] := OrckaButton4.Top; FButtonPos[5,0] := OrckaButton5.Top; FButtonPos[6,0] := OrckaButton6.Top; FButtonPos[7,0] := OrckaButton7.Top; FButtonPos[8,0] := OrckaButton8.Top; FButtonPos[9,0] := OrckaButton9.Top; FButtonPos[1,1] := OrckaButton1.Left; FButtonPos[2,1] := OrckaButton2.Left; FButtonPos[3,1] := OrckaButton3.Left; FButtonPos[4,1] := OrckaButton4.Left; FButtonPos[5,1] := OrckaButton5.Left; FButtonPos[6,1] := OrckaButton6.Left; FButtonPos[7,1] := OrckaButton7.Left; FButtonPos[8,1] := OrckaButton8.Left; FButtonPos[9,1] := OrckaButton9.Left; end; procedure TForm1.Button1Click(Sender: TObject); begin OrckaButton1.Position := 0; OrckaButton2.Position := 1; OrckaButton3.Position := 2; OrckaButton4.Position := 3; OrckaButton5.Position := 4; OrckaButton6.Position := 5; OrckaButton7.Position := 6; OrckaButton8.Position := 7; OrckaButton9.Position := 8; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then OrckaButton1.AlignTopLeft := True else begin OrckaButton1.AlignTopLeft := False; OrckaButton1.Left := FButtonPos[1,1]; OrckaButton1.Top := FButtonPos[1,0]; end; end; procedure TForm1.Button2Click(Sender: TObject); begin OrckaButton1.Position := -1; OrckaButton2.Position := -1; OrckaButton3.Position := -1; OrckaButton4.Position := -1; OrckaButton5.Position := -1; OrckaButton6.Position := -1; OrckaButton7.Position := -1; OrckaButton8.Position := -1; OrckaButton9.Position := -1; OrckaButton1.Top := FButtonPos[1,0]; OrckaButton2.Top := FButtonPos[2,0]; OrckaButton3.Top := FButtonPos[3,0]; OrckaButton4.Top := FButtonPos[4,0]; OrckaButton5.Top := FButtonPos[5,0]; OrckaButton6.Top := FButtonPos[6,0]; OrckaButton7.Top := FButtonPos[7,0]; OrckaButton8.Top := FButtonPos[8,0]; OrckaButton9.Top := FButtonPos[9,0]; OrckaButton1.Left := FButtonPos[1,1]; OrckaButton2.Left := FButtonPos[2,1]; OrckaButton3.Left := FButtonPos[3,1]; OrckaButton4.Left := FButtonPos[4,1]; OrckaButton5.Left := FButtonPos[5,1]; OrckaButton6.Left := FButtonPos[6,1]; OrckaButton7.Left := FButtonPos[7,1]; OrckaButton8.Left := FButtonPos[8,1]; OrckaButton9.Left := FButtonPos[9,1]; end; procedure TForm1.CheckBox2Click(Sender: TObject); var bs: TOrckaButtonStyle; begin if CheckBox2.Checked then bs := obVSeperator else bs := obButton; OrckaButton2.ButtonStyle := bs; OrckaButton4.ButtonStyle := bs; OrckaButton6.ButtonStyle := bs; OrckaButton8.ButtonStyle := bs; end; end. --- NEW FILE: Button.dpr --- program Button; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Parts Added Files: images.rc images.res Parts.cfg Parts.dof Parts.dpr Parts.res PartsForm.dfm PartsForm.pas PartsUnit.pas WRENCH.ICO Log Message: Initially added to source control --- NEW FILE: images.rc --- PARTSICON ICON "Wrench.ico" --- NEW FILE: Parts.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=0 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=..\..\ Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog\IB_DB_SHARE.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Borland\Delphi6\Bin\ [Version Info] IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=..\..\ [HistoryLists\hlOutputDirectorry] Count=1 Item0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog --- NEW FILE: PartsForm.dfm --- object frmParts: TfrmParts Left = 230 Top = 107 BorderStyle = bsDialog Caption = 'Parts' ClientHeight = 411 ClientWidth = 256 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 368 Width = 241 Height = 2 end object Label1: TLabel Left = 8 Top = 8 Width = 43 Height = 13 Caption = 'ITEM_ID' FocusControl = DBEdit1 end object Label2: TLabel Left = 8 Top = 48 Width = 72 Height = 13 Caption = 'SPEC_ID_REF' FocusControl = DBEdit2 end object Label3: TLabel Left = 8 Top = 88 Width = 104 Height = 13 Caption = 'CURRENCY_ID_REF' FocusControl = DBEdit3 end object Label4: TLabel Left = 8 Top = 128 Width = 26 Height = 13 Caption = 'ITEM' end object Label5: TLabel Left = 8 Top = 240 Width = 32 Height = 13 Caption = 'PRICE' FocusControl = DBEdit5 end object Label6: TLabel Left = 8 Top = 280 Width = 56 Height = 13 Caption = 'DISCOUNT' FocusControl = DBEdit6 end object DBNavigator1: TDBNavigator Left = 8 Top = 336 Width = 240 Height = 25 DataSource = DataSource1 TabOrder = 0 end object Button1: TButton Left = 176 Top = 376 Width = 75 Height = 25 Caption = '&Close' TabOrder = 1 OnClick = Button1Click end object DBEdit1: TDBEdit Left = 8 Top = 24 Width = 134 Height = 21 DataField = 'ITEM_ID' DataSource = DataSource1 TabOrder = 2 end object DBEdit2: TDBEdit Left = 8 Top = 64 Width = 134 Height = 21 DataField = 'SPEC_ID_REF' DataSource = DataSource1 TabOrder = 3 end object DBEdit3: TDBEdit Left = 8 Top = 104 Width = 134 Height = 21 DataField = 'CURRENCY_ID_REF' DataSource = DataSource1 TabOrder = 4 end object DBEdit5: TDBEdit Left = 8 Top = 256 Width = 134 Height = 21 DataField = 'PRICE' DataSource = DataSource1 TabOrder = 5 end object DBEdit6: TDBEdit Left = 8 Top = 296 Width = 69 Height = 21 DataField = 'DISCOUNT' DataSource = DataSource1 TabOrder = 6 end object DBMemo1: TDBMemo Left = 8 Top = 144 Width = 185 Height = 89 DataField = 'ITEM' DataSource = DataSource1 TabOrder = 7 end object IBDatabase1: TIBDatabase DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb' Params.Strings = ( 'user_name=sysdba') DefaultTransaction = IBTransaction1 IdleTimer = 0 SQLDialect = 1 TraceFlags = [] Left = 8 Top = 376 end object IBTransaction1: TIBTransaction Active = False DefaultDatabase = IBDatabase1 AutoStopAction = saNone Left = 40 Top = 376 end object IBTable1: TIBTable Database = IBDatabase1 Transaction = IBTransaction1 BufferChunks = 1000 CachedUpdates = False TableName = 'ITEMS' UpdateObject = IBUpdateSQL1 Left = 72 Top = 376 object IBTable1ITEM_ID: TIntegerField FieldName = 'ITEM_ID' Required = True end object IBTable1SPEC_ID_REF: TIntegerField FieldName = 'SPEC_ID_REF' end object IBTable1CURRENCY_ID_REF: TIntegerField FieldName = 'CURRENCY_ID_REF' end object IBTable1ITEM: TIBStringField FieldName = 'ITEM' Size = 100 end object IBTable1PRICE: TIBBCDField FieldName = 'PRICE' Precision = 9 Size = 2 end object IBTable1DISCOUNT: TIBBCDField FieldName = 'DISCOUNT' Precision = 4 Size = 2 end end object DataSource1: TDataSource DataSet = IBTable1 Left = 104 Top = 376 end object IBUpdateSQL1: TIBUpdateSQL RefreshSQL.Strings = ( 'Select ' ' RDB$DB_KEY as IBX_INTERNAL_DBKEY, ' ' ITEM_ID,' ' SPEC_ID_REF,' ' CURRENCY_ID_REF,' ' ITEM,' ' PRICE,' ' DISCOUNT' 'from ITEMS ' 'where' ' ITEM_ID = :ITEM_ID') ModifySQL.Strings = ( 'update ITEMS' 'set' ' ITEM_ID = :ITEM_ID,' ' SPEC_ID_REF = :SPEC_ID_REF,' ' CURRENCY_ID_REF = :CURRENCY_ID_REF,' ' ITEM = :ITEM,' ' PRICE = :PRICE,' ' DISCOUNT = :DISCOUNT' 'where' ' ITEM_ID = :OLD_ITEM_ID') InsertSQL.Strings = ( 'insert into ITEMS' ' (ITEM_ID, SPEC_ID_REF, CURRENCY_ID_REF, ITEM, PRICE, DISCOUNT)' 'values' ' (:ITEM_ID, :SPEC_ID_REF, :CURRENCY_ID_REF, :ITEM, :PRICE, :DIS' + 'COUNT)') DeleteSQL.Strings = ( 'delete from ITEMS' 'where' ' ITEM_ID = :OLD_ITEM_ID') Left = 136 Top = 376 end end --- NEW FILE: Parts.dpr --- library Parts; {$R 'images.res' 'images.rc'} uses PartsUnit in 'PartsUnit.pas', PartsForm in 'PartsForm.pas' {frmParts}; {$R *.res} begin end. --- NEW FILE: PartsForm.pas --- unit PartsForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBCustomDataSet, IBUpdateSQL, DB, IBTable, IBDatabase, StdCtrls, ExtCtrls, DBCtrls, Mask; type TfrmParts = class(TForm) Bevel1: TBevel; DBNavigator1: TDBNavigator; Button1: TButton; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBTable1: TIBTable; DataSource1: TDataSource; IBUpdateSQL1: TIBUpdateSQL; IBTable1ITEM_ID: TIntegerField; IBTable1SPEC_ID_REF: TIntegerField; IBTable1CURRENCY_ID_REF: TIntegerField; IBTable1ITEM: TIBStringField; IBTable1PRICE: TIBBCDField; IBTable1DISCOUNT: TIBBCDField; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; DBMemo1: TDBMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public constructor CreateCountryForm(DBHandle: Pointer); destructor Destroy; override; end; implementation {$R *.dfm} constructor TfrmParts.CreateCountryForm(DBHandle: Pointer); begin inherited Create(nil); IBDatabase1.SetHandle(DBHandle); IBTable1.Open; end; destructor TfrmParts.Destroy; begin IBDatabase1.Close; inherited Destroy; end; procedure TfrmParts.Button1Click(Sender: TObject); begin Close; end; end. --- NEW FILE: WRENCH.ICO --- (This appears to be a binary file; contents omitted.) --- NEW FILE: images.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Parts.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O- -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -E"C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Prog" -LE"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files\borland\delphi7\Projects\Bpl" -U"..\..\" -O"..\..\" -I"..\..\" -R"..\..\" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: Parts.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: PartsUnit.pas --- unit PartsUnit; interface uses Windows, Messages, OrckaPluginManagerShared, HostShared; type TParts = class(TPluginClient) private FService: TPluginServices; FHostShared: THostShared; (* Button's *) FbtnParts: TOButtonItem; (* Menu's *) FmnuParts: TOMenuItem; protected (* Button Click Events *) procedure btnPartsClickEvent(Sender: TOButtonItem); (* Menu Click Events *) procedure mnuPartsClickEvent(Sender: TOMenuItem); procedure ShowPartsForm; public constructor CreateNew(AService: TPluginServices); destructor Destroy; override; (* Returns the name of the plugin *) function GetName: TOString; override; (* Functions which control the creation and deletion of menu items and toolbar buttons *) procedure CreateMenuItems; override; procedure DeleteMenuItems; override; procedure CreateButtons; override; procedure DeleteButtons; override; (* General functions for applications, can be used to control open/save/close/create documents, Close the application *) procedure Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterClose(PEType: TPluginEventType); override; procedure BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterNew(PEType: TPluginEventType); override; (* Application Events *) procedure OnActivate; override; procedure OnDeactivate; override; procedure OnMinimize; override; procedure OnRestore; override; procedure OnException(ClassName: TMediumString; ErrorMessage: TLargeString); override; procedure OnHelp(Command: Word; Data: Longint; var CallHelp: Boolean); override; procedure OnHint; override; procedure OnIdle(var Done: Boolean); override; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override; procedure OnSettingsChanged(Flag: Integer; const Section: string; var Result: Longint); override; procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override; end; implementation uses SysUtils, PartsForm; var Plugin: TParts = nil; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := TParts.CreateNew(TPluginServices(InParams.PluginService)); Plugin.FHostShared := THostShared(InParams.User); ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'Parts'); FillChar(Description, SizeOf(TMediumString), 0); StrPCopy(Description, 'Parts Plugin'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TNewPlugin } { Button Click Events } procedure TParts.btnPartsClickEvent(Sender: TOButtonItem); begin ShowPartsForm; end; (* Menu Click Events *) procedure TParts.mnuPartsClickEvent(Sender: TOMenuItem); begin ShowPartsForm; end; { Standard methods } procedure TParts.AfterClose(PEType: TPluginEventType); begin end; procedure TParts.AfterNew(PEType: TPluginEventType); begin end; procedure TParts.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TParts.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TParts.CreateButtons; begin (* Add the Toolbar's *) FService.InsertToolbar(StringToOString('View')); (* Insert the Button's *) FbtnParts := FService.InsertButton(1, StringToOString('View'), StringToOString(''), btnPartsClickEvent); FbtnParts.SetCaption('Parts'); FbtnParts.SetImageIndex(FService.AddIcon(LoadIcon(Hinstance, 'PARTSICON'))); end; procedure TParts.CreateMenuItems; var mnuTemp: TOMenuItem; begin mnuTemp := FService.FindMenu(StringToOString('View')); if not Assigned(mnuTemp) then mnuTemp := FService.InsertMenu(1, nil, '&View', nil); if Assigned(mnuTemp) then FmnuParts := FService.InsertMenu(0, mnuTemp, StringToOString('&Parts'), mnuPartsClickEvent); end; constructor TParts.CreateNew(AService: TPluginServices); begin inherited Create; FService := AService; FService.PluginClientInsert(Self); FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars); end; procedure TParts.DeleteButtons; begin (* Remove the Button's *) FService.RemoveButton(FbtnParts); (* Remove the Toolbar's *) FService.DeleteToolbar(StringToOString('View')); end; procedure TParts.DeleteMenuItems; begin FService.RemoveMenu(FmnuParts); end; destructor TParts.Destroy; begin FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars); FService.PluginClientRemove(Self); inherited Destroy; end; function TParts.GetName: TOString; begin Result := StringToOString('Parts'); end; procedure TParts.OnActivate; begin end; procedure TParts.OnDeactivate; begin end; procedure TParts.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure TParts.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure TParts.OnHint; begin end; procedure TParts.OnIdle(var Done: Boolean); begin end; procedure TParts.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure TParts.OnMinimize; begin end; procedure TParts.OnRestore; begin end; procedure TParts.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure TParts.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure TParts.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TParts.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TParts.ShowPartsForm; var frmParts: TfrmParts; begin frmParts := TfrmParts.CreateCountryForm(FService.GetDatabaseHandle); try FHostShared.SetTitle('[Parts]'); frmParts.ShowModal; finally FreeAndNil(frmParts); FHostShared.SetTitle(''); end; end; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/Thread In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/Thread Added Files: AutoHide.cfg AutoHide.dof AutoHide.dpr AutoHide.res AutoHidePlugin.pas Log Message: Initially added to source control --- NEW FILE: AutoHidePlugin.pas --- unit AutoHidePlugin; interface uses Classes, Windows, Messages, OrckaAddinManagerShared; type TAutoHidePlugin = class; TTimerThread = class(TThread) private FService: TPluginServices; FTime: TDateTime; FInterval: Longint; FPlugin: TAutohidePlugin; FActive: Boolean; protected function DateDiff(Date2, Date1: TDatetime): Longint; public constructor Create(CreateSuspended: Boolean; APlugin: TAutohidePlugin; AService: TPluginServices); procedure Execute; override; procedure Reset; property Active: Boolean read FActive write FActive; end; TAutoHidePlugin = class(TPluginClient) private FService: TPluginServices; FTimer: TTimerThread; FMinimized: Boolean; FIgnoreMinimize: Boolean; public constructor CreateNew(AService: TPluginServices); destructor Destroy; override; function GetName: TOString; override; procedure CreateMenuItems; override; procedure DeleteMenuItems; override; procedure CreateButtons; override; procedure DeleteButtons; override; (* General functions for applications, can be used to control open/save/close/create documents, Close the application *) procedure Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterClose(PEType: TPluginEventType); override; procedure BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterNew(PEType: TPluginEventType); override; (* Application Events *) procedure OnActivte; override; procedure OnDeactivte; override; procedure OnMinimize; override; procedure OnRestore; override; procedure OnException(ClassName: TMediumString; ErrorMessage: TLargeString); override; procedure OnHelp(Command: Word; Data: Longint; var CallHelp: Boolean); override; procedure OnHint; override; procedure OnIdle(var Done: Boolean); override; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override; procedure OnSettingsChanged(Flag: Integer; const Section: string; var Result: Longint); override; procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override; end; implementation uses SysUtils; var Plugin: TAutoHidePlugin = nil; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := TAutoHidePlugin.CreateNew(TPluginServices(InParams.PluginService)); ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'Autohide Plugin'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TAutoHidePlugin } procedure TAutoHidePlugin.AfterClose(PEType: TPluginEventType); begin end; procedure TAutoHidePlugin.AfterNew(PEType: TPluginEventType); begin end; procedure TAutoHidePlugin.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TAutoHidePlugin.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TAutoHidePlugin.CreateButtons; begin end; procedure TAutoHidePlugin.CreateMenuItems; begin end; constructor TAutoHidePlugin.CreateNew(AService: TPluginServices); begin inherited Create; FIgnoreMinimize := False; FService := AService; FService.PluginClientInsert(Self); FMinimized := False; FTimer := TTimerThread.Create(False, Self, AService); FTimer.FreeOnTerminate := True; FService.PluginClientSetEvents(Self, [poDoMinimize, poDoMaximize, poOnActivate, poOnDeactivate, poOnMinimize, poOnRestore, poDoSetTitle]); end; procedure TAutoHidePlugin.DeleteButtons; begin end; procedure TAutoHidePlugin.DeleteMenuItems; begin end; destructor TAutoHidePlugin.Destroy; begin FService.PluginClientRemove(Self); FTimer.Suspend; FTimer.Terminate; inherited Destroy; end; function TAutoHidePlugin.GetName: TOString; begin FillChar(Result, SizeOf(TOString), 0); Result := 'Autohide Plugin'; end; procedure TAutoHidePlugin.OnActivte; begin FTimer.Active := False; end; procedure TAutoHidePlugin.OnDeactivte; begin if not FMinimized then begin FTimer.Reset; FIgnoreMinimize := False; FTimer.Active := True; end; end; procedure TAutoHidePlugin.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure TAutoHidePlugin.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure TAutoHidePlugin.OnHint; begin end; procedure TAutoHidePlugin.OnIdle(var Done: Boolean); begin end; procedure TAutoHidePlugin.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure TAutoHidePlugin.OnMinimize; begin if FMinimized then Exit; FMinimized := True; FTimer.Active := False; end; procedure TAutoHidePlugin.OnRestore; begin FMinimized := False; FIgnoreMinimize := False; FTimer.Active := False; end; procedure TAutoHidePlugin.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure TAutoHidePlugin.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure TAutoHidePlugin.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TAutoHidePlugin.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; { TTimerThread } constructor TTimerThread.Create(CreateSuspended: Boolean; APlugin: TAutohidePlugin; AService: TPluginServices); begin inherited Create(CreateSuspended); FService := AService; FTime := Now; FPlugin := APlugin; FInterval := FService.ReadInteger('AutoHide', 'Inteval', 1); end; procedure TTimerThread.Execute; begin while not Terminated do begin if (Active) and (not Suspended) and ((DateDiff(FTime, Now) div 60) >= FInterval) then begin FTime := Now; FPlugin.FMinimized := True; FService.DoMinimize; end; Sleep(1); end; end; procedure TTimerThread.Reset; begin FTime := Now; end; function TTimerThread.DateDiff(Date2, Date1: TDatetime):Longint; var Year, Month, Day, Hour, Min, Sec, MSec: Word; Year1, Month1, Day1, Hour1, Min1, Sec1, MSec1: Word; begin DecodeDate(Date1, Year, Month, Day); DecodeDate(Date2, Year1, Month1, Day1); DecodeTime(Date1, Hour, Min, Sec, MSec); DecodeTime(Date2, Hour1, Min1, Sec1, MSec1); Result := (((((Trunc(Date1) - Trunc(Date2))* 86400) - ((Hour1 - Hour)* 3600))) - ((Min1 - Min) * 60)) - (Sec1 - Sec); end; end. --- NEW FILE: AutoHide.dpr --- library AutoHide; uses AutoHidePlugin in 'AutoHidePlugin.pas'; {$R *.res} begin end. --- NEW FILE: AutoHide.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=0 D=0 E=0 F=0 G=1 H=1 I=0 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir=D:\Program Files\Other\TB2K\Demo UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=D:\Program Files\Other\TBX\DemoProj\Demo.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Borland\Delphi6\Bin\ [Version Info] IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlOutputDirectorry] Count=1 Item0=D:\Program Files\Other\TB2K\Demo --- NEW FILE: AutoHide.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: AutoHide.cfg --- -$A8 -$B- -$C- -$D- -$E- -$F- -$G+ -$H+ -$I- -$J- -$K- -$L- -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$Y- -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -E"D:\Program Files\Other\TB2K\Demo" -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Region In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/ScreenSaver/Region Added Files: ScreenSaver.cfg ScreenSaver.dof ScreenSaver.dpr ScreenSaver.res Unit1.dfm Unit1.pas Unit2.dfm Unit2.pas Log Message: Initially added to source control --- NEW FILE: ScreenSaver.dpr --- program ScreenSaver; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}, OrckaScreenSaver in '..\..\Source\OrckaScreenSaver.pas'; {$E scr} {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit2.pas --- unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin; type TForm2 = class(TForm) SpinEdit1: TSpinEdit; SpinEdit2: TSpinEdit; Label1: TLabel; Label2: TLabel; btnOK: TButton; btnCancel: TButton; private { Private declarations } public { Public declarations } end; procedure ShowOptions; implementation uses IniFiles; {$R *.DFM} procedure ShowOptions; var Form2: TForm2; Ini: TInifile; begin Form2 := TForm2.Create(nil); try Ini := TIniFile.Create('oss.ini'); try Form2.SpinEdit1.Value := Ini.ReadInteger('Settings', 'Size', 150); Form2.SpinEdit2.Value := Ini.ReadInteger('Settings', 'Speed', 3); if Form2.ShowModal = mrOk then begin Ini.WriteInteger('Settings', 'Size', Form2.SpinEdit1.Value); Ini.WriteInteger('Settings', 'Speed', Form2.SpinEdit2.Value); end; finally Ini.Free; end; finally Form2.Free; end; end; end. --- NEW FILE: Unit2.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ScreenSaver.dof --- [Compiler] A=0 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=0 J=1 K=0 L=1 M=0 N=1 O=0 P=1 Q=0 R=0 S=0 T=1 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source Packages=Vcl50;Vclx50;VclSmp50;Qrpt50;Vcldb50;Vclbde50;ibevnt50;vcldbx50;TeeUI50;TeeDB50;Tee50;TeeQR50;VCLIB50;vclie50;Inetdb50;Inet50;NMFast50;dclocx50;dclaxserver50 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [Language] ActiveLang= ProjectLang=$00000409 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=1 MajorVer=1 MinorVer=0 Release=0 Build=3 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=Orcka FileDescription= FileVersion=1.0.0.3 InternalName= LegalCopyright=Copyright © 2000. Orcka Development. LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OrckaScreenSaver, ExtCtrls; type TForm1 = class(TForm) OrckaScreenSaver1: TOrckaScreenSaver; procedure OrckaScreenSaver1Initialize(Sender: TObject; Bitmap: TBitmap); procedure OrckaScreenSaver1Finalize(Sender: TObject); procedure OrckaScreenSaver1DrawScene(Sender: TObject; Bitmap: TBitmap); procedure OrckaScreenSaver1Configuration(Sender: TObject); private FScreen: TBitmap; GoLeft: Boolean; GoDown: Boolean; nTop, nLeft: Longint; SpotSize: Word; MoveBy: Word; public end; var Form1: TForm1; implementation uses IniFiles, Unit2; {$R *.DFM} procedure TForm1.OrckaScreenSaver1Initialize(Sender: TObject; Bitmap: TBitmap); var Ini: TInifile; begin Ini := TIniFile.Create('oss.ini'); try SpotSize := Ini.ReadInteger('Settings', 'Size', 150); MoveBy := Ini.ReadInteger('Settings', 'Speed', 3); finally Ini.Free; end; FScreen := TBitmap.Create; FScreen.Width := Screen.Width; FScreen.Height := Screen.Height; BitBlt(FScreen.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow), 0, 0, SRCCopy); Bitmap.Canvas.Draw(0, 0, FScreen); Randomize; nTop := Random(Bitmap.Height - SpotSize) + 1; nLeft := Random(Bitmap.Width - SpotSize) + 1; GoDown := LongBool(Random(1)); GoLeft := LongBool(Random(1)); end; procedure TForm1.OrckaScreenSaver1Finalize(Sender: TObject); begin FScreen.Free; end; procedure TForm1.OrckaScreenSaver1DrawScene(Sender: TObject; Bitmap: TBitmap); var Rgn1, Rgn2: HRgn; begin Bitmap.Canvas.Draw(0, 0, FScreen); if nTop < 0 then GoDown := True else if (GoDown) and (nTop + SpotSize > Screen.Height) then GoDown := False; if nLeft < 0 then GoLeft := False else if (not GoLeft) and (nLeft + SpotSize > Screen.Width) then GoLeft := True; Application.ProcessMessages; if GoDown then Inc(nTop, MoveBy) else Dec(nTop, MoveBy); if GoLeft then Dec(nLeft, MoveBy) else Inc(nLeft, MoveBy); Rgn1 := CreateEllipticRgn(nLeft, nTop, nLeft + SpotSize, nTop + SpotSize); Rgn2 := CreateRectRgn(0, 0, Screen.Width, Screen.Height); CombineRgn(Rgn2, Rgn2, Rgn1, RGN_DIFF); FillRgn(Bitmap.Canvas.Handle, Rgn2, GetStockObject(BLACK_BRUSH)); end; procedure TForm1.OrckaScreenSaver1Configuration(Sender: TObject); begin ShowOptions; end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ScreenSaver.cfg --- -$A- -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I- -$J+ -$K- -$L+ -$M- -$N+ -$O- -$P+ -$Q- -$R- -$S- -$T+ -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -LE"d:\program files\borland\delphi5\Projects\Bpl" -LN"d:\program files\borland\delphi5\Projects\Bpl" -U"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" -O"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" -I"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" -R"D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source" --- NEW FILE: ScreenSaver.res --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Clients/Customer Added Files: Customer.cfg Customer.dof Customer.dpr Customer.res CustomerForm.dfm CustomerForm.pas CustomerUnit.pas DISTLSTL.ICO images.rc images.res Log Message: Initially added to source control --- NEW FILE: images.rc --- CUSTOMERICON ICON "distlstl.ico" --- NEW FILE: CustomerForm.pas --- unit CustomerForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, IBCustomDataSet, IBUpdateSQL, IBTable, IBDatabase, ExtCtrls; type TfrmCustomer = class(TForm) Bevel1: TBevel; DBNavigator1: TDBNavigator; Button1: TButton; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBTable1: TIBTable; DataSource1: TDataSource; IBUpdateSQL1: TIBUpdateSQL; IBTable1CUST_NO: TIntegerField; IBTable1CUSTOMER: TIBStringField; IBTable1CONTACT_FIRST: TIBStringField; IBTable1CONTACT_LAST: TIBStringField; IBTable1PHONE_NO: TIBStringField; IBTable1ADDRESS_LINE1: TIBStringField; IBTable1ADDRESS_LINE2: TIBStringField; IBTable1CITY: TIBStringField; IBTable1STATE_PROVINCE: TIBStringField; IBTable1POSTAL_CODE: TIBStringField; IBTable1ON_HOLD: TIBStringField; IBTable1COUNTRY: TIBStringField; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; Label7: TLabel; DBEdit7: TDBEdit; Label8: TLabel; DBEdit8: TDBEdit; Label9: TLabel; DBEdit9: TDBEdit; Label10: TLabel; DBEdit10: TDBEdit; Label11: TLabel; DBEdit11: TDBEdit; Label12: TLabel; DBEdit12: TDBEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public constructor CreateCountryForm(DBHandle: Pointer); destructor Destroy; override; end; implementation {$R *.dfm} constructor TfrmCustomer.CreateCountryForm(DBHandle: Pointer); begin inherited Create(nil); IBDatabase1.SetHandle(DBHandle); IBTable1.Open; end; destructor TfrmCustomer.Destroy; begin IBDatabase1.Close; inherited Destroy; end; procedure TfrmCustomer.Button1Click(Sender: TObject); begin Close; end; end. --- NEW FILE: Customer.cfg --- -$A8 -$B- -$C+ -$D+ -$E- -$F- -$G+ -$H+ -$I+ -$J- -$K- -$L+ -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$YD -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -E"..\..\Prog" -LE"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files\borland\delphi7\Projects\Bpl" -U"..\..\" -O"..\..\" -I"..\..\" -R"..\..\" -w-UNSAFE_TYPE -w-UNSAFE_CODE -w-UNSAFE_CAST --- NEW FILE: CustomerUnit.pas --- unit CustomerUnit; interface uses Windows, Messages, OrckaPluginManagerShared, HostShared; type TCustomer = class(TPluginClient) private FService: TPluginServices; FHostShared: THostShared; (* Button's *) FbtnCustomer: TOButtonItem; (* Menu's *) FmnuCustomer: TOMenuItem; protected (* Button Click Events *) procedure btnCustomerClickEvent(Sender: TOButtonItem); (* Menu Click Events *) procedure mnuCustomerClickEvent(Sender: TOMenuItem); procedure ShowCustomerForm; public constructor CreateNew(AService: TPluginServices); destructor Destroy; override; (* Returns the name of the plugin *) function GetName: TOString; override; (* Functions which control the creation and deletion of menu items and toolbar buttons *) procedure CreateMenuItems; override; procedure DeleteMenuItems; override; procedure CreateButtons; override; procedure DeleteButtons; override; (* General functions for applications, can be used to control open/save/close/create documents, Close the application *) procedure Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterClose(PEType: TPluginEventType); override; procedure BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterNew(PEType: TPluginEventType); override; (* Application Events *) procedure OnActivate; override; procedure OnDeactivate; override; procedure OnMinimize; override; procedure OnRestore; override; procedure OnException(ClassName: TMediumString; ErrorMessage: TLargeString); override; procedure OnHelp(Command: Word; Data: Longint; var CallHelp: Boolean); override; procedure OnHint; override; procedure OnIdle(var Done: Boolean); override; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override; procedure OnSettingsChanged(Flag: Integer; const Section: string; var Result: Longint); override; procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override; end; implementation uses SysUtils, CustomerForm; var Plugin: TCustomer = nil; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := TCustomer.CreateNew(TPluginServices(InParams.PluginService)); Plugin.FHostShared := THostShared(InParams.User); ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'Customer'); FillChar(Description, SizeOf(TMediumString), 0); StrPCopy(Description, 'Customer Maintenance'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TNewPlugin } { Button Click Events } procedure TCustomer.btnCustomerClickEvent(Sender: TOButtonItem); begin ShowCustomerForm; end; (* Menu Click Events *) procedure TCustomer.mnuCustomerClickEvent(Sender: TOMenuItem); begin ShowCustomerForm; end; { Standard methods } procedure TCustomer.AfterClose(PEType: TPluginEventType); begin end; procedure TCustomer.AfterNew(PEType: TPluginEventType); begin end; procedure TCustomer.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TCustomer.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TCustomer.CreateButtons; begin (* Add the Toolbar's *) FService.InsertToolbar(StringToOString('View')); (* Insert the Button's *) FbtnCustomer := FService.InsertButton(1, StringToOString('View'), StringToOString('Customer|View or ammend customer details'), btnCustomerClickEvent); FbtnCustomer.SetCaption('Customer'); FbtnCustomer.SetImageIndex(FService.AddIcon(LoadIcon(Hinstance, 'CUSTOMERICON'))); end; procedure TCustomer.CreateMenuItems; var mnuTemp: TOMenuItem; begin mnuTemp := FService.FindMenu(StringToOString('View')); if not Assigned(mnuTemp) then mnuTemp := FService.InsertMenu(1, nil, '&View', nil); if Assigned(mnuTemp) then FmnuCustomer := FService.InsertMenu(1, mnuTemp, StringToOString('&Customer'), mnuCustomerClickEvent); end; constructor TCustomer.CreateNew(AService: TPluginServices); begin inherited Create; FService := AService; FService.PluginClientInsert(Self); FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars); end; procedure TCustomer.DeleteButtons; begin (* Remove the Button's *) FService.RemoveButton(FbtnCustomer); (* Remove the Toolbar's *) FService.DeleteToolbar(StringToOString('View')); end; procedure TCustomer.DeleteMenuItems; begin FService.RemoveMenu(FmnuCustomer); end; destructor TCustomer.Destroy; begin FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars); FService.PluginClientRemove(Self); inherited Destroy; end; function TCustomer.GetName: TOString; begin Result := StringToOString('Customer'); end; procedure TCustomer.OnActivate; begin end; procedure TCustomer.OnDeactivate; begin end; procedure TCustomer.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure TCustomer.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure TCustomer.OnHint; begin end; procedure TCustomer.OnIdle(var Done: Boolean); begin end; procedure TCustomer.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure TCustomer.OnMinimize; begin end; procedure TCustomer.OnRestore; begin end; procedure TCustomer.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure TCustomer.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure TCustomer.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TCustomer.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TCustomer.ShowCustomerForm; var frmCustomer: TfrmCustomer; begin frmCustomer := TfrmCustomer.CreateCountryForm(FService.GetDatabaseHandle); try FHostShared.SetTitle('[Customer]'); frmCustomer.ShowModal; finally FHostShared.SetTitle(''); FreeAndNil(frmCustomer); end; end; end. --- NEW FILE: Customer.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: CustomerForm.dfm --- object frmCustomer: TfrmCustomer Left = 361 Top = 102 BorderStyle = bsDialog Caption = 'Customer' ClientHeight = 577 ClientWidth = 282 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 536 Width = 265 Height = 2 end object Label1: TLabel Left = 8 Top = 8 Width = 51 Height = 13 Caption = 'CUST_NO' FocusControl = DBEdit1 end object Label2: TLabel Left = 8 Top = 48 Width = 61 Height = 13 Caption = 'CUSTOMER' FocusControl = DBEdit2 end object Label3: TLabel Left = 8 Top = 88 Width = 88 Height = 13 Caption = 'CONTACT_FIRST' FocusControl = DBEdit3 end object Label4: TLabel Left = 8 Top = 128 Width = 84 Height = 13 Caption = 'CONTACT_LAST' FocusControl = DBEdit4 end object Label5: TLabel Left = 8 Top = 168 Width = 60 Height = 13 Caption = 'PHONE_NO' FocusControl = DBEdit5 end object Label6: TLabel Left = 8 Top = 208 Width = 88 Height = 13 Caption = 'ADDRESS_LINE1' FocusControl = DBEdit6 end object Label7: TLabel Left = 8 Top = 248 Width = 88 Height = 13 Caption = 'ADDRESS_LINE2' FocusControl = DBEdit7 end object Label8: TLabel Left = 8 Top = 288 Width = 24 Height = 13 Caption = 'CITY' FocusControl = DBEdit8 end object Label9: TLabel Left = 8 Top = 328 Width = 96 Height = 13 Caption = 'STATE_PROVINCE' FocusControl = DBEdit9 end object Label10: TLabel Left = 8 Top = 368 Width = 78 Height = 13 Caption = 'POSTAL_CODE' FocusControl = DBEdit10 end object Label11: TLabel Left = 8 Top = 408 Width = 52 Height = 13 Caption = 'ON_HOLD' FocusControl = DBEdit11 end object Label12: TLabel Left = 8 Top = 448 Width = 53 Height = 13 Caption = 'COUNTRY' FocusControl = DBEdit12 end object DBNavigator1: TDBNavigator Left = 8 Top = 504 Width = 240 Height = 25 DataSource = DataSource1 TabOrder = 0 end object Button1: TButton Left = 200 Top = 544 Width = 75 Height = 25 Caption = '&Close' TabOrder = 1 OnClick = Button1Click end object DBEdit1: TDBEdit Left = 8 Top = 24 Width = 134 Height = 21 DataField = 'CUST_NO' DataSource = DataSource1 TabOrder = 2 end object DBEdit2: TDBEdit Left = 8 Top = 64 Width = 265 Height = 21 DataField = 'CUSTOMER' DataSource = DataSource1 TabOrder = 3 end object DBEdit3: TDBEdit Left = 8 Top = 104 Width = 199 Height = 21 DataField = 'CONTACT_FIRST' DataSource = DataSource1 TabOrder = 4 end object DBEdit4: TDBEdit Left = 8 Top = 144 Width = 264 Height = 21 DataField = 'CONTACT_LAST' DataSource = DataSource1 TabOrder = 5 end object DBEdit5: TDBEdit Left = 8 Top = 184 Width = 264 Height = 21 DataField = 'PHONE_NO' DataSource = DataSource1 TabOrder = 6 end object DBEdit6: TDBEdit Left = 8 Top = 224 Width = 265 Height = 21 DataField = 'ADDRESS_LINE1' DataSource = DataSource1 TabOrder = 7 end object DBEdit7: TDBEdit Left = 8 Top = 264 Width = 265 Height = 21 DataField = 'ADDRESS_LINE2' DataSource = DataSource1 TabOrder = 8 end object DBEdit8: TDBEdit Left = 8 Top = 304 Width = 265 Height = 21 DataField = 'CITY' DataSource = DataSource1 TabOrder = 9 end object DBEdit9: TDBEdit Left = 8 Top = 344 Width = 199 Height = 21 DataField = 'STATE_PROVINCE' DataSource = DataSource1 TabOrder = 10 end object DBEdit10: TDBEdit Left = 8 Top = 384 Width = 160 Height = 21 DataField = 'POSTAL_CODE' DataSource = DataSource1 TabOrder = 11 end object DBEdit11: TDBEdit Left = 8 Top = 424 Width = 17 Height = 21 DataField = 'ON_HOLD' DataSource = DataSource1 TabOrder = 12 end object DBEdit12: TDBEdit Left = 8 Top = 464 Width = 199 Height = 21 DataField = 'COUNTRY' DataSource = DataSource1 TabOrder = 13 end object IBDatabase1: TIBDatabase DatabaseName = 'D:\Program Files\Common Files\Borland Shared\Data\employee.gdb' Params.Strings = ( 'user_name=sysdba') DefaultTransaction = IBTransaction1 IdleTimer = 0 SQLDialect = 1 TraceFlags = [] Left = 8 Top = 544 end object IBTransaction1: TIBTransaction Active = False DefaultDatabase = IBDatabase1 AutoStopAction = saNone Left = 40 Top = 544 end object IBTable1: TIBTable Database = IBDatabase1 Transaction = IBTransaction1 BufferChunks = 1000 CachedUpdates = False TableName = 'CUSTOMER' UpdateObject = IBUpdateSQL1 Left = 72 Top = 544 object IBTable1CUST_NO: TIntegerField FieldName = 'CUST_NO' Required = True end object IBTable1CUSTOMER: TIBStringField FieldName = 'CUSTOMER' Required = True Size = 25 end object IBTable1CONTACT_FIRST: TIBStringField FieldName = 'CONTACT_FIRST' Size = 15 end object IBTable1CONTACT_LAST: TIBStringField FieldName = 'CONTACT_LAST' end object IBTable1PHONE_NO: TIBStringField FieldName = 'PHONE_NO' end object IBTable1ADDRESS_LINE1: TIBStringField FieldName = 'ADDRESS_LINE1' Size = 30 end object IBTable1ADDRESS_LINE2: TIBStringField FieldName = 'ADDRESS_LINE2' Size = 30 end object IBTable1CITY: TIBStringField FieldName = 'CITY' Size = 25 end object IBTable1STATE_PROVINCE: TIBStringField FieldName = 'STATE_PROVINCE' Size = 15 end object IBTable1POSTAL_CODE: TIBStringField FieldName = 'POSTAL_CODE' Size = 12 end object IBTable1ON_HOLD: TIBStringField FieldName = 'ON_HOLD' Size = 1 end object IBTable1COUNTRY: TIBStringField FieldName = 'COUNTRY' Size = 15 end end object DataSource1: TDataSource DataSet = IBTable1 Left = 104 Top = 544 end object IBUpdateSQL1: TIBUpdateSQL RefreshSQL.Strings = ( 'Select ' ' RDB$DB_KEY as IBX_INTERNAL_DBKEY, ' ' CUST_NO,' ' CUSTOMER,' ' CONTACT_FIRST,' ' CONTACT_LAST,' ' PHONE_NO,' ' ADDRESS_LINE1,' ' ADDRESS_LINE2,' ' CITY,' ' STATE_PROVINCE,' ' COUNTRY,' ' POSTAL_CODE,' ' ON_HOLD' 'from CUSTOMER ' 'where' ' CUST_NO = :CUST_NO') ModifySQL.Strings = ( 'update CUSTOMER' 'set' ' CUST_NO = :CUST_NO,' ' CUSTOMER = :CUSTOMER,' ' CONTACT_FIRST = :CONTACT_FIRST,' ' CONTACT_LAST = :CONTACT_LAST,' ' PHONE_NO = :PHONE_NO,' ' ADDRESS_LINE1 = :ADDRESS_LINE1,' ' ADDRESS_LINE2 = :ADDRESS_LINE2,' ' CITY = :CITY,' ' STATE_PROVINCE = :STATE_PROVINCE,' ' COUNTRY = :COUNTRY,' ' POSTAL_CODE = :POSTAL_CODE,' ' ON_HOLD = :ON_HOLD' 'where' ' CUST_NO = :OLD_CUST_NO') InsertSQL.Strings = ( 'insert into CUSTOMER' ' (CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST, PHONE_NO, ADD' + 'RESS_LINE1, ' ' ADDRESS_LINE2, CITY, STATE_PROVINCE, COUNTRY, POSTAL_CODE, ON' + '_HOLD)' 'values' ' (:CUST_NO, :CUSTOMER, :CONTACT_FIRST, :CONTACT_LAST, :PHONE_NO' + ', :ADDRESS_LINE1, ' ' :ADDRESS_LINE2, :CITY, :STATE_PROVINCE, :COUNTRY, :POSTAL_COD' + 'E, :ON_HOLD)') DeleteSQL.Strings = ( 'delete from CUSTOMER' 'where' ' CUST_NO = :OLD_CUST_NO') Left = 136 Top = 544 end end --- NEW FILE: images.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Customer.dpr --- library Customer; {$R 'images.res' 'images.rc'} uses CustomerUnit in 'CustomerUnit.pas', CustomerForm in 'CustomerForm.pas' {frmCustomer}; {$R *.res} begin end. --- NEW FILE: DISTLSTL.ICO --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Customer.dof --- [FileVersion] Version=7.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=0 K=0 L=1 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; NamespacePrefix= SymbolDeprecated=1 SymbolLibrary=1 SymbolPlatform=1 UnitLibrary=1 UnitPlatform=1 UnitDeprecated=1 HResultCompat=1 HidingMember=1 HiddenVirtual=1 Garbage=1 BoundsError=1 ZeroNilCompat=1 StringConstTruncated=1 ForLoopVarVarPar=1 TypedConstVarPar=1 AsgToTypedConst=1 CaseLabelRange=1 ForVariable=1 ConstructingAbstract=1 ComparisonFalse=1 ComparisonTrue=1 ComparingSignedUnsigned=1 CombiningSignedUnsigned=1 UnsupportedConstruct=1 FileOpen=1 FileOpenUnitSrc=1 BadGlobalSymbol=1 DuplicateConstructorDestructor=1 InvalidDirective=1 PackageNoLink=1 PackageThreadVar=1 ImplicitImport=1 HPPEMITIgnored=1 NoRetVal=1 UseBeforeDef=1 ForLoopVarUndef=1 UnitNameMismatch=1 NoCFGFileFound=1 MessageDirective=1 ImplicitVariants=1 UnicodeToLocale=1 LocaleToUnicode=1 ImagebaseMultiple=1 SuspiciousTypecast=1 PrivatePropAccessor=1 UnsafeType=0 UnsafeCode=0 UnsafeCast=0 [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir=..\..\Prog UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=..\..\ Packages=vcl;rtl;dbrtl;adortl;vcldb;vclx;bdertl;vcldbx;ibxpress;dsnap;cds;bdecds;qrpt;teeui;teedb;tee;dss;teeqr;visualclx;visualdbclx;dsnapcrba;dsnapcon;VclSmp;vclshlctrls;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\prog\ib_db_share.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Borland\Delphi6\Bin\ [Version Info] IncludeVerInfo=0 AutoIncBuild=0 MajorVer=1 MinorVer=0 Release=0 Build=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Projects\Bpl\PLGMDO.bpl=(untitled) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/ETools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/ETools Added Files: ConfigureForm.dfm ConfigureForm.pas ETools.cfg ETools.dof ETools.dpr ETools.dsk ExternalToolsPluginUnit.pas PropertiesForm.dfm PropertiesForm.pas Log Message: Initially added to source control --- NEW FILE: PropertiesForm.pas --- unit PropertiesForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OrckaEdit, StdCtrls, ComCtrls; type TToolProperties = record DisplayName: array[0..40] of char; ProgramName: array[0..500] of char; Path: array[0..500] of char; Parameters: array[0..500] of char; end; TToolsProperties = class(TForm) btnOK: TButton; btnCancel: TButton; TabGeneral: TTabControl; lblDisplayName: TLabel; edtDisplayName: TEdit; lblProgram: TLabel; edtProgram: TOrckaButtonEdit; edtPath: TOrckaButtonEdit; lblPath: TLabel; lblParameters: TLabel; edtParameters: TEdit; OpenDialog: TOpenDialog; procedure btnOKClick(Sender: TObject); procedure edtProgramButtonClick(Sender: TObject); procedure edtPathButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } end; function ShowToolProperties(Parent: HWND; var Properties: TToolProperties): Boolean; implementation uses FileCtrl; {$R *.DFM} resourcestring sNoProgram = '%s'#13'Does not exist'; sNoName = 'You must specify a display name'; sSelPath = 'Select Path'; const sBlank = ''; function ShowToolProperties(Parent: HWND; var Properties: TToolProperties): Boolean; var frm: TToolsProperties; OldParent: HWND; begin OldParent := Application.Handle; Application.Handle := Parent; try frm := TToolsProperties.Create(nil); try frm.edtDisplayName.Text := Properties.DisplayName; frm.edtProgram.Text := Properties.ProgramName; frm.edtPath.Text := Properties.Path; frm.edtParameters.Text := Properties.Parameters; Result := frm.ShowModal = mrOK; if Result then begin StrLCopy(Properties.DisplayName, PChar(frm.edtDisplayName.Text), 40); StrLCopy(Properties.ProgramName, PChar(frm.edtProgram.Text), 500); StrLCopy(Properties.Path, PChar(frm.edtPath.Text), 500); StrLCopy(Properties.Parameters, PChar(frm.edtParameters.Text), 500); end; finally frm.Free; end; finally Application.Handle := OldParent; end; end; procedure TToolsProperties.btnOKClick(Sender: TObject); begin if not FileExists(edtProgram.Text) then begin ShowMessage(Format(sNoProgram, [edtProgram.Text])); Exit; end; if edtDisplayName.Text = sBlank then begin ShowMessage(Format(sNoName, [edtDisplayName.Text])); Exit; end; ModalResult := mrOK; end; procedure TToolsProperties.edtProgramButtonClick(Sender: TObject); begin if OpenDialog.Execute then begin edtProgram.Text := OpenDialog.FileName; if edtPath.Text = sBlank then edtPath.Text := ExtractFilePath(edtProgram.Text); if edtDisplayName.Text = sBlank then edtDisplayName.Text := Copy(ExtractFileName(edtProgram.Text), 1, Length(ExtractFileName(edtProgram.Text)) -4); end; end; procedure TToolsProperties.edtPathButtonClick(Sender: TObject); var Path: string; begin if SelectDirectory(sSelPath, sBlank, Path) then edtPath.Text := Path; end; end. --- NEW FILE: ETools.dpr --- library ETools; uses ExternalToolsPluginUnit in 'ExternalToolsPluginUnit.pas', ConfigureForm in 'ConfigureForm.pas' {Configure}, PropertiesForm in 'PropertiesForm.pas' {ToolsProperties}; {$R *.res} begin end. --- NEW FILE: ETools.dsk --- [Closed Files] File_0=SourceModule,'D:\Program Files\Orcka\Component Suite\Source\OrckaAddinManagerShared.pas',0,1,51,18,58,0,0 File_1=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ToolsPlugin.pas',0,1,111,1,129,0,0 File_2=SourceModule,'D:\Program Files\Orcka\Component Suite\Source\OrckaEdit.pas',0,1,22,9,38,0,0 File_3=SourceModule,'D:\Program Files\Orcka\Component Suite\Source\OrckaDV.inc',0,1,94,26,101,0,0 File_4=SourceModule,'D:\Orcka\Source\OrckaScreenSaver.pas',0,1,520,28,526,0,0 File_5=SourceModule,'C:\temp\OrckaScreenSaver.pas',0,1,517,10,531,0,0 File_6=SourceModule,'D:\Orcka\Source\OrckaAddinManager.pas',0,4,137,66,148,0,0 File_7=SourceModule,'D:\Orcka\Source\OrckaAddinManagerShared.pas',0,1,184,83,189,0,0 File_8=SourceModule,'D:\Program Files\Borland\Delphi5\Projects\SyncMemo.pas',0,1,27,1,49,0,0 File_9=SourceModule,'d:\program files\borland\delphi5\source\rtl\Win\Messages.pas',0,1,757,13,773,0,0 [Modules] Module0=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ExternalToolsPluginUnit.pas Module1=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ConfigureForm.pas Module2=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ETools.dpr Module3=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\PropertiesForm.pas Count=4 EditWindowCount=1 [D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ExternalToolsPluginUnit.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ConfigureForm.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 [D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ETools.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\PropertiesForm.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [D:\Program Files\Borland\Delphi5\Bin\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=4 CurrentView=2 View0=0 View1=1 View2=2 View3=3 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=271 Top=110 Width=743 Height=546 MaxLeft=-1 MaxTop=-1 ClientWidth=735 ClientHeight=519 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ETools.dpr CursorX=14 CursorY=4 TopLine=1 LeftCol=1 [View1] Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\PropertiesForm.pas CursorX=1 CursorY=1 TopLine=1 LeftCol=1 [View2] Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ExternalToolsPluginUnit.pas CursorX=65 CursorY=19 TopLine=6 LeftCol=1 [View3] Module=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\ETools\ConfigureForm.pas CursorX=15 CursorY=93 TopLine=58 LeftCol=1 [Watches] Count=0 [Breakpoints] Count=0 [AddressBreakpoints] Count=0 [Main Window] Create=1 Visible=1 State=0 Left=0 Top=0 Width=1024 Height=105 MaxLeft=-1 MaxTop=-1 ClientWidth=1016 ClientHeight=78 [ProjectManager] Create=1 Visible=1 State=0 Left=0 Top=0 Width=223 Height=477 MaxLeft=-1 MaxTop=-1 ClientWidth=223 ClientHeight=477 TBDockHeight=303 LRDockWidth=438 Dockable=1 [AlignmentPalette] Create=1 Visible=0 State=0 Left=200 Top=107 Width=156 Height=82 MaxLeft=-1 MaxTop=-1 ClientWidth=150 ClientHeight=60 [PropertyInspector] Create=1 Visible=1 State=0 Left=0 Top=0 Width=223 Height=477 MaxLeft=-1 MaxTop=-1 ClientWidth=221 ClientHeight=475 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name SelectedItem=Name ExpandedItems=Value HiddenCategories=Legacy ShowStatusBar=1 [WatchWindow] Create=1 Visible=0 State=0 Left=10 Top=554 Width=516 Height=179 MaxLeft=-1 MaxTop=-1 ClientWidth=508 ClientHeight=155 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=0 State=0 Left=10 Top=554 Width=516 Height=179 MaxLeft=-1 MaxTop=-1 ClientWidth=508 ClientHeight=155 TBDockHeight=197 LRDockWidth=737 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=10 Top=554 Width=516 Height=179 MaxLeft=-1 MaxTop=-1 ClientWidth=508 ClientHeight=155 TBDockHeight=161 LRDockWidth=294 Dockable=1 [ModuleWindow] Create=1 Visible=0 State=0 Left=10 Top=554 Width=516 Height=179 MaxLeft=-1 MaxTop=-1 ClientWidth=508 ClientHeight=155 TBDockHeight=118 LRDockWidth=353 Dockable=1 Column0Width=125 Column1Width=100 Column2Width=155 EntryPointPane=225 CompUnitPane=104 [DebugLogView] Create=1 Visible=0 State=0 Left=10 Top=554 Width=516 Height=179 MaxLeft=-1 MaxTop=-1 ClientWidth=508 ClientHeight=155 TBDockHeight=291 LRDockWidth=417 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=0 Width=223 Height=477 MaxLeft=-1 MaxTop=-1 ClientWidth=223 ClientHeight=477 TBDockHeight=305 LRDockWidth=140 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=-77 Top=-527 Width=443 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=443 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=1 State=0 Left=1 Top=121 Width=258 Height=511 MaxLeft=-1 MaxTop=-1 ClientWidth=250 ClientHeight=487 TBDockHeight=511 LRDockWidth=258 Dockable=1 TabPosition=2 ActiveTab=Exploring ExternalToolsPluginUnit.pas TabDockClients=PropertyInspector,ProjectManager,CodeExplorer@EditWindow0 --- NEW FILE: PropertiesForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ETools.cfg --- -$A8 -$B- -$C- -$D- -$E- -$F- -$G+ -$H+ -$I- -$J- -$K- -$L- -$M- -$N+ -$O+ -$P+ -$Q- -$R- -$S- -$T- -$U- -$V+ -$W- -$X+ -$Y- -$Z1 -cg -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -H+ -W+ -M -$M16384,1048576 -K$00400000 -E"C:\Projects\nws\plugins" -LE"c:\program files\borland\delphi6\Projects\Bpl" -LN"c:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: ConfigureForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ETools.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=0 D=0 E=0 F=0 G=1 H=1 I=0 J=0 K=0 L=0 M=0 N=1 O=1 P=1 Q=0 R=0 S=0 T=0 U=0 V=1 W=0 X=1 Y=0 Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir=C:\Projects\nws\plugins UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages=Vcl50;Vclx50;crbide50;proide50;Vclmid50;Inet50;Inetdb50;Vcldb50;vclado50;dclaxserver50;Vclbde50;vcldbx50;Dss50;VCLIB50;vclie50;NMFast50;dclocx50;Qrpt50;VclSmp50;TeeUI50;TeeDB50;Tee50;TeeQR50;webmid50;direct50;dphcrb50;rcpkg50;stride50;OrckaD5;ras;Lynx;Trayicon Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=D:\Program Files\Other\TB2K\Demo\Project1.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang=$00000809 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=1 MajorVer=2 MinorVer=0 Release=0 Build=27 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName=Orcka Development FileDescription=External Tools Plugin FileVersion=2.0.0.27 InternalName=etools.dll LegalCopyright=Copyright © 1999 - 2002. Orcka Development. All Rights Reserved. LegalTrademarks= OriginalFilename=etools ProductName=Orcka Plugin Manager ProductVersion=2.0 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlOutputDirectorry] Count=3 Item0=C:\Projects\nws\plugins Item1=D:\Program Files\Orcka\Project1\Plugins Item2=D:\Program Files\Orcka\Project1 --- NEW FILE: ExternalToolsPluginUnit.pas --- unit ExternalToolsPluginUnit; interface uses Windows, Messages, Classes, OrckaPluginManagerShared; type TExternalMenu = record Menu: TOMenuItem; Path: TLargeString; Executable: TLargeString; Paramaters: TLargeString; end; pExternalMenu = ^TExternalMenu; TExternalToolsPlugin = class(TPluginClient) private FService: TPluginServices; FDynamicMenus: TList; FToolsCreated: Boolean; (* Button's *) FToolsConfig: TOButtonItem; (* Menu's *) FmnuTools: TOMenuItem; FmnuToolsSep: TOMenuItem; FmnuToolsConfig: TOMenuItem; protected (* Button Click Events *) procedure ToolsConfigClickEvent(Sender: TOButtonItem); (* Menu Click Events *) procedure MenuToolsCongifClickEvent(Sender: TOMenuITem); procedure LoadExternalTools(Parent: TOMenuItem); procedure ShowConfig; procedure UnloadExternalTools; procedure ExternalClick(Sender: TOMenuItem); public constructor CreateNew(AService: TPluginServices); destructor Destroy; override; (* Returns the name of the plugin *) function GetName: TMediumString; override; (* Functions which control the creation and deletion of menu items and toolbar buttons *) procedure CreateMenuItems; override; procedure DeleteMenuItems; override; procedure CreateButtons; override; procedure DeleteButtons; override; (* General functions for applications, can be used to control open/save/close/create documents, Close the application *) procedure Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); override; procedure BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterClose(PEType: TPluginEventType); override; procedure BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); override; procedure AfterNew(PEType: TPluginEventType); override; (* Application Events *) procedure OnActivate; override; procedure OnDeactivate; override; procedure OnMinimize; override; procedure OnRestore; override; procedure OnException(ClassName: TMediumString; ErrorMessage: TLargeString); override; procedure OnHelp(Command: Word; Data: Longint; var CallHelp: Boolean); override; procedure OnHint; override; procedure OnIdle(var Done: Boolean); override; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); override; procedure OnSettingsChanged(Flag: Integer; const Section: string; var Result: Longint); override; procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); override; end; implementation uses SysUtils, ShellAPI, ConfigureForm; var Plugin: TExternalToolsPlugin = nil; const sBlank = ''; resourcestring sHelpFile = 'Help File'; sTopic = 'Help Topic'; sCaption = 'Display Name'; sProgram = 'Executable'; sPath = 'Path'; sParams = 'Parameters'; sDelete = 'Are you sure you want to delete %s.'; sTitle = 'Tools Configuration'; sNewToolReg = '%s\%s\'; sRegFail = 'Failed to create an entry in the registry.'; sToolExist = '%s is already configured.'; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := TExternalToolsPlugin.CreateNew(TPluginServices(InParams.PluginService)); ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'External Tools '); FillChar(Description, SizeOf(TMediumString), 0); StrPCopy(Description, 'External Tools Plugin Manages external applications'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TNewPlugin } { Button Click Events } procedure TExternalToolsPlugin.ToolsConfigClickEvent(Sender: TOButtonItem); begin ShowConfig; end; { Standard methods } procedure TExternalToolsPlugin.AfterClose(PEType: TPluginEventType); begin end; procedure TExternalToolsPlugin.AfterNew(PEType: TPluginEventType); begin end; procedure TExternalToolsPlugin.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TExternalToolsPlugin.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure TExternalToolsPlugin.CreateButtons; begin (* Add the Toolbar's *) //FService.InsertToolbar(StringToOString('Tools')); (* Insert the Button's *) //FToolsConfig := FService.InsertButton(1, StringToOString('Tools'), // StringToOString('Configure Tools'), ToolsConfigClickEvent); //FToolsConfig.SetCaption('Tools'); end; procedure TExternalToolsPlugin.CreateMenuItems; var mnu: TOMenuItem; begin mnu := FService.FindMenu('Tools'); if not Assigned(mnu) then FmnuTools := FService.InsertMenu(FService.GetMenuCount -1, nil, StringToOString('&Tools'), nil) else FmnuTools := mnu; FmnuToolsConfig := FService.InsertMenu(fmnuTools.GetItemCount -1, FmnuTools, StringToOString('&Configure'), MenuToolsCongifClickEvent); LoadExternalTools(FmnuTools); end; constructor TExternalToolsPlugin.CreateNew(AService: TPluginServices); begin inherited Create; FDynamicMenus := TList.Create; FToolsCreated := False; FService := AService; FService.PluginClientInsert(Self); FService.PluginClientIncludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientIncludeAppEvent(Self, poAllowRemoveToolbars); end; procedure TExternalToolsPlugin.DeleteButtons; begin (* Remove the Button's *) //FService.RemoveButton(FToolsConfig); (* Remove the Toolbar's *) FService.DeleteToolbar(StringToOString('Tools')); end; procedure TExternalToolsPlugin.DeleteMenuItems; begin end; destructor TExternalToolsPlugin.Destroy; begin FService.PluginClientExcludeAppEvent(Self, poAllowInsertToolbars); FService.PluginClientExcludeAppEvent(Self, poAllowRemoveToolbars); FService.PluginClientRemove(Self); FDynamicMenus.Free; inherited Destroy; end; function TExternalToolsPlugin.GetName: TMediumString; begin Result := StringToOString('External Tools '); end; procedure TExternalToolsPlugin.OnActivate; begin end; procedure TExternalToolsPlugin.OnDeactivate; begin end; procedure TExternalToolsPlugin.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure TExternalToolsPlugin.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure TExternalToolsPlugin.OnHint; begin end; procedure TExternalToolsPlugin.OnIdle(var Done: Boolean); begin end; procedure TExternalToolsPlugin.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure TExternalToolsPlugin.OnMinimize; begin end; procedure TExternalToolsPlugin.OnRestore; begin end; procedure TExternalToolsPlugin.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure TExternalToolsPlugin.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure TExternalToolsPlugin.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TExternalToolsPlugin.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure TExternalToolsPlugin.LoadExternalTools(Parent: TOMenuItem); var Caption: string; Menu: pExternalMenu; sl: TStringList; I, ToolCount: Longint; begin ToolCount := FService.ReadInteger('External Tools', 'Tool Count', 0); if ToolCount > 0 then begin sl := TStringList.Create; try for I := 1 to ToolCount do sl.Add(Format('ETool%d', [I])); for I := 0 to sl.Count -1 do begin Caption := FService.ReadString('External Tools', StringToOString(sl[I] + sCaption), sBlank); if Caption <> sBlank then begin GetMem(Menu, SizeOf(TExternalMenu)); Menu^.Menu := FService.InsertMenu(Parent.GetItemCount, Parent, StringToOString(Caption), ExternalClick); StrPCopy(Menu^.Executable, FService.ReadString('External Tools', StringToOString(sl[I] + sProgram), '')); StrPCopy(Menu.Path, FService.ReadString('External Tools', StringToOString(sl[I] + sPath), '')); StrPCopy(Menu^.Paramaters, FService.ReadString('External Tools', StringToOString(sl[I] + sParams), '')); FDynamicMenus.Add(Menu); end; end; finally sl.Free; end; if FDynamicMenus.Count > 0 then FmnuToolsSep := FService.InsertMenu(FmnuToolsConfig.GetItemCount +1, FmnuTools, '-', nil); end; end; procedure TExternalToolsPlugin.ExternalClick(Sender: TOMenuItem); var I: Longint; Menu: pExternalMenu; begin for I := 0 to FDynamicMenus.Count -1 do begin Menu := pExternalMenu(FDynamicMenus.Items[I]); if Menu^.Menu = Sender then begin if ShellExecute(FService.GetHandle, 'open', Menu^.Executable, Menu^.Paramaters, Menu^.Path, SW_SHOW) < 32 then begin FService.MsgBox(StringToOString(SysErrorMessage(GetLastError)), MB_OK or MB_ICONSTOP); end; Break; end; end; end; procedure TExternalToolsPlugin.ShowConfig; var HelpFile: string; TopicID: Longint; begin HelpFile := FService.ReadString('External Tools', StringToOString(sHelpFile), sBlank); TopicID := FService.ReadInteger('External Tools', StringToOString(sTopic), 0); UnloadExternalTools; if HelpFile = sBlank then ShowConfigure(FService.GetHandle, FService, nil, TopicID) else ShowConfigure(FService.GetHandle, FService, PChar(HelpFile), TopicID); LoadExternalTools(FmnuTools); end; procedure TExternalToolsPlugin.UnloadExternalTools; var I: Longint; Menu: pExternalMenu; begin for I := FDynamicMenus.Count -1 downto 0 do begin Menu := pExternalMenu(FDynamicMenus.Items[I]); FService.RemoveMenu(Menu^.Menu); FDynamicMenus.Items[I] := nil; FreeMem(Menu); end; FDynamicMenus.Pack; if Assigned(FmnuToolsSep) then begin FService.RemoveMenu(FmnuToolsSep); FmnuToolsSep := nil; end; end; procedure TExternalToolsPlugin.MenuToolsCongifClickEvent( Sender: TOMenuITem); begin ShowConfig; end; end. --- NEW FILE: ConfigureForm.pas --- unit ConfigureForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ImgList, ComCtrls, Menus, OrckaPluginManagerShared; type TConfigure = class(TForm) btnClose: TButton; btnHelp: TButton; grpTools: TGroupBox; btnAdd: TButton; btnModify: TButton; btnDelete: TButton; lstTools: TListView; ilSmall: TImageList; ilLarge: TImageList; mnuPopup: TPopupMenu; mnuPopupLargeIcons: TMenuItem; mnuPopupSmallIcons: TMenuItem; mnuPopupList: TMenuItem; mnuPopupDetails: TMenuItem; procedure btnHelpClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure mnuPopupLargeIconsClick(Sender: TObject); procedure mnuPopupSmallIconsClick(Sender: TObject); procedure mnuPopupListClick(Sender: TObject); procedure mnuPopupDetailsClick(Sender: TObject); procedure lstToolsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); procedure btnDeleteClick(Sender: TObject); procedure btnAddClick(Sender: TObject); procedure btnModifyClick(Sender: TObject); private FHelpFile: string; FTopic: Cardinal; FRegLoc: string; procedure DisplayExternalTools; protected FService: TPluginServices; public property HelpFile: string read FHelpFile write FHelpFile; property Topic: Cardinal read FTopic write FTopic; property RegLoc: string read FRegLoc write FRegLoc; end; procedure ShowConfigure(Parent: HWND; AService: TPluginServices; HelpFile: PChar; TopicID: Cardinal); const sBlank = ''; sDefaultReg = 'Software\Orcka\Clients\Tools\%s'; resourcestring sCaption = 'Display Name'; sProgram = 'Executable'; sPath = 'Path'; sParams = 'Parameters'; sDelete = 'Are you sure you want to delete %s.'; sTitle = 'Tools Configuration'; sNewToolReg = '%s\%s\'; sRegFail = 'Failed to create an entry in the registry.'; sToolExist = '%s is already configured.'; implementation uses ShellAPI, PropertiesForm; {$R *.DFM} procedure ShowConfigure(Parent: HWND; AService: TPluginServices; HelpFile: PChar; TopicID: Cardinal); var Configure: TConfigure; OldParent: HWND; begin OldParent := Application.Handle; Application.Handle := Parent; Configure := TConfigure.Create(nil); try Configure.Caption := sTitle; if not Assigned(HelpFile) then Configure.btnHelp.Visible := False else begin Configure.FHelpFile := HelpFile; Configure.Topic := TopicID; end; Configure.FService := AService; Configure.ShowModal; finally Configure.Free; end; Application.Handle := OldParent; end; procedure TConfigure.btnHelpClick(Sender: TObject); begin Application.HelpFile := HelpFile; if Topic = 0 then Application.HelpCommand(HELP_CONTENTS, Topic) else Application.HelpCommand(HELP_CONTEXT, Topic); end; procedure TConfigure.DisplayExternalTools; var sl: TStringList; I, ToolCount: Longint; li: TListItem; Icon: TIcon; SIcon, LIcon: HICON; begin lstTools.Items.Clear; sl := TStringList.Create; try ToolCount := FService.ReadInteger('External Tools', 'Tool Count', 0); for I := 0 to ToolCount do sl.Add(Format('ETool%d', [I])); for I := 0 to sl.Count -1 do begin li := lstTools.Items.Add; li.Caption := FService.ReadString('External Tools', StringToOString(sl[I] + sCaption), sBlank); if li.Caption = sBlank then li.Delete else begin li.SubItems.Add(FService.ReadString('External Tools', StringToOString(sl[I] + sProgram), '')); li.SubItems.Add(FService.ReadString('External Tools', StringToOString(sl[I] + sPath), '')); li.SubItems.Add(FService.ReadString('External Tools', StringToOString(sl[I] + sParams), '')); li.SubItems.Add(sl[i]); Icon := TIcon.Create; try if ExtractIconEx(PChar(OStringToString(FService.ReadString( 'External Tools', StringToOString(sl[I] + sProgram), ''))), 0, LIcon, SIcon, 1) < 2 then begin li.ImageIndex := 0; end else begin Icon.Handle := LIcon; li.ImageIndex := ilLarge.AddIcon(Icon); Icon.Handle := SIcon; ilSmall.AddIcon(Icon); end; finally Icon.Free; end; end; end; finally sl.Free; end; end; procedure TConfigure.FormShow(Sender: TObject); begin DisplayExternalTools; end; procedure TConfigure.mnuPopupLargeIconsClick(Sender: TObject); begin lstTools.ViewStyle := vsIcon; end; procedure TConfigure.mnuPopupSmallIconsClick(Sender: TObject); begin lstTools.ViewStyle := vsSmallIcon; end; procedure TConfigure.mnuPopupListClick(Sender: TObject); begin lstTools.ViewStyle := vsList; end; procedure TConfigure.mnuPopupDetailsClick(Sender: TObject); begin lstTools.ViewStyle := vsReport; end; procedure TConfigure.lstToolsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin btnModify.Enabled := Assigned(lstTools.Selected); btnDelete.Enabled := Assigned(lstTools.Selected); end; procedure TConfigure.btnDeleteClick(Sender: TObject); var li: TListItem; begin li := lstTools.Selected; if Assigned(li) then begin if MessageBox(Handle, PChar(Format(sDelete, [li.Caption])), PChar(sTitle), MB_YESNO or MB_ICONSTOP) = IDYes then begin FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sCaption), StringToOString(sBlank)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sProgram), StringToOString(sBlank)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sPath), StringToOString(sBlank)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sParams), StringToOString(sBlank)); li.Delete; lstTools.AlphaSort; end; end; end; procedure TConfigure.btnAddClick(Sender: TObject); var Prop: TToolProperties; Count: longint; begin if ShowToolProperties(Handle, Prop) then begin Count := FService.ReadInteger('External Tools', 'Tool Count', 0) + 1; FService.WriteInteger('External Tools', 'Tool Count', Count); FService.WriteString('External Tools', StringToOString(Format('ETool%d', [Count]) + sCaption), StringToOString(Prop.DisplayName)); FService.WriteString('External Tools', StringToOString(Format('ETool%d', [Count]) + sProgram), StringToOString(Prop.ProgramName)); FService.WriteString('External Tools', StringToOString(Format('ETool%d', [Count]) + sPath), StringToOString(Prop.Path)); FService.WriteString('External Tools', StringToOString(Format('ETool%d', [Count]) + sParams), StringToOString(Prop.Parameters)); DisplayExternalTools; end; end; procedure TConfigure.btnModifyClick(Sender: TObject); var Prop: TToolProperties; li: TListItem; begin li := lstTools.Selected; if not Assigned(li) then Exit; StrPCopy(Prop.DisplayName, li.Caption); StrLCopy(Prop.ProgramName, PChar(li.SubItems[0]), 500); StrLCopy(Prop.Path, PChar(li.SubItems[1]), 500); StrLCopy(Prop.Parameters, PChar(li.SubItems[2]), 500); if ShowToolProperties(Handle, Prop) then begin FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sCaption), StringToOString(Prop.DisplayName)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sProgram), StringToOString(Prop.ProgramName)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sPath), StringToOString(Prop.Path)); FService.WriteString('External Tools', StringToOString(li.SubItems[3] + sParams), StringToOString(Prop.Parameters)); DisplayExternalTools; end; end; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:50
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase Added Files: HostShared.pas IB_DB Share Handle Sample.bpg IB_DB Share Handle Sample.dsk Log Message: Initially added to source control --- NEW FILE: IB_DB Share Handle Sample.bpg --- #------------------------------------------------------------------------------ VERSION = BWS.01 #------------------------------------------------------------------------------ !ifndef ROOT ROOT = $(MAKEDIR)\.. !endif #------------------------------------------------------------------------------ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ PROJECTS = IB_DB_SHARE.exe Country.dll Customer.dll Parts.dll #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ IB_DB_SHARE.exe: Host\IB_DB_SHARE.dpr $(DCC) Country.dll: Clients\Country\Country.dpr $(DCC) Customer.dll: Clients\Customer\Customer.dpr $(DCC) Parts.dll: Clients\Parts\Parts.dpr $(DCC) --- NEW FILE: IB_DB Share Handle Sample.dsk --- [Closed Files] File_0=SourceModule,'c:\program files\borland\delphi7\source\vcl\Forms.pas',0,1,6217,49,6221,0,0 File_1=SourceModule,'c:\program files\borland\delphi7\source\rtl\common\classes.pas',0,1,1384,29,1388,0,0 File_2=SourceModule,'c:\program files\borland\delphi7\source\rtl\Sys\sysutils.pas',0,1,76,38,8,0,0 File_3=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaButton.pas',0,1,245,26,256,0,0 File_4=SourceModule,'c:\program files\borland\delphi7\source\rtl\Win\Windows.pas',0,1,29051,18,29065,0,0 File_5=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaDV.inc',0,1,142,19,145,0,0 File_6=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\DataMod.pas',0,1,1,1,1,0,0 File_7=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\Main.pas',0,1,140,20,128,0,1 File_8=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\images.rc',0,1,1,13,1,0,0 File_9=SourceModule,'D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\images.rc',0,1,1,31,1,0,0 [Modules] Module0=c:\program files\borland\delphi7\source\vcl\appevnts.pas Module1=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas Module2=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas Module3=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas Module4=C:\Projects\Components\OCS2.3\Source\PluginModule.pas Module5=C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas Module6=C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas Module7=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas Module8=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas Module9=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr Count=10 EditWindowCount=1 [c:\program files\borland\delphi7\source\vcl\appevnts.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas] ModuleType=SourceModule FormState=0 FormOnTop=1 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Source\PluginModule.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas] ModuleType=SourceModule FormState=1 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\IB_DB Share Handle Sample.bpg] FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\IB_DB_SHARE.dpr] FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\Country.dpr] FormState=0 FormOnTop=0 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Customer\Customer.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=10 CurrentView=6 View0=0 View1=1 View2=2 View3=3 View4=4 View5=5 View6=6 View7=7 View8=8 View9=9 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=286 Top=117 Width=694 Height=485 MaxLeft=-1 MaxTop=-1 ClientWidth=686 ClientHeight=451 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=219 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=0000040000000000AE0200000000000002DB00000000000000010000000000000000000000000100000000AE020000000000000100000000AE020000000000000100000000AE0200000B0000004D65737361676556696577FFFFFFFF [View0] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\Parts.dpr CursorX=9 CursorY=6 TopLine=1 LeftCol=1 [View1] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas CursorX=44 CursorY=85 TopLine=79 LeftCol=1 [View2] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas CursorX=16 CursorY=98 TopLine=90 LeftCol=1 [View3] Module=C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas CursorX=28 CursorY=974 TopLine=963 LeftCol=1 [View4] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas CursorX=1 CursorY=85 TopLine=74 LeftCol=1 [View5] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas CursorX=1 CursorY=66 TopLine=61 LeftCol=1 [View6] Module=c:\program files\borland\delphi7\source\vcl\appevnts.pas CursorX=28 CursorY=431 TopLine=417 LeftCol=1 [View7] Module=C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas CursorX=53 CursorY=82 TopLine=72 LeftCol=1 [View8] Module=C:\Projects\Components\OCS2.3\Source\PluginModule.pas CursorX=18 CursorY=1 TopLine=1 LeftCol=1 [View9] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas CursorX=7 CursorY=55 TopLine=50 LeftCol=1 [Watches] Count=0 [WatchWindow] WatchColumnWidth=100 WatchShowColumnHeaders=1 Create=1 Visible=0 State=0 Left=17 Top=503 Width=426 Height=157 MaxLeft=-1 MaxTop=-1 ClientWidth=418 ClientHeight=129 TBDockHeight=157 LRDockWidth=426 Dockable=1 [Breakpoints] Count=6 Breakpoint0='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas',95,'',0,1,'',1,0,0,'',1,'','','' Breakpoint1='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas',53,'',0,1,'',1,0,0,'',1,'','','' Breakpoint2='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas',91,'',0,1,'',1,0,0,'',1,'','','' Breakpoint3='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas',66,'',0,1,'',1,0,0,'',1,'','','' Breakpoint4='c:\program files\borland\delphi7\source\vcl\Forms.pas',7049,'',0,1,'',1,0,0,'',1,'','','' Breakpoint5='C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas',63,'',0,1,'',1,0,0,'',1,'','','' [AddressBreakpoints] Count=0 [Main Window] Create=1 Visible=1 State=0 Left=0 Top=0 Width=1024 Height=112 MaxLeft=-1 MaxTop=-1 ClientWidth=1016 ClientHeight=78 [ProjectManager] Create=1 Visible=1 State=0 Left=0 Top=0 Width=237 Height=536 MaxLeft=-1 MaxTop=-1 ClientWidth=237 ClientHeight=536 TBDockHeight=305 LRDockWidth=438 Dockable=1 [AlignmentPalette] Create=1 Visible=0 State=0 Left=200 Top=114 Width=156 Height=86 MaxLeft=-1 MaxTop=-1 ClientWidth=150 ClientHeight=60 [PropertyInspector] Create=1 Visible=1 State=0 Left=0 Top=0 Width=237 Height=536 MaxLeft=-1 MaxTop=-1 ClientWidth=237 ClientHeight=536 TBDockHeight=367 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name SelectedItem=Caption ExpandedItems=Options HiddenCategories= [BreakpointWindow] Create=1 Visible=0 State=0 Left=17 Top=503 Width=737 Height=197 MaxLeft=-1 MaxTop=-1 ClientWidth=729 ClientHeight=169 TBDockHeight=197 LRDockWidth=737 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=17 Top=503 Width=294 Height=161 MaxLeft=-1 MaxTop=-1 ClientWidth=286 ClientHeight=133 TBDockHeight=161 LRDockWidth=294 Dockable=1 [ThreadStatusWindow] Create=1 Visible=0 State=0 Left=17 Top=503 Width=624 Height=152 MaxLeft=-1 MaxTop=-1 ClientWidth=616 ClientHeight=124 TBDockHeight=152 LRDockWidth=624 Dockable=1 Column0Width=145 Column1Width=100 Column2Width=115 Column3Width=250 [ObjectTree] Create=1 Visible=1 State=0 Left=0 Top=0 Width=237 Height=536 MaxLeft=-1 MaxTop=-1 ClientWidth=237 ClientHeight=536 TBDockHeight=248 LRDockWidth=190 Dockable=1 [DebugLogView] Create=1 Visible=0 State=0 Left=17 Top=505 Width=696 Height=216 MaxLeft=-1 MaxTop=-1 ClientWidth=688 ClientHeight=188 TBDockHeight=291 LRDockWidth=417 Dockable=1 [LocalVarsWindow] Create=1 Visible=0 State=0 Left=17 Top=503 Width=421 Height=191 MaxLeft=-1 MaxTop=-1 ClientWidth=413 ClientHeight=163 TBDockHeight=191 LRDockWidth=421 Dockable=1 [ModuleWindow] Create=1 Visible=0 State=0 Left=17 Top=503 Width=638 Height=355 MaxLeft=-1 MaxTop=-1 ClientWidth=630 ClientHeight=327 TBDockHeight=355 LRDockWidth=638 Dockable=1 Column0Width=125 Column1Width=100 Column2Width=155 EntryPointPane=225 CompUnitPane=104 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=0 Width=237 Height=536 MaxLeft=-1 MaxTop=-1 ClientWidth=237 ClientHeight=536 TBDockHeight=439 LRDockWidth=237 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=1 State=0 Left=12 Top=0 Width=674 Height=219 MaxLeft=-1 MaxTop=-1 ClientWidth=674 ClientHeight=219 TBDockHeight=219 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=1 State=0 Left=5 Top=115 Width=272 Height=572 MaxLeft=-1 MaxTop=-1 ClientWidth=264 ClientHeight=544 TBDockHeight=367 LRDockWidth=190 Dockable=1 TabPosition=2 ActiveTab=Project Manager TabDockClients=PropertyInspector,ObjectTree,CodeExplorer@EditWindow0,ProjectManager [ActiveProject] ActiveProject=2 --- NEW FILE: HostShared.pas --- unit HostShared; interface uses OrckaPluginManagerShared; type THostShared = class procedure SetTitle(NewTitle: TSmallString); virtual; abstract; function OpenFile: Boolean; virtual; abstract; end; implementation end. |
