ocs-comps-commits Mailing List for OCS Component Suite (Page 2)
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) |
|---|
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/LabelEdit/DB In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/LabelEdit/DB Added Files: Project1.cfg Project1.dof Project1.dpr Project1.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: Project1.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: Project1.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=0 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=Orcka FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright=Copyright © 2000. Orcka Development. 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\hlSearchPath] Count=2 Item0=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source Item1=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source;d:\orcka\source [HistoryLists\hlOutputDirectorry] Count=2 Item0=C:\Inetpub\wwwroot\cgi-bin Item1=E:\Orcka [HistoryLists\hlBPLOutput] Count=1 Item0=D:\Orcka\D5 --- NEW FILE: Project1.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Project1.dpr --- program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OrckaLabelEdit, OrckaDBLabelEdit, ExtCtrls, DBCtrls, Db, DBTables; type TForm1 = class(TForm) Table1: TTable; DBNavigator1: TDBNavigator; OrckaDBLabelEdit1: TOrckaDBLabelEdit; DataSource1: TDataSource; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/DBShare/Interbase/Prog In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/DBShare/Interbase/Prog Added Files: Country.dll Customer.dll IB_DB_SHARE.exe IB_DB_SHARE.ini Log Message: Initially added to source control --- NEW FILE: Country.dll --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Customer.dll --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IB_DB_SHARE.exe --- (This appears to be a binary file; contents omitted.) --- NEW FILE: IB_DB_SHARE.ini --- [Database] DB Location=C:\Program Files\Firebird\Firebird_1_5_64000\examples\EMPLOYEE.FDB Password=masterkey |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/Tip of The Day In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/Tip of The Day Added Files: HintsTipsUnit.pas TipOfDayForm.dfm TipOfDayForm.pas tod.bmp totd.cfg totd.dof totd.dpr totd.dsk totd.res Log Message: Initially added to source control --- NEW FILE: totd.dsk --- [Closed Files] File_0=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaButton.pas',0,1,245,26,256,0,0 File_1=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaPluginManager.pas',0,1,2339,21,2346,0,0 File_2=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaPluginManagerShared.pas',0,1,51,1,59,0,0 File_3=SourceModule,'C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Host\uMain.pas',0,1,90,16,98,1,0 File_4=SourceModule,'C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryUnit.pas',0,1,79,1,88,0,0 File_5=SourceModule,'C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Country\CountryForm.pas',0,1,36,1,63,1,0 File_6=SourceModule,'C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsForm.pas',0,1,50,7,55,1,1 File_7=SourceModule,'C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\DBShare\Interbase\Clients\Parts\PartsUnit.pas',0,1,74,1,85,0,0 File_8=SourceModule,'C:\Projects\Components\OCS2.3\Source\OrckaDV.inc',0,1,142,19,145,0,0 File_9=SourceModule,'D:\Program Files\Borland\Delphi6\Demos\Db\MastApp\DataMod.pas',0,1,1,1,1,0,0 [Modules] Module0=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\Tip of The Day\totd.dpr Count=1 EditWindowCount=1 [C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\Tip of The Day\totd.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [C:\Program Files\Borland\Delphi7\Projects\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 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=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D65737361676556696577AE02000000000000025500000000000000010000000000000000000000000100000000AE02000000000000FFFFFFFF [View0] Module=C:\Projects\Components\OCS2.3\Samples\VCL\PluginManager\Tip of The Day\totd.dpr CursorX=1 CursorY=1 TopLine=1 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=0 [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= 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=0 State=0 Left=12 Top=0 Width=674 Height=85 MaxLeft=-1 MaxTop=-1 ClientWidth=674 ClientHeight=85 TBDockHeight=85 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 --- NEW FILE: TipOfDayForm.pas --- unit TipOfDayForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OrckaPluginManagerShared, ExtCtrls; type TfrmTipOfDay = class(TForm) btnClose: TButton; btnNextTip: TButton; cbShowStart: TCheckBox; pnlBackGround: TPanel; shpBackGround: TShape; lblDidYouKnow: TLabel; lblTip: TLabel; Image1: TImage; procedure btnCloseClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure btnNextTipClick(Sender: TObject); private FService: TPluginServices; FTipCount: Cardinal; FCurrentTip: Cardinal; procedure GetNextTip(TipID: Longint = -1); public constructor Create(AOwner: TComponent; AService: TPluginServices; ShowAtStart: Boolean); reintroduce; overload; procedure GetSettings; property PluginService: TPluginServices read FService; property TipCount: Cardinal read FTipCount; property CurrentTip: Cardinal read FCurrentTip; end; var frmTipOfDay: TfrmTipOfDay = nil; resourcestring sSectionName = 'Tip Of The Day'; sTipCount = 'Count'; sShowAtStart = 'Show at start'; sBackColor = 'Back Color'; sCaption = 'Caption'; sTitle = 'Title'; sDefaultCaption = 'Did you know...'; sDefaultTitle = 'Tip of the Day'; sNoTips = 'I''m all out of tips for today.'; sLeft = 'Left'; sTop = 'Top'; sWidth = 'Width'; sHeight = 'Height'; sFlatEfect = 'Flat Controls'; implementation {$R *.dfm} { TForm3 } constructor TfrmTipOfDay.Create(AOwner: TComponent; AService: TPluginServices; ShowAtStart: Boolean); begin inherited Create(AOwner); cbShowStart.Visible := ShowAtStart; FService := AService; GetSettings; end; procedure TfrmTipOfDay.btnCloseClick(Sender: TObject); begin Close; end; procedure TfrmTipOfDay.FormClose(Sender: TObject; var Action: TCloseAction); begin PluginService.WriteBool(StringToOString(sSectionName), StringToOString(sShowAtStart), cbShowStart.Visible and cbShowStart.checked); PluginService.WriteInteger(StringToOString(sSectionName), StringToOString(sLeft), Left); PluginService.WriteInteger(StringToOString(sSectionName), StringToOString(sTop), Top); PluginService.WriteInteger(StringToOString(sSectionName), StringToOString(sWidth), Width); PluginService.WriteInteger(StringToOString(sSectionName), StringToOString(sHeight), Height); end; procedure TfrmTipOfDay.GetNextTip(TipID: Integer); var NewID: Cardinal; begin if (TipID = -1) and (FTipCount > 0) then begin repeat NewID := Random(FTipCount) + 1; until NewID <> FCurrentTip; FCurrentTip := NewID; end; lblTip.Caption := StringReplace(PluginService.ReadString( StringToOString(sSectionName), StringToOString(Format('Tip%d', [FCurrentTip])), StringToOString(sNoTips)), '\s', #13, [rfReplaceAll, rfIgnoreCase]); end; procedure TfrmTipOfDay.btnNextTipClick(Sender: TObject); begin GetNextTip; end; procedure TfrmTipOfDay.GetSettings; begin FTipCount := PluginService.ReadInteger(StringToOString(sSectionName), StringToOString(sTipCount), 0); cbShowStart.Checked := PluginService.ReadBool(StringToOString(sSectionName), StringToOString(sShowAtStart), True); FCurrentTip := Random(FTipCount) + 1; GetNextTip(FCurrentTip); shpBackGround.Brush.Color := PluginService.ReadInteger( StringToOString(sSectionName), StringToOString(sBackColor), clInfoBk); Caption := PluginService.ReadString(StringToOString(sSectionName), StringToOString(sTitle), StringToOString(sDefaultTitle)); lblDidYouKnow.Caption := PluginService.ReadString( StringToOString(sSectionName), StringToOString(sCaption), StringToOString(sDefaultCaption)); if PluginService.ReadBool(StringToOString(sSectionName), StringToOString(sFlatEfect), False) then pnlBackGround.BevelOuter := bvNone; (* Read in the form position/settings *) Left := PluginService.ReadInteger(StringToOString(sSectionName), StringToOString(sLeft), Left); Top := PluginService.ReadInteger(StringToOString(sSectionName), StringToOString(sTop), Top); Width := PluginService.ReadInteger(StringToOString(sSectionName), StringToOString(sWidth), Width); Height := PluginService.ReadInteger(StringToOString(sSectionName), StringToOString(sHeight), Height); end; initialization Randomize; end. --- NEW FILE: totd.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: HintsTipsUnit.pas --- unit HintsTipsUnit; interface uses Windows, Messages, OrckaPluginManagerShared; type THintsTips = class(TPluginClient) private FService: TPluginServices; FCanShowAtStart: Boolean; FShownAtStart: Boolean; (* Menu's *) FCreateHelpMenu: Boolean; FmnuHelp: TOMenuItem; FmnuHelpTips: TOMenuItem; FmnuHelpSep: TOMenuItem; protected (* Menu Click Events *) procedure mnuHelpTipsClickEvent(Sender: TOMenuItem); 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, Forms, TipOfDayForm; var Plugin: THintsTips = nil; procedure PluginUnload; stdcall; begin Plugin.Free; end; function PluginLoad(InParams: TOrckaPluginManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Result := True; try Plugin := THintsTips.CreateNew(TPluginServices(InParams.PluginService)); Application.Handle := InParams.AppHandle; ExitProc := @PluginUnload; except Result := False; end; end; procedure PluginDescription(var Name, Description: TMediumString); stdcall; begin FillChar(Name, SizeOf(TMediumString), 0); StrPCopy(Name, 'HintsTips'); FillChar(Description, SizeOf(TMediumString), 0); StrPCopy(Description, 'Application Hints and Tips'); end; exports PluginLoad name OrckaPluginManagerExportProc2, PluginDescription name OrckaPluginManagerDescription; { TNewPlugin } (* Menu Click Events *) procedure THintsTips.mnuHelpTipsClickEvent(Sender: TOMenuItem); begin if not Assigned(frmTipOfDay) then frmTipOfDay := TfrmTipOfDay.Create(nil, FService, FCanShowAtStart); if FService.ReadBool(StringToOString(sSectionName), 'ShowModal', True) then begin frmTipOfDay.ShowModal; FreeAndNil(frmTipOfDay); end else begin frmTipOfDay.GetSettings; frmTipOfDay.Show; SetForegroundWindow(frmTipOfDay.Handle); end; end; { Standard methods } procedure THintsTips.AfterClose(PEType: TPluginEventType); begin end; procedure THintsTips.AfterNew(PEType: TPluginEventType); begin end; procedure THintsTips.BeforeClose(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure THintsTips.BeforeNew(PEType: TPluginEventType; var Cancel: Boolean); begin end; procedure THintsTips.CreateButtons; begin end; procedure THintsTips.CreateMenuItems; begin Fmnuhelp := FService.FindMenu('Help'); if not Assigned(FmnuHelp) then begin FmnuHelp := FService.InsertMenu(FService.GetMenuCount, nil, StringToOString('&Help'), nil); FCreateHelpMenu := True; end; if Assigned(FmnuHelp) then begin FmnuHelpSep := FService.InsertMenu(FmnuHelp.GetItemCount - 2, FmnuHelp, StringToOString('-'), nil); FmnuHelpTips := FService.InsertMenu(FmnuHelp.GetItemCount - 2, FmnuHelp, StringToOString('&Tips'), mnuHelpTipsClickEvent); end; end; constructor THintsTips.CreateNew(AService: TPluginServices); begin FShownAtStart := False; inherited Create; FCreateHelpMenu := False; FService := AService; FService.PluginClientInsert(Self); FCanShowAtStart := FService.PluginClientIncludeAppEvent(Self, poOnIdle); end; procedure THintsTips.DeleteButtons; begin end; procedure THintsTips.DeleteMenuItems; begin if Assigned(frmTipOfDay) then FreeAndNil(frmTipOfDay); FService.RemoveMenu(FmnuHelpTips); FService.RemoveMenu(FmnuHelpSep); if FCreateHelpMenu then FService.RemoveMenu(FmnuHelp); end; destructor THintsTips.Destroy; begin FService.PluginClientRemove(Self); inherited Destroy; end; function THintsTips.GetName: TOString; begin Result := StringToOString('HintsTips'); end; procedure THintsTips.OnActivate; begin end; procedure THintsTips.OnDeactivate; begin end; procedure THintsTips.OnException(ClassName: TMediumString; ErrorMessage: TLargeString); begin end; procedure THintsTips.OnHelp(Command: Word; Data: Integer; var CallHelp: Boolean); begin end; procedure THintsTips.OnHint; begin end; procedure THintsTips.OnIdle(var Done: Boolean); begin if (not FShownAtStart) and (FCanShowAtStart) then begin FShownAtStart := True; if FService.ReadBool(StringToOString(sSectionName), StringToOString(sShowAtStart), True) then mnuHelpTipsClickEvent(nil); end; end; procedure THintsTips.OnMessage(var Msg: TMsg; var Handled: Boolean); begin end; procedure THintsTips.OnMinimize; begin end; procedure THintsTips.OnRestore; begin end; procedure THintsTips.OnSettingsChanged(Flag: Integer; const Section: string; var Result: Integer); begin end; procedure THintsTips.OnShortCut(var Msg: TWMKey; var Handled: Boolean); begin end; procedure THintsTips.Open(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; procedure THintsTips.Save(PEType: TPluginEventType; var Name: TLargeString; var Handled: Boolean); begin end; end. --- NEW FILE: totd.dpr --- library totd; uses HintsTipsUnit in 'HintsTipsUnit.pas', TipOfDayForm in 'TipOfDayForm.pas' {frmTipOfDay}; {$R *.res} begin end. --- NEW FILE: totd.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\nws\plugins" -LE"c:\program files\borland\delphi6\Projects\Bpl" -LN"c:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: tod.bmp --- (This appears to be a binary file; contents omitted.) --- NEW FILE: totd.dof --- [FileVersion] Version=6.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; [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=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\Project1\Project1.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=3 Item0=C:\Projects\nws\plugins Item1=D:\Program Files\Orcka\Project1\Plugins Item2=D:\Program Files\Orcka\Project1 --- NEW FILE: TipOfDayForm.dfm --- object frmTipOfDay: TfrmTipOfDay Left = 227 Top = 107 Width = 375 Height = 240 ActiveControl = btnNextTip BorderIcons = [biSystemMenu] Caption = 'Tip of the Day' Color = clBtnFace Constraints.MinHeight = 240 Constraints.MinWidth = 375 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose DesignSize = ( 367 213) PixelsPerInch = 96 TextHeight = 13 object btnClose: TButton Left = 287 Top = 182 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Close' TabOrder = 0 OnClick = btnCloseClick end object btnNextTip: TButton Left = 207 Top = 182 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Next Tip' Default = True TabOrder = 1 OnClick = btnNextTipClick end object cbShowStart: TCheckBox Left = 8 Top = 186 Width = 97 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Show at Startup' TabOrder = 2 end object pnlBackGround: TPanel Left = 8 Top = 8 Width = 353 Height = 169 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvLowered TabOrder = 3 DesignSize = ( 353 169) object shpBackGround: TShape Left = 1 Top = 1 Width = 351 Height = 167 Align = alClient Brush.Color = clInfoBk Pen.Style = psClear end object lblDidYouKnow: TLabel Left = 64 Top = 8 Width = 181 Height = 35 Caption = 'Did you know...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = 'Comic Sans MS' Font.Style = [fsBold] ParentFont = False Transparent = True end object lblTip: TLabel Left = 64 Top = 48 Width = 280 Height = 113 Anchors = [akLeft, akTop, akRight, akBottom] AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False Transparent = True WordWrap = True end object Image1: TImage Left = 8 Top = 16 Width = 46 Height = 64 Picture.Data = { 07544269746D617036090000424D360900000000000036000000280000001700 000020000000010018000000000000090000C40E0000C40E0000000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFF808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF808080808080808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFF808080808080808080808080808080FFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8080808080808080800000008080 80808080808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF808080808080808080 000000FFFF00000000808080808080808080FFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80808080 8080808080000000FFFF00FFFFFFFFFF00000000808080808080808080FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF FF808080808080808080000000FFFF00FFFFFFFFFF00FFFFFFFFFF0000000080 8080808080808080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFFFFFFFF808080808080808080000000FFFF00FFFFFFFFFF00FFFFFFFFFF 00FFFFFFFFFF00000000808080808080808080FFFFFFFFFFFFFFFFFFFFFFFF00 0000FFFFFFFFFFFFFFFFFF808080808080808080000000FFFF00FFFFFFFFFF00 000000000000000000FFFF00FFFFFFFFFF00000000808080808080808080FFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFF808080808080808080000000FFFF00FF FFFFFFFF00000000000000000000000000000000FFFF00FFFFFFFFFF00000000 808080808080808080FFFFFFFFFFFF000000FFFFFF8080808080808080800000 00FFFF00FFFFFFFFFF00808080808080FFFFFFC0C0C0C0C0C0000000000000FF FF00FFFFFFFFFF00000000808080808080808080FFFFFF000000808080808080 808080000000FFFF00FFFFFFFFFF00FFFFFF808080FFFFFF0000000000000000 00C0C0C0000000FFFFFFFFFF00FFFFFFFFFF0000000080808080808080808000 0000FFFFFF808080000000FFFF00FFFFFFFFFF00FFFFFF808080808080000000 FFFFFFC0C0C0C0C0C0000000000000000000FFFFFFFFFF00FFFFFFFFFF000000 00808080FFFFFF000000FFFFFF000000FFFF00FFFFFFFFFF00FFFFFFFFFF0080 8080FFFFFFFFFFFF000000000000000000C0C0C0C0C0C0000000FFFF00FFFFFF FFFF00FFFFFFFFFF00000000FFFFFF000000000000FFFF00FFFFFFFFFF00FFFF FFFFFF00FFFFFF80808000000000000000808000808000808000000000000000 0000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00000000000000FFFFFF808080 FFFF00FFFFFFFFFF00FFFFFFFFFF0000000000808000808000FFFF00FFFF00FF FF008080008080000000FFFF00FFFFFFFFFF00FFFFFFFFFF00000000FFFFFF00 0000FFFFFFFFFFFF808080FFFF00FFFFFFFFFF0000000000808000FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF008080000000FFFF00FFFFFFFFFF000000 00FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF808080FFFF00FFFFFF00000000 808000FFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF008080000000FFFFFF FFFF00000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF8080 8000000000808000FFFF00FFFF00FFFF80808000000080808000FFFF00FFFF00 FFFF008080000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFFFFFFFF00000000808000FFFF00FFFFFFFFFF00FFFF0000000000000000 0000FFFFFFFFFF00FFFFFFFFFF008080000000FFFFFFFFFFFFFFFFFFFFFFFF00 0000FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFF00FFFF00FFFF00FFFFFFFFFF 808080000000808080FFFFFF00FFFF00FFFF00FFFF008080000000FFFFFFFFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF00808000FFFF00FFFFFFFFFF00 FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF 008080000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF00808000FF FF00FFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF00000000FFFFFFFFFF00FFFFFF FFFF00FFFF00FFFF008080000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFF008080FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF FF00FFFFFFFFFF00FFFFFFFFFF00FFFF008080000000FFFFFFFFFFFFFFFFFF00 0000FFFFFFFFFFFFFFFFFF00808000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 808080000000808080FFFFFF00FFFFFFFFFF00FFFF00FFFF008080000000FFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF00808000FFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF00000000000000000000FFFFFFFFFF00FFFFFFFFFF00FFFF 008080000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0080 80FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF00FFFFFF FFFF00FFFF00FFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFFFFFFFF00808000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000 0000FFFFFFFFFF00FFFFFFFFFF00FFFF000000FFFFFFFFFFFFFFFFFFFFFFFF00 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00808000FFFFFFFFFFFFFFFFFFFFFF 808080000000808080FFFFFF00FFFF00FFFF00FFFF000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00808000 FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF008080FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF00808000808000FFFF00FFFF00FFFF00FFFF00FFFF00808000 8080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0080800080800080800080 80008080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 0000} Stretch = True Transparent = True end end end |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ButtonEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/ButtonEdit Added Files: ButtonEdit.dpr ButtonEdit.res Unit2.dfm Unit2.pas Log Message: Initially added to source control --- NEW FILE: ButtonEdit.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Unit2.pas --- unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OrckaEdit, Grids, DBGrids, Db, DBTables; type TForm2 = class(TForm) GroupBox1: TGroupBox; OrckaButtonEdit1: TOrckaButtonEdit; OpenDialog1: TOpenDialog; CheckBox1: TCheckBox; GroupBox2: TGroupBox; OrckaButtonEdit2: TOrckaButtonEdit; Memo1: TMemo; Label1: TLabel; GroupBox3: TGroupBox; Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; OrckaButtonEdit3: TOrckaButtonEdit; Label2: TLabel; procedure OrckaButtonEdit1ButtonClick(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure OrckaButtonEdit2ButtonClick(Sender: TObject); procedure OrckaButtonEdit3ButtonClick(Sender: TObject); private { Private declarations } public end; var Form2: TForm2; implementation {$R *.DFM} procedure TForm2.OrckaButtonEdit1ButtonClick(Sender: TObject); begin if OpenDialog1.Execute then OrckaButtonEdit1.Text := OpenDialog1.FileName; end; procedure TForm2.CheckBox1Click(Sender: TObject); begin OrckaButtonEdit1.UseEnter := CheckBox1.Checked; OrckaButtonEdit2.UseEnter := CheckBox1.Checked; OrckaButtonEdit3.UseEnter := CheckBox1.Checked; end; procedure TForm2.OrckaButtonEdit2ButtonClick(Sender: TObject); var StartPos: Longint; begin StartPos := Pos(OrckaButtonEdit2.Text, Memo1.Text) -1; if StartPos > -1 then begin Memo1.SelStart := StartPos; memo1.SelLength := Length(OrckaButtonEdit2.Text); Memo1.SetFocus; end else ShowMessage(Format('"%s" was not found', [OrckaButtonEdit2.Text])); end; procedure TForm2.OrckaButtonEdit3ButtonClick(Sender: TObject); begin if OrckaButtonEdit3.Text = '' then Table1.Filtered := False else begin if Table1.Filtered then Table1.Filtered := False; Table1.Filter := Format('LastName = ''%s''', [OrckaButtonEdit3.Text]); Table1.Filtered := True; end; end; end. --- NEW FILE: Unit2.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ButtonEdit.dpr --- program ButtonEdit; uses Forms, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm2, Form2); Application.Run; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/GroupBox In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/GroupBox Added Files: GroupBox.dpr GroupBox.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: GroupBox.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: GroupBox.dpr --- program GroupBox; uses Forms, Unit1 in 'Unit1.pas' {Form1}, OrckaGroupBox in '..\..\source\OrckaGroupBox.pas'; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OrckaGroupBox; type TForm1 = class(TForm) OrckaRadioGroupBox1: TOrckaRadioGroupBox; OrckaRadioGroupBox2: TOrckaRadioGroupBox; OrckaRadioGroupBox3: TOrckaRadioGroupBox; OrckaCheckGroupBox1: TOrckaCheckGroupBox; OrckaCheckGroupBox2: TOrckaCheckGroupBox; OrckaCheckGroupBox3: TOrckaCheckGroupBox; CheckBox1: TCheckBox; CheckBox2: TCheckBox; Button1: TButton; Edit1: TEdit; Label1: TLabel; CheckBox3: TCheckBox; RadioButton1: TRadioButton; ListBox1: TListBox; procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CheckBox1Click(Sender: TObject); begin OrckaRadioGroupBox1.AutoDisable := CheckBox1.Checked; OrckaRadioGroupBox2.AutoDisable := CheckBox1.Checked; OrckaRadioGroupBox3.AutoDisable := CheckBox1.Checked; OrckaCheckGroupBox1.AutoDisable := CheckBox1.Checked; OrckaCheckGroupBox2.AutoDisable := CheckBox1.Checked; OrckaCheckGroupBox3.AutoDisable := CheckBox1.Checked; end; procedure TForm1.CheckBox2Click(Sender: TObject); var GroupNo: Longint; begin if CheckBox2.Checked then GroupNo := 1 else GroupNo := 0; OrckaCheckGroupBox1.GroupIndex := GroupNo; OrckaCheckGroupBox2.GroupIndex := GroupNo; OrckaCheckGroupBox3.GroupIndex := GroupNo; end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/Simple In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/Simple Added Files: AddinForm.dfm AddinForm.pas SimpleAddinManager.cfg SimpleAddinManager.dof SimpleAddinManager.dpr SimpleAddinManager.res Log Message: Initially added to source control --- NEW FILE: SimpleAddinManager.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SimpleAddinManager.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 -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: SimpleAddinManager.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] 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;inetdbbde;inet;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k;ibam;tb2k_d6;OrckaD6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [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=1033 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: AddinForm.pas --- unit AddinForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OrckaAddinManager, ComCtrls, Menus, ImgList, ExtCtrls, OrckaAddinManagerShared, Buttons, OrckaButton, StdCtrls; type TForm4 = class(TForm) OrckaAddinManager1: TOrckaAddinManager; MainMenu1: TMainMenu; mnuFile: TMenuItem; mnuClose: TMenuItem; mnuPlugins: TMenuItem; mnuLoad: TMenuItem; mnuUnload: TMenuItem; mnuHelp: TMenuItem; mnuAbout: TMenuItem; StatusBar1: TStatusBar; OpenDialog1: TOpenDialog; ControlBar1: TControlBar; ImageList1: TImageList; procedure mnuCloseClick(Sender: TObject); procedure mnuLoadClick(Sender: TObject); procedure mnuUnloadClick(Sender: TObject); procedure mnuAboutClick(Sender: TObject); procedure OrckaAddinManager1GetHandle(Sender: TObject; var Hwnd: Integer); procedure OrckaAddinManager1GetRegLocation(Sender: TObject; var RegistryLocaion: String); procedure OrckaAddinManager1GetAddinParams(Sender: TObject; AddinManagerParams: TOrckaAddinManagerParams); procedure FormCreate(Sender: TObject); private procedure AppHint(Sender: TObject); public { Public declarations } end; var Form4: TForm4; implementation {$R *.DFM} resourcestring sDemo = 'Demo Application for Orcka Addin Manager' + #13#13'Copyright © 2000. Orcka.'; sRegLocation = 'Software\Orcka\AddinManagerDemo\'; procedure TForm4.mnuCloseClick(Sender: TObject); begin Close; end; procedure TForm4.mnuLoadClick(Sender: TObject); begin if OpenDialog1.Execute then begin OrckaAddinManager1.LoadAddin(OpenDialog1.FileName); mnuLoad.Enabled := False; mnuUnLoad.Enabled := True; end; end; procedure TForm4.mnuUnloadClick(Sender: TObject); begin {Unload the first plugin} OrckaAddinManager1.UnloadAddin(OpenDialog1.FileName); mnuUnLoad.Enabled := False; mnuLoad.Enabled := True; end; procedure TForm4.mnuAboutClick(Sender: TObject); begin MessageBox(Handle, PChar(sDemo), PChar(Application.Title), MB_OK or MB_ICONINFORMATION); end; procedure TForm4.OrckaAddinManager1GetHandle(Sender: TObject; var Hwnd: Integer); begin Hwnd := Handle; end; procedure TForm4.OrckaAddinManager1GetRegLocation(Sender: TObject; var RegistryLocaion: String); begin RegistryLocaion := sRegLocation; end; procedure TForm4.OrckaAddinManager1GetAddinParams(Sender: TObject; AddinManagerParams: TOrckaAddinManagerParams); begin AddinManagerParams.AppHandle := Application.Handle; end; procedure TForm4.AppHint(Sender: TObject); begin StatusBar1.SimpleText := Application.Hint; StatusBar1.SimplePanel := CompareText(StatusBar1.SimpleText, '') <> 0; end; procedure TForm4.FormCreate(Sender: TObject); begin Application.OnHint := AppHint; end; end. --- NEW FILE: AddinForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SimpleAddinManager.dpr --- program SimpleAddinManager; uses Forms, AddinForm in 'AddinForm.pas' {Form4}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm4, Form4); Application.Run; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:49
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/Simple/Plugins/SysInfo In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/Simple/Plugins/SysInfo Added Files: sysinf.cfg sysinf.dof sysinf.dpr sysinf.res SYSPICS.RES Log Message: Initially added to source control --- NEW FILE: sysinf.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SYSPICS.RES --- (This appears to be a binary file; contents omitted.) --- NEW FILE: sysinf.dpr --- library SysInf; uses Windows, SysUtils, Graphics, OrckaButton, Menus, Classes, OrckaAddinManagerShared; {$R *.RES} {$R syspics.res} type TPluginInfo = class private Service: TOToolServices; mnuInfo: TOMenuItem; mnuUserName: TOMenuItem; mnuCompName: TOMenuItem; mnuFreeRam: TOMenuItem; btnUserName: TOButtonItem; btnCompName: TOButtonItem; btnFreeRam: TOButtonItem; btnSeperator: TOButtonItem; procedure ShowUserName; procedure ShowCompName; procedure ShowFreeRam; public constructor Create(AService: TOToolServices); destructor Destroy; override; procedure UserNameMenuClick(Sender: TOMenuItem); procedure CompNameMenuClick(Sender: TOMenuItem); procedure FreeRamMenuClick(Sender: TOMenuItem); procedure UserNameButtonClick(Sender: TOButtonItem); procedure CompNameButtonClick(Sender: TOButtonItem); procedure FreeRamButtonClick(Sender: TOButtonItem); procedure OtherButtonClick(Sender: TOButtonItem); end; var Info: TPluginInfo; resourcestring sUserHint = 'User Name|Displays The User Name for the currently logged on user'; sHolder = 'SystemInfo'; sCompHint = 'Computer Name|Displays the name of the computer'; sRamHint = 'Memory|Displays amount of available and free RAM'; sInfoHint = 'Displays System Information'; SMemory = 'Total Memory %d KB'#13'Available Memory %d KB'; procedure PluginExit; stdcall; begin Info.Free; end; function Plugin (InParams: TOrckaAddinManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin Info := TPluginInfo.Create(InParams.Service); ExitProc := @PluginExit; Result := True; end; exports Plugin name OrckaAddinManagerExportProc; { TPluginInfo } procedure TPluginInfo.CompNameButtonClick(Sender: TOButtonItem); begin ShowCompName; end; procedure TPluginInfo.CompNameMenuClick(Sender: TOMenuItem); begin ShowCompName; end; constructor TPluginInfo.Create(AService: TOToolServices); var bmp: TBitmap; begin Service := AService; {Add Menu's} mnuInfo := Service.InsertMenu(1, nil, '&Info', nil); mnuInfo.SetHint(StringToOString(sInfoHint)); mnuUserName := Service.InsertMenu(0, mnuInfo, '&User Name', UserNameMenuClick); mnuUserName.SetHint(StringToOString(sUserHint)); mnuCompName := Service.InsertMenu(1, mnuInfo, '&Computer Name', CompNameMenuClick); mnuCompName.SetHint(StringToOString(sCompHint)); mnuFreeRam := Service.InsertMenu(2, mnuInfo, 'Free &RAM', FreeRamMenuClick); mnuFreeRam.SetHint(StringToOString(sRamHint)); mnuFreeRam.SetShortCut(ShortCut(Word('R'), [ssCtrl])); {Add Buttons} btnUserName := Service.InsertButton(0, StringToOString(sHolder), StringToOString(sUserHint), UserNameButtonClick); btnSeperator := Service.InsertButton(2, StringToOString(sHolder), '', nil); btnSeperator.SetStyle(obVSeperator); btnCompName := Service.InsertButton(1, StringToOString(sHolder), StringToOString(sCompHint), CompNameButtonClick); btnFreeRam := Service.InsertButton(3, StringToOString(sHolder), StringToOString(sRamHint), FreeRamButtonClick); bmp := TBitmap.Create; try bmp.LoadFromResourceName(Hinstance, 'person'); btnUserName.SetImageIndex(Service.AddPicture(bmp.Handle)); mnuUserName.SetImageIndex(btnUserName.GetImageIndex); bmp.LoadFromResourceName(Hinstance, 'computer'); btnCompName.SetImageIndex(Service.AddPicture(bmp.Handle)); mnuCompName.SetImageIndex(btnCompName.GetImageIndex); bmp.LoadFromResourceName(Hinstance, 'ram'); btnFreeRam.SetImageIndex(Service.AddPicture(bmp.Handle)); mnuFreeRam.SetImageIndex(btnFreeRam.GetImageIndex); finally bmp.Free; end; end; destructor TPluginInfo.Destroy; begin {RemoveMenu's} Service.RemoveMenu(mnuFreeRam); Service.RemoveMenu(mnuCompName); Service.RemoveMenu(mnuUserName); Service.RemoveMenu(mnuInfo); {Remove Buttons} Service.RemoveButton(btnCompName); Service.RemoveButton(btnFreeRam); Service.RemoveButton(btnSeperator); Service.RemoveButton(btnUserName); end; procedure TPluginInfo.FreeRamButtonClick(Sender: TOButtonItem); begin ShowFreeRam; end; procedure TPluginInfo.FreeRamMenuClick(Sender: TOMenuItem); begin ShowFreeRam; end; procedure TPluginInfo.OtherButtonClick(Sender: TOButtonItem); begin end; procedure TPluginInfo.ShowUserName; var UsrName: array[0..100] of Char; Len: Cardinal; begin Len := 100; if GetUserName(UsrName, Len) then Service.MsgBox(StringToOString(Copy(UsrName, 1, Len)), MB_OK or MB_ICONINFORMATION) else Service.MsgBox(StringToOString(SysErrorMessage(GetLastError)), MB_OK or MB_ICONSTOP); end; procedure TPluginInfo.ShowFreeRam; var MS: TMemoryStatus; begin GlobalMemoryStatus(MS); Service.MsgBox(StringtoOString(Format(sMemory, [MS.dwTotalPhys div 1024, MS.dwAvailPhys div 1024])), MB_OK or MB_ICONINFORMATION); end; procedure TPluginInfo.ShowCompName; var UsrName: array[0..100] of Char; Len: Cardinal; begin Len := 100; if GetComputerName(UsrName, Len) then Service.MsgBox(StringToOString(Copy(UsrName, 1, Len)), MB_OK or MB_ICONINFORMATION) else Service.MsgBox(StringToOString(SysErrorMessage(GetLastError)), MB_OK or MB_ICONSTOP); end; procedure TPluginInfo.UserNameButtonClick(Sender: TOButtonItem); begin ShowUserName; end; procedure TPluginInfo.UserNameMenuClick(Sender: TOMenuItem); begin ShowUserName; end; begin end. --- NEW FILE: sysinf.cfg --- -$A1 -$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"D:\Program Files\Other\TB2K\Demo" -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\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: sysinf.dof --- [FileVersion] Version=6.0 [Compiler] A=1 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=D:\Program Files\Other\TB2K\Demo 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=D:\Program Files\Other\TBX\DemoProj\Demo.exe Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang=$00000409 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=1 MajorVer=1 MinorVer=0 Release=0 Build=6 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=Orcka FileDescription= FileVersion=1.0.0.6 InternalName= LegalCopyright=Copyright © 2000. Orcka Development. 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 |
Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/AddinManager/Simple/Plugins/Web In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/AddinManager/Simple/Plugins/Web Added Files: MailForm.dfm MailForm.pas Web.cfg Web.conf Web.dof Web.dpr Web.kof Web.res Log Message: Initially added to source control --- NEW FILE: Web.kof --- [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= [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= DynamicLoader=/lib/ld-linux.so.2 [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=/home/simon/orcka/source/ Packages=baseclx:visualclx:visualdbclx:dataclx:indy:orckak1 Conditionals=SHAREMEM DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication=/home/simon/orcka/Samples/AddinManager/Simple/Plugins/Web/SimpleAddinManager Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% UseLauncher=0 DebugCWD= --- NEW FILE: Web.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: MailForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Web.dof --- [Compiler] A=1 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [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=1033 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: MailForm.pas --- unit MailForm; interface uses SysUtils, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls, QComCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdMessage; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet2: TTabSheet; Memo1: TMemo; Panel1: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Panel2: TPanel; Label11: TLabel; Button6: TButton; Edit10: TEdit; Edit4: TEdit; Label4: TLabel; Label2: TLabel; Edit2: TEdit; Label1: TLabel; Edit1: TEdit; Edit5: TEdit; Label5: TLabel; Label6: TLabel; Edit6: TEdit; IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; procedure SendEMail; implementation {$R *.dfm} procedure SendEMail; var Form1: TForm1; begin Form1 := TForm1.Create(nil); try Form1.ShowModal; finally Form1.Free; end; end; procedure TForm1.Button6Click(Sender: TObject); begin Screen.Cursor := crHourGlass; { Setup Sender Info } idSMTP1.Host := Edit1.Text; idSMTP1.Port := StrToInt(Edit2.Text); idSMTP1.UserID := Edit4.Text; { Connect } idSMTP1.Connect; { Setup message } IdMessage1.Sender.Address := Edit6.Text; IdMessage1.Sender.Name := Edit5.Text; IdMessage1.Subject := Edit10.Text; with IdMessage1.Recipients.Add do begin Name := Edit7.Text; Address := Edit7.Text; end; with IdMessage1.BCCList.Add do begin Name := Edit9.Text; Address := Edit9.Text; end; with IdMessage1.CCList.Add do begin Name := Edit8.Text; Address := Edit8.Text; end; IdMessage1.Body.Assign(Memo1.Lines); { Send } IdSMTP1.Send(IdMessage1); {Disconnect } idSMTP1.Disconnect; Screen.Cursor := crDefault; end; end. --- NEW FILE: Web.conf --- -$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 -H+ -W+ -M -$M16384,1048576 -K$00400000 -U"/home/simon/orcka/source/" -O"/home/simon/orcka/source/" -I"/home/simon/orcka/source/" -R"/home/simon/orcka/source/" -DSHAREMEM --- NEW FILE: Web.dpr --- library Web; uses QForms, QDialogs, SysUtils, OrckaAddinManagerShared, MailForm in 'MailForm.pas' {Form1}; {$I OrckaDV.inc} {$SOPREFIX ''} type TWebPlugin = class private Service: TOToolServices; //mnuHelpSep: TOMenuItem; mnuHelpWeb: TOMenuItem; mnuHelpWebHome: TOMenuItem; mnuHelpWebBorland: TOMenuItem; //mnuHelpWebSep: TOMenuItem; //mnuHelpWebEMail: TOMenuItem; public constructor Create(AService: TOToolServices); destructor Destroy; override; procedure WebPage(Sender: TOMenuItem); procedure EMail(Sender: TOMenuItem); end; var WebPlugin: TWebPlugin; resourcestring sNoHelpMenu = 'The help menu could not be found'; procedure PluginExit; stdcall; begin //Application.Handle := nil; //WebPlugin.Free; end; function Plugin (InParams: TOrckaAddinManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin //WebPlugin := TWebPlugin.Create(InParams.Service); //Application.Handle := InParams.AppHandle; //ExitProc := @PluginExit; Result := True; end; exports Plugin name OrckaAddinManagerExportProc; { TPluginInfo } constructor TWebPlugin.Create(AService: TOToolServices); var mnuHelp: TOMenuItem; begin Service := AService; {Get the Help menu} mnuHelp := Service.FindMenu('mnuHelp'); if not Assigned(mnuHelp) then raise Exception.Create(sNoHelpMenu); {Add Menu's} mnuHelpWeb := Service.InsertMenu(mnuHelp.GetItemCount - 1, mnuHelp, 'On the Web', nil); // mnuHelpSep := Service.InsertMenu(mnuHelp.GetItemCount -1, mnuHelp, '-', nil); mnuHelpWebHome := Service.InsertMenu(0, mnuHelpWeb, 'Orcka Home Page', WebPage); mnuHelpWebBorland := Service.InsertMenu(1, mnuHelpWeb, 'Borland Home Page', WebPage); // mnuHelpWebSep := Service.InsertMenu(2, mnuHelpWeb, '-', nil); // mnuHelpWebEMail := Service.InsertMenu(3, mnuHelpWeb, 'Send EMail', EMail); end; destructor TWebPlugin.Destroy; begin {RemoveMenu's} // Service.RemoveMenu(mnuHelpSep); Service.RemoveMenu(mnuHelpWeb); Service.RemoveMenu(mnuHelpWebHome); Service.RemoveMenu(mnuHelpWebBorland); // Service.RemoveMenu(mnuHelpWebSep); // Service.RemoveMenu(mnuHelpWebEMail); end; procedure TWebPlugin.EMail(Sender: TOMenuItem); begin SendEMail; end; procedure TWebPlugin.WebPage(Sender: TOMenuItem); var sURL: string; begin if Sender = mnuHelpWebBorland then sURL := 'http://www.borland.com' else sURL := 'http://www.orcka.com'; ShowMessage('Open ' + sURL); end; begin end. --- NEW FILE: Web.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 -LNd:\program files\borland\delphi4\Lib |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Intercept In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Intercept Added Files: Intercept.dpr Intercept.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: Intercept.dpr --- program Intercept; uses Forms, Unit1 in 'Unit1.pas' {Form3}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm3, Form3); Application.Run; end. --- NEW FILE: Intercept.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, StdCtrls, OrckaSubClass, OrckaInterceptor; type TForm3 = class(TForm) OrckaIntercept1: TOrckaIntercept; ListBox1: TListBox; Button1: TButton; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Edit1: TEdit; RadioButton3: TRadioButton; CheckBox1: TCheckBox; Button2: TButton; ComboBox1: TComboBox; RadioButton4: TRadioButton; procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure RadioButton3Click(Sender: TObject); procedure OrckaIntercept1Message(Sender: TObject; Msg: Integer; wParam: Cardinal; lParam: Integer); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure RadioButton4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation uses winMsg; {$R *.DFM} procedure TForm3.RadioButton1Click(Sender: TObject); begin OrckaIntercept1.ToWatch := Button1; end; procedure TForm3.RadioButton2Click(Sender: TObject); begin OrckaIntercept1.ToWatch := Self; end; procedure TForm3.RadioButton3Click(Sender: TObject); begin OrckaIntercept1.ToWatch := Edit1; end; procedure TForm3.OrckaIntercept1Message(Sender: TObject; Msg: Integer; wParam: Cardinal; lParam: Integer); var S: string; MouseMessage: Boolean; begin case Msg of WM_MOUSEMOVE, WM_NCMOUSEMOVE, WM_NCHITTEST, WM_SETCURSOR, WM_CTLCOLORLISTBOX: MouseMessage := True; else MouseMessage := False; end; if not ((MouseMessage) and (CheckBox1.Checked)) then begin GetMessageText(Msg, 0, S); ListBox1.Items.Add(S); ListBox1.ItemIndex := ListBox1.Items.Count -1; end; end; procedure TForm3.FormCreate(Sender: TObject); begin //RadioButton1Click(nil); end; procedure TForm3.Button2Click(Sender: TObject); begin ListBox1.Clear; end; procedure TForm3.RadioButton4Click(Sender: TObject); begin OrckaIntercept1.ToWatch := ComboBox1; end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/D5 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/D5 Added Files: OrckaD5.cfg OrckaD5.dof OrckaD5.dpk OrckaD5.dsk OrckaD5.res Log Message: Initially added to source control --- NEW FILE: OrckaD5.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaD5.dsk --- [Closed Files] File_0=SourceModule,'D:\Orcka\Source\OrckaScreenSaver.pas',0,1,520,28,526,0,0 File_1=SourceModule,'C:\temp\OrckaScreenSaver.pas',0,1,517,10,531,0,0 File_2=SourceModule,'D:\Orcka\Source\OrckaAddinManager.pas',0,4,137,66,148,0,0 File_3=SourceModule,'D:\Orcka\Source\OrckaAddinManagerShared.pas',0,1,184,83,189,0,0 File_4=SourceModule,'D:\Program Files\Borland\Delphi5\Projects\SyncMemo.pas',0,1,27,1,49,0,0 File_5=SourceModule,'d:\program files\borland\delphi5\source\rtl\Win\Messages.pas',0,1,757,13,773,0,0 File_6=SourceModule,'d:\program files\borland\delphi5\source\rtl\Sys\system.pas',0,1,4173,1,4190,0,0 File_7=SourceModule,'d:\progra~1\borland\delphi5\source\rtl\Sys\SysUtils.pas',0,1,6764,24,6770,0,0 File_8=SourceModule,'d:\progra~1\borland\delphi5\source\vcl\Classes.pas',0,1,464,6,456,0,0 File_9=SourceModule,'D:\Orcka\Clients\AddinManager\UnitMain.pas',0,1,46,1,56,1,0 [Modules] Module0=D:\Orcka\D5\OrckaD5.dpk Count=1 EditWindowCount=1 PackageWindowCount=2 [D:\Orcka\D5\OrckaD5.dpk] ModuleType=PackageEditModule FormState=0 FormOnTop=0 [D:\Program Files\Borland\Delphi5\Bin\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [C:\Program Files\Orcka\Component Suite\D5\OrckaD5.dpk] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=279 Top=200 Width=743 Height=508 MaxLeft=-1 MaxTop=-1 ClientWidth=735 ClientHeight=481 LeftPanelSize=179 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] Module=D:\Orcka\D5\OrckaD5.dpk CursorX=1 CursorY=1 TopLine=1 LeftCol=1 [PackageWindow0] Create=1 Visible=1 State=0 Left=252 Top=241 Width=368 Height=244 MaxLeft=-1 MaxTop=-1 ClientWidth=360 ClientHeight=220 TBDockHeight=244 LRDockWidth=368 Dockable=1 StatusBar=0 TextLabels=1 Toolbar=1 SectionWidth0=150 SectionWidth1=210 Module=D:\Orcka\D5\OrckaD5.dpk [PackageWindow1] Create=1 Visible=0 State=0 Left=260 Top=260 Width=368 Height=244 MaxLeft=-1 MaxTop=-1 ClientWidth=360 ClientHeight=220 TBDockHeight=244 LRDockWidth=368 Dockable=1 StatusBar=0 TextLabels=1 Toolbar=1 SectionWidth0=150 SectionWidth1=210 Module=C:\Program Files\Orcka\Component Suite\D5\OrckaD5.dpk [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=6 Top=504 Width=438 Height=196 MaxLeft=-1 MaxTop=-1 ClientWidth=430 ClientHeight=172 TBDockHeight=303 LRDockWidth=438 Dockable=1 [CPUWindow] Create=1 Visible=0 State=0 Left=245 Top=207 Width=533 Height=353 MaxLeft=-1 MaxTop=-1 ClientWidth=525 ClientHeight=326 DumpPane=79 DisassemblyPane=187 RegisterPane=231 FlagPane=64 [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=107 Width=246 Height=465 MaxLeft=-1 MaxTop=-1 ClientWidth=236 ClientHeight=439 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=109 ArrangeBy=Name SelectedItem= ExpandedItems= HiddenCategories=Legacy ShowStatusBar=1 [WatchWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=0 State=0 Left=9 Top=583 Width=509 Height=149 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=125 TBDockHeight=170 LRDockWidth=323 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=161 LRDockWidth=294 Dockable=1 [ThreadStatusWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=152 LRDockWidth=624 Dockable=1 Column0Width=145 Column1Width=100 Column2Width=115 Column3Width=250 [ModuleWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=355 LRDockWidth=638 Dockable=1 Column0Width=125 Column1Width=100 Column2Width=155 EntryPointPane=225 CompUnitPane=104 [DebugLogView] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=291 LRDockWidth=417 Dockable=1 [LocalVarsWindow] Create=1 Visible=0 State=0 Left=7 Top=538 Width=509 Height=208 MaxLeft=-1 MaxTop=-1 ClientWidth=501 ClientHeight=184 TBDockHeight=192 LRDockWidth=421 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=12 Width=179 Height=451 MaxLeft=-1 MaxTop=-1 ClientWidth=179 ClientHeight=451 TBDockHeight=305 LRDockWidth=179 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=723 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=723 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=0 --- NEW FILE: OrckaD5.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 -E"C:\Inetpub\wwwroot\cgi-bin" -LE"c:\program files\borland\delphi5\Projects\Bpl" -LN"c:\program files\borland\delphi5\Projects\Bpl" -U"c:\program files\borland\delphi5\Source\ToolsAPI" -O"c:\program files\borland\delphi5\Source\ToolsAPI" -I"c:\program files\borland\delphi5\Source\ToolsAPI" -R"c:\program files\borland\delphi5\Source\ToolsAPI" --- NEW FILE: OrckaD5.dof --- [Compiler] A=0 B=0 C=1 D=1 E=0 F=0 G=0 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=0 U=0 V=1 W=0 X=1 Y=1 Z=1 ShowHints=0 ShowWarnings=0 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=Orcka Component Suite v2.0 (Simon Carter) [Directories] OutputDir=C:\Inetpub\wwwroot\cgi-bin UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=$(DELPHI)\Source\ToolsAPI 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=2 MinorVer=0 Release=0 Build=87 Debug=0 PreRelease=0 Special=0 Private=0 DLL=1 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName=Orcka FileDescription= FileVersion=2.0.0.87 InternalName= LegalCopyright=Copyright © 1999 - 2000. Orcka Development. LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: OrckaD5.dpk --- package OrckaD5; {$R *.RES} {$R '..\Source\OrckaRegister.dcr'} {$ALIGN OFF} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA OFF} {$IOCHECKS OFF} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION OFF} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'Orcka Component Suite v2.0 (Simon Carter)'} {$DESIGNONLY} {$IMPLICITBUILD ON} requires Vcl50, Vcldb50, VclSmp50; contains OrckaAddinManager in '..\Source\OrckaAddinManager.pas' {AddinManagerForm}, OrckaAddinManagerShared in '..\Source\OrckaAddinManagerShared.pas', OrckaScreenSaver in '..\source\OrckaScreenSaver.pas', OrckaTimer in '..\Source\OrckaTimer.pas', OrckaVersionInfo in '..\Source\OrckaVersionInfo.pas', OrckaTrayIcon in '..\Source\OrckaTrayIcon.pas', OrckaSubClass in '..\Source\OrckaSubClass.pas', OrckaGroupBox in '..\Source\OrckaGroupBox.pas', OrckaRegister in '..\Source\OrckaRegister.pas', OrckaFontControls in '..\Source\OrckaFontControls.pas', OrckaInterceptor in '..\Source\OrckaInterceptor.pas', OrckaButton in '..\Source\OrckaButton.pas', OrckaEdit in '..\Source\OrckaEdit.pas', OrckaLibraryLoader in '..\Source\OrckaLibraryLoader.pas', OrckaMap in '..\Source\OrckaMap.pas', OrckaWebLabel in '..\Source\OrckaWebLabel.pas', OrckaLabelEdit in '..\source\OrckaLabelEdit.pas', OrckaDBLabelEdit in '..\Source\OrckaDBLabelEdit.pas', OrckaRuler in '..\Source\OrckaRuler.pas', OrckaMemo in '..\Source\OrckaMemo.pas', OrckaNotify in '..\Source\OrckaNotify.pas', OrckaDBCtls in '..\Source\OrckaDBCtls.pas', OrckaSpellChecker in '..\Source\OrckaSpellChecker.pas', OrckaPluginManager in '..\Source\OrckaPluginManager.pas' {PluginManagerForm}, OrckaPluginManagerShared in '..\Source\OrckaPluginManagerShared.pas'; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/K2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/K2 Added Files: orckak2.conf orckak2.dpk orckak2.dpu orckak2.kof orckak2.res Log Message: Initially added to source control --- NEW FILE: orckak2.kof --- [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= [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= DynamicLoader=/lib/ld-linux.so.2 [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath=/home/simon/kylix/source/toolsapi Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% UseLauncher=0 DebugCWD= --- NEW FILE: orckak2.dpu --- (This appears to be a binary file; contents omitted.) --- NEW FILE: orckak2.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: orckak2.conf --- -$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 -H+ -W+ -M -$M16384,1048576 -K$00400000 -U"/home/simon/kylix/source/toolsapi" -O"/home/simon/kylix/source/toolsapi" -I"/home/simon/kylix/source/toolsapi" -R"/home/simon/kylix/source/toolsapi" -Z --- NEW FILE: orckak2.dpk --- package orckak2; {$R *.res} {$R '../source/OrckaRegister.dcr'} {$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO ON} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$IMPLICITBUILD OFF} requires baseclx, visualclx, designide; contains CSVProcs in '../source/CSVProcs.pas', OrckaAddinManager in '../source/OrckaAddinManager.pas', OrckaAddinManagerShared in '../source/OrckaAddinManagerShared.pas', OrckaButton in '../source/OrckaButton.pas', OrckaLibraryLoader in '../source/OrckaLibraryLoader.pas', OrckaRegister in '../source/OrckaRegister.pas', OrckaSpellChecker in '../source/OrckaSpellChecker.pas', OrckaStringGrid in '../source/OrckaStringGrid.pas', OrckaTimer in '../source/OrckaTimer.pas', OrckaWebLabel in '../source/OrckaWebLabel.pas'; end. |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/Button In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/Button Added Files: Button.conf Button.desk Button.dpr Button.kof Button.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: Button.dpr --- program Button; uses QForms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.pas --- unit Unit1; interface uses SysUtils, Classes, QGraphics, QControls, QForms, QDialogs, QButtons, OrckaButton, QStdCtrls; 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.desk --- [Closed Files] File_0=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0 File_1=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1 File_2=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0 File_3=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1353,4,1416,0,0 File_4=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0 File_5=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0 File_6=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0 File_7=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0 File_8=SourceModule,'/home/simon/orcka/source/OrckaTimer.pas',0,1,35,3,42,0,0 File_9=SourceModule,'/home/simon/orcka/source/OrckaSpellChecker.pas',0,1,525,5,532,0,0 [Modules] Module0=/home/simon/orcka/Samples/Button/Unit1.pas Module1=/home/simon/orcka/Samples/Button/Button.dpr Count=2 EditWindowCount=1 [/home/simon/orcka/Samples/Button/Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [/home/simon/orcka/Samples/Button/Button.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [/home/simon/ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=2 CurrentView=1 View0=0 View1=1 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=302 Top=208 Width=696 Height=482 MaxLeft=-1 MaxTop=-1 ClientWidth=696 ClientHeight=482 LeftPanelSize=140 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] Module=/home/simon/orcka/Samples/Button/Unit1.pas CursorX=10 CursorY=40 TopLine=35 LeftCol=1 [View1] Module=/home/simon/orcka/Samples/Button/Button.dpr CursorX=6 CursorY=13 TopLine=1 LeftCol=1 [Watches] Count=0 [Breakpoints] Count=0 [AddressBreakpoints] Count=0 [Main Window] Create=1 Visible=1 State=0 Left=3 Top=19 Width=1024 Height=87 MaxLeft=-1 MaxTop=-1 ClientWidth=1024 ClientHeight=87 [ProjectManager] Create=1 Visible=0 State=0 Left=369 Top=372 Width=535 Height=368 MaxLeft=-1 MaxTop=-1 ClientWidth=529 ClientHeight=343 TBDockHeight=368 LRDockWidth=535 Dockable=1 [AlignmentPalette] Create=1 Visible=0 State=0 Left=203 Top=117 Width=156 Height=85 MaxLeft=-1 MaxTop=-1 ClientWidth=150 ClientHeight=60 [PropertyInspector] Create=1 Visible=1 State=0 Left=3 Top=117 Width=190 Height=494 MaxLeft=-1 MaxTop=-1 ClientWidth=182 ClientHeight=467 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name SelectedItem=Caption ExpandedItems= HiddenCategories= ShowStatusBar=1 [WatchWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=119 LRDockWidth=293 Dockable=1 Column0Width=123 Column1Width=92 Column2Width=246 Column3Width=246 Column4Width=92 Column5Width=92 [CallStackWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=161 LRDockWidth=294 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=12 Width=140 Height=449 MaxLeft=-1 MaxTop=-1 ClientWidth=140 ClientHeight=449 TBDockHeight=305 LRDockWidth=140 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=684 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=684 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=0 State=0 Left=-3 Top=548 Width=421 Height=149 MaxLeft=-1 MaxTop=-1 ClientWidth=415 ClientHeight=124 TBDockHeight=149 LRDockWidth=421 Dockable=1 TabPosition=0 ActiveTab=Watch List TabDockClients=WatchWindow,BreakpointWindow,CallStackWindow --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Button.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Button.kof --- [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= [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= DynamicLoader=/lib/ld-linux.so.2 [Directories] OutputDir= UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= Packages= Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher=/usr/X11R6/bin/xterm -T KylixDebuggerOutput -e bash -i -c %debuggee% UseLauncher=0 DebugCWD= --- NEW FILE: Button.conf --- -$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 -H+ -W+ -M -$M16384,1048576 -K$00400000 |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/AddinManager In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/AddinManager Added Files: Simple.bpg Simple.desk Log Message: Initially added to source control --- NEW FILE: Simple.bpg --- #------------------------------------------------------------------------------ VERSION = BWS.02.5 #------------------------------------------------------------------------------ MAKE = make -$(MAKEFLAGS) -f$** DCC =dcc $< #------------------------------------------------------------------------------ PROJECTS = SimpleAddinManager libWeb.so #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ SimpleAddinManager: Simple/SimpleAddinManager.dpr $(DCC) libWeb.so: Simple/Plugins/Web/Web.dpr $(DCC) --- NEW FILE: Simple.desk --- [Closed Files] File_0=SourceModule,'/home/simon/orcka/Samples/AddinManager/Simple/AddinForm.pas',0,1,1,7,7,0,0 File_1=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,650,1,656,0,0 File_2=SourceModule,'/home/simon/kylix/source/rtl/sys/SysUtils.pas',0,1,11834,1,11844,0,0 File_3=SourceModule,'/home/simon/kylix/source/rtl/sys/System.pas',0,1,2046,5,2052,0,0 File_4=SourceModule,'/home/simon/orcka/Samples/AddinManager/Simple/Plugins/Web/MailForm.pas',0,1,71,8,82,0,0 File_5=SourceModule,'/home/simon/kylix/source/internetdirect/IdEMailAddress.pas',0,1,128,54,137,0,0 File_6=SourceModule,'/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas',0,1,1,1,1,1,1 File_7=SourceModule,'/home/simon/orcka/Samples/Button/Unit1.pas',0,1,35,10,40,1,1 File_8=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0 File_9=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1 [Modules] Module0=/home/simon/orcka/Samples/AddinManager/Simple/Plugins/Web/Web.dpr Count=1 EditWindowCount=1 [/home/simon/orcka/Samples/AddinManager/Simple/Plugins/Web/Web.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 [/home/simon/orcka/Samples/AddinManager/Simple.bpg] FormState=0 FormOnTop=0 [/home/simon/orcka/Samples/AddinManager/Simple/SimpleAddinManager.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=201 Top=208 Width=797 Height=482 MaxLeft=-1 MaxTop=-1 ClientWidth=797 ClientHeight=482 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=52 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF [View0] Module=/home/simon/orcka/Samples/AddinManager/Simple/Plugins/Web/Web.dpr CursorX=1 CursorY=47 TopLine=29 LeftCol=1 [Watches] Count=0 [Breakpoints] Count=0 [AddressBreakpoints] Count=0 [Main Window] Create=1 Visible=1 State=0 Left=4 Top=19 Width=1016 Height=87 MaxLeft=-1 MaxTop=-1 ClientWidth=1016 ClientHeight=87 [ProjectManager] Create=1 Visible=1 State=0 Left=0 Top=497 Width=436 Height=207 MaxLeft=-1 MaxTop=-1 ClientWidth=430 ClientHeight=182 TBDockHeight=368 LRDockWidth=535 Dockable=1 [AlignmentPalette] Create=1 Visible=0 State=0 Left=203 Top=117 Width=156 Height=85 MaxLeft=-1 MaxTop=-1 ClientWidth=150 ClientHeight=60 [PropertyInspector] Create=1 Visible=1 State=0 Left=0 Top=0 Width=244 Height=441 MaxLeft=-1 MaxTop=-1 ClientWidth=242 ClientHeight=439 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name SelectedItem= ExpandedItems= HiddenCategories= ShowStatusBar=1 [WatchWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=119 LRDockWidth=293 Dockable=1 Column0Width=123 Column1Width=92 Column2Width=246 Column3Width=246 Column4Width=92 Column5Width=92 [CallStackWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=161 LRDockWidth=294 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=0 Width=244 Height=441 MaxLeft=-1 MaxTop=-1 ClientWidth=244 ClientHeight=441 TBDockHeight=305 LRDockWidth=244 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=1 State=0 Left=12 Top=0 Width=785 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=785 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=2 [DockSite0] DockSiteType=1 Create=1 Visible=1 State=0 Left=0 Top=111 Width=258 Height=494 MaxLeft=-1 MaxTop=-1 ClientWidth=252 ClientHeight=469 TBDockHeight=494 LRDockWidth=258 Dockable=1 TabPosition=0 ActiveTab=Object Inspector TabDockClients=PropertyInspector,CodeExplorer@EditWindow0 [DockSite1] DockSiteType=1 Create=1 Visible=0 State=0 Left=-3 Top=548 Width=421 Height=149 MaxLeft=-1 MaxTop=-1 ClientWidth=415 ClientHeight=124 TBDockHeight=149 LRDockWidth=421 Dockable=1 TabPosition=0 ActiveTab=Watch List TabDockClients=WatchWindow,BreakpointWindow,CallStackWindow |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/Simple/Plugins/Web In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/Simple/Plugins/Web Added Files: MailForm.dfm MailForm.pas Web.cfg Web.dof Web.dpr Web.res Log Message: Initially added to source control --- NEW FILE: Web.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Web.dof --- [FileVersion] Version=6.0 [Compiler] A=8 B=0 C=1 D=1 E=0 F=0 G=1 H=1 I=1 J=1 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; [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;inetdbbde;inet;inetdbxpress;inetdb;nmfast;webdsnap;websnap;soaprtl;dbexpress;dbxcds;indy;dclOffice2k;ibam;OrckaD6 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir= [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=1033 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: MailForm.pas --- unit MailForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Psock, NMsmtp, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) NMSMTP1: TNMSMTP; PageControl1: TPageControl; TabSheet2: TTabSheet; Memo1: TMemo; Panel1: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Panel2: TPanel; Label11: TLabel; Button6: TButton; Edit10: TEdit; Edit4: TEdit; Label4: TLabel; Label2: TLabel; Edit2: TEdit; Label1: TLabel; Edit1: TEdit; Edit5: TEdit; Label5: TLabel; Label6: TLabel; Edit6: TEdit; procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; procedure SendEMail; implementation {$R *.DFM} procedure SendEMail; var Form1: TForm1; begin Form1 := TForm1.Create(nil); try Form1.ShowModal; finally Form1.Free; end; end; procedure TForm1.Button6Click(Sender: TObject); begin Screen.Cursor := crHourGlass; { Setup Sender Info } NMSMTP1.Host := Edit1.Text; NMSMTP1.Port := StrToInt(Edit2.Text); NMSMTP1.UserID := Edit4.Text; { Connect } NMSMTP1.Connect; { Setup message } NMSMTP1.PostMessage.FromAddress := Edit6.Text; NMSMTP1.PostMessage.FromName := Edit5.Text; NMSMTP1.PostMessage.Subject := Edit10.Text; NMSMTP1.PostMessage.ToAddress.Add(Edit7.Text); NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(Edit9.Text); NMSMTP1.PostMessage.ToCarbonCopy.Add(Edit8.Text); NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); { Send } NMSMTP1.SendMail; {Disconnect } NMSMTP1.Disconnect; Screen.Cursor := crDefault; end; end. --- NEW FILE: MailForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Web.dpr --- library Web; uses Forms, Windows, SysUtils, ShellAPI, OrckaAddinManagerShared, MailForm in 'MailForm.pas' {Form1}; {$R *.RES} type TWebPlugin = class private Service: TOToolServices; //mnuHelpSep: TOMenuItem; mnuHelpWeb: TOMenuItem; mnuHelpWebHome: TOMenuItem; mnuHelpWebBorland: TOMenuItem; //mnuHelpWebSep: TOMenuItem; //mnuHelpWebEMail: TOMenuItem; public constructor Create(AService: TOToolServices); destructor Destroy; override; procedure WebPage(Sender: TOMenuItem); procedure EMail(Sender: TOMenuItem); end; var WebPlugin: TWebPlugin; resourcestring sNoHelpMenu = 'The help menu could not be found'; procedure PluginExit; stdcall; begin WebPlugin.Free; end; function Plugin (InParams: TOrckaAddinManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin WebPlugin := TWebPlugin.Create(InParams.Service); ExitProc := @PluginExit; Result := True; end; exports Plugin name OrckaAddinManagerExportProc; { TPluginInfo } constructor TWebPlugin.Create(AService: TOToolServices); var mnuHelp: TOMenuItem; begin Service := AService; Application.Handle := Service.GetHandle; {Get the Help menu} mnuHelp := Service.FindMenu('Help'); if not Assigned(mnuHelp) then mnuHelp := Service.InsertMenu(100, nil, '&Help', nil); {Add Menu's} mnuHelpWeb := Service.InsertMenu(mnuHelp.GetItemCount - 1, mnuHelp, 'On the Web', nil); // mnuHelpSep := Service.InsertMenu(mnuHelp.GetItemCount -1, mnuHelp, '-', nil); mnuHelpWebHome := Service.InsertMenu(0, mnuHelpWeb, 'Orcka Home Page', WebPage); mnuHelpWebBorland := Service.InsertMenu(1, mnuHelpWeb, 'Borland Home Page', WebPage); // mnuHelpWebSep := Service.InsertMenu(2, mnuHelpWeb, '-', nil); // mnuHelpWebEMail := Service.InsertMenu(3, mnuHelpWeb, 'Send EMail', EMail); end; destructor TWebPlugin.Destroy; begin {RemoveMenu's} // Service.RemoveMenu(mnuHelpSep); Service.RemoveMenu(mnuHelpWeb); Service.RemoveMenu(mnuHelpWebHome); Service.RemoveMenu(mnuHelpWebBorland); // Service.RemoveMenu(mnuHelpWebSep); // Service.RemoveMenu(mnuHelpWebEMail); end; procedure TWebPlugin.EMail(Sender: TOMenuItem); begin SendEMail; end; procedure TWebPlugin.WebPage(Sender: TOMenuItem); var sURL: string; begin if Sender = mnuHelpWebBorland then sURL := 'http://www.borland.com' else sURL := 'http://www.orcka.com'; ShellExecute(0, 'open', PChar(sURL), nil, nil, SW_SHOW); end; begin end. --- NEW FILE: Web.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"D:\Program Files\Other\TB2K\Demo" -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:48
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/Version In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/Version Added Files: Unit1.dfm Unit1.pas ver.dpr ver.res Log Message: Initially added to source control --- NEW FILE: ver.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ver.dpr --- program ver; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OrckaVersionInfo, FileCtrl; type TForm1 = class(TForm) FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; DriveComboBox1: TDriveComboBox; OrckaVersionInfo1: TOrckaVersionInfo; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; procedure FileListBox1Change(Sender: TObject); procedure OrckaVersionInfo1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FileListBox1Change(Sender: TObject); begin OrckaVersionInfo1.FileName := FileListBox1.FileName; end; procedure TForm1.OrckaVersionInfo1Change(Sender: TObject); begin if OrckaVersionInfo1.HasError then Label25.Caption := OrckaVersionInfo1.Error else Label25.Caption := ''; Label13.caption := OrckaVersionInfo1.CompanyName; Label14.caption := OrckaVersionInfo1.FileDescription; Label15.caption := OrckaVersionInfo1.FileVersion; Label16.caption := OrckaVersionInfo1.InternalName; Label17.caption := OrckaVersionInfo1.LegalCopyright; Label18.caption := OrckaVersionInfo1.OriginalFilename; Label19.caption := OrckaVersionInfo1.ProductName; Label20.caption := OrckaVersionInfo1.ProductVersion; Label21.caption := OrckaVersionInfo1.Version; Label22.caption := OrckaVersionInfo1.CharSet; Label23.caption := OrckaVersionInfo1.Language; Label24.caption := OrckaVersionInfo1.FileName; Label27.Caption := OrckaVersionInfo1.GetValue('Orcka'); end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:47
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/FontObjects In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/FontObjects Added Files: FontObjects.dpr FontObjects.res overview.rtf overview.txt Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: FontObjects.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: FontObjects.dpr --- program FontObjects; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: overview.rtf --- {\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fcharset1 Arial;}{\f4\fswiss Arial;}{\f5\fscript Mistral;}{\f6\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red255\green0\blue0;\red255\green0\blue255;\red0\green0\blue255;} \deflang1033\pard\qc\plain\f6\fs32\cf2\b Rich Edit Control Overview\plain\f4\fs32\cf1\b \par \plain\f4\fs16\cf0\b (from Win32SDK Help) \par \pard\plain\f4\fs20\cf0 \par \pard\li500\ri840\fi-20\plain\f5\fs30\cf0 A rich edit control is a window in which the user can enter and edit text. The text can be assigned character and paragraph formatting, and can include embedded OLE objects. Rich edit controls provide a programming interface for formatting text. However, an application must implement any user interface components necessary to make formatting operations available to the user\plain\f4\fs20\cf0 . \par \pard\li480\ri840\plain\f4\fs20\cf0 \par Rich edit controls support almost all of the messages and notification messages used with multiline edit controls. Thus, applications that already use edit controls can be easily changed to use rich edit controls. Additional messages and notifications enable applications to access the functionality unique to rich edit controls. For information about edit controls, see \plain\f4\fs20\cf0\i Edit Controls\plain\f4\fs20\cf0 . \par \par An application can send messages to a rich edit control to perform such operations as formatting text, printing, and saving. An application can process notification messages to monitor events in a rich edit control. For example, an application can process notifications to filter keyboard and mouse input, to permit or deny changes to protected text, or to resize the control as needed to fit its content. \par \par You create a rich edit control by using the \plain\f6\fs20\cf3\b\ul CreateWindowEx\plain\f4\fs20\cf0 function, specifying the "RichEdit" window class. Because the common control library registers this window class, you must call the \plain\f4\fs20\cf0\b\ul InitCommonControls\plain\f4\fs20\cf0 function to ensure that the library is loaded before the rich edit control is created. \par \par Rich edit controls support most of the window styles used with edit controls as well as additional styles. You should specify the \plain\f4\fs20\cf0\b ES_MULTILINE\plain\f4\fs20\cf0 window style if you want to allow more than one line of text in the control. \par } |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:47
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager Added Files: Simple.bpg Log Message: Initially added to source control --- NEW FILE: Simple.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 = SimpleAddinManager.exe sysinf.dll Web.dll #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ SimpleAddinManager.exe: Simple\SimpleAddinManager.dpr $(DCC) sysinf.dll: Simple\Plugins\SysInfo\sysinf.dpr $(DCC) Web.dll: Simple\Plugins\Web\Web.dpr $(DCC) |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/Debug In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/Debug Added Files: DebugAddin.bpg DebugAddinManager.dpr DebugAddinManager.res DebugShared.pas MainForm.dfm MainForm.pas Log Message: Initially added to source control --- NEW FILE: MainForm.pas --- unit MainForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, ComCtrls, ImgList, Menus, ExtCtrls, OrckaAddinManager, OrckaAddinManagerShared, DebugShared, StdCtrls, Buttons, OrckaButton, OrckaFontControls, OrckaSubClass, OrckaInterceptor; type TForm1 = class; TServerMain = class(TServer) private FClientList: TList; Form: TForm1; function GetClient(Index: Integer): TClient; public constructor Create(Form: TForm1); destructor Destroy; override; function AddClient(AClient: TClient): Boolean; override; function RemoveClient(AClient: TClient): Boolean; override; procedure AddString(Value: TLongString); procedure AddInteger(Value: Integer); procedure OnMessage(Msg: TMsg); function Count: Integer; property Client[Index: Integer]: TClient read GetClient; end; TForm1 = class(TForm) OrckaAddinManager1: TOrckaAddinManager; ControlBar1: TControlBar; MainMenu1: TMainMenu; mnuFile: TMenuItem; ImageList1: TImageList; StatusBar1: TStatusBar; Database1: TDatabase; mnuPlugins: TMenuItem; mnuPluginsLoad: TMenuItem; mnuPluginsUnload: TMenuItem; mnuHelp: TMenuItem; mnuHelpAbout: TMenuItem; mnuFileClose: TMenuItem; OpenDialog1: TOpenDialog; Panel1: TPanel; OrckaFontButton1: TOrckaFontButton; OrckaFontButton2: TOrckaFontButton; OrckaFontButton3: TOrckaFontButton; OrckaButton1: TOrckaButton; OrckaFontButton4: TOrckaFontButton; OrckaFontButton5: TOrckaFontButton; OrckaFontButton6: TOrckaFontButton; OrckaButton2: TOrckaButton; OrckaFontButton7: TOrckaFontButton; OrckaFontButton8: TOrckaFontButton; OrckaFontButton9: TOrckaFontButton; OrckaButton3: TOrckaButton; OrckaFontButton10: TOrckaFontButton; RichEdit1: TRichEdit; Panel2: TPanel; OrckaFontSize1: TOrckaFontSize; OrckaFontList1: TOrckaFontList; OrckaIntercept1: TOrckaIntercept; procedure OrckaAddinManager1GetHandle(Sender: TObject; var Hwnd: Integer); procedure OrckaAddinManager1GetAddinParams(Sender: TObject; AddinManagerParams: TOrckaAddinManagerParams); procedure mnuHelpAboutClick(Sender: TObject); procedure mnuFileCloseClick(Sender: TObject); procedure mnuPluginsLoadClick(Sender: TObject); procedure mnuPluginsUnloadClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure OrckaFontButton1Click(Sender: TObject; ButtonType: TFontButtonTypes); procedure OrckaFontButton2Click(Sender: TObject; ButtonType: TFontButtonTypes); procedure RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure RichEdit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure OrckaFontSize1Change(Sender: TObject; FontSize: Word); private FServerMain: TServerMain; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure OnHint(Sender: TObject); procedure OnMsg(var Msg: TMsg; var Handled: Boolean); end; var Form1: TForm1; implementation {$R *.DFM} resourcestring sAbout = 'Orcka AddinManager Debug Demo'#13#13'Copyright © 2000. Orcka.'; { TServerMain } function TServerMain.AddClient(AClient: TClient): Boolean; var I: Integer; ClientName: TShortString; begin Result := True; ClientName := AClient.GetName; for I := 0 to Count -1 do begin try if CompareText(ClientName, Client[I].GetName) = 0 then begin Result := False; Break; end; except { Ignore exceptions within the Client } end; end; if Result then FClientList.Add(AClient); end; procedure TServerMain.AddInteger(Value: Integer); var I: Integer; begin for I := 0 to Count -1 do begin try Client[I].AddInteger(Value); except { Ignore exceptions within the Client } end; end; end; procedure TServerMain.AddString(Value: TLongString); var I: Integer; begin for I := 0 to Count -1 do begin try Client[I].AddString(Value); except { Ignore exceptions within the Client } end; end; end; function TServerMain.Count: Integer; begin Result := FClientList.Count; end; constructor TServerMain.Create; begin FClientList := TList.Create; end; destructor TServerMain.Destroy; begin FClientList.Free; inherited; end; function TServerMain.GetClient(Index: Integer): TClient; begin Result := TClient(FClientList.Items[Index]); end; procedure TServerMain.OnMessage(Msg: TMsg); var I: Longint; begin for I := 0 to Count -1 do begin try if GetParent(Msg.hwnd) = Form1.Handle then Client[I].OnMessage(Msg); except { Ignore exceptions within the Client } end; end; end; function TServerMain.RemoveClient(AClient: TClient): Boolean; var I: Integer; begin Result := False; for I := 0 to Count -1 do begin try if Client[I] = AClient then begin FClientList.Items[I] := nil; Result := True; Break; end; except { Ignore exceptions within the Client } end; end; FClientList.Pack; end; { TForm1 } procedure TForm1.OrckaAddinManager1GetHandle(Sender: TObject; var Hwnd: Integer); begin Hwnd := Handle; end; procedure TForm1.OrckaAddinManager1GetAddinParams(Sender: TObject; AddinManagerParams: TOrckaAddinManagerParams); begin AddinManagerParams.User := FServerMain; end; constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); FServerMain := TServerMain.Create(Self); Application.OnHint := OnHint; Application.OnMessage := OnMsg; end; destructor TForm1.Destroy; var I: Integer; begin Application.OnHint := nil; Application.OnMessage := nil; for I := 0 to OrckaAddinManager1.Count -1 do OrckaAddinManager1.UnloadAddin(OrckaAddinManager1.Addin[I]); FServerMain.Free; inherited Destroy; end; procedure TForm1.mnuHelpAboutClick(Sender: TObject); begin MessageBox(0, Pchar(sAbout), PChar(Caption), MB_OK or MB_ICONINFORMATION); end; procedure TForm1.mnuFileCloseClick(Sender: TObject); begin Close; end; procedure TForm1.mnuPluginsLoadClick(Sender: TObject); begin with OpenDialog1 do if Execute then begin OrckaAddinManager1.LoadAddin(FileName); mnuPluginsUnload.Enabled := True; mnuPluginsLoad.Enabled := False; end; end; procedure TForm1.mnuPluginsUnloadClick(Sender: TObject); var I: Integer; begin for I := 0 to OrckaAddinManager1.Count -1 do OrckaAddinManager1.UnloadAddin(OrckaAddinManager1.Addin[I]); mnuPluginsUnload.Enabled := False; mnuPluginsLoad.Enabled := True; end; procedure TForm1.OnHint(Sender: TObject); begin StatusBar1.SimpleText := GetLongHint(Application.Hint); StatusBar1.SimplePanel := CompareText(StatusBar1.SimpleText, '') <> 0; end; procedure TForm1.OnMsg(var Msg: TMsg; var Handled: Boolean); begin FServerMain.OnMessage(Msg); end; procedure TForm1.FormCreate(Sender: TObject); begin RichEdit1.Align := alClient; end; procedure TForm1.OrckaFontButton1Click(Sender: TObject; ButtonType: TFontButtonTypes); begin if OrckaFontButton1.Down then FServerMain.AddString('Set Bold On') else FServerMain.AddString('Set Bold Off'); end; procedure TForm1.OrckaFontButton2Click(Sender: TObject; ButtonType: TFontButtonTypes); begin if OrckaFontButton2.Down then FServerMain.AddString('Set Italic On') else FServerMain.AddString('Set Italic Off'); end; procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FServerMain.AddString('Mouse Down'); FServerMain.AddInteger(X); FServerMain.AddInteger(Y); end; procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FServerMain.AddString('Mouse Up'); FServerMain.AddInteger(X); FServerMain.AddInteger(Y); end; procedure TForm1.OrckaFontSize1Change(Sender: TObject; FontSize: Word); begin FServerMain.AddString('New Font Size'); FServerMain.AddInteger(FontSize); end; end. --- NEW FILE: MainForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DebugAddinManager.dpr --- program DebugAddinManager; uses Forms, MainForm in 'MainForm.pas' {Form1}, DebugShared in 'DebugShared.pas'; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: DebugAddinManager.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: DebugAddin.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 = Debug.dll DebugAddinManager.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ Debug.dll: DebugPlugin\Debug.dpr $(DCC) DebugAddinManager.exe: DebugAddinManager.dpr $(DCC) --- NEW FILE: DebugShared.pas --- unit DebugShared; interface uses Windows; type TShortString = array[0..60] of char; TLongString = array[0..255] of char; TClient = class public function GetName: TShortString; virtual; abstract; procedure AddString(Value: TLongString); virtual; abstract; procedure AddInteger(Value: Integer); virtual; abstract; procedure OnMessage(Msg: TMsg); virtual; abstract; end; TServer = class public function AddClient(AClient: TClient): Boolean; virtual; abstract; function RemoveClient(AClient: TClient): Boolean; virtual; abstract; end; implementation end. |
Update of /cvsroot/ocs-comps/OCS2/Samples/CLX/SpellCheck/Visual In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/CLX/SpellCheck/Visual Added Files: SpellCheck.cfg SpellCheck.desk SpellCheck.dof SpellCheck.dpr SpellCheck.dsk SpellCheck.res Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: SpellCheck.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SpellCheck.dsk --- [Closed Files] File_0=SourceModule,'d:\orcka\source\OrckaSpellChecker.pas',0,1,34,1,38,0,0 File_1=SourceModule,'d:\program files\borland\delphi6\source\rtl\common\classes.pas',0,1,4159,1,4170,0,0 File_2=SourceModule,'d:\orcka\Source\OrckaNotify.pas',0,1,387,27,399,0,0 File_3=SourceModule,'d:\orcka\Source\OrckaButton.pas',0,1,43,3,19,0,0 File_4=SourceModule,'d:\orcka\Source\OrckaRegister.pas',0,1,31,32,38,0,0 File_5=SourceModule,'d:\orcka\Source\OrckaMap.pas',0,1,55,36,56,0,0 File_6=SourceModule,'D:\Orcka\Source\OrckaRuler.pas',0,1,431,14,454,0,0 File_7=SourceModule,'G:\Develop\CD\CDGen\Source\CDLabelEdit.pas',0,1,331,26,341,0,0 File_8=SourceModule,'D:\orcka\Source\OrckaLibraryLoader.pas',0,1,93,1,103,0,0 [Modules] Module0=D:\Orcka\Samples\SpellCheck\Visual\Unit1.pas Count=1 EditWindowCount=1 [D:\Orcka\Samples\SpellCheck\Visual\Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [D:\Program Files\Borland\Delphi6\Bin\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [D:\Orcka\Samples\SpellCheck\Visual\SpellCheck.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=260 Top=126 Width=763 Height=570 MaxLeft=-1 MaxTop=-1 ClientWidth=755 ClientHeight=543 LeftPanelSize=0 RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D65737361676556696577000000000000000000000000000000000001000000000000000000000000FFFFFFFF [View0] Module=D:\Orcka\Samples\SpellCheck\Visual\Unit1.pas CursorX=21 CursorY=50 TopLine=20 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=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 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=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 TBDockHeight=381 LRDockWidth=190 Dockable=1 SplitPos=114 ArrangeBy=Name SelectedItem=Caption ExpandedItems= HiddenCategories= [WatchWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=197 LRDockWidth=729 Dockable=1 Column0Width=100 Column1Width=75 Column2Width=200 Column3Width=200 Column4Width=75 Column5Width=75 [CallStackWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=113 LRDockWidth=729 Dockable=1 [ObjectTree] Create=1 Visible=0 State=0 Left=269 Top=630 Width=190 Height=252 MaxLeft=-1 MaxTop=-1 ClientWidth=182 ClientHeight=228 TBDockHeight=252 LRDockWidth=190 Dockable=1 [LocalVarsWindow] Create=1 Visible=0 State=0 Left=8 Top=542 Width=519 Height=160 MaxLeft=-1 MaxTop=-1 ClientWidth=511 ClientHeight=136 TBDockHeight=189 LRDockWidth=421 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=0 Width=226 Height=520 MaxLeft=-1 MaxTop=-1 ClientWidth=226 ClientHeight=520 TBDockHeight=305 LRDockWidth=170 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=870 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=870 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=1 State=0 Left=0 Top=109 Width=261 Height=552 MaxLeft=-1 MaxTop=-1 ClientWidth=253 ClientHeight=528 TBDockHeight=552 LRDockWidth=232 Dockable=1 TabPosition=2 ActiveTab=Object Inspector TabDockClients=PropertyInspector,ProjectManager,CodeExplorer@EditWindow0 --- NEW FILE: SpellCheck.desk --- [Closed Files] File_0=SourceModule,'/home/simon/orcka/Samples/Button/Unit1.pas',0,1,35,10,40,1,1 File_1=SourceModule,'/home/simon/kylix/source/clx/IniFiles.pas',0,1,744,1,760,0,0 File_2=SourceModule,'/home/simon/orcka/qikdic/Unit1.pas',0,1,148,1,153,1,1 File_3=SourceModule,'/home/simon/orcka/source/OrckaAddinManagerShared.pas',0,1,163,58,177,0,0 File_4=SourceModule,'/home/simon/orcka/source/OrckaAddinManager.pas',0,1,1353,4,1416,0,0 File_5=SourceModule,'/home/simon/orcka/source/OrckaStringGrid.pas',0,1,183,35,192,0,0 File_6=SourceModule,'/home/simon/orcka/source/OrckaRegister.pas',0,1,73,17,80,0,0 File_7=SourceModule,'/home/simon/orcka/source/CSVProcs.pas',0,1,35,13,40,0,0 File_8=SourceModule,'/home/simon/orcka/source/OrckaLibraryLoader.pas',0,1,33,58,43,0,0 File_9=SourceModule,'/home/simon/orcka/source/OrckaTimer.pas',0,1,35,3,42,0,0 [Modules] Module0=/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas Count=1 EditWindowCount=1 [/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas] ModuleType=SourceModule FormState=1 FormOnTop=1 [/home/simon/ProjectGroup1.bpg] FormState=0 FormOnTop=0 [/home/simon/orcka/Samples/SpellCheck/Visual/SpellCheck.dpr] FormState=0 FormOnTop=0 [EditWindow0] ViewCount=1 CurrentView=0 View0=0 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 Visible=1 State=0 Left=302 Top=208 Width=696 Height=482 MaxLeft=-1 MaxTop=-1 ClientWidth=696 ClientHeight=482 LeftPanelSize=140 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF RightPanelSize=0 BottomPanelSize=0 BottomPanelClients=MessageView@EditWindow0 BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF [View0] Module=/home/simon/orcka/Samples/SpellCheck/Visual/Unit1.pas CursorX=1 CursorY=1 TopLine=1 LeftCol=1 [Watches] Count=0 [Breakpoints] Count=0 [AddressBreakpoints] Count=0 [Main Window] Create=1 Visible=1 State=0 Left=3 Top=19 Width=1024 Height=87 MaxLeft=-1 MaxTop=-1 ClientWidth=1024 ClientHeight=87 [ProjectManager] Create=1 Visible=0 State=0 Left=369 Top=372 Width=535 Height=368 MaxLeft=-1 MaxTop=-1 ClientWidth=529 ClientHeight=343 TBDockHeight=368 LRDockWidth=535 Dockable=1 [AlignmentPalette] Create=1 Visible=0 State=0 Left=203 Top=117 Width=156 Height=85 MaxLeft=-1 MaxTop=-1 ClientWidth=150 ClientHeight=60 [PropertyInspector] Create=1 Visible=1 State=0 Left=3 Top=117 Width=190 Height=494 MaxLeft=-1 MaxTop=-1 ClientWidth=182 ClientHeight=467 TBDockHeight=494 LRDockWidth=190 Dockable=1 SplitPos=85 ArrangeBy=Name SelectedItem=Caption ExpandedItems= HiddenCategories= ShowStatusBar=1 [WatchWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=149 LRDockWidth=421 Dockable=1 [BreakpointWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=119 LRDockWidth=293 Dockable=1 Column0Width=123 Column1Width=92 Column2Width=246 Column3Width=246 Column4Width=92 Column5Width=92 [CallStackWindow] Create=1 Visible=1 State=0 Left=0 Top=0 Width=407 Height=96 MaxLeft=-1 MaxTop=-1 ClientWidth=407 ClientHeight=96 TBDockHeight=161 LRDockWidth=294 Dockable=1 [CodeExplorer@EditWindow0] Create=1 Visible=1 State=0 Left=0 Top=12 Width=140 Height=449 MaxLeft=-1 MaxTop=-1 ClientWidth=140 ClientHeight=449 TBDockHeight=305 LRDockWidth=140 Dockable=1 [MessageView@EditWindow0] Create=1 Visible=0 State=0 Left=12 Top=0 Width=684 Height=52 MaxLeft=-1 MaxTop=-1 ClientWidth=684 ClientHeight=52 TBDockHeight=52 LRDockWidth=443 Dockable=1 [DockHosts] DockHostCount=1 [DockSite0] DockSiteType=1 Create=1 Visible=0 State=0 Left=-3 Top=548 Width=421 Height=149 MaxLeft=-1 MaxTop=-1 ClientWidth=415 ClientHeight=124 TBDockHeight=149 LRDockWidth=421 Dockable=1 TabPosition=0 ActiveTab=Watch List TabDockClients=WatchWindow,BreakpointWindow,CallStackWindow --- NEW FILE: SpellCheck.dof --- [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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir= UnitOutputDir= 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;OrckaD6;ibam Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= [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=1033 CodePage=1252 [Version Info Keys] CompanyName= FileDescription= FileVersion=1.0.0.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= --- NEW FILE: SpellCheck.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 -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: Unit1.pas --- unit Unit1; interface {$I OrckaDV.inc} uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OrckaSpellCheckForm, OrckaEdit, OrckaGroupBox, ComCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; OpenDialog1: TOpenDialog; OrckaVisualSpellChecker1: TOrckaVisualSpellChecker; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Memo1: TMemo; RichEdit1: TRichEdit; TabSheet3: TTabSheet; OrckaRadioGroupBox1: TOrckaRadioGroupBox; OrckaRadioGroupBox2: TOrckaRadioGroupBox; Edit1: TEdit; OrckaButtonEdit1: TOrckaButtonEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if PageControl1.ActivePage = TabSheet1 then OpenDialog1.Filter := 'Text Files|*.txt' else OpenDialog1.Filter := 'Rich Text Files|*.rtf'; {$IFDEF DelphiVer5Up} if OpenDialog1.Execute then case PageControl1.ActivePageIndex of 0: Memo1.Lines.LoadFromFile(OpenDialog1.FileName); 1: RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end; {$ELSE} if OpenDialog1.Execute then if PageControl1.ActivePage = TabSheet1 then Memo1.Lines.LoadFromFile(OpenDialog1.FileName) else RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); {$ENDIF} end; procedure TForm1.Button2Click(Sender: TObject); begin if PageControl1.ActivePage = TabSheet3 then begin if OrckaRadioGroupBox1.Checked then OrckaVisualSpellChecker1.EditControl := TCustomEdit(Edit1) else OrckaVisualSpellChecker1.EditControl := TCustomEdit(OrckaButtonEdit1); end else begin if PageControl1.ActivePage = TabSheet1 then OrckaVisualSpellChecker1.EditControl := TCustomEdit(Memo1) else OrckaVisualSpellChecker1.EditControl := TCustomEdit(RichEdit1); end; if OrckaVisualSpellChecker1.Execute then ShowMessage('Spell Check Complete') else ShowMessage('Spell Check Cancelled'); end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SpellCheck.dpr --- program SpellCheck; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/TBX In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/TBX Added Files: TBX_Demo.cfg TBX_Demo.dof TBX_Demo.dpr TBX_Demo.res Unit1.dfm Unit1.pas Unit2.dfm Unit2.pas Log Message: Initially added to source control --- NEW FILE: TBX_Demo.dpr --- program TBX_Demo; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end. --- NEW FILE: TBX_Demo.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: TBX_Demo.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 -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: Unit2.pas --- unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm2 = class(TForm) Memo1: TMemo; private procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND; public constructor Create(AOwner: TComponent); override; end; var Form2: TForm2; implementation {$R *.DFM} var N: Integer = 1; { TForm2 } constructor TForm2.Create(AOwner: TComponent); begin inherited; ControlStyle := ControlStyle + [csOpaque]; Caption := 'MDI Child Window ' + IntToStr(N); Inc(N); end; procedure TForm2.WMEraseBkgnd(var Message: TMessage); begin Message.Result := 1; end; end. --- NEW FILE: Unit2.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus, Dialogs, ImgList, StdCtrls, ExtCtrls, ComCtrls, TBX, TB2Dock, TB2Toolbar, TB2Item, TB2Common, TB2ExtItems, TBXMDI, TBXSwitcher, TBXExtItems, TBXLists, TBXDkPanels, TBXToolPals, TBXStatusBars, TBXDefaultTheme, TBXOfficeXPTheme, TBXStripesTheme, OrckaAddinManager, Buttons, OrckaButton, OrckaPluginManager; type TForm1 = class(TForm) TBDock1: TTBDock; TBXToolbar0: TTBXToolbar; TBXSubmenuItem1: TTBXSubmenuItem; TBXItem1: TTBXItem; TBXItem2: TTBXItem; TBXItem3: TTBXItem; TBXItem4: TTBXItem; mnEdit: TTBXSubmenuItem; TBXItem5: TTBXItem; TBXSeparatorItem1: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem; TBXItem6: TTBXItem; ImageList1: TImageList; TBXItem7: TTBXItem; TBXSeparatorItem3: TTBXSeparatorItem; TBXItem8: TTBXItem; TBXSubmenuItem3: TTBXSubmenuItem; TBXSubmenuItem4: TTBXSubmenuItem; TBXSeparatorItem4: TTBXSeparatorItem; TBXItem9: TTBXItem; TBXItem10: TTBXItem; TBXItem11: TTBXItem; TBXItem15: TTBXItem; TBDock2: TTBDock; TBDock3: TTBDock; TBDock4: TTBDock; ImageList2: TImageList; TBXSeparatorItem11: TTBXSeparatorItem; TBXItem29: TTBXItem; TBXItem28: TTBXItem; TBXItem38: TTBXItem; TBXToolbar2: TTBXToolbar; TBXItem40: TTBXItem; TBXItem41: TTBXItem; TBXItem42: TTBXItem; TBXSeparatorItem12: TTBXSeparatorItem; TBXItem43: TTBXItem; TBXItem44: TTBXItem; TBXSeparatorItem13: TTBXSeparatorItem; TBXItem45: TTBXItem; TBXItem46: TTBXItem; TBXItem47: TTBXItem; TBXSeparatorItem14: TTBXSeparatorItem; mnUndoItems: TTBXSubmenuItem; TBXSubmenuItem9: TTBXSubmenuItem; TBXItem12: TTBXItem; TBXItem13: TTBXItem; TBXSeparatorItem6: TTBXSeparatorItem; bColorItem: TTBXColorItem; TBXSubmenuItem6: TTBXSubmenuItem; ColorDialog: TColorDialog; TBXSubmenuItem2: TTBXSubmenuItem; TBXItem16: TTBXItem; TBXItem17: TTBXItem; TBXItem18: TTBXItem; TBXItem19: TTBXItem; TBXSeparatorItem9: TTBXSeparatorItem; TBXItem20: TTBXItem; TBXItem21: TTBXItem; TBXSeparatorItem10: TTBXSeparatorItem; TBXItem22: TTBXItem; TBXMDIHandler1: TTBXMDIHandler; TBXSubmenuItem5: TTBXSubmenuItem; TBXMDIWindowItem1: TTBXMDIWindowItem; TBXItem23: TTBXItem; TBXItem26: TTBXItem; TBXSeparatorItem16: TTBXSeparatorItem; TBXSwitcher: TTBXSwitcher; TBXPopupMenu1: TTBXPopupMenu; TBXItem36: TTBXItem; TBXItem37: TTBXItem; TBXSubmenuItem7: TTBXSubmenuItem; TBXItem39: TTBXItem; TBXItem55: TTBXItem; TBXSeparatorItem17: TTBXSeparatorItem; TBXItem56: TTBXItem; TBXItem57: TTBXItem; TBXItem58: TTBXItem; TBXItem59: TTBXItem; TBXToolbar3: TTBXToolbar; TBXItem60: TTBXItem; TBXSeparatorItem18: TTBXSeparatorItem; TBXItem61: TTBXItem; TBXItem62: TTBXItem; TBXItem64: TTBXItem; TBXItem65: TTBXItem; TBXItem66: TTBXItem; TBXSeparatorItem19: TTBXSeparatorItem; TBXSubmenuItem8: TTBXSubmenuItem; TBXSeparatorItem20: TTBXSeparatorItem; MoreColors: TTBXItem; TBXSeparatorItem5: TTBXSeparatorItem; TBXLabelItem1: TTBXLabelItem; TBXToolbar5: TTBXToolbar; be1: TTBXSubmenuItem; TBXItem24: TTBXItem; TBXItem25: TTBXItem; TBXItem30: TTBXItem; be2: TTBXSubmenuItem; be3: TTBXItem; be4: TTBXItem; TBXSeparatorItem8: TTBXSeparatorItem; be5: TTBXItem; be6: TTBXItem; be7: TTBXSubmenuItem; TBXItem27: TTBXItem; TBXItem31: TTBXItem; TBXEditItem2: TTBXEditItem; TBXSeparatorItem7: TTBXSeparatorItem; UndoList: TTBXUndoList; UndoLabel: TTBXLabelItem; lstFonts: TTBXComboList; TBXComboList1: TTBXComboList; ColorCombo: TTBXComboItem; TBXSubmenuItem10: TTBXSubmenuItem; TBXList1: TTBXList; TBXSeparatorItem15: TTBXSeparatorItem; DockablePanel: TTBXDockablePanel; TBXPageScroller1: TTBXPageScroller; TBXLabel1: TTBXLabel; TBXLabel2: TTBXLabel; TBXLabel3: TTBXLabel; TBXAlignmentPanel2: TTBXAlignmentPanel; ListBox1: TListBox; TBXLabel4: TTBXLabel; TBXAlignmentPanel4: TTBXAlignmentPanel; TBXToolbar1: TTBXToolbar; TBXSubmenuItem11: TTBXSubmenuItem; TBXSeparatorItem21: TTBXSeparatorItem; TBXComboList2: TTBXComboList; ClrDefault: TTBXColorItem; ColorPalette: TTBXColorPalette; TBXSeparatorItem26: TTBXSeparatorItem; ToolPalette: TTBXToolPalette; TBXCheckBox1: TTBXCheckBox; TBXRadioButton1: TTBXRadioButton; TBXRadioButton2: TTBXRadioButton; TBXRadioButton3: TTBXRadioButton; TBXCheckBox2: TTBXCheckBox; TBXLink1: TTBXLink; TBXLabel5: TTBXLabel; TBXStatusBar: TTBXStatusBar; Edit1: TEdit; bColorButton: TTBXSubmenuItem; TBXSeparatorItem22: TTBXSeparatorItem; OrckaPluginManager1: TOrckaPluginManager; TBXItem14: TTBXItem; TBXSeparatorItem23: TTBXSeparatorItem; TBXSeparatorItem24: TTBXSeparatorItem; procedure TBXItem31Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure MakeNewWindow(Sender: TObject); procedure TBXItem23Click(Sender: TObject); procedure TBXItem26Click(Sender: TObject); procedure TBXItem27Click(Sender: TObject); procedure mnUndoItemsPopup(Sender: TTBCustomItem; FromLink: Boolean); procedure UndoListChange(Sender: TObject); procedure lstFontsMeasureHeight(Sender: TTBXStringList; ACanvas: TCanvas; var AHeight: Integer); procedure lstFontsDrawItem(Sender: TTBXStringList; ACanvas: TCanvas; ARect: TRect; AIndex: Integer; Selected: Boolean; var DrawDefault: Boolean); procedure TBXItem60Click(Sender: TObject); procedure MoreColorsClick(Sender: TObject); procedure ColorPaletteChange(Sender: TObject); procedure ClrDefaultClick(Sender: TObject); procedure TBXRadioButton1Change(Sender: TObject); procedure TBXRadioButton2Change(Sender: TObject); procedure TBXRadioButton3Change(Sender: TObject); procedure TBXCheckBox1Change(Sender: TObject); procedure TBXStatusBarPanelClick(Sender: TTBXCustomStatusBar; Panel: TTBXStatusPanel); procedure TBXSubmenuItem8AdjustFont(Item: TTBCustomItem; Viewer: TTBItemViewer; Font: TFont; StateFlags: Integer); procedure bColorButtonDrawImage(Item: TTBCustomItem; Viewer: TTBItemViewer; Canvas: TCanvas; ImageRect: TRect; ImageOffset: TPoint; StateFlags: Integer); procedure FormShow(Sender: TObject); procedure TBXItem14Click(Sender: TObject); procedure OrckaPluginManager1InsertButton(Sender: TObject; Button: TTBCustomItem; var ToolbarName: String); end; var Form1: TForm1; implementation uses Unit2, TBXUtils; {$R *.DFM} procedure TForm1.TBXItem31Click(Sender: TObject); begin TTBXItem(Sender).Checked := True; end; procedure TForm1.FormCreate(Sender: TObject); var C: HCURSOR; IniFilename: string; begin if not IsWindowsXP then begin TBXLabel1.Enabled := False; TBXCheckBox1.Enabled := False; end; TBXGetThemes(ListBox1.Items); lstFonts.Strings := Screen.Fonts; { Replace Borland's hand cursor with windows default one, if available } C := LoadCursor(0, IDC_HAND); if C <> 0 then Screen.Cursors[crHandPoint] := C; IniFilename := ChangeFileExt(Application.ExeName, '.INI'); OrckaPluginManager1.PluginIniFileName := IniFilename; OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0))); end; procedure TForm1.ListBox1Click(Sender: TObject); begin TBXSetTheme(ListBox1.Items[ListBox1.ItemIndex]); end; procedure TForm1.MakeNewWindow(Sender: TObject); begin TForm2.Create(Self); end; procedure TForm1.TBXItem23Click(Sender: TObject); begin Cascade; end; procedure TForm1.TBXItem26Click(Sender: TObject); begin Tile; end; procedure TForm1.TBXItem27Click(Sender: TObject); begin TTBXItem(Sender).Checked := True; end; type TTBViewAccess = class(TTBView); procedure TForm1.mnUndoItemsPopup(Sender: TTBCustomItem; FromLink: Boolean); begin UndoList.ItemIndex := 0; end; procedure TForm1.UndoListChange(Sender: TObject); const Actns: array [Boolean] of string = (' Action', ' Actions'); begin with UndoList do UndoLabel.UpdateCaption('Undo ' + IntToStr(ItemIndex + 1) + Actns[ItemIndex <> 0]); end; procedure TForm1.lstFontsMeasureHeight(Sender: TTBXStringList; ACanvas: TCanvas; var AHeight: Integer); begin AHeight := AHeight * 3 div 2; end; procedure TForm1.lstFontsDrawItem(Sender: TTBXStringList; ACanvas: TCanvas; ARect: TRect; AIndex: Integer; Selected: Boolean; var DrawDefault: Boolean); var S: string; begin S := lstFonts.Strings[AIndex]; ACanvas.Font.Size := 12; ACanvas.Font.Name := S; end; procedure TForm1.TBXItem60Click(Sender: TObject); begin DockablePanel.Visible := True; end; procedure TForm1.MoreColorsClick(Sender: TObject); begin with ColorDialog do begin Color := ColorPalette.Color; if Execute then ColorPalette.Color := Color; end; end; procedure TForm1.ColorPaletteChange(Sender: TObject); begin ClrDefault.Checked := ColorPalette.Color = clNone; ColorCombo.Text := ColorPalette.ColorToString(ColorPalette.Color); bColorItem.Color := ColorPalette.Color; bColorItem.Caption := 'Current Color: ' + ColorPalette.ColorToString(ColorPalette.Color); bColorButton.Invalidate; end; procedure TForm1.ClrDefaultClick(Sender: TObject); begin ColorPalette.Color := clNone; ClrDefault.Checked := True; end; procedure TForm1.TBXRadioButton1Change(Sender: TObject); begin TBXSwitcher.FlatMenuStyle := fmsAuto; end; procedure TForm1.TBXRadioButton2Change(Sender: TObject); begin TBXSwitcher.FlatMenuStyle := fmsEnable; end; procedure TForm1.TBXRadioButton3Change(Sender: TObject); begin TBXSwitcher.FlatMenuStyle := fmsDisable; end; procedure TForm1.TBXCheckBox1Change(Sender: TObject); begin TBXSwitcher.EnableXPStyles := TBXCheckBox1.Checked; end; procedure TForm1.TBXStatusBarPanelClick(Sender: TTBXCustomStatusBar; Panel: TTBXStatusPanel); begin if Panel.Index in [2, 4] then Panel.Enabled := not Panel.Enabled; end; procedure TForm1.TBXSubmenuItem8AdjustFont(Item: TTBCustomItem; Viewer: TTBItemViewer; Font: TFont; StateFlags: Integer); begin { Note, you can't change color here } Font.Style := Font.Style + [fsUnderline]; end; procedure TForm1.bColorButtonDrawImage(Item: TTBCustomItem; Viewer: TTBItemViewer; Canvas: TCanvas; ImageRect: TRect; ImageOffset: TPoint; StateFlags: Integer); var Color: TColor; begin if not Boolean(StateFlags and ISF_DISABLED) then begin Color := ColorPalette.Color; OffsetRect(ImageRect, ImageOffset.X, ImageOffset.Y); ImageRect.Top := ImageRect.Bottom - 4; if Color <> clNone then begin Canvas.Brush.Color := Color; Canvas.FillRect(ImageRect); end else begin FrameRectEx(Canvas, ImageRect, clBtnShadow, True); DitherRect(Canvas, ImageRect, clBtnFace, clBtnShadow); end; end; end; procedure TForm1.FormShow(Sender: TObject); begin OrckaPluginManager1.InsertToolbar('TBXToolbar0', TBXToolbar0); OrckaPluginManager1.InsertToolbar('TBXToolbar1', TBXToolbar1); OrckaPluginManager1.InsertToolbar('TBXToolbar2', TBXToolbar2); OrckaPluginManager1.InsertToolbar('TBXToolbar3', TBXToolbar3); OrckaPluginManager1.InsertToolbar('TBXToolbar5', TBXToolbar5); OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0))); end; procedure TForm1.TBXItem14Click(Sender: TObject); begin OrckaPluginManager1.Execute; end; procedure TForm1.OrckaPluginManager1InsertButton(Sender: TObject; Button: TTBCustomItem; var ToolbarName: String); begin if Button.Hint = 'Configure Tools' then ToolbarName := 'TTBXToolbar5'; end; end. --- NEW FILE: TBX_Demo.dof --- [FileVersion] Version=6.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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] 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;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Orcka\Component Suite\Plugin Wizard\Version 2 Source\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=2 MinorVer=0 Release=0 Build=38 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName=Orcka Development FileDescription= FileVersion=2.0.0.38 InternalName=PluginWizard LegalCopyright=Copyright © 2002 Orcka Development. All rights reserved. LegalTrademarks= OriginalFilename=PluginWizard ProductName=TOrckaPluginWizard ProductVersion=2.0 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlOutputDirectorry] Count=2 Item0=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\TBX Item1=D:\Program Files\Other\TB2K\Demo --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) |
Update of /cvsroot/ocs-comps/OCS2/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Source Added Files: CDFONTLI.RES CSVProcs.hpp CSVProcs.obj CSVProcs.pas InterbaseProcs.pas OrckaAddinManager.hpp OrckaAddinManager.obj OrckaAddinManager.pas OrckaAddinManagerShared.hpp OrckaAddinManagerShared.obj OrckaAddinManagerShared.pas OrckaButton.hpp OrckaButton.obj OrckaButton.pas OrckaDBCtls.hpp OrckaDBCtls.obj OrckaDBCtls.pas OrckaDBGrid.hpp OrckaDBGrid.obj OrckaDBGrid.pas OrckaDBLabelEdit.hpp OrckaDBLabelEdit.obj OrckaDBLabelEdit.pas OrckaDV.inc OrckaEdit.hpp OrckaEdit.obj OrckaEdit.pas OrckaFontControls.hpp OrckaFontControls.obj OrckaFontControls.pas OrckaGroupBox.hpp OrckaGroupBox.obj OrckaGroupBox.pas OrckaInterceptor.hpp OrckaInterceptor.obj OrckaInterceptor.pas OrckaLabelEdit.hpp OrckaLabelEdit.obj OrckaLabelEdit.pas OrckaLibraryLoader.hpp OrckaLibraryLoader.obj OrckaLibraryLoader.pas OrckaMap.hpp OrckaMap.obj OrckaMap.pas OrckaMapEditor.dfm OrckaMapEditor.hpp OrckaMapEditor.obj OrckaMapEditor.pas OrckaMemo.hpp OrckaMemo.obj OrckaMemo.pas OrckaNotify.hpp OrckaNotify.obj OrckaNotify.pas OrckaPluginManager.dfm OrckaPluginManager.hpp OrckaPluginManager.obj OrckaPluginManager.pas OrckaPluginManagerShared.hpp OrckaPluginManagerShared.obj OrckaPluginManagerShared.pas OrckaRegister.dcr OrckaRegister.hpp OrckaRegister.obj OrckaRegister.pas OrckaRegister.res OrckaRuler.hpp OrckaRuler.obj OrckaRuler.pas OrckaScreenSaver.hpp OrckaScreenSaver.obj OrckaScreenSaver.pas OrckaSpellChecker.hpp OrckaSpellChecker.obj OrckaSpellChecker.pas OrckaSpellCheckForm.dfm OrckaSpellCheckForm.hpp OrckaSpellCheckForm.obj OrckaSpellCheckForm.pas OrckaStringGrid.hpp OrckaStringGrid.obj OrckaStringGrid.pas OrckaStrings.hpp OrckaStrings.obj OrckaStrings.pas OrckaSubClass.hpp OrckaSubClass.obj OrckaSubClass.pas OrckaTimer.hpp OrckaTimer.obj OrckaTimer.pas OrckaTrayIcon.hpp OrckaTrayIcon.obj OrckaTrayIcon.pas OrckaVersionInfo.hpp OrckaVersionInfo.obj OrckaVersionInfo.pas OrckaWebLabel.hpp OrckaWebLabel.obj OrckaWebLabel.pas PluginModule.hpp PluginModule.obj PluginModule.pas ToolbarEditor.dfm ToolbarEditor.hpp ToolbarEditor.obj ToolbarEditor.pas winMsg.pas Log Message: Initially added to source control --- NEW FILE: OrckaSpellCheckForm.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaVersionInfo.pas --- //////////////////////////////////////////////////////////////////////////////// // // 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 OrckaVersionInfo; interface {$I OrckaDV.inc} uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TFileType = (ftUnknown, ftApplication, ftDLL, ftDriver, ftFont, ftVXD, ftStatic); TBuildType = (btDebug, btInfoInferred, btPatched, btPreRelease, btPrivate, btSpecial); TBuildTypes = set of TBuildType; TOrckaVersionInfo = class(TComponent) private FError: string; FVerData: Pointer; FVerSize: Longint; FFileName: string; FBuildType: TBuildTypes; FFileType: TFileType; FLanguage: Word; FCharSet: Word; FFileDescription: string; FInternalName: string; FProductName: string; FCompanyName: string; FFileVersion: string; FProductVersion: string; FLegalCopyright: string; FOriginalFilename: string; FRelease: Integer; FMajor: Integer; FBuild: Integer; FMinor: Integer; FOnChange: TNotifyEvent; procedure FreeVerData; function GetStringInfo(const VerName: string): string; protected procedure SetFileName(const Value: string); procedure ExtractVersionInfo; function GetCharSet: string; function GetLanguage: string; function GetVersion: string; procedure SetString(const Value: string); procedure SetInteger(const Value: Integer); procedure DoOnChange; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; function HasError: Boolean; function GetCharSetString(CharSet: Longint): string; function GetLangString(Language: Longint): string; function GetValue(const Name: string): string; published property Error: string read FError write SetString; property FileName: string read FFileName write SetFileName; property BuildType: TBuildTypes read FBuildType; property FileType: TFileType read FFileType; property Language: string read GetLanguage write SetString; property CharSet: string read GetCharSet write SetString; property CompanyName: string read FCompanyName write SetString; property FileDescription: string read FFileDescription write SetString; property FileVersion: string read FFileVersion write SetString; property InternalName: string read FInternalName write SetString; property LegalCopyright: string read FLegalCopyright write SetString; property OriginalFilename: string read FOriginalFilename write SetString; property ProductName: string read FProductName write SetString; property ProductVersion: string read FProductVersion write SetString; property Major: Integer read FMajor write SetInteger; property Minor: Integer read FMinor write SetInteger; property Release: Integer read FRelease write SetInteger; property Build: Integer read FBuild write SetInteger; property Version: string read GetVersion write SetString; property OnChange: TNotifyEvent read FOnChange write FOnChange; end; implementation (* Local to Unit *) type TLANGANDCODEPAGE = record wLanguage: Word; wCodePage: Word; end; lpTranslate = ^TLANGANDCODEPAGE; resourcestring sVersion = '%d.%d.%d.%d'; sStringInfo = '\StringFileInfo\%s%s\%s'; sFileDescription = 'FileDescription'; sCompanyName = 'CompanyName'; sFileVersion = 'FileVersion'; sInternalName = 'InternalName'; sLegalCopyright = 'LegalCopyright'; sOriginalFilename = 'OriginalFilename'; sProductName = 'ProductName'; sProductVersion = 'ProductVersion'; sTranslate = '\VarFileInfo\Translation'; sLangProb = 'Problem with language identifiers - Using Default'; sNoVer = 'No Version Information Available'; sCPOther = 'Unknown Charachter Set'; sCP874 = 'Thai'; sCP932 = 'Japan'; sCP936 = 'Chinese (PRC, Singapore)'; sCP949 = 'Korean'; sCP950 = 'Chinese (Taiwan, Hong Kong)'; sCP1200 = 'Unicode (BMP of ISO 10646)'; sCP1250 = 'Windows 3.1 Eastern European'; sCP1251 = 'Windows 3.1 Cyrillic'; sCP1252 = 'Windows 3.1 Latin 1 (US, Western Europe)'; sCP1253 = 'Windows 3.1 Greek'; sCP1254 = 'Windows 3.1 Turkish'; sCP1255 = 'Hebrew'; sCP1256 = 'Arabic'; sCP1257 = 'Baltic'; const sBlank = ''; { TOrckaVersionInfo } constructor TOrckaVersionInfo.Create(AOwner: TComponent); begin inherited Create(AOwner); FreeVerData; end; destructor TOrckaVersionInfo.Destroy; begin FreeVerData; inherited Destroy; end; procedure TOrckaVersionInfo.DoOnChange; begin if Assigned(FOnChange) then FOnChange(Self); end; procedure TOrckaVersionInfo.ExtractVersionInfo; var {$IFDEF DelphiVER7Up} Hwnd: DWORD; Len: Cardinal; {$ELSE} Hwnd: Cardinal; Len: Cardinal; {$ENDIF} FI: pVSFixedFileInfo; Info: PChar; LI: lpTranslate; begin FError := sBlank; try FreeVerData; FVerSize := GetFileVersionInfoSize(PChar(FFileName), Hwnd); if FVerSize > 0 then begin GetMem(FVerData, FVerSize + 1); if not GetFileVersionInfo(PChar(FFileName), 0, FVerSize + 1, FVerData) then raise Exception.Create(SysErrorMessage(GetLastError)); if VerQueryValue(FVerData, PChar(sTranslate), Pointer(LI), Len) then begin FLanguage := Li^.wLanguage; FCharSet := LI^.wCodePage; end else begin FLanguage := 1033; FCharSet := 1252; FError := sLangProb; end; if VerQueryValue(FVerData, PChar(GetStringInfo(sFileDescription)), Pointer(Info), Len) then FFileDescription := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sCompanyName)), Pointer(Info), Len) then FCompanyName := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sFileVersion)), Pointer(Info), Len) then FFileVersion := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sInternalName)), Pointer(Info), Len) then FInternalName := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sLegalCopyright)), Pointer(Info), Len) then FLegalCopyright := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sOriginalFilename)), Pointer(Info), Len) then FOriginalFilename := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sProductName)), Pointer(Info), Len) then FProductName := Copy(Info, 1, Len); if VerQueryValue(FVerData, PChar(GetStringInfo(sProductVersion)), Pointer(Info), Len) then FProductVersion := Copy(Info, 1, Len); if VerQueryValue(FVerData, '\', Pointer(FI), Len) then begin FMajor := HiWord(FI^.dwFileVersionMS); FMinor := LoWord(FI^.dwFileVersionMS); FRelease := HiWord(FI^.dwFileVersionLS); FBuild := LoWord(FI^.dwFileVersionLS); if FI^.dwFileFlags and VS_FF_DEBUG = VS_FF_DEBUG then Include(FBuildType, btDebug); if FI^.dwFileFlags and VS_FF_INFOINFERRED = VS_FF_INFOINFERRED then Include(FBuildType, btInfoInferred); if FI^.dwFileFlags and VS_FF_PATCHED = VS_FF_PATCHED then Include(FBuildType, btPatched); if FI^.dwFileFlags and VS_FF_PRERELEASE = VS_FF_PRERELEASE then Include(FBuildType, btPreRelease); if FI^.dwFileFlags and VS_FF_PRIVATEBUILD = VS_FF_PRIVATEBUILD then Include(FBuildType, btPrivate); if FI^.dwFileFlags and VS_FF_SPECIALBUILD = VS_FF_SPECIALBUILD then Include(FBuildType, btSpecial); case FI^.dwFileType of VFT_UNKNOWN: FFileType := ftUnknown; VFT_APP: FFileType := ftApplication; VFT_DLL: FFileType := ftDLL; VFT_DRV: FFileType := ftDriver; VFT_FONT: FFileType := ftFont; VFT_VXD: FFileType := ftVXD; VFT_STATIC_LIB: FFileType := ftStatic; end; end; end else FError := sNoVer; except on E: Exception do FError := E.Message; end; (* Notify user of change *) DoOnChange; end; procedure TOrckaVersionInfo.FreeVerData; begin (* Free Associated Memory *) if Assigned(FVerData) then FreeMem(FVerData); (* Clear down all version data *) FVerData := nil; FVerSize := 0; FBuildType := []; FError := sBlank; FVerSize := 0; FFileType := ftUnknown; FLanguage := 0; FCharSet := 0; FFileDescription := sBlank; FInternalName := sBlank; FProductName := sBlank; FCompanyName := sBlank; FFileVersion := sBlank; FProductVersion := sBlank; FLegalCopyright := sBlank; FOriginalFilename := sBlank; FRelease := 0; FMajor := 0; FBuild := 0; FMinor := 0; (* Notify User of change *) DoOnChange; end; function TOrckaVersionInfo.GetCharSet: string; begin if FCharSet = 0 then Result := sBlank else Result := GetCharSetString(FCharSet); end; function TOrckaVersionInfo.GetCharSetString(CharSet: Integer): string; begin case CharSet of 874: Result := sCP874; 932: Result := sCP932; 936: Result := sCP936; 949: Result := sCP949; 950: Result := sCP950; 1200: Result := sCP1200; 1250: Result := sCP1250; 1251: Result := sCP1251; 1252: Result := sCP1252; 1253: Result := sCP1253; 1254: Result := sCP1254; 1255: Result := sCP1255; 1256: Result := sCP1256; 1257: Result := sCP1257; else Result := sCPOther; end; end; function TOrckaVersionInfo.GetLangString(Language: Integer): string; begin case Language of $0000: Result := 'Language Neutral'; $0400: Result := 'Process Default Language'; $0401: Result := 'Arabic (Saudi Arabia)'; $0801: Result := 'Arabic (Iraq)'; $0c01: Result := 'Arabic (Egypt)'; $1001: Result := 'Arabic (Libya)'; $1401: Result := 'Arabic (Algeria)'; $1801: Result := 'Arabic (Morocco)'; $1c01: Result := 'Arabic (Tunisia)'; $2001: Result := 'Arabic (Oman)'; $2401: Result := 'Arabic (Yemen)'; $2801: Result := 'Arabic (Syria)'; $2c01: Result := 'Arabic (Jordan)'; $3001: Result := 'Arabic (Lebanon)'; $3401: Result := 'Arabic (Kuwait)'; $3801: Result := 'Arabic (U.A.E.)'; $3c01: Result := 'Arabic (Bahrain)'; $4001: Result := 'Arabic (Qatar)'; $0402: Result := 'Bulgarian'; $0403: Result := 'Catalan'; $0404: Result := 'Chinese (Taiwan)'; $0804: Result := 'Chinese (PRC)'; $0c04: Result := 'Chinese (Hong Kong)'; $1004: Result := 'Chinese (Singapore)'; $0405: Result := 'Czech'; $0406: Result := 'Danish'; $0407: Result := 'German (Standard)'; $0807: Result := 'German (Swiss)'; $0c07: Result := 'German (Austrian)'; $1007: Result := 'German (Luxembourg)'; $1407: Result := 'German (Liechtenstein)'; $0408: Result := 'Greek'; $0409: Result := 'English (United States)'; $0809: Result := 'English (United Kingdom)'; $0c09: Result := 'English (Australian)'; $1009: Result := 'English (Canadian)'; $1409: Result := 'English (New Zealand)'; $1809: Result := 'English (Ireland)'; $1c09: Result := 'English (South Africa)'; $2009: Result := 'English (Jamaica)'; $2409: Result := 'English (Caribbean)'; $2809: Result := 'English (Belize)'; $2c09: Result := 'English (Trinidad)'; $040a: Result := 'Spanish (Traditional Sort)'; $080a: Result := 'Spanish (Mexican)'; $0c0a: Result := 'Spanish (Modern Sort)'; $100a: Result := 'Spanish (Guatemala)'; $140a: Result := 'Spanish (Costa Rica)'; $180a: Result := 'Spanish (Panama)'; $1c0a: Result := 'Spanish (Dominican Republic)'; $200a: Result := 'Spanish (Venezuela)'; $240a: Result := 'Spanish (Colombia)'; $280a: Result := 'Spanish (Peru)'; $2c0a: Result := 'Spanish (Argentina)'; $300a: Result := 'Spanish (Ecuador)'; $340a: Result := 'Spanish (Chile)'; $380a: Result := 'Spanish (Uruguay)'; $3c0a: Result := 'Spanish (Paraguay)'; $400a: Result := 'Spanish (Bolivia)'; $440a: Result := 'Spanish (El Salvador)'; $480a: Result := 'Spanish (Honduras)'; $4c0a: Result := 'Spanish (Nicaragua)'; $500a: Result := 'Spanish (Puerto Rico)'; $040b: Result := 'Finnish'; $040c: Result := 'French (Standard)'; $080c: Result := 'French (Belgian)'; $0c0c: Result := 'French (Canadian)'; $100c: Result := 'French (Swiss)'; $140c: Result := 'French (Luxembourg)'; $040d: Result := 'Hebrew'; $040e: Result := 'Hungarian'; $040f: Result := 'Icelandic'; $0410: Result := 'Italian (Standard)'; $0810: Result := 'Italian (Swiss)'; $0411: Result := 'Japanese'; $0412: Result := 'Korean'; $0812: Result := 'Korean (JoHab)'; $0413: Result := 'Dutch (Standard)'; $0813: Result := 'Dutch (Belgian)'; $0414: Result := 'Norwegian (Bokmal)'; $0814: Result := 'Norwegian (Nynorsk)'; $0415: Result := 'Polish'; $0416: Result := 'Portuguese (Brazilian)'; $0816: Result := 'Portuguese (Standard)'; $0418: Result := 'Romanian'; $0419: Result := 'Russian'; $041a: Result := 'Croatian'; $0c1a: Result := 'Serbian'; $041b: Result := 'Slovak'; $041c: Result := 'Albanian'; $041d: Result := 'Swedish'; $081d: Result := 'Swedish (Finland)'; $041e: Result := 'Thai'; $041f: Result := 'Turkish'; $0421: Result := 'Indonesian'; $0422: Result := 'Ukrainian'; $0423: Result := 'Belarusian'; $0424: Result := 'Slovenian'; $0425: Result := 'Estonian'; $0426: Result := 'Latvian'; $0427: Result := 'Lithuanian'; $081a: Result := 'Serbian'; $0429: Result := 'Farsi'; $042d: Result := 'Basque'; $0436: Result := 'Afrikaans'; $0438: Result := 'Faeroese'; else Result := 'Unknown Language'; end; end; function TOrckaVersionInfo.GetLanguage: string; begin if FLanguage = 0 then Result := sBlank else Result := GetLangString(FLanguage); end; function TOrckaVersionInfo.GetStringInfo(const VerName: string): string; begin Result := Format(sStringInfo, [IntToHex(FLanguage, 4), IntToHex(FCharSet, 4), VerName]) end; function TOrckaVersionInfo.GetValue(const Name: string): string; var Info: PChar; {$IFDEF DelphiVER4Up} Len: DWORD; {$ELSE} Len: Cardinal; {$ENDIF} begin if Assigned(FVerData) then begin if VerQueryValue(FVerData, PChar(GetStringInfo(Name)), Pointer(Info), Len) then Result := Copy(Info, 1, Len) else Result := sBlank; end else Result := sBlank; end; function TOrckaVersionInfo.GetVersion: string; begin if (FMajor = 0) and (FMinor = 0) then Result := sBlank else Result := Format(sVersion, [FMajor, FMinor, FRelease, FBuild]); end; function TOrckaVersionInfo.HasError: Boolean; begin Result := CompareText(FError, sBlank) <> 0; end; procedure TOrckaVersionInfo.SetFileName(const Value: string); begin if CompareText(Value, FFileName) <> 0 then begin FreeVerData; FFileName := Value; ExtractVersionInfo; end; end; procedure TOrckaVersionInfo.SetInteger(const Value: Integer); begin (* do nothing its a dummy handler so the read only properties can be seen in the object inspector *) end; procedure TOrckaVersionInfo.SetString(const Value: string); begin (* do nothing its a dummy handler so the read only properties can be seen in the object inspector *) end; end. --- NEW FILE: OrckaStringGrid.pas --- //////////////////////////////////////////////////////////////////////////////// // // 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 OrckaStringGrid; interface {$I OrckaDV.inc} uses SysUtils, {$IFDEF MSWINDOWS} Windows, Messages, Classes, Graphics, Controls, Grids, {$ENDIF} {$IFDEF LINUX} Classes, QGraphics, QControls, QGrids, {$ENDIF} CSVProcs; type TProgressEvent = procedure(Sender: TObject; const Value: Longint) of object; TGridType = (gtStandard, gtSpreadSheet); EOrckaStringGridException = class(Exception); TOrckaStringGrid = class(TStringGrid) private FCSVSeparator: Char; FCSVOptions: TCSVOptions; FImportProgress: TProgressEvent; FAfterImport: TNotifyEvent; FBeforeImport: TNotifyEvent; FCSVQuote: Char; FBeforeExport: TNotifyEvent; FAfterExport: TNotifyEvent; FExportProgress: TProgressEvent; FGridType: TGridType; protected procedure DoImportProgress(const Value: Integer); procedure DoBeforeImport; procedure DoAfterImport; procedure DoExportProgress(const Value: Integer); procedure DoBeforeExport; procedure DoAfterExport; function GetColName(ACol: Integer): string; function GetColumnCount: Longint; function GetRowCount: Longint; procedure ResetHeaders; procedure SetGridType(const Value: TGridType); procedure SetColumnCount(const Value: Longint); procedure SetRowCount(const Value: Longint); public constructor Create(AOwner: TComponent); override; procedure LoadCSVFile(const FileName: string); procedure SaveCSVFile(const FileName: string); procedure SwapRows(RowA, RowB: Longint; IgnoreFixed: Boolean {$IFDEF OptionalParams} = True {$ENDIF}); procedure SwapColumns(ColA, ColB: Longint; IgnoreFixed: Boolean {$IFDEF OptionalParams} = True {$ENDIF}); published property ColCount: Longint read GetColumnCount write SetColumnCount; property RowCount: Longint read GetRowCount write SetRowCount; property GridType: TGridType read FGridType write SetGridType; property CSVOptions: TCSVOptions read FCSVOptions write FCSVOptions; property CSVSeparator: Char read FCSVSeparator write FCSVSeparator; property CSVQuote: Char read FCSVQuote write FCSVQuote; property OnImportProgress: TProgressEvent read FImportProgress write FImportProgress; property BeforeImport: TNotifyEvent read FBeforeImport write FBeforeImport; property AfterImport: TNotifyEvent read FAfterImport write FAfterImport; property OnExportProgress: TProgressEvent read FExportProgress write FExportProgress; property BeforeExport: TNotifyEvent read FBeforeExport write FBeforeExport; property AfterExport: TNotifyEvent read FAfterExport write FAfterExport; end; implementation uses OrckaStrings; {$IFNDEF DelphiVer4Up} type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase); function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; var SearchStr, Patt, NewStr: string; Offset: Integer; begin if rfIgnoreCase in Flags then begin SearchStr := AnsiUpperCase(S); Patt := AnsiUpperCase(OldPattern); end else begin SearchStr := S; Patt := OldPattern; end; NewStr := S; Result := sBlank; while SearchStr <> sBlank do begin Offset := AnsiPos(Patt, SearchStr); if Offset = 0 then begin Result := Result + NewStr; Break; end; Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern; NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt); if not (rfReplaceAll in Flags) then begin Result := Result + NewStr; Break; end; SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt); end; end; {$ENDIF} constructor TOrckaStringGrid.Create(AOwner: TComponent); begin inherited Create(AOwner); FCSVSeparator := sComma; FCSVQuote := '"'; end; procedure TOrckaStringGrid.DoAfterExport; begin if Assigned(FAfterExport) then FAfterExport(Self); end; procedure TOrckaStringGrid.DoAfterImport; begin if Assigned(FAfterImport) then FAfterImport(Self); end; procedure TOrckaStringGrid.DoBeforeExport; begin if Assigned(FBeforeExport) then FBeforeExport(Self); end; procedure TOrckaStringGrid.DoBeforeImport; begin if Assigned(FBeforeImport) then FBeforeImport(Self); end; procedure TOrckaStringGrid.DoExportProgress(const Value: Integer); begin if Assigned(FExportProgress) then FExportProgress(Self, Value); end; procedure TOrckaStringGrid.DoImportProgress(const Value: Integer); begin if Assigned(FImportProgress) then FImportProgress(Self, Value); end; function TOrckaStringGrid.GetColName(ACol: Integer): string; const ALPHABET_SIZE = 26; begin Result := sBlank; if FGridType <> gtSpreadSheet then Exit; while ACol >= 0 do begin Result := Char((Byte('A') + (ACol mod ALPHABET_SIZE))) + Result; ACol := (ACol div ALPHABET_SIZE) - 1; end; end; function TOrckaStringGrid.GetColumnCount: Longint; begin Result := inherited ColCount; end; function TOrckaStringGrid.GetRowCount: Longint; begin Result := inherited RowCount; end; procedure TOrckaStringGrid.LoadCSVFile(const FileName: string); var slCSV: TStringList; slFile: TStringList; iLines, I, J: Longint; begin DoBeforeImport; slFile := TStringList.Create; try slFile.LoadFromFile(FileName); iLines := slFile.Count; RowCount := iLines; slCSV := TStringList.Create; try for I := 0 to iLines -1 do begin ParseCSVText(slFile.Strings[I], slCSV, FCSVSeparator, FCSVOptions); if ColCount < slCSV.Count then ColCount := slCSV.Count; for J := 0 to slCSV.Count -1 do Cells[J + Ord(FGridType), I + Ord(FGridType)] := slCSV.Strings[J]; DoImportProgress((I * 100) div iLines); end; finally slCSV.Free; end; finally slFile.Free; end; DoAfterImport; end; procedure TOrckaStringGrid.ResetHeaders; var I: Longint; begin Canvas.Lock; try for I := 1 to ColCount do Cells[I, 0] := GetColName(I -1); for I := 1 to RowCount do if FGridType = gtSpreadSheet then Cells[0, I] := IntToStr(I) else Cells[0, I] := sBlank; finally Canvas.Unlock; end; end; procedure TOrckaStringGrid.SaveCSVFile(const FileName: string); var R, C: Longint; S: string; P: PChar; slCSV: TStringList; slFile: TStringList; begin DoBeforeExport; slFile := TStringList.Create; try slCSV := TStringList.Create; try for R := 0 to RowCount -1 do begin for C := 0 to ColCount -1 do begin P := PChar(Cells[C + Ord(FGridType), R + Ord(FGridType)]); if P^ = FCSVQuote then S := AnsiExtractQuotedStr(P, FCSVQuote) else S := P; if S <> sBlank then S := AnsiQuotedStr(S, FCSVQuote); slCSV.Add(S); end; slFile.Add(StringReplace(slCSV.Text, sCRLF, FCSVSeparator, [rfReplaceAll])); slCSV.Clear; DoExportProgress((R * 100) div RowCount); end; finally slCSV.Free; end; slFile.SaveToFile(FileName); finally slFile.Free; end; DoAfterExport; end; procedure TOrckaStringGrid.SetColumnCount(const Value: Longint); begin inherited ColCount := Value; ResetHeaders; end; procedure TOrckaStringGrid.SetGridType(const Value: TGridType); begin if FGridType = Value then Exit; FGridType := Value; case FGridType of gtSpreadSheet: begin ColCount := 257; RowCount := 8193; FixedRows := 1; FixedCols := 1; ColWidths[0] := Canvas.TextWidth('9999') + 15; end; gtStandard: begin ColCount := 5; RowCount := 5; FixedRows := 1; FixedCols := 1; ColWidths[0] := ColWidths[1]; end; end; ResetHeaders; end; procedure TOrckaStringGrid.SetRowCount(const Value: Longint); begin inherited RowCount := Value; ResetHeaders; end; procedure TOrckaStringGrid.SwapColumns(ColA, ColB: Longint; IgnoreFixed: Boolean {$IFDEF OptionalParams} = True {$ENDIF}); var I: Integer; S: string; begin if (ColA >= ColCount) or (ColB >= ColCount) then raise EOrckaStringGridException.Create(sInvalidGridCol); if FGridType = gtSpreadSheet then IgnoreFixed := True; Canvas.Lock; try for I := 0 to RowCount -1 do begin if (FixedRows > 0) and (IgnoreFixed) and (I < FixedRows) then Continue; S := Cells[ColA, I]; Cells[ColA, I] := Cells[ColB, I]; Cells[ColB, I] := S; end; finally Canvas.Unlock; end; end; procedure TOrckaStringGrid.SwapRows(RowA, RowB: Longint; IgnoreFixed: Boolean {$IFDEF OptionalParams} = True {$ENDIF}); var I: Integer; S: string; begin if (RowA >= RowCount) or (RowB >= RowCount) then raise EOrckaStringGridException.Create(sInvalidGridRow); if FGridType = gtSpreadSheet then IgnoreFixed := True; Canvas.Lock; try for I := 0 to ColCount -1 do begin if (FixedCols > 0) and (IgnoreFixed) and (I < FixedCols) then Continue; S := Cells[I, RowA]; Cells[I, RowA] := Cells[I, RowB]; Cells[I, RowB] := S; end; finally Canvas.Unlock; end; end; end. --- NEW FILE: OrckaPluginManagerShared.obj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaVersionInfo.obj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaStrings.pas --- //////////////////////////////////////////////////////////////////////////////// // // 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 OrckaStrings; interface const (* do not localize these strings *) sCRLF = #13#10; sBlank = ''; sComma = ','; (* following strings can be locolazid *) sInvalidGridRow = 'Invalid Row ID'; sInvalidGridCol = 'Invalid Column ID'; implementation end. --- NEW FILE: OrckaSubClass.pas --- //////////////////////////////////////////////////////////////////////////////// // // 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 OrckaSubClass; interface {$I OrckaDV.inc} {$T-} {$B-} uses SysUtils, Classes, {$IFDEF MSWindows} Windows, Messages, Controls; {$ENDIF} {$IFDEF Linux} QControls; {$ENDIF} type TOrckaSubClass = class(TComponent) private FSubClassedControl: TWinControl; protected function MessageArrived(Msg: Integer; wParam: DWord; lParam: LongInt): Bool; virtual; abstract; procedure OnMsg(var Msg: TMsg; var Handled: Boolean); procedure UnSubClassControl; virtual; procedure SubClassControl; virtual; procedure SetSubClassedControl(Control: TWinControl); public destructor Destroy; override; property ToWatch: TWinControl read FSubClassedControl write SetSubClassedControl; published end; function VCLSubClassWndProc(HookCode: Integer; wParam: WPARAM; var lParam: TMsg): Longint; stdcall; implementation //Private Variables var FVCLSubClassList: TList = nil; FVCLSubClassListHook: HHook = 0; //Private Functions procedure VCLSubClassDoHook; begin FVCLSubClassListHook := SetWindowsHookEx(WH_GETMESSAGE, @VCLSubClassWndProc, 0, GetCurrentThreadID); end; procedure VCLSubClassUnDoHook; begin UnhookWindowsHookEx(FVCLSubClassListHook); FVCLSubClassListHook := 0; end; procedure AddToVCLSubClassList(Control: TOrckaSubClass); var intLoop: LongInt; begin if FVCLSubClassListHook = 0 then VCLSubClassDoHook; with FVCLSubClassList do begin for intLoop := 0 to Count -1 do begin if (Items[intLoop] <> nil) and (TOrckaSubClass(Items[intLoop]) = Control) then Exit; end; Add(Control); end; end; procedure RemoveFromVCLSubClassList(Control: TOrckaSubClass); var intLoop: LongInt; begin with FVCLSubClassList do begin for intLoop := 0 to Count -1 do begin if (Items[intLoop] <> nil) and (TOrckaSubClass(Items[intLoop]) = Control) then begin Delete(intLoop); Pack; if (Count -1) = -1 then VCLSubClassUnDoHook; Break; end; end; end; end; function DoVCLSubClassMsg(Control: TOrckaSubClass; var Msg: TMsg): Boolean; var Handled: Boolean; begin Handled := False; Control.OnMsg(Msg, Handled); Result := Handled; end; function VCLSubClassWndProc(HookCode: Integer; wParam: WPARAM; var lParam: TMsg): Longint; var intLoop: LongInt; Ctl: TWinControl; begin Result := CallNextHookEx(FVCLSubClassListHook, HookCode, wParam, LongInt(@lParam)); with FVCLSubClassList do begin for intLoop := 0 to count -1 do begin Ctl := (TOrckaSubClass(Items[intLoop]).ToWatch as TWinControl); if (Ctl.ComponentState = []) and (lParam.Hwnd = Ctl.Handle) then DoVCLSubClassMsg(TOrckaSubClass(Items[intLoop]), lParam); end; end; end; //TOrckaSubClass Object destructor TOrckaSubClass.Destroy; begin if FSubClassedcontrol <> nil then UnSubClassControl; inherited Destroy; end; procedure TOrckaSubClass.OnMsg(var Msg: TMsg; var Handled: Boolean); begin try if Msg.Hwnd = (ToWatch as TWinControl).Handle then Handled := MessageArrived(Msg.Message, Msg.wParam, Msg.lParam); except end; end; procedure TOrckaSubClass.UnSubClassControl; begin RemoveFromVCLSubClassList(Self); end; procedure TOrckaSubClass.SubClassControl; begin if not (csDesigning in ComponentState) then AddtoVCLSubClassList(Self); end; procedure TOrckaSubClass.SetSubClassedControl(Control: TWinControl); begin if FSubClassedcontrol <> nil then UnSubClassControl; FSubClassedControl := Control; if FSubClassedcontrol <> nil then SubClassControl; end; initialization FVCLSubClassList := TList.Create; finalization FVCLSubClassList.Free; end. --- NEW FILE: OrckaPluginManagerShared.hpp --- // Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'OrckaPluginManagerShared.pas' rev: 6.00 #ifndef OrckaPluginManagerSharedHPP #define OrckaPluginManagerSharedHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include <Messages.hpp> // Pascal unit #include <Windows.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit #include <SysInit.hpp> // Pascal unit #include <System.hpp> // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Orckapluginmanagershared { //-- type declarations ------------------------------------------------------- typedef char TExportString[256]; typedef AnsiString TSmallString; typedef AnsiString TMediumString; typedef AnsiString TLargeString; typedef AnsiString THugeString; typedef AnsiString TOString; class DELPHICLASS EOrckaPluginManagerException; class PASCALIMPLEMENTATION EOrckaPluginManagerException : public Sysutils::Exception { typedef Sysutils::Exception inherited; public: #pragma option push -w-inl /* Exception.Create */ inline __fastcall EOrckaPluginManagerException(const AnsiString Msg) : Sysutils::Exception(Msg) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateFmt */ inline __fastcall EOrckaPluginManagerException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateRes */ inline __fastcall EOrckaPluginManagerException(int Ident)/* overload */ : Sysutils::Exception(Ident) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResFmt */ inline __fastcall EOrckaPluginManagerException(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateHelp */ inline __fastcall EOrckaPluginManagerException(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateFmtHelp */ inline __fastcall EOrckaPluginManagerException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResHelp */ inline __fastcall EOrckaPluginManagerException(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResFmtHelp */ inline __fastcall EOrckaPluginManagerException(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~EOrckaPluginManagerException(void) { } #pragma option pop }; #pragma option push -b- enum TLogType { ltNone, ltLow, ltMedium, ltHigh, ltSevere, ltCritical, ltError, ltWarning, ltInformation }; #pragma option pop #pragma option push -b- enum TPluginEventType { peApplication, peFile, peObject, peTemplate, peOther }; #pragma option pop #pragma option push -b- enum TPluginOption { poDoSleep, poDoProcessMessages, poDoMinimize, poDoMaximize, poDoTerminate, poDoSetTitle, poDoShowHelp, poAllowInsertToolbars, poAllowRemoveToolbars, poOnActivate, poOnDeactivate, poOnException, poOnHelp, poOnHint, poOnIdle, poOnMessage, poOnMinimize, poOnRestore, poOnSettingsChanged, poOnShortCut, poOnShowHint }; #pragma option pop typedef Set<TPluginOption, poDoSleep, poOnShowHint> TPluginOptions; #pragma option push -b- enum TOrckaButtonStyle { obVSeperator, obHSeperator, obButton }; #pragma option pop typedef int THelpContext; class DELPHICLASS TOInterface; class PASCALIMPLEMENTATION TOInterface : public System::TObject { typedef System::TObject inherited; private: int FRefCount; int FTag; void *FObject; public: __fastcall virtual TOInterface(void); HIDESBASE void __fastcall Free(void); virtual int __stdcall AddRef(void); virtual int __stdcall Release(void); virtual int __stdcall GetVersion(void); __property int Tag = {read=FTag, write=FTag, nodefault}; public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOInterface(void) { } #pragma option pop }; class DELPHICLASS TOrckaAddinManagerParams; class DELPHICLASS TOToolServices; class DELPHICLASS TOMenuItem; typedef void __fastcall (__closure *TOMenuClick)(TOMenuItem* Sender); class DELPHICLASS TOButtonItem; typedef void __fastcall (__closure *TOButtonClick)(TOButtonItem* Sender); class PASCALIMPLEMENTATION TOToolServices : public TOInterface { typedef TOInterface inherited; public: virtual TOMenuItem* __stdcall InsertMenu(int Position, TOMenuItem* Parent, AnsiString Caption, TOMenuClick ClickEvent) = 0 ; virtual bool __stdcall RemoveMenu(TOMenuItem* Menu) = 0 ; virtual TOMenuItem* __stdcall FindMenu(AnsiString Name) = 0 ; virtual int __stdcall GetMenuCount(void) = 0 ; virtual void __stdcall RaiseException(const AnsiString Message) = 0 ; virtual AnsiString __stdcall GetBaseRegistryKey(void) = 0 ; virtual int __stdcall MsgBox(AnsiString Text, int MsgType) = 0 ; virtual int __stdcall GetHandle(void) = 0 ; virtual TOButtonItem* __stdcall InsertButton(int Position, AnsiString TabName, AnsiString Hint, TOButtonClick ClickEvent) = 0 ; virtual bool __stdcall RemoveButton(TOButtonItem* Button) = 0 ; virtual int __stdcall AddPicture(HBITMAP PictureHandle) = 0 ; virtual void __stdcall GetPicture(int Index, HBITMAP &PictureHandle) = 0 ; virtual int __stdcall AddIcon(HICON IconHandle) = 0 ; virtual void __stdcall GetIcon(int Index, HICON &IconHandle) = 0 ; virtual int __stdcall GetImageCount(void) = 0 ; public: #pragma option push -w-inl /* TOInterface.Create */ inline __fastcall virtual TOToolServices(void) : TOInterface() { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOToolServices(void) { } #pragma option pop }; class PASCALIMPLEMENTATION TOrckaAddinManagerParams : public System::TObject { typedef System::TObject inherited; public: int AppHandle; TOToolServices* Service; void *User; public: #pragma option push -w-inl /* TObject.Create */ inline __fastcall TOrckaAddinManagerParams(void) : System::TObject() { } #pragma option pop #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOrckaAddinManagerParams(void) { } #pragma option pop }; class DELPHICLASS TOrckaPluginManagerParams; class DELPHICLASS TPluginServices; class DELPHICLASS TPluginClient; class PASCALIMPLEMENTATION TPluginServices : public TOToolServices { typedef TOToolServices inherited; public: virtual AnsiString __stdcall ReadString(AnsiString Section, AnsiString Ident, AnsiString Default) = 0 ; virtual int __stdcall ReadInteger(AnsiString Section, AnsiString Ident, int Default) = 0 ; virtual bool __stdcall ReadBool(AnsiString Section, AnsiString Ident, bool Default) = 0 ; virtual void __stdcall WriteString(AnsiString Section, AnsiString Ident, AnsiString Value) = 0 ; virtual void __stdcall WriteInteger(AnsiString Section, AnsiString Ident, int Value) = 0 ; virtual void __stdcall WriteBool(AnsiString Section, AnsiString Ident, bool Value) = 0 ; virtual bool __stdcall WriteToLog(AnsiString Line, TLogType LogType) = 0 ; virtual unsigned __stdcall GetLogCount(void) = 0 ; virtual bool __stdcall GetLogItem(unsigned Index, AnsiString &LogText, TLogType &LogType) = 0 ; virtual void * __stdcall GetDatabaseHandle(void) = 0 ; virtual void __stdcall StartTransaction(void) = 0 ; virtual void __stdcall CommitTransaction(void) = 0 ; virtual void __stdcall RollbackTransaction(void) = 0 ; virtual int __stdcall GetToolbarCount(void) = 0 ; virtual AnsiString __stdcall GetToolbarName(void) = 0 ; virtual void __stdcall InsertToolbar(AnsiString ToolBarName) = 0 ; virtual void __stdcall DeleteToolbar(AnsiString ToolBarName) = 0 ; virtual int __stdcall GetButtonCount(void) = 0 ; virtual TOButtonItem* __stdcall GetButton(int Index) = 0 ; virtual bool __stdcall SetButtonToolbar(AnsiString ToolBarName, TOButtonItem* Button) = 0 ; virtual AnsiString __stdcall GetButtonToolbar(TOButtonItem* Button) = 0 ; virtual void __stdcall Refresh(void) = 0 ; virtual void __stdcall Sleep(unsigned MilliSeconds) = 0 ; virtual void __stdcall DoMinimize(void) = 0 ; virtual void __stdcall DoProcessMessages(void) = 0 ; virtual void __stdcall DoRestore(void) = 0 ; virtual void __stdcall DoTerminate(void) = 0 ; virtual void __stdcall DoSetTitle(AnsiString Title) = 0 ; virtual bool __stdcall HelpCommand(Word Command, int Data) = 0 ; virtual bool __stdcall HelpContext(THelpContext Context) = 0 ; virtual bool __stdcall HelpJump(const AnsiString JumpID) = 0 ; virtual bool __stdcall HelpKeyword(const AnsiString Keyword) = 0 ; virtual AnsiString __stdcall GetHint(void) = 0 ; virtual int __stdcall MenuBitmapInsert(HBITMAP PictureHandle) = 0 ; virtual void __stdcall MenuBitmapDelete(int Index) = 0 ; virtual int __stdcall MenuBitmapGetCount(void) = 0 ; virtual bool __stdcall PluginClientInsert(TPluginClient* PluginClient) = 0 ; virtual bool __stdcall PluginClientRemove(TPluginClient* PluginClient) = 0 ; virtual bool __stdcall PluginClientSetEvents(TPluginClient* PluginClient, TPluginOptions ApplicationEvents) = 0 ; virtual bool __stdcall PluginClientIncludeAppEvent(TPluginClient* PluginClient, TPluginOption ApplicationEvent) = 0 ; virtual bool __stdcall PluginClientExcludeAppEvent(TPluginClient* PluginClient, TPluginOption ApplicationEvent) = 0 ; virtual void __stdcall PluginClientPrint(AnsiString PrintCaption) = 0 ; public: #pragma option push -w-inl /* TOInterface.Create */ inline __fastcall virtual TPluginServices(void) : TOToolServices() { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TPluginServices(void) { } #pragma option pop }; class PASCALIMPLEMENTATION TOrckaPluginManagerParams : public TOrckaAddinManagerParams { typedef TOrckaAddinManagerParams inherited; public: TPluginServices* PluginService; public: #pragma option push -w-inl /* TObject.Create */ inline __fastcall TOrckaPluginManagerParams(void) : TOrckaAddinManagerParams() { } #pragma option pop #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOrckaPluginManagerParams(void) { } #pragma option pop }; class PASCALIMPLEMENTATION TOButtonItem : public TOInterface { typedef TOInterface inherited; public: virtual bool __stdcall GetEnabled(void) = 0 ; virtual bool __stdcall SetEnabled(bool IsEnabled) = 0 ; virtual int __stdcall GetGroupIndex(void) = 0 ; virtual bool __stdcall SetGroupIndex(int GroupIndex) = 0 ; virtual AnsiString __stdcall GetHint(void) = 0 ; virtual bool __stdcall SetHint(AnsiString Hint) = 0 ; virtual bool __stdcall SetPicture(int Hinst, int ResID) = 0 ; virtual TOButtonClick __stdcall GetOnClick(void) = 0 ; virtual bool __stdcall SetOnClick(TOButtonClick Click) = 0 ; virtual bool __stdcall SetNumGlyphs(int Value) = 0 ; virtual int __stdcall GetNumGlyphs(void) = 0 ; virtual bool __stdcall SetCaption(AnsiString NewCaption) = 0 ; virtual AnsiString __stdcall GetCaption(void) = 0 ; virtual bool __stdcall SetImageIndex(int NewIndex) = 0 ; virtual int __stdcall GetImageIndex(void) = 0 ; virtual bool __stdcall SetStyle(TOrckaButtonStyle Value) = 0 ; virtual TOrckaButtonStyle __stdcall GetStyle(void) = 0 ; public: #pragma option push -w-inl /* TOInterface.Create */ inline __fastcall virtual TOButtonItem(void) : TOInterface() { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOButtonItem(void) { } #pragma option pop }; class PASCALIMPLEMENTATION TOMenuItem : public TOInterface { typedef TOInterface inherited; public: virtual int __stdcall GetItemCount(void) = 0 ; virtual TOMenuItem* __stdcall GetItem(int Index) = 0 ; virtual AnsiString __stdcall GetName(void) = 0 ; virtual AnsiString __stdcall GetCaption(void) = 0 ; virtual bool __stdcall SetCaption(const AnsiString Caption) = 0 ; virtual int __stdcall GetShortCut(void) = 0 ; virtual bool __stdcall SetShortCut(int ShortCut) = 0 ; virtual bool __stdcall GetVisible(void) = 0 ; virtual bool __stdcall SetVisible(bool IsVisible) = 0 ; virtual bool __stdcall GetEnabled(void) = 0 ; virtual bool __stdcall SetEnabled(bool IsEnabled) = 0 ; virtual bool __stdcall GetChecked(void) = 0 ; virtual bool __stdcall SetChecked(bool IsChecked) = 0 ; virtual bool __stdcall GetRadioItem(void) = 0 ; virtual bool __stdcall SetRadioItem(bool IsRadioItem) = 0 ; virtual int __stdcall GetGroupIndex(void) = 0 ; virtual bool __stdcall SetGroupIndex(int GroupIndex) = 0 ; virtual AnsiString __stdcall GetHint(void) = 0 ; virtual bool __stdcall SetHint(AnsiString Hint) = 0 ; virtual int __stdcall GetContext(void) = 0 ; virtual bool __stdcall SetContext(int Context) = 0 ; virtual TOMenuClick __stdcall GetOnClick(void) = 0 ; virtual bool __stdcall SetOnClick(TOMenuClick Click) = 0 ; virtual int __stdcall GetHandle(void) = 0 ; virtual void __stdcall SetImageIndex(int Index) = 0 ; public: #pragma option push -w-inl /* TOInterface.Create */ inline __fastcall virtual TOMenuItem(void) : TOInterface() { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TOMenuItem(void) { } #pragma option pop }; class PASCALIMPLEMENTATION TPluginClient : public TOInterface { typedef TOInterface inherited; public: virtual AnsiString __stdcall GetName(void) = 0 ; virtual void __stdcall CreateMenuItems(void) = 0 ; virtual void __stdcall DeleteMenuItems(void) = 0 ; virtual void __stdcall CreateButtons(void) = 0 ; virtual void __stdcall DeleteButtons(void) = 0 ; virtual void __stdcall Open(TPluginEventType PEType, AnsiString &Name, bool &Handled) = 0 ; virtual void __stdcall Save(TPluginEventType PEType, AnsiString &Name, bool &Handled) = 0 ; virtual void __stdcall BeforeClose(TPluginEventType PEType, bool &Cancel) = 0 ; virtual void __stdcall AfterClose(TPluginEventType PEType) = 0 ; virtual void __stdcall BeforeNew(TPluginEventType PEType, bool &Cancel) = 0 ; virtual void __stdcall AfterNew(TPluginEventType PEType) = 0 ; virtual void __stdcall OnActivate(void) = 0 ; virtual void __stdcall OnDeactivate(void) = 0 ; virtual void __stdcall OnException(AnsiString ClassName, AnsiString ErrorMessage) = 0 ; virtual void __stdcall OnHelp(Word Command, int Data, bool &CallHelp) = 0 ; virtual void __stdcall OnHint(void) = 0 ; virtual void __stdcall OnIdle(bool &Done) = 0 ; virtual void __stdcall OnMessage(tagMSG &Msg, bool &Handled) = 0 ; virtual void __stdcall OnMinimize(void) = 0 ; virtual void __stdcall OnRestore(void) = 0 ; virtual void __stdcall OnSettingsChanged(int Flag, const AnsiString Section, int &Result) = 0 ; virtual void __stdcall OnShortCut(Messages::TWMKey &Msg, bool &Handled) = 0 ; public: #pragma option push -w-inl /* TOInterface.Create */ inline __fastcall virtual TPluginClient(void) : TOInterface() { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~TPluginClient(void) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- #define OrckaAddinManagerExportProc "OrckaAddinManager" #define OrckaPluginManagerExportProc "OrckaAddinManager" #define OrckaPluginManagerExportProc2 "OrckaPlugin" #define OrckaPluginManagerDescription "OrckaPluginDescription" extern PACKAGE AnsiString __fastcall StringToOString(AnsiString ToConvert); extern PACKAGE AnsiString __fastcall OStringToString(AnsiString ToConvert); extern PACKAGE AnsiString __fastcall StringToSmallString(AnsiString ToConvert); extern PACKAGE AnsiString __fastcall StringToMediumString(AnsiString ToConvert); extern PACKAGE AnsiString __fastcall StringToLargeString(AnsiString ToConvert); extern PACKAGE AnsiString __fastcall StringToHugeString(AnsiString ToConvert); } /* namespace Orckapluginmanagershared */ using namespace Orckapluginmanagershared; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // OrckaPluginManagerShared --- NEW FILE: PluginModule.obj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaPluginManager.obj --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaStrings.hpp --- // Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'OrckaStrings.pas' rev: 6.00 #ifndef OrckaStringsHPP #define OrckaStringsHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include <SysInit.hpp> // Pascal unit #include <System.hpp> // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Orckastrings { //-- type declarations ------------------------------------------------------- //-- var, const, procedure --------------------------------------------------- #define sCRLF "\r\n" #define sBlank "" static const char sComma = '\x2c'; #define sInvalidGridRow "Invalid Row ID" #define sInvalidGridCol "Invalid Column ID" } /* namespace Orckastrings */ using namespace Orckastrings; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // OrckaStrings --- NEW FILE: OrckaSubClass.hpp --- // Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'OrckaSubClass.pas' rev: 6.00 #ifndef OrckaSubClassHPP #define OrckaSubClassHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include <Controls.hpp> // Pascal unit #include <Messages.hpp> // Pascal unit #include <Windows.hpp> // Pascal unit #include <Classes.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit #include <SysInit.hpp> // Pascal unit #include <System.hpp> // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Orckasubclass { //-- type declarations ------------------------------------------------------- class DELPHICLASS TOrckaSubClass; class PASCALIMPLEMENTATION TOrckaSubClass : public Classes::TComponent { typedef Classes::TComponent inherited; private: Controls::TWinControl* FSubClassedControl; protected: virtual BOOL __fastcall MessageArrived(int Msg, unsigned wParam, int lParam) = 0 ; void __fastcall OnMsg(tagMSG &Msg, bool &Handled); virtual void __fastcall UnSubClassControl(void); virtual void __fastcall SubClassControl(void); void __fastcall SetSubClassedControl(Controls::TWinControl* Control); public: __fastcall virtual ~TOrckaSubClass(void); __property Controls::TWinControl* ToWatch = {read=FSubClassedControl, write=SetSubClassedControl}; public: #pragma option push -w-inl /* TComponent.Create */ inline __fastcall virtual TOrckaSubClass(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE int __stdcall VCLSubClassWndProc(int HookCode, int wParam, tagMSG &lParam); } /* namespace Orckasubclass */ using namespace Orckasubclass; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // OrckaSubClass --- NEW FILE: OrckaStringGrid.hpp --- // Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'OrckaStringGrid.pas' rev: 6.00 #ifndef OrckaStringGridHPP #define OrckaStringGridHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include <CSVProcs.hpp> // Pascal unit #include <Grids.hpp> // Pascal unit #include <Controls.hpp> // Pascal unit #include <Graphics.hpp> // Pascal unit #include <Classes.hpp> // Pascal unit #include <Messages.hpp> // Pascal unit #include <Windows.hpp> // Pascal unit #include <SysUtils.hpp> // Pascal unit #include <SysInit.hpp> // Pascal unit #include <System.hpp> // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Orckastringgrid { //-- type declarations ------------------------------------------------------- typedef void __fastcall (__closure *TProgressEvent)(System::TObject* Sender, const int Value); #pragma option push -b- enum TGridType { gtStandard, gtSpreadSheet }; #pragma option pop class DELPHICLASS EOrckaStringGridException; class PASCALIMPLEMENTATION EOrckaStringGridException : public Sysutils::Exception { typedef Sysutils::Exception inherited; public: #pragma option push -w-inl /* Exception.Create */ inline __fastcall EOrckaStringGridException(const AnsiString Msg) : Sysutils::Exception(Msg) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateFmt */ inline __fastcall EOrckaStringGridException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateRes */ inline __fastcall EOrckaStringGridException(int Ident)/* overload */ : Sysutils::Exception(Ident) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResFmt */ inline __fastcall EOrckaStringGridException(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateHelp */ inline __fastcall EOrckaStringGridException(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateFmtHelp */ inline __fastcall EOrckaStringGridException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResHelp */ inline __fastcall EOrckaStringGridException(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { } #pragma option pop #pragma option push -w-inl /* Exception.CreateResFmtHelp */ inline __fastcall EOrckaStringGridException(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { } #pragma option pop public: #pragma option push -w-inl /* TObject.Destroy */ inline __fastcall virtual ~EOrckaStringGridException(void) { } #pragma option pop }; class DELPHICLASS TOrckaStringGrid; class PASCALIMPLEMENTATION TOrckaStringGrid : public Grids::TStringGrid { typedef Grids::TStringGrid inherited; private: char FCSVSeparator; Csvprocs::TCSVOptions FCSVOptions; TProgressEvent FImportProgress; Classes::TNotifyEvent FAfterImport; Classes::TNotifyEvent FBeforeImport; char FCSVQuote; Classes::TNotifyEvent FBeforeExport; Classes::TNotifyEvent FAfterExport; TProgressEvent FExportProgress; TGridType FGridType; protected: void __fastcall DoImportProgress(const int Value); void __fastcall DoBeforeImport(void); void __fastcall DoAfterImport(void); void __fastcall DoExportProgress(const int Value); void __fastcall DoBeforeExport(void); void __fastcall DoAfterExport(void); AnsiString __fastcall GetColName(int ACol); int __fastcall GetColumnCount(void); int __fastcall GetRowCount(void); void __fastcall ResetHeaders(void); void __fastcall SetGridType(const TGridType Value); void __fastcall SetColumnCount(const int Value); HIDESBASE void __fastcall SetRowCount(const int Value); public: __fastcall virtual TOrckaStringGrid(Classes::TComponent* AOwner); void __fastcall LoadCSVFile(const AnsiString FileName); void __fastcall SaveCSVFile(const AnsiString FileName); void __fastcall SwapRows(int RowA, int RowB, bool IgnoreFixed = true); void __fastcall SwapColumns(int ColA, int ColB, bool IgnoreFixed = true); __published: __property int ColCount = {read=GetColumnCount, write=SetColumnCount, nodefault}; __property int RowCount = {read=GetRowCount, write=SetRowCount, nodefault}; __property TGridType GridType = {read=FGridType, write=SetGridType, nodefault}; __property Csvprocs::TCSVOptions CSVOptions = {read=FC... [truncated message content] |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/ScreenSaver/Text Bounce In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/ScreenSaver/Text Bounce Added Files: BounceText.dof BounceText.dpr BounceText.res Unit1.dfm Unit1.pas Unit2.dfm Unit2.pas Log Message: Initially added to source control --- NEW FILE: BounceText.dof --- [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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] OutputDir= UnitOutputDir= 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 Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams=p HostApplication= [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= --- NEW FILE: Unit2.pas --- unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ColorGrd, ExtCtrls, OrckaLabelEdit, ExtDlgs, OrckaEdit, IniFiles; type TForm2 = class(TForm) OrckaLabelEdit1: TOrckaLabelEdit; GroupBox1: TGroupBox; ColorGrid1: TColorGrid; GroupBox2: TGroupBox; Label1: TLabel; Button1: TButton; FontDialog1: TFontDialog; Bevel1: TBevel; OK: TButton; Button3: TButton; GroupBox3: TGroupBox; OrckaButtonEdit1: TOrckaButtonEdit; Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; procedure ColorGrid1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure OrckaButtonEdit1ButtonClick(Sender: TObject); private FInifile: TIniFile; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure SaveSettings; end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.ColorGrid1Change(Sender: TObject); begin Label1.Color := ColorGrid1.BackgroundColor; end; procedure TForm2.Button1Click(Sender: TObject); begin if FontDialog1.Execute then Label1.Font.Assign(FontDialog1.Font); end; procedure TForm2.OrckaButtonEdit1ButtonClick(Sender: TObject); begin if OpenPictureDialog1.Execute then begin OrckaButtonEdit1.Text := OpenPictureDialog1.FileName; Image1.Picture.Bitmap.LoadFromFile(OrckaButtonEdit1.Text); end; end; constructor TForm2.Create(AOwner: TComponent); begin inherited Create(AOwner); FIniFile := TIniFile.Create('BounceText.ini'); OrckaLabelEdit1.Text := FIniFile.ReadString('Data', 'Text', 'Orcka Development'); //FTextType := TTextType(FIniFile.ReadInteger('Data', 'Type', Ord(ttCustom))); FontDialog1.Font.Size := FIniFile.ReadInteger('data', 'fSize', 40); FontDialog1.Font.Name := FIniFile.ReadString('data', 'fName', 'Times New Roman'); FontDialog1.Font.Color := FIniFile.ReadInteger('data', 'fColor', clwhite); Label1.Color := FIniFile.ReadInteger('data', 'bColor', clBlack); OrckaButtonEdit1.Text := FIniFile.ReadString('data', 'backimage', ''); if OrckaButtonEdit1.Text <> '' then Image1.Picture.Bitmap.LoadFromFile(OrckaButtonEdit1.Text); Label1.Font.Assign(FontDialog1.Font); end; destructor TForm2.Destroy; begin FIniFile.Free; inherited Destroy; end; procedure TForm2.SaveSettings; begin FIniFile.WriteString('Data', 'Text', OrckaLabelEdit1.Text); //FTextType := TTextType(FIniFile.ReadInteger('Data', 'Type', Ord(ttCustom))); FIniFile.WriteInteger('data', 'fSize', FontDialog1.Font.Size); FIniFile.WriteString('data', 'fName', FontDialog1.Font.Name); FIniFile.WriteInteger('data', 'fColor', FontDialog1.Font.Color); FIniFile.WriteInteger('data', 'bColor', Label1.Color); FIniFile.WriteString('data', 'backimage', OrckaButtonEdit1.Text); end; end. --- NEW FILE: Unit2.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: BounceText.dpr --- program BounceText; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$E scr} {$R *.res} begin Application.Initialize; Application.Title := 'Bouncing Text'; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.Run; end. --- NEW FILE: Unit1.pas --- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, OrckaScreenSaver, IniFiles; type TTextType = (ttCustom, ttDate, ttTime, ttDateTime); 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 FIniFile: TIniFile; FText: string; Fx, Fy, FTextWidth, FScreenWidth, FScreenHeight, FTextHeight: Cardinal; FUp, FLeft: Boolean; FSpeed: Byte; FImagePos: TPoint; FTextType: TTextType; FBackGround: TBitmap; public property Text: string read FText write FText; end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.OrckaScreenSaver1Initialize(Sender: TObject; Bitmap: TBitmap); begin FBackGround := TBitmap.Create; FIniFile := TIniFile.Create('BounceText.ini'); FText := FIniFile.ReadString('Data', 'Text', 'Orcka Development'); FSpeed := FIniFile.ReadInteger('Data', 'Speed', 2); FTextType := TTextType(FIniFile.ReadInteger('Data', 'Type', Ord(ttCustom))); Bitmap.Canvas.Font.Size := FIniFile.ReadInteger('data', 'fSize', 40); Bitmap.Canvas.Font.Name := FIniFile.ReadString('data', 'fName', 'Times New Roman'); Bitmap.Canvas.Font.Color := FIniFile.ReadInteger('data', 'fColor', clwhite); Bitmap.Canvas.Brush.Color := FIniFile.ReadInteger('data', 'bColor', clBlack); if FIniFile.ReadString('data', 'backimage', '') <> '' then FBackGround.LoadFromFile(FIniFile.ReadString('data', 'backimage', '')); FTextHeight := Bitmap.Canvas.TextHeight(FText) + 20; FScreenWidth := Screen.Width; FScreenHeight := Screen.Height; Randomize; FImagePos.X := (FScreenWidth - FBackGround.Width) div 2; FImagePos.Y := (FScreenHeight - FBackGround.Height) div 2; (* draw the initial scene *) OrckaScreenSaver1DrawScene(Sender, Bitmap); Fx := Random(FScreenWidth - FTextWidth); Fy := Random(FScreenHeight - Bitmap.Canvas.TextHeight(FText)); FUp := LongBool(Random(2)); FLeft := LongBool(Random(2)); end; procedure TForm1.OrckaScreenSaver1Finalize(Sender: TObject); begin FIniFile.Free; FBackGround.Free; end; procedure TForm1.OrckaScreenSaver1DrawScene(Sender: TObject; Bitmap: TBitmap); begin case FTextType of ttDate: Text := FormatDateTime('dd mmmm yyyy', Now); ttTime: Text := FormatDateTime('hh:mm:ss', Now); ttDateTime: Text := FormatDatetime('dd mmmm yyyy - hh:mm:ss', Now); end; FTextWidth := Bitmap.Canvas.TextWidth(FText) + 20; if (FLeft) and (Fx < 10) then begin FLeft := False; Fx := 11; end else begin if (not FLeft) and ((Fx) > (FScreenWidth - FTextWidth)) then FLeft := True; end; if (FUp) and (Fy < 10) then begin FUp := False; Fy := 11; end else begin if (not FUp) and ((Fy) > (FScreenHeight - FTextHeight)) then begin FUp := True; Inc(Fy, 10); end; end; (* Calculate the new Fx and Fy *) if FUp then Dec(Fy, FSpeed) else Inc(Fy, FSpeed); if FLeft then Dec(Fx, FSpeed) else Inc(Fx, FSpeed); (* Clear the bitmap down *) Bitmap.Canvas.FillRect(Rect(0, 0, FScreenWidth, FScreenHeight)); (* if theres a background picture draw it *) if FBackGround.Handle <> 0 then begin Bitmap.Canvas.Draw(FImagePos.X, FImagePos.Y, FBackGround); (* If there is a user bitmap on the screen make the text transparent *) SetBkMode(Bitmap.Canvas.Handle, TRANSPARENT); end; (* draw the text *) Bitmap.Canvas.TextOut(Fx, Fy, FText); end; procedure TForm1.OrckaScreenSaver1Configuration(Sender: TObject); var ConfigForm: TForm2; begin ConfigForm := TForm2.Create(nil); try if ConfigForm.ShowModal = mrOK then ConfigForm.SaveSettings; finally ConfigForm.Free; end; end; end. --- NEW FILE: Unit1.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: BounceText.res --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:46
|
Update of /cvsroot/ocs-comps/OCS2/Help In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Help Added Files: ORCKA.HLP OrckaPluginManager.cnt ORCKAPLUGINMANAGER.GID ORCKAPLUGINMANAGER.HLP SPELLCHECKER.HLP WEBLABEL.HLP Log Message: Initially added to source control --- NEW FILE: WEBLABEL.HLP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: SPELLCHECKER.HLP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ORCKAPLUGINMANAGER.GID --- (This appears to be a binary file; contents omitted.) --- NEW FILE: OrckaPluginManager.cnt --- :Base OrckaPluginManager.hlp :Title OrckaPluginManager Help :LINK DEL6VCL.HLP :LINK BCB6VCL.HLP :LINK DEL5VCL.HLP :LINK BCB5VCL.HLP :LINK DEL4VCL.HLP :LINK BCB4VCL.HLP :LINK DEL3VCL.HLP :LINK BCB3VCL.HLP 1 OrckaPluginManager Help 2 TOInterface=TOInterface 2 Orcka's Plugin Manager=Orcka's Plugin Manager 2 Install Guide=Install Guide 2 Toolbar2000 Extensions=Toolbar2000 Extensions 2 License=License 2 Support=Support 2 Plugin Manager Features=Plugin Manager Features 2 Sample Applications=Sample Applications 2 Toolbar2000=Toolbar2000 2 TOrckaAddinManagerParams 3 TOrckaAddinManagerParams=TOrckaAddinManagerParams 3 Properties 4 AppHandle=TOrckaAddinManagerParams_AppHandle 4 Service=TOrckaAddinManagerParams_Service 4 User=TOrckaAddinManagerParams_User 2 Globals 3 Globals=Globals 3 Methods 4 StringToSmallString=Globals_StringToSmallString 4 StringToMediumString=Globals_StringToMediumString 4 StringToLargeString=Globals_StringToLargeString 4 StringToHugeString=Globals_StringToHugeString 4 StringToOString=Globals_StringToOString 4 OStringToString=Globals_OStringToString 2 TOrckaCustomPluginManager 3 TOrckaCustomPluginManager=TOrckaCustomPluginManager 3 Methods 4 Create=TComponent_Create 4 Destroy=TComponent_Destroy 4 UnLoadAllAddins=TOrckaCustomPluginManager_UnLoadAllAddins 4 LoadAddin=TOrckaCustomPluginManager_LoadAddin 4 UnloadAddin=TOrckaCustomPluginManager_UnloadAddin 4 UnLoadAllPlugins=TOrckaCustomPluginManager_UnLoadAllPlugins 4 LoadPlugin=TOrckaCustomPluginManager_LoadPlugin 4 UnloadPlugin=TOrckaCustomPluginManager_UnloadPlugin 4 LoadFromPath=TOrckaCustomPluginManager_LoadFromPath 4 LoadFromRegistry=TOrckaCustomPluginManager_LoadFromRegistry 4 SaveToRegistry=TOrckaCustomPluginManager_SaveToRegistry 4 LoadFromIniFile=TOrckaCustomPluginManager_LoadFromIniFile 4 SaveToIniFile=TOrckaCustomPluginManager_SaveToIniFile 4 SetPluginSettings=TOrckaCustomPluginManager_SetPluginSettings 4 Execute=TOrckaCustomPluginManager_Execute 3 Properties 4 Count=TOrckaCustomPluginManager_Count 4 Plugin=TOrckaCustomPluginManager_Plugin 4 Addin=TOrckaCustomPluginManager_Addin 4 HelpTopicID=TOrckaCustomPluginManager_HelpTopicID 4 ImageList=TOrckaCustomPluginManager_ImageList 4 MenuImages=TOrckaCustomPluginManager_MenuImages 4 Menu=TOrckaCustomPluginManager_Menu 4 ToolBarStyle=TOrckaCustomPluginManager_ToolBarStyle 4 ControlBar=TOrckaCustomPluginManager_ControlBar 4 FlatButtons=TOrckaCustomPluginManager_FlatButtons 4 Toolbars=TOrckaCustomPluginManager_Toolbars 4 PluginSettingsType=TOrckaCustomPluginManager_PluginSettingsType 4 PluginIniFileName=TOrckaCustomPluginManager_PluginIniFileName 4 PluginRegistryLocation=TOrckaCustomPluginManager_PluginRegistryLocation 4 Toolbar2000Settings=TOrckaCustomPluginManager_Toolbar2000Settings 4 PluginOptions=TOrckaCustomPluginManager_PluginOptions 3 Events 4 OnToolBarInsertRemove=TOrckaCustomPluginManager_OnToolBarInsertRemove 4 OnGetAddinParams=TOrckaCustomPluginManager_OnGetAddinParams 4 OnAddButton=TOrckaCustomPluginManager_OnAddButton 4 OnGetRegLocation=TOrckaCustomPluginManager_OnGetRegLocation 4 OnRemoveButton=TOrckaCustomPluginManager_OnRemoveButton 4 OnAfterAddinParams=TOrckaCustomPluginManager_OnAfterAddinParams 4 OnGetHandle=TOrckaCustomPluginManager_OnGetHandle 4 BeforeLoadPlugin=TOrckaCustomPluginManager_BeforeLoadPlugin 4 AfterLoadPlugin=TOrckaCustomPluginManager_AfterLoadPlugin 4 BeforeUnLoadPlugin=TOrckaCustomPluginManager_BeforeUnLoadPlugin 4 AfterUnLoadPlugin=TOrckaCustomPluginManager_AfterUnLoadPlugin 4 ErrorLoadPlugin=TOrckaCustomPluginManager_ErrorLoadPlugin 4 ErrorUnLoadPlugin=TOrckaCustomPluginManager_ErrorUnLoadPlugin 4 OnInvalidPlugin=TOrckaCustomPluginManager_OnInvalidPlugin 4 OnGetDatabaseHandle=TOrckaCustomPluginManager_OnGetDatabaseHandle 4 OnTransaction=TOrckaCustomPluginManager_OnTransaction 4 OnLogRead=TOrckaCustomPluginManager_OnLogRead 4 OnLogWrite=TOrckaCustomPluginManager_OnLogWrite 4 OnLogGetCount=TOrckaCustomPluginManager_OnLogGetCount 4 OnRefresh=TOrckaCustomPluginManager_OnRefresh 4 OnInsertButton=TOrckaCustomPluginManager_OnInsertButton 2 TOrckaPluginManager 3 TOrckaPluginManager=TOrckaPluginManager 3 Properties 4 HelpTopicID=TOrckaCustomPluginManager_HelpTopicID 4 ImageList=TOrckaCustomPluginManager_ImageList 4 Menu=TOrckaCustomPluginManager_Menu 4 MenuImages=TOrckaCustomPluginManager_MenuImages 4 ToolBarStyle=TOrckaCustomPluginManager_ToolBarStyle 4 ControlBar=TOrckaCustomPluginManager_ControlBar 4 FlatButtons=TOrckaCustomPluginManager_FlatButtons 4 Toolbars=TOrckaCustomPluginManager_Toolbars 4 PluginSettingsType=TOrckaCustomPluginManager_PluginSettingsType 4 PluginIniFileName=TOrckaCustomPluginManager_PluginIniFileName 4 PluginRegistryLocation=TOrckaCustomPluginManager_PluginRegistryLocation 4 Toolbar2000Settings=TOrckaCustomPluginManager_Toolbar2000Settings 4 PluginOptions=TOrckaCustomPluginManager_PluginOptions 4 BeforeLoadPlugin=TOrckaCustomPluginManager_BeforeLoadPlugin 4 AfterLoadPlugin=TOrckaCustomPluginManager_AfterLoadPlugin 4 BeforeUnLoadPlugin=TOrckaCustomPluginManager_BeforeUnLoadPlugin 4 AfterUnLoadPlugin=TOrckaCustomPluginManager_AfterUnLoadPlugin 4 ErrorLoadPlugin=TOrckaCustomPluginManager_ErrorLoadPlugin 4 ErrorUnLoadPlugin=TOrckaCustomPluginManager_ErrorUnLoadPlugin 3 Events 4 OnGetAddinParams=TOrckaCustomPluginManager_OnGetAddinParams 4 OnAddButton=TOrckaCustomPluginManager_OnAddButton 4 OnGetRegLocation=TOrckaCustomPluginManager_OnGetRegLocation 4 OnRemoveButton=TOrckaCustomPluginManager_OnRemoveButton 4 OnAfterAddinParams=TOrckaCustomPluginManager_OnAfterAddinParams 4 OnGetHandle=TOrckaCustomPluginManager_OnGetHandle 4 OnInvalidPlugin=TOrckaCustomPluginManager_OnInvalidPlugin 4 OnGetDatabaseHandle=TOrckaCustomPluginManager_OnGetDatabaseHandle 4 OnTransaction=TOrckaCustomPluginManager_OnTransaction 4 OnLogRead=TOrckaCustomPluginManager_OnLogRead 4 OnLogWrite=TOrckaCustomPluginManager_OnLogWrite 4 OnLogGetCount=TOrckaCustomPluginManager_OnLogGetCount 4 OnToolBarInsertRemove=TOrckaCustomPluginManager_OnToolBarInsertRemove 4 AfterLoadPlugin=TOrckaCustomPluginManager_AfterLoadPlugin 4 AfterUnLoadPlugin=TOrckaCustomPluginManager_AfterUnLoadPlugin 4 BeforeLoadPlugin=TOrckaCustomPluginManager_BeforeLoadPlugin 4 BeforeUnLoadPlugin=TOrckaCustomPluginManager_BeforeUnLoadPlugin 4 ErrorLoadPlugin=TOrckaCustomPluginManager_ErrorLoadPlugin 4 ErrorUnLoadPlugin=TOrckaCustomPluginManager_ErrorUnLoadPlugin 4 OnInsertButton=TOrckaCustomPluginManager_OnInsertButton 2 TPluginSettings 3 TPluginSettings=TPluginSettings 3 Properties 4 PluginManager=TPluginSettings_PluginManager 3 Methods 4 Create=_Create 4 WriteString=TPluginSettings_WriteString 4 WriteInteger=TPluginSettings_WriteInteger 4 WriteBool=TPluginSettings_WriteBool 4 ReadString=TPluginSettings_ReadString 4 ReadInteger=TPluginSettings_ReadInteger 4 ReadBool=TPluginSettings_ReadBool 2 TPluginSettingsIni 3 TPluginSettingsIni=TPluginSettingsIni 3 Methods 4 Create=_Create 4 Destroy=TPersistent_Destroy 4 WriteString=TPluginSettings_WriteString 4 WriteInteger=TPluginSettings_WriteInteger 4 WriteBool=TPluginSettings_WriteBool 4 ReadString=TPluginSettings_ReadString 4 ReadInteger=TPluginSettings_ReadInteger 4 ReadBool=TPluginSettings_ReadBool 2 TPluginSettingsRegistry 3 TPluginSettingsRegistry=TPluginSettingsRegistry 3 Methods 4 Create=_Create 4 Destroy=TPersistent_Destroy 4 WriteString=TPluginSettings_WriteString 4 WriteInteger=TPluginSettings_WriteInteger 4 WriteBool=TPluginSettings_WriteBool 4 ReadString=TPluginSettings_ReadString 4 ReadInteger=TPluginSettings_ReadInteger 4 ReadBool=TPluginSettings_ReadBool 2 TToolbar2000Settings 3 TToolbar2000Settings=TToolbar2000Settings 3 Methods 4 Create=_Create 4 Destroy=TPersistent_Destroy 3 Properties 4 MenuToolbar=TToolbar2000Settings_MenuToolbar 4 DefaultDockSite=TToolbar2000Settings_DefaultDockSite 2 Types 3 TOPluginInsertButtonEvent=TOPluginInsertButtonEvent 3 TOButtonClick=TOButtonClick 3 TLogFileReadEvent=TLogFileReadEvent 3 TLogFileWriteEvent=TLogFileWriteEvent 3 TPluginToolBarEvent=TPluginToolBarEvent 3 TPluginDatabase=TPluginDatabase 3 TPluginTransaction=TPluginTransaction 3 TTransactionEvent=TTransactionEvent 3 TOPluginEvent=TOPluginEvent 3 TOPluginEventCancel=TOPluginEventCancel 3 TOAddinRegLocation=TOAddinRegLocation 3 TPluginSettingTypes=TPluginSettingTypes 3 TToolBarStyle=TToolBarStyle 3 TOMenuClick=TOMenuClick 3 TOrckaButtonStyle=TOrckaButtonStyle 3 TPluginOption=TPluginOption 3 TPluginEventType=TPluginEventType 3 TLogType=TLogType 3 TOString=TOString 3 THugeString=THugeString 3 TLargeString=TLargeString 3 TMediumString=TMediumString 3 TSmallString=TSmallString 3 ShareMem=ShareMem 3 EOrckaPluginManagerException=EOrckaPluginManagerException 3 TOrckaAddinManager=TOrckaAddinManager 2 TOButtonItem 3 TOButtonItem=TOButtonItem 3 Methods 4 GetEnabled=TOButtonItem_GetEnabled 4 SetEnabled=TOButtonItem_SetEnabled 4 GetGroupIndex=TOButtonItem_GetGroupIndex 4 SetGroupIndex=TOButtonItem_SetGroupIndex 4 GetHint=TOButtonItem_GetHint 4 SetHint=TOButtonItem_SetHint 4 SetPicture=TOButtonItem_SetPicture 4 GetOnClick=TOButtonItem_GetOnClick 4 SetOnClick=TOButtonItem_SetOnClick 4 SetNumGlyphs=TOButtonItem_SetNumGlyphs 4 GetNumGlyphs=TOButtonItem_GetNumGlyphs 4 SetCaption=TOButtonItem_SetCaption 4 GetCaption=TOButtonItem_GetCaption 4 SetImageIndex=TOButtonItem_SetImageIndex 4 GetImageIndex=TOButtonItem_GetImageIndex 4 SetStyle=TOButtonItem_SetStyle 4 GetStyle=TOButtonItem_GetStyle 2 TOMenuItem 3 TOMenuItem=TOMenuItem 3 Methods 4 GetItemCount=TOMenuItem_GetItemCount 4 GetItem=TOMenuItem_GetItem 4 GetName=TOMenuItem_GetName 4 GetCaption=TOMenuItem_GetCaption 4 SetCaption=TOMenuItem_SetCaption 4 GetShortCut=TOMenuItem_GetShortCut 4 SetShortCut=TOMenuItem_SetShortCut 4 GetVisible=TOMenuItem_GetVisible 4 SetVisible=TOMenuItem_SetVisible 4 GetEnabled=TOMenuItem_GetEnabled 4 SetEnabled=TOMenuItem_SetEnabled 4 GetChecked=TOMenuItem_GetChecked 4 SetChecked=TOMenuItem_SetChecked 4 GetRadioItem=TOMenuItem_GetRadioItem 4 SetRadioItem=TOMenuItem_SetRadioItem 4 GetGroupIndex=TOMenuItem_GetGroupIndex 4 SetGroupIndex=TOMenuItem_SetGroupIndex 4 GetHint=TOMenuItem_GetHint 4 SetHint=TOMenuItem_SetHint 4 GetContext=TOMenuItem_GetContext 4 SetContext=TOMenuItem_SetContext 4 GetOnClick=TOMenuItem_GetOnClick 4 SetOnClick=TOMenuItem_SetOnClick 4 GetHandle=TOMenuItem_GetHandle 4 SetImageIndex=TOMenuItem_SetImageIndex 2 TPluginClient 3 TPluginClient=TPluginClient 3 Methods 4 GetName=TPluginClient_GetName 4 CreateMenuItems=TPluginClient_CreateMenuItems 4 DeleteMenuItems=TPluginClient_DeleteMenuItems 4 CreateButtons=TPluginClient_CreateButtons 4 DeleteButtons=TPluginClient_DeleteButtons 4 Open=TPluginClient_Open 4 Save=TPluginClient_Save 4 BeforeClose=TPluginClient_BeforeClose 4 AfterClose=TPluginClient_AfterClose 4 BeforeNew=TPluginClient_BeforeNew 4 AfterNew=TPluginClient_AfterNew 4 OnActivte=TPluginClient_OnActivte 4 OnDeactivte=TPluginClient_OnDeactivte 4 OnException=TPluginClient_OnException 4 OnHelp=TPluginClient_OnHelp 4 OnHint=TPluginClient_OnHint 4 OnIdle=TPluginClient_OnIdle 4 OnMessage=TPluginClient_OnMessage 4 OnMinimize=TPluginClient_OnMinimize 4 OnRestore=TPluginClient_OnRestore 4 OnSettingsChanged=TPluginClient_OnSettingsChanged 4 OnShortCut=TPluginClient_OnShortCut 2 TOToolServices 3 TOToolServices=TOToolServices 3 Methods 4 InsertMenu=TOToolServices_InsertMenu 4 RemoveMenu=TOToolServices_RemoveMenu 4 FindMenu=TOToolServices_FindMenu 4 GetMenuCount=TOToolServices_GetMenuCount 4 RaiseException=TOToolServices_RaiseException 4 GetBaseRegistryKey=TOToolServices_GetBaseRegistryKey 4 MsgBox=TOToolServices_MsgBox 4 GetHandle=TOToolServices_GetHandle 4 InsertButton=TOToolServices_InsertButton 4 RemoveButton=TOToolServices_RemoveButton 4 AddPicture=TOToolServices_AddPicture 4 GetPicture=TOToolServices_GetPicture 4 AddIcon=TOToolServices_AddIcon 4 GetIcon=TOToolServices_GetIcon 4 GetImageCount=TOToolServices_GetImageCount 2 TPluginServices 3 TPluginServices=TPluginServices 3 Methods 4 ReadString=TPluginServices_ReadString 4 ReadInteger=TPluginServices_ReadInteger 4 ReadBool=TPluginServices_ReadBool 4 WriteString=TPluginServices_WriteString 4 WriteInteger=TPluginServices_WriteInteger 4 WriteBool=TPluginServices_WriteBool 4 WriteToLog=TPluginServices_WriteToLog 4 GetLogCount=TPluginServices_GetLogCount 4 GetLogItem=TPluginServices_GetLogItem 4 GetDatabaseHandle=TPluginServices_GetDatabaseHandle 4 StartTransaction=TPluginServices_StartTransaction 4 CommitTransaction=TPluginServices_CommitTransaction 4 RollbackTransaction=TPluginServices_RollbackTransaction 4 GetToolbarCount=TPluginServices_GetToolbarCount 4 GetToolbarName=TPluginServices_GetToolbarName 4 InsertToolbar=TPluginServices_InsertToolbar 4 DeleteToolbar=TPluginServices_DeleteToolbar 4 GetButtonCount=TPluginServices_GetButtonCount 4 GetButton=TPluginServices_GetButton 4 SetButtonToolbar=TPluginServices_SetButtonToolbar 4 GetButtonToolbar=TPluginServices_GetButtonToolbar 4 Refresh=TPluginServices_Refresh 4 Sleep=TPluginServices_Sleep 4 DoMinimize=TPluginServices_DoMinimize 4 DoProcessMessages=TPluginServices_DoProcessMessages 4 DoRestore=TPluginServices_DoRestore 4 DoTerminate=TPluginServices_DoTerminate 4 DoSetTitle=TPluginServices_DoSetTitle 4 MenuBitmapInsert=TPluginServices_MenuBitmapInsert 4 MenuBitmapDelete=TPluginServices_MenuBitmapDelete 4 MenuBitmapGetCount=TPluginServices_MenuBitmapGetCount 4 PluginClientInsert=TPluginServices_PluginClientInsert 4 PluginClientRemove=TPluginServices_PluginClientRemove 4 PluginClientSetEvents=TPluginServices_PluginClientSetEvents 4 PluginClientIncludeAppEvent=TPluginServices_PluginClientIncludeAppEvent 4 PluginClientExcludeAppEvent=TPluginServices_PluginClientExcludeAppEvent 4 PluginClientPrint=TPluginServices_PluginClientPrint --- NEW FILE: ORCKAPLUGINMANAGER.HLP --- (This appears to be a binary file; contents omitted.) --- NEW FILE: ORCKA.HLP --- (This appears to be a binary file; contents omitted.) |
|
From: Si C. <tec...@us...> - 2005-11-21 10:33:46
|
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/PluginManager/TB2000 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/PluginManager/TB2000 Added Files: Demo1.dfm Demo1.pas TB2K_Demo.cfg TB2K_Demo.dof TB2K_Demo.dpr TB2K_Demo.res Log Message: Initially added to source control --- NEW FILE: Demo1.pas --- unit Demo1; { Toolbar2000 demo project $Id: Demo1.pas,v 1.1 2005/11/21 10:33:28 tectsoft Exp $ } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, ActnList, ImgList, ComCtrls, TB2Item, TB2ExtItems, TB2Dock, TB2Toolbar, TB2MRU, OrckaPluginManager; type TForm1 = class(TForm) ActionList: TActionList; actNew: TAction; actOpen: TAction; actSave: TAction; actSaveAs: TAction; actPageSetup: TAction; actPrint: TAction; actExit: TAction; actUndo: TAction; actCut: TAction; actCopy: TAction; actPaste: TAction; actDelete: TAction; actSelectAll: TAction; actTimeDate: TAction; actWordWrap: TAction; actSetFont: TAction; actFind: TAction; actFindNext: TAction; actReplace: TAction; actHelpTopics: TAction; actAbout: TAction; actTestButton: TAction; actTestEdit: TTBEditAction; DockTop: TTBDock; MenuToolbar: TTBToolbar; ImageList: TTBImageList; FMenu: TTBSubmenuItem; FNew: TTBItem; FOpen: TTBItem; FSave: TTBItem; FSaveAs: TTBItem; FPageSetup: TTBItem; FPrint: TTBItem; FExit: TTBItem; EMenu: TTBSubmenuItem; EUndo: TTBItem; ECut: TTBItem; ECopy: TTBItem; EPaste: TTBItem; EDelete: TTBItem; ESelectAll: TTBItem; ETimeDate: TTBItem; EWordWrap: TTBItem; ESetFont: TTBItem; SMenu: TTBSubmenuItem; SFind: TTBItem; SFindNext: TTBItem; SReplace: TTBItem; HMenu: TTBSubmenuItem; HHelpTopics: TTBItem; HAbout: TTBItem; FMRU: TTBMRUListItem; NBSeparatorItem3: TTBSeparatorItem; NBSeparatorItem4: TTBSeparatorItem; TestEdit: TTBEditItem; MainToolbar: TTBToolbar; NewButton: TTBItem; OpenButton: TTBItem; SaveButton: TTBItem; DockBottom: TTBDock; DockLeft: TTBDock; DockRight: TTBDock; BottomToolbar: TTBToolbar; PopupMenuBarButton: TTBItem; PopupToolbarButton: TTBItem; Memo1: TMemo; ContextPopupMenu: TTBPopupMenu; StatusBar: TStatusBar; ToolbarPopupMenu: TTBPopupMenu; MRUList: TTBMRUList; PrintButton: TTBItem; CutButton: TTBItem; CopyButton: TTBItem; PasteButton: TTBItem; UndoButton: TTBSubmenuItem; actPrintPreview: TAction; TBItem1: TTBItem; FormatToolbar: TTBToolbar; BoldItem: TTBItem; ItalicItem: TTBItem; UnderlineItem: TTBItem; TBSeparatorItem1: TTBSeparatorItem; AlignLeftItem: TTBItem; CenterItem: TTBItem; AlignRightItem: TTBItem; TBSeparatorItem2: TTBSeparatorItem; BulletsItem: TTBItem; NBItem34: TTBItem; NBSeparatorItem6: TTBSeparatorItem; NBItem35: TTBItem; NBItem36: TTBItem; NBItem37: TTBItem; NBItem38: TTBItem; NBSeparatorItem7: TTBSeparatorItem; NBItem39: TTBItem; ComboBox1: TComboBox; TBControlItem1: TTBControlItem; TBSeparatorItem3: TTBSeparatorItem; TBControlItem2: TTBControlItem; ComboBox2: TComboBox; actBold: TAction; actItalic: TAction; actUnderline: TAction; actAlignLeft: TAction; actCenter: TAction; actAlignRight: TAction; TBSeparatorItem4: TTBSeparatorItem; actRedo: TAction; RedoButton: TTBSubmenuItem; TBItem2: TTBItem; TBItem3: TTBItem; TBItem4: TTBItem; ERedo: TTBItem; VMenu: TTBSubmenuItem; VToolbars: TTBSubmenuItem; VTStandard: TTBVisibilityToggleItem; VTFormatting: TTBVisibilityToggleItem; VTBottom: TTBVisibilityToggleItem; VStatusBar: TTBItem; TBToolsToolbar: TTBToolbar; TBItem5: TTBItem; OrckaPluginManager1: TOrckaPluginManager; procedure FormCreate(Sender: TObject); procedure ItemClick(Sender: TObject); procedure PopupMenuBarButtonClick(Sender: TObject); procedure PopupToolbarButtonClick(Sender: TObject); procedure MRUListClick(Sender: TObject; const Filename: String); procedure AlignClick(Sender: TObject); procedure BulletsItemClick(Sender: TObject); procedure BoldItemClick(Sender: TObject); procedure ItalicItemClick(Sender: TObject); procedure UnderlineItemClick(Sender: TObject); procedure VStatusBarClick(Sender: TObject); procedure VMenuClick(Sender: TObject); procedure TBItem5Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure OrckaPluginManager1InsertButton(Sender: TObject; Button: TTBCustomItem; var ToolbarName: String); private { Private declarations } procedure OnHint (Sender: TObject); public { Public declarations } end; var Form1: TForm1; implementation uses CommCtrl, TB2Version; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var IniFilename: string; begin Memo1.Text := 'Orka Plugin Manager 2 Running on TB2000 version ' + Toolbar2000Version; Application.OnHint := OnHint; // setup plugin manager IniFilename := ChangeFileExt(Application.ExeName, '.INI'); OrckaPluginManager1.PluginIniFileName := IniFilename; end; procedure TForm1.OnHint (Sender: TObject); begin StatusBar.Panels[0].Text := Application.Hint; end; procedure TForm1.ItemClick(Sender: TObject); begin if Sender is TComponent then Application.MessageBox (PChar('You selected:'#13#10#13#10 + TComponent(Sender).Name), 'OnClick handler', MB_OK or MB_ICONINFORMATION); end; procedure TForm1.MRUListClick(Sender: TObject; const Filename: String); begin Application.MessageBox (PChar(Format('You selected "%s" from the MRU list.', [Filename])), 'MRUListClick', MB_OK or MB_ICONINFORMATION); end; procedure TForm1.VMenuClick(Sender: TObject); begin VStatusBar.Checked := StatusBar.Visible; end; procedure TForm1.VStatusBarClick(Sender: TObject); begin { Force the StatusBar to always be at the bottom of the form. Without this line of code, the status bar sometimes may appear above the bottom dock. This is not a bug in Toolbar2000, but rather is due to the design of the VCL's alignment system. } StatusBar.Top := ClientHeight; { Toggle the status bar's visibility } StatusBar.Visible := not StatusBar.Visible; end; procedure TForm1.AlignClick(Sender: TObject); begin AlignLeftItem.Checked := (Sender = actAlignLeft); CenterItem.Checked := (Sender = actCenter); AlignRightItem.Checked := (Sender = actAlignRight); end; procedure TForm1.BulletsItemClick(Sender: TObject); begin BulletsItem.Checked := not BulletsItem.Checked; end; procedure TForm1.BoldItemClick(Sender: TObject); begin BoldItem.Checked := not BoldItem.Checked; end; procedure TForm1.ItalicItemClick(Sender: TObject); begin ItalicItem.Checked := not ItalicItem.Checked; end; procedure TForm1.UnderlineItemClick(Sender: TObject); begin UnderlineItem.Checked := not UnderlineItem.Checked; end; procedure TForm1.PopupMenuBarButtonClick(Sender: TObject); var P: TPoint; begin P := Memo1.ClientToScreen(Point(8, 8)); MenuToolbar.Items.Popup (P.X, P.Y, True); end; procedure TForm1.PopupToolbarButtonClick(Sender: TObject); var P: TPoint; begin P := Memo1.ClientToScreen(Point(8, 8)); MainToolbar.Items.Popup (P.X, P.Y, True); end; procedure TForm1.TBItem5Click(Sender: TObject); begin OrckaPluginManager1.Execute; end; procedure TForm1.FormShow(Sender: TObject); begin (* Add the existing toolbars to the plugin managers list. *) OrckaPluginManager1.InsertToolbar('TBToolsToolbar', TBToolsToolbar); OrckaPluginManager1.InsertToolbar('Formatting', FormatToolbar); OrckaPluginManager1.InsertToolbar('Standard', MainToolbar); OrckaPluginManager1.InsertToolbar('Another Toolbar', BottomToolbar); OrckaPluginManager1.LoadFromPath(ExtractFilePath(ParamStr(0))); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin (* Remove existing toolbars *) OrckaPluginManager1.RemoveToolbar('TBToolsToolbar', TBToolsToolbar); OrckaPluginManager1.RemoveToolbar('Formatting', FormatToolbar); OrckaPluginManager1.RemoveToolbar('Standard', MainToolbar); OrckaPluginManager1.RemoveToolbar('Another Toolbar', BottomToolbar); OrckaPluginManager1.UnLoadAllPlugins; end; procedure TForm1.OrckaPluginManager1InsertButton(Sender: TObject; Button: TTBCustomItem; var ToolbarName: String); begin ShowMessage(Button.Caption); end; end. --- NEW FILE: TB2K_Demo.dpr --- program TB2K_Demo; uses Forms, Demo1 in 'Demo1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Demo1.dfm --- (This appears to be a binary file; contents omitted.) --- NEW FILE: TB2K_Demo.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: TB2K_Demo.dof --- [FileVersion] Version=6.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; [Linker] MapFile=0 OutputObjs=0 ConsoleApp=1 DebugInfo=0 RemoteSymbols=0 MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= [Directories] 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;soaprtl;dbexpress;dbxcds;indy;dclOffice2k Conditionals= DebugSourceDirs= UsePackages=0 [Parameters] RunParams= HostApplication= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang= RootDir=D:\Program Files\Orcka\Component Suite\Plugin Wizard\Version 2 Source\ [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=2 MinorVer=0 Release=0 Build=38 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=2057 CodePage=1252 [Version Info Keys] CompanyName=Orcka Development FileDescription= FileVersion=2.0.0.38 InternalName=PluginWizard LegalCopyright=Copyright © 2002 Orcka Development. All rights reserved. LegalTrademarks= OriginalFilename=PluginWizard ProductName=TOrckaPluginWizard ProductVersion=2.0 Comments= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlOutputDirectorry] Count=2 Item0=D:\Program Files\Orcka\Component Suite\Samples\VCL\PluginManager\TBX Item1=D:\Program Files\Other\TB2K\Demo --- NEW FILE: TB2K_Demo.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 -LE"d:\program files\borland\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" |
Update of /cvsroot/ocs-comps/OCS2/Samples/VCL/AddinManager/complex/RichEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10593/Samples/VCL/AddinManager/complex/RichEdit Added Files: Client1.cfg Client1.dof Client1.dpr Client1.res Client2.cfg Client2.dof Client2.dpr Client2.res OrckaRichEditServer.pas OrckaRichEditShared.pas overview.rtf RichEdit.cfg RichEdit.dof RichEdit.dpr RichEdit.res RichEditPluginDemo.bpg Unit1.dfm Unit1.pas Log Message: Initially added to source control --- NEW FILE: OrckaRichEditServer.pas --- unit OrckaRichEditServer; interface uses ShareMem, Classes, ComCtrls, OrckaRichEditShared, Windows; type TRichEditServerMain = class(TRichEditServerTwo) private FClientList: TList; procedure CheckFileSave; function GetClientTwo(Index: Integer): TRichEditClientTwo; protected function GetClientCount: Longint; function GetClient(Index: Longint): TRichEditClient; public constructor Create; destructor Destroy; override; (* These are the methods that the Clients can call *) function InsertClient(AClient: TRichEditClient): Boolean; override; function RemoveClient(AClient: TRichEditClient): Boolean; override; procedure Print(PrintCaption: TString); override; (* This method was introduced in version 2 *) procedure OpenTemplate(TemplateName: TString); override; (* These Methods are used by the exe to control the Addins *) function CanClose: Boolean; function New: Boolean; procedure AfterNew; function BeforePrint: Boolean; procedure AfterPrint; function OpenDocument: Boolean; function SaveDocument(FileName: string): Boolean; function SaveDocumentAs: Boolean; (* MessageBox wrapper *) function MsgBox(Msg: string; Caption: string = 'RichEdit Demo'; uType: Longint = MB_OK): Longint; (* Properties to get Client information *) property Count: Longint read GetClientCount; property Client[Index: Longint]: TRichEditClient read GetClient; property ClientTwo[Index: Longint]: TRichEditClientTwo read GetClientTwo; end; implementation uses SysUtils, Unit1; const CurrentVersion = 2; { TRichEditServerMain } function TRichEditServerMain.GetClient(Index: Longint): TRichEditClient; begin Result := TRichEditClient(FClientList.Items[Index]); end; function TRichEditServerMain.GetClientCount: Longint; begin Result := FClientList.Count; end; constructor TRichEditServerMain.Create; begin FClientList := TList.Create; end; destructor TRichEditServerMain.Destroy; begin FClientList.Free; inherited Destroy; end; function TRichEditServerMain.InsertClient( AClient: TRichEditClient): Boolean; var cName, aName: string; I: Longint; begin Result := False; cName := AClient.GetName; for i := 0 to Count -1 do begin aName := Client[I].GetName; if CompareText(aName, cName) = 0 then Exit; end; (* if we get here then the client hasn't been added before check the clients version we are currently supporting version 2 *) if AClient.GetVersion > CurrentVersion then Exit; FClientList.Add(AClient); Result := True; end; function TRichEditServerMain.RemoveClient( AClient: TRichEditClient): Boolean; var I: Longint; begin Result := False; for I := Count -1 downto 0 do begin if AClient = Client[I] then begin FClientList[I] := nil; Result := True; Break; end; end; end; procedure TRichEditServerMain.Print(PrintCaption: TString); begin Form1.RichEdit1.Print(PrintCaption); end; procedure TRichEditServerMain.OpenTemplate(TemplateName: TString); begin end; function TRichEditServerMain.CanClose: Boolean; var I: Longint; Cancel: Boolean; begin (* This method was introduced in Version 2 of RichEdit EXE *) Cancel := False; for I := Count -1 downto 0 do begin if Client[I].GetVersion > 1 then ClientTwo[I].Closing(Cancel); if Cancel then Break; end; Result := not Cancel; end; function TRichEditServerMain.New: Boolean; var I: Longint; begin CheckFileSave; Result := False; for I := 0 to Count -1 do begin if Client[I].GetVersion > 1 then ClientTwo[I].BeforeNew(Result); if Result then Exit; end; Form1.SetFileName(sNewDocument); Form1.RichEdit1.Lines.Clear; Form1.HasChanged := False; AfterNew; end; procedure TRichEditServerMain.AfterNew; var I: Longint; begin for I := 0 to Count -1 do begin if Client[I].GetVersion > 1 then ClientTwo[I].AfterNew; end; end; function TRichEditServerMain.BeforePrint: Boolean; var I: Longint; begin Result := False; (* Ask each client if they will allow printing *) for I := 0 to Count -1 do begin Client[I].BeforePrint(Result); (* if They won't allow printing then don't ask further clients *) if Result then Break; end; (* Negate Result *) Result := not Result; (* if we can still print then print the document *) if Result then Print('Orcka Addin Manager Demo'#0); end; procedure TRichEditServerMain.AfterPrint; var I: Longint; begin for I := 0 to Count -1 do Client[I].AfterPrint; end; function TRichEditServerMain.OpenDocument: Boolean; var I: Longint; FName: TString; begin Result := False; FillChar(FName, SizeOf(TString), 0); CheckFileSave; for I := 0 to Count -1 do begin Client[I].DoOpenDocument(FName, Result); if Result then Break; end; Result := not Result; if Result then begin if Form1.OpenDialog1.Execute then Form1.OpenDocument(Form1.OpenDialog1.FileName); end else begin Form1.OpenDocument(FNAme); end; end; function TRichEditServerMain.SaveDocument(FileName: string): Boolean; begin CheckFileSave; if Form1.OpenDialog1.Execute then begin Form1.OpenDocument(Form1.OpenDialog1.FileName); //Form1.RichEdit1.ReadOnly := ofReadOnly in Form1.OpenDialog1.Options; end; end; procedure TRichEditServerMain.CheckFileSave; begin if not Form1.HasChanged then Exit; case MsgBox(Format(sSave, [Form1.FileName]), sCaption, MB_YESNOCANCEL or MB_ICONQUESTION) of IDYes: if Form1.FileName = sNewDocument then begin if Form1.SaveDialog1.Execute then Form1.SaveDocument(Form1.SaveDialog1.FileName); end else Form1.SaveDocument(Form1.FileName); IDCancel: Abort; end; end; function TRichEditServerMain.MsgBox(Msg: string; Caption: string = 'RichEdit Demo'; uType: Longint = MB_OK): Longint; begin Result := MessageBox(Form1.Handle, PChar(Msg), PChar(Caption), uType); end; function TRichEditServerMain.SaveDocumentAs: Boolean; begin with Form1 do begin if SaveDialog1.Execute then begin if FileExists(SaveDialog1.FileName) then if MSgBox(Format(sOverWrite, [SaveDialog1.FileName]), sCaption, MB_YESNOCANCEL or MB_ICONEXCLAMATION) <> idYes then Exit; RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); SetFileName(SaveDialog1.FileName); HasChanged := False; end; end; end; function TRichEditServerMain.GetClientTwo( Index: Integer): TRichEditClientTwo; begin Result := TRichEditClientTwo(FClientList.Items[Index]); end; end. --- NEW FILE: Client1.dpr --- library Client1; uses OrckaRichEditShared, Graphics, Windows,OrckaAddinManagerShared; {$R *.RES} type TClientOne = class(TRichEditClient) private FRichEditServer: TRichEditServer; FService: TOToolServices; public constructor Create(AService: TOToolServices; ARichEditServer: TRichEditServer); destructor Destroy; override; function GetVersion: Longint; override; function GetName: TString; override; procedure DoOpenDocument(var FileName: TString; var Handled: Boolean); override; procedure DoSaveDocument(var FileName: TString; var Handled: Boolean); override; procedure BeforePrint(var Cancel: Boolean); override; procedure AfterPrint; override; end; { TClientOne } const ClientName = 'Client One'; Version = 1; var ClientTwo: TClientOne; procedure PluginExit; stdcall; begin ClientTwo.Free; end; function Plugin (InParams: TOrckaAddinManagerParams; var ExitProc: Pointer): Boolean; stdcall; begin ClientTwo := TClientOne.Create(InParams.Service, InParams.User); ExitProc := @PluginExit; Result := True; end; exports Plugin name OrckaAddinManagerExportProc; constructor TClientOne.Create(AService: TOToolServices; ARichEditServer: TRichEditServer); begin FService := AService; FRichEditServer := ARichEditServer; FRichEditServer.InsertClient(Self); end; destructor TClientOne.Destroy; begin FRichEditServer.RemoveClient(Self); inherited Destroy; end; procedure TClientOne.AfterPrint; begin MessageBox(FService.GetHandle, Pchar(ClientName + ' After Print'), PChar(ClientName), MB_OK); end; procedure TClientOne.BeforePrint(var Cancel: Boolean); begin if MessageBox(FService.GetHandle, Pchar(ClientName + ' Before Print'#13#13 + 'Do you want to cancel printing'), PChar(ClientName), MB_YESNO) = IDYes then Cancel := True else Cancel := False; end; procedure TClientOne.DoOpenDocument(var FileName: TString; var Handled: Boolean); begin Handled := True; FileName := 'c:\Boot.Ini'; end; procedure TClientOne.DoSaveDocument(var FileName: TString; var Handled: Boolean); begin MessageBox(FService.GetHandle, PChar(ClientName + 'Save Document'), PChar(ClientName), MB_OK); end; function TClientOne.GetName: TString; begin Result := ClientName; end; function TClientOne.GetVersion: Longint; begin Result := Version; end; begin end. --- NEW FILE: RichEdit.res --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Client2.dof --- [FileVersion] Version=6.0 [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= Launcher= UseLauncher=0 DebugCWD= [Language] ActiveLang= ProjectLang=$00000409 RootDir= [Version Info] IncludeVerInfo=1 AutoIncBuild=1 MajorVer=1 MinorVer=0 Release=0 Build=8 Debug=0 PreRelease=0 Special=0 Private=0 DLL=0 Locale=1033 CodePage=1252 [Version Info Keys] CompanyName=Orcka FileDescription= FileVersion=1.0.0.8 InternalName= LegalCopyright=Copyright © 2000. Orcka Development. 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\hlSearchPath] Count=1 Item0=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source --- NEW FILE: Client2.cfg --- -$A0 -$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\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\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: RichEdit.dpr --- program RichEdit; uses ShareMem, Forms, Unit1 in 'Unit1.pas' {Form1}, OrckaRichEditShared in 'OrckaRichEditShared.pas', OrckaRichEditServer in 'OrckaRichEditServer.pas'; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. --- NEW FILE: Client1.dof --- [FileVersion] Version=6.0 [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= Launcher= UseLauncher=0 DebugCWD= [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= [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=1 Item0=D:\packages\CDGen\Source;D:\packages\CDMail\Source;D:\packages\CDSubCls\Source --- NEW FILE: RichEdit.cfg --- -$A1 -$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\delphi6\Projects\Bpl" -LN"d:\program files\borland\delphi6\Projects\Bpl" --- NEW FILE: overview.rtf --- {\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}{\f3\fswiss Arial;}{\f4\fscript Mistral;}} {\colortbl\red0\green0\blue0;\red255\green0\blue255;\red255\green0\blue0;\red0\green0\blue255;} \deflang1033\pard\qc\plain\f3\fs32\cf1\b Rich Edit Control Overview\plain\f3\fs32\cf2\b \par \plain\f3\fs16\cf0\b (from Win32SDK Help) \par \pard\plain\f3\fs20\cf0 \par \pard\li500\ri840\fi-20\plain\f4\fs30\cf0 A rich edit control is a window in which the user can enter and edit text. The text can be assigned character and paragraph formatting, and can include embedded OLE objects. Rich edit controls provide a programming interface for formatting text. However, an application must implement any user interface components necessary to make formatting operations available to the user\plain\f3\fs20\cf0 . \par \pard\li480\ri840\plain\f3\fs20\cf0 \par Rich edit controls support almost all of the messages and notification messages used with multiline edit controls. Thus, applications that already use edit controls can be easily changed to use rich edit controls. Additional messages and notifications enable applications to access the functionality unique to rich edit controls. For information about edit controls, see \plain\f3\fs20\cf0\i Edit Controls\plain\f3\fs20\cf0 . \par \par An application can send messages to a rich edit control to perform such operations as formatting text, printing, and saving. An application can process notification messages to monitor events in a rich edit control. For example, an application can process notifications to filter keyboard and mouse input, to permit or deny changes to protected text, or to resize the control as needed to fit its content. \par \par You create a rich edi\plain\f3\fs20\cf0\i t co\plain\f3\fs20\cf0 ntrol by using the \plain\f3\fs20\cf3\b\ul CreateWindowEx\plain\f3\fs20\cf0 function, specifying the "RichEdit" window class. Because the common control library registers this window class, you must call the \plain\f3\fs20\cf0\b\ul InitCommonControls\plain\f3\fs20\cf0 function to ensure that the library is loaded before the rich edit control is created. \par \par Rich edit controls support most of the window styles used with edit controls as well as additional styles. You should specify the \plain\f3\fs20\cf0\b ES_MULTILINE\plain\f3\fs20\cf0 window style if you want to allow more than one line of text in the control. \par } |
