[Ocs-comps-commits] OCS2/Samples/VCL/PluginManager/Tip of The Day HintsTipsUnit.pas,NONE,1.1 TipOfDayForm.dfm,NONE,1.1 TipOfDayForm.pas,NONE,1.1 tod.bmp,NONE,1.1 totd.cfg,NONE,1.1 totd.dof,NONE,1.1 totd.dpr,NONE,1.1 totd.dsk,NONE,1.1 totd.res,NONE,1.1

[Si C. <tec...@us...>]

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