You've already forked lazarus-ccr
Initial import.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@272 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
ssamayoa
16
components/jvcllaz/devtools/JvExVCL/Readme.txt
Normal file
16
components/jvcllaz/devtools/JvExVCL/Readme.txt
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
Directory structure
|
||||||
|
-------------------
|
||||||
|
.\ preprocessed files
|
||||||
|
source\ source files that must be preprocessed
|
||||||
|
|
||||||
|
|
||||||
|
Files
|
||||||
|
-----
|
||||||
|
.\jpp.exe JCL pascal preprocessor
|
||||||
|
.\preprocess.bat preprocess the source\JvExXxx files
|
||||||
|
.\Readme.txt this file
|
||||||
|
source\dpp.exe Delphi language preprocessor (http://www.sf.net/projects/dpp32)
|
||||||
|
source\build.pas used for preprocessing
|
||||||
|
source\JvExControls.pas base system and interfaces
|
||||||
|
source\JvExXxx extended VCL classes for the VCL controls
|
||||||
|
source\JvExControls.macros macros used by the preprocessor
|
||||||
37
components/jvcllaz/devtools/JvExVCL/preprocess.bat
Normal file
37
components/jvcllaz/devtools/JvExVCL/preprocess.bat
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
@echo off
|
||||||
|
|
||||||
|
SET OUTDIR=..\..\..\run
|
||||||
|
|
||||||
|
cd src
|
||||||
|
|
||||||
|
|
||||||
|
SET FILE=.\build
|
||||||
|
if NOT "-%1" == "-" SET FILE=%1
|
||||||
|
echo Preprocessing template: %FILE%.pas
|
||||||
|
dpp.exe .\%FILE%.pas -I..\..\..\common >NUL
|
||||||
|
|
||||||
|
if "%FILE%" == ".\build" GOTO ALL
|
||||||
|
|
||||||
|
move %FILE%.i.pas %OUTDIR%\%FILE%.pas
|
||||||
|
|
||||||
|
|
||||||
|
goto LEAVE
|
||||||
|
:ALL
|
||||||
|
|
||||||
|
move JvExButtons.i.pas %OUTDIR%\JvExButtons.pas
|
||||||
|
move JvExCheckLst.i.pas %OUTDIR%\JvExCheckLst.pas
|
||||||
|
move JvExComCtrls.i.pas %OUTDIR%\JvExComCtrls.pas
|
||||||
|
move JvExControls.i.pas %OUTDIR%\JvExControls.pas
|
||||||
|
REM move JvExDBCtrls.i.pas %OUTDIR%\JvExDBCtrls.pas
|
||||||
|
move JvExDBGrids.i.pas %OUTDIR%\JvExDBGrids.pas
|
||||||
|
move JvExExtCtrls.i.pas %OUTDIR%\JvExExtCtrls.pas
|
||||||
|
move JvExForms.i.pas %OUTDIR%\JvExForms.pas
|
||||||
|
move JvExGrids.i.pas %OUTDIR%\JvExGrids.pas
|
||||||
|
move JvExMask.i.pas %OUTDIR%\JvExMask.pas
|
||||||
|
move JvExStdCtrls.i.pas %OUTDIR%\JvExStdCtrls.pas
|
||||||
|
|
||||||
|
cd ..
|
||||||
|
|
||||||
|
:LEAVE
|
||||||
|
SET FILE=
|
||||||
|
SET OUTDIR=
|
||||||
594
components/jvcllaz/devtools/JvExVCL/src/JvExControls.macros
Normal file
594
components/jvcllaz/devtools/JvExVCL/src/JvExControls.macros
Normal file
@ -0,0 +1,594 @@
|
|||||||
|
|
||||||
|
// This comment is inserted into every JvExXxx.pas file
|
||||||
|
(*$DEFINE WARNINGHEADER
|
||||||
|
{*****************************************************************************
|
||||||
|
* WARNING: Do not edit this file.
|
||||||
|
* This file is autogenerated from the source in devtools/JvExVCL/src.
|
||||||
|
* If you do it despite this warning your changes will be discarded by the next
|
||||||
|
* update of this file. Do your changes in the template files.
|
||||||
|
****************************************************************************}
|
||||||
|
{$D-} // do not step into this unit
|
||||||
|
*)
|
||||||
|
|
||||||
|
// *************************************************************************
|
||||||
|
// *************************** INTERFACE MACROS ****************************
|
||||||
|
// *************************************************************************
|
||||||
|
|
||||||
|
(*$DEFINE COMMON_PUBLISHED
|
||||||
|
published
|
||||||
|
property BiDiMode;
|
||||||
|
property DragCursor;
|
||||||
|
property DragKind;
|
||||||
|
property DragMode;
|
||||||
|
property ParentBiDiMode;
|
||||||
|
property OnEndDock;
|
||||||
|
property OnStartDock;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** Control ************************
|
||||||
|
(*$DEFINE CONTROL_DECL
|
||||||
|
private
|
||||||
|
// TODO:
|
||||||
|
// FAboutJVCL: TJVCLAboutInfo;
|
||||||
|
FHintColor: TColor;
|
||||||
|
FMouseOver: Boolean;
|
||||||
|
FHintWindowClass: THintWindowClass;
|
||||||
|
FOnMouseEnter: TNotifyEvent;
|
||||||
|
FOnMouseLeave: TNotifyEvent;
|
||||||
|
FOnParentColorChanged: TNotifyEvent;
|
||||||
|
function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload;
|
||||||
|
function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload;
|
||||||
|
function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer;
|
||||||
|
protected
|
||||||
|
procedure WndProc(var Msg: TLMessage); override;
|
||||||
|
procedure FocusChanged(AControl: TWinControl); dynamic;
|
||||||
|
procedure VisibleChanged; reintroduce; dynamic;
|
||||||
|
procedure EnabledChanged; reintroduce; dynamic;
|
||||||
|
procedure TextChanged; reintroduce; virtual;
|
||||||
|
procedure ColorChanged; reintroduce; dynamic;
|
||||||
|
procedure FontChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentFontChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentColorChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentShowHintChanged; reintroduce; dynamic;
|
||||||
|
function WantKey(Key: Integer; Shift: TShiftState; const KeyText: WideString): Boolean; reintroduce; virtual;
|
||||||
|
function HintShow(var HintInfo: THintInfo): Boolean; reintroduce; dynamic;
|
||||||
|
function HitTest(X, Y: Integer): Boolean; reintroduce; virtual;
|
||||||
|
procedure MouseEnter(AControl: TControl); reintroduce; dynamic;
|
||||||
|
procedure MouseLeave(AControl: TControl); reintroduce; dynamic;
|
||||||
|
property MouseOver: Boolean read FMouseOver write FMouseOver;
|
||||||
|
property HintColor: TColor read FHintColor write FHintColor default clDefault;
|
||||||
|
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
|
||||||
|
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
|
||||||
|
property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged;
|
||||||
|
function GetCaption: TCaption; virtual;
|
||||||
|
procedure SetCaption(Value: TCaption); virtual;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
property Caption: TCaption read GetCaption write SetCaption;
|
||||||
|
property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass;
|
||||||
|
published
|
||||||
|
// TODO:
|
||||||
|
// property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** WinControl *********************
|
||||||
|
((*$DEFINE WINCONTROL_DECL
|
||||||
|
CONTROL_DECL
|
||||||
|
private
|
||||||
|
FDotNetHighlighting: Boolean;
|
||||||
|
protected
|
||||||
|
procedure BoundsChanged; reintroduce; virtual;
|
||||||
|
procedure CursorChanged; reintroduce; dynamic;
|
||||||
|
procedure ShowingChanged; reintroduce; dynamic;
|
||||||
|
procedure ShowHintChanged; reintroduce; dynamic;
|
||||||
|
procedure ControlsListChanging(Control: TControl; Inserting: Boolean); reintroduce; dynamic;
|
||||||
|
procedure ControlsListChanged(Control: TControl; Inserting: Boolean); reintroduce; dynamic;
|
||||||
|
procedure GetDlgCode(var Code: TDlgCodes); virtual;
|
||||||
|
procedure FocusSet(PrevWnd: THandle); virtual;
|
||||||
|
procedure FocusKilled(NextWnd: THandle); virtual;
|
||||||
|
function DoEraseBackground(ACanvas: TCanvas; Param: Integer): Boolean; virtual;
|
||||||
|
published
|
||||||
|
property DotNetHighlighting: Boolean read FDotNetHighlighting write FDotNetHighlighting default False;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** EditControl ********************
|
||||||
|
(*$DEFINE EDITCONTROL_DECL
|
||||||
|
WINCONTROL_DECL
|
||||||
|
private
|
||||||
|
FClipboardCommands: TJvClipboardCommands;
|
||||||
|
protected
|
||||||
|
procedure SetClipboardCommands(const Value: TJvClipboardCommands); virtual;
|
||||||
|
property ClipboardCommands: TJvClipboardCommands read FClipboardCommands write SetClipboardCommands default [caCopy..caUndo];
|
||||||
|
*)
|
||||||
|
|
||||||
|
// *************************************************************************
|
||||||
|
// *************************************************************************
|
||||||
|
|
||||||
|
// ****************** Default-Helpers ********************
|
||||||
|
|
||||||
|
// TJvEx##ClassName = class(T##ClassName, IJvExControl)
|
||||||
|
(*$DEFINE CONTROL_DECL_DEFAULT(ClassName)
|
||||||
|
TJvEx##ClassName = class(T##ClassName)
|
||||||
|
CONTROL_DECL
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// TJvEx##ClassName = class(T##ClassName, IJvExControl)
|
||||||
|
(*$DEFINE WINCONTROL_DECL_DEFAULT(ClassName)
|
||||||
|
TJvEx##ClassName = class(T##ClassName)
|
||||||
|
WINCONTROL_DECL
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// TJvEx##ClassName = class(T##ClassName, IJvExControl)
|
||||||
|
(*$DEFINE EDITCONTROL_DECL_DEFAULT(ClassName)
|
||||||
|
TJvEx##ClassName = class(T##ClassName)
|
||||||
|
EDITCONTROL_DECL
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// *************************************************************************
|
||||||
|
// ************************ IMPLEMENTATION MACROS **************************
|
||||||
|
// *************************************************************************
|
||||||
|
|
||||||
|
// ****************** Constructors *******************
|
||||||
|
(*$DEFINE BEGIN_CONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
constructor TJvEx##ClassName.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FHintColor := clDefault;
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE BEGIN_WINCONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
BEGIN_CONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE BEGIN_EDITCONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
BEGIN_WINCONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
FClipboardCommands := [caCopy..caUndo];
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE END_CONSTRUCTOR
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** Control implementation *******************
|
||||||
|
(*$DEFINE CONTROL_IMPL(ClassName)
|
||||||
|
function TJvEx##ClassName.BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TLMessage;
|
||||||
|
begin
|
||||||
|
Mesg := CreateWMMessage(Msg, WParam, LParam);
|
||||||
|
inherited WndProc(Mesg);
|
||||||
|
Result := Mesg.Result;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TLMessage;
|
||||||
|
begin
|
||||||
|
Mesg := CreateWMMessage(Msg, WParam, LParam);
|
||||||
|
inherited WndProc(Mesg);
|
||||||
|
Result := Mesg.Result;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TStructPtrMessage;
|
||||||
|
begin
|
||||||
|
Mesg := TStructPtrMessage.Create(Msg, WParam, LParam);
|
||||||
|
try
|
||||||
|
inherited WndProc(Mesg.Msg);
|
||||||
|
finally
|
||||||
|
Result := Mesg.Msg.Result;
|
||||||
|
Mesg.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.VisibleChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_VISIBLECHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.EnabledChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_ENABLEDCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.TextChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_TEXTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.FontChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_FONTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ColorChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_COLORCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ParentFontChanged;
|
||||||
|
begin
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
//BaseWndProc(CM_PARENTFONTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ParentColorChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_PARENTCOLORCHANGED);
|
||||||
|
if Assigned(OnParentColorChange) then
|
||||||
|
OnParentColorChange(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ParentShowHintChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_PARENTSHOWHINTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.WantKey(Key: Integer; Shift: TShiftState; const KeyText: WideString): Boolean;
|
||||||
|
begin
|
||||||
|
Result := BaseWndProc(CM_DIALOGCHAR, Word(Key), ShiftStateToKeyData(Shift)) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.HitTest(X, Y: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(PointToSmallPoint(Point(X, Y)))) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.HintShow(var HintInfo: THintInfo): Boolean;
|
||||||
|
begin
|
||||||
|
GetHintColor(HintInfo, Self, FHintColor);
|
||||||
|
if FHintWindowClass <> nil then
|
||||||
|
HintInfo.HintWindowClass := FHintWindowClass;
|
||||||
|
Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.MouseEnter(AControl: TControl);
|
||||||
|
begin
|
||||||
|
FMouseOver := True;
|
||||||
|
if Assigned(FOnMouseEnter) then
|
||||||
|
FOnMouseEnter(Self);
|
||||||
|
BaseWndProc(CM_MOUSEENTER, 0, AControl);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.MouseLeave(AControl: TControl);
|
||||||
|
begin
|
||||||
|
FMouseOver := False;
|
||||||
|
BaseWndProc(CM_MOUSELEAVE, 0, AControl);
|
||||||
|
if Assigned(FOnMouseLeave) then
|
||||||
|
FOnMouseLeave(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.FocusChanged(AControl: TWinControl);
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_FOCUSCHANGED, 0, AControl);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.GetCaption: TCaption;
|
||||||
|
begin
|
||||||
|
Result := inherited Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// 25.09.2007 - SESS:
|
||||||
|
// I have done this because TextChanged wasn't fired as expected.
|
||||||
|
// I still don't shure if this problem is only for this reintroduced
|
||||||
|
// method because the way LCL treats Caption or will have the same
|
||||||
|
// problem with other reintroduced methods. So far, I tested some
|
||||||
|
// other events and seems not.
|
||||||
|
procedure TJvEx##ClassName.SetCaption(Value: TCaption);
|
||||||
|
begin
|
||||||
|
inherited Caption := Value;
|
||||||
|
TextChanged;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** WinControl implementation *******************
|
||||||
|
((*$DEFINE WINCONTROL_IMPL(ClassName)
|
||||||
|
CONTROL_IMPL(ClassName)
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.BoundsChanged;
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.CursorChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_CURSORCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ShowingChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_SHOWINGCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ShowHintChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_SHOWHINTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ VCL sends CM_CONTROLLISTCHANGE and CM_CONTROLCHANGE in a different order than
|
||||||
|
the CLX methods are used. So we must correct it by evaluating "Inserting". }
|
||||||
|
procedure TJvEx##ClassName.ControlsListChanging(Control: TControl; Inserting: Boolean);
|
||||||
|
begin
|
||||||
|
if Inserting then
|
||||||
|
BaseWndProc(CM_CONTROLLISTCHANGE, Integer(Control), Integer(Inserting))
|
||||||
|
else
|
||||||
|
BaseWndProc(CM_CONTROLCHANGE, Integer(Control), Integer(Inserting));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.ControlsListChanged(Control: TControl; Inserting: Boolean);
|
||||||
|
begin
|
||||||
|
if not Inserting then
|
||||||
|
BaseWndProc(CM_CONTROLLISTCHANGE, Integer(Control), Integer(Inserting))
|
||||||
|
else
|
||||||
|
BaseWndProc(CM_CONTROLCHANGE, Integer(Control), Integer(Inserting));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.GetDlgCode(var Code: TDlgCodes);
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.FocusSet(PrevWnd: THandle);
|
||||||
|
begin
|
||||||
|
BaseWndProc(LM_SETFOCUS, Integer(PrevWnd), 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.FocusKilled(NextWnd: THandle);
|
||||||
|
begin
|
||||||
|
BaseWndProc(LM_KILLFOCUS, Integer(NextWnd), 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvEx##ClassName.DoEraseBackground(ACanvas: TCanvas; Param: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := BaseWndProc(LM_ERASEBKGND, ACanvas.Handle, Param) <> 0;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
|
||||||
|
// ****************** EditControl implementation *******************
|
||||||
|
(*$DEFINE EDITCONTROL_IMPL(ClassName)
|
||||||
|
WINCONTROL_IMPL(ClassName)
|
||||||
|
|
||||||
|
procedure TJvEx##ClassName.SetClipboardCommands(const Value: TJvClipboardCommands);
|
||||||
|
begin
|
||||||
|
FClipboardCommands := Value;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// *********************************************************************
|
||||||
|
// *********************************************************************
|
||||||
|
|
||||||
|
// ****************** Control WndProc implementation *******************
|
||||||
|
(*$DEFINE CONTROL_WNDPROC_CASES
|
||||||
|
{
|
||||||
|
// TODO: do we need this? I think not...
|
||||||
|
CM_DENYSUBCLASSING:
|
||||||
|
Msg.Result := Ord(GetInterfaceEntry(IJvDenySubClassing) <> nil);
|
||||||
|
}
|
||||||
|
CM_DIALOGCHAR:
|
||||||
|
with TCMDialogChar(Msg) do
|
||||||
|
Result := Ord(WantKey(CharCode, KeyDataToShiftState(KeyData), WideChar(CharCode)));
|
||||||
|
CM_HINTSHOW:
|
||||||
|
with TCMHintShow(Msg) do
|
||||||
|
Result := Integer(HintShow(HintInfo^));
|
||||||
|
CM_HITTEST:
|
||||||
|
with TCMHitTest(Msg) do
|
||||||
|
Result := Integer(HitTest(XPos, YPos));
|
||||||
|
CM_MOUSEENTER:
|
||||||
|
MouseEnter(TControl(Msg.LParam));
|
||||||
|
CM_MOUSELEAVE:
|
||||||
|
MouseLeave(TControl(Msg.LParam));
|
||||||
|
CM_VISIBLECHANGED:
|
||||||
|
VisibleChanged;
|
||||||
|
CM_ENABLEDCHANGED:
|
||||||
|
EnabledChanged;
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
CM_TEXTCHANGED:
|
||||||
|
TextChanged;
|
||||||
|
CM_FONTCHANGED:
|
||||||
|
FontChanged;
|
||||||
|
CM_COLORCHANGED:
|
||||||
|
ColorChanged;
|
||||||
|
CM_FOCUSCHANGED:
|
||||||
|
FocusChanged(TWinControl(Msg.LParam));
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
//CM_PARENTFONTCHANGED:
|
||||||
|
// ParentFontChanged;
|
||||||
|
CM_PARENTCOLORCHANGED:
|
||||||
|
ParentColorChanged;
|
||||||
|
CM_PARENTSHOWHINTCHANGED:
|
||||||
|
ParentShowHintChanged;
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE CONTROL_WNDPROC(ClassName)
|
||||||
|
procedure TJvEx##ClassName.WndProc(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
if not DispatchIsDesignMsg(Self, Msg) then
|
||||||
|
case Msg.Msg of
|
||||||
|
CONTROL_WNDPROC_CASES
|
||||||
|
else
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** WinControl WndProc implementation *******************
|
||||||
|
(*$DEFINE WINCONTROL_WNDPROC_CASES
|
||||||
|
CONTROL_WNDPROC_CASES
|
||||||
|
CM_CURSORCHANGED:
|
||||||
|
CursorChanged;
|
||||||
|
CM_SHOWINGCHANGED:
|
||||||
|
ShowingChanged;
|
||||||
|
CM_SHOWHINTCHANGED:
|
||||||
|
ShowHintChanged;
|
||||||
|
CM_CONTROLLISTCHANGE:
|
||||||
|
if Msg.LParam <> 0 then
|
||||||
|
ControlsListChanging(TControl(Msg.WParam), True)
|
||||||
|
else
|
||||||
|
ControlsListChanged(TControl(Msg.WParam), False);
|
||||||
|
CM_CONTROLCHANGE:
|
||||||
|
if Msg.LParam = 0 then
|
||||||
|
ControlsListChanging(TControl(Msg.WParam), False)
|
||||||
|
else
|
||||||
|
ControlsListChanged(TControl(Msg.WParam), True);
|
||||||
|
LM_SETFOCUS:
|
||||||
|
FocusSet(THandle(Msg.WParam));
|
||||||
|
LM_KILLFOCUS:
|
||||||
|
FocusKilled(THandle(Msg.WParam));
|
||||||
|
LM_SIZE:
|
||||||
|
begin
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
BoundsChanged;
|
||||||
|
end;
|
||||||
|
LM_ERASEBKGND:
|
||||||
|
if Msg.WParam <> 0 then
|
||||||
|
begin
|
||||||
|
IdSaveDC := SaveDC(HDC(Msg.WParam)); // protect DC against Stock-Objects from Canvas
|
||||||
|
WCanvas := TCanvas.Create;
|
||||||
|
try
|
||||||
|
WCanvas.Handle := HDC(Msg.WParam);
|
||||||
|
Msg.Result := Ord(DoEraseBackground(WCanvas, Msg.LParam));
|
||||||
|
finally
|
||||||
|
WCanvas.Handle := 0;
|
||||||
|
WCanvas.Free;
|
||||||
|
RestoreDC(HDC(Msg.WParam), IdSaveDC);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
LM_GETDLGCODE:
|
||||||
|
begin
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
DlgCodes := [dcNative] + DlgcToDlgCodes(Msg.Result);
|
||||||
|
GetDlgCode(DlgCodes);
|
||||||
|
if not (dcNative in DlgCodes) then
|
||||||
|
Msg.Result := DlgCodesToDlgc(DlgCodes);
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE WINCONTROL_WNDPROC(ClassName)
|
||||||
|
procedure TJvEx##ClassName.WndProc(var Msg: TLMessage);
|
||||||
|
var
|
||||||
|
IdSaveDC: Integer;
|
||||||
|
DlgCodes: TDlgCodes;
|
||||||
|
WCanvas: TCanvas;
|
||||||
|
begin
|
||||||
|
if not DispatchIsDesignMsg(Self, Msg) then
|
||||||
|
begin
|
||||||
|
case Msg.Msg of
|
||||||
|
WINCONTROL_WNDPROC_CASES
|
||||||
|
else
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
end;
|
||||||
|
// TODO:
|
||||||
|
// LM_NCPAINT isn't send by LCL, may be .Net highlighting can't be implemented.
|
||||||
|
case Msg.Msg of // precheck message to prevent access violations on released controls
|
||||||
|
CM_MOUSEENTER, CM_MOUSELEAVE, LM_KILLFOCUS, LM_SETFOCUS, LM_NCPAINT:
|
||||||
|
if DotNetHighlighting then
|
||||||
|
HandleDotNetHighlighting(Self, Msg, MouseOver, Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// ****************** EditControl WndProc implementation *******************
|
||||||
|
(*$DEFINE EDITCONTROL_WNDPROC_CASES
|
||||||
|
WINCONTROL_WNDPROC_CASES
|
||||||
|
{
|
||||||
|
// TODO: convert to LCL messages
|
||||||
|
WM_CLEAR:
|
||||||
|
if caClear in ClipboardCommands then
|
||||||
|
inherited WndProc(Msg)
|
||||||
|
else
|
||||||
|
Msg.Result := 1;
|
||||||
|
WM_UNDO, EM_UNDO:
|
||||||
|
if caUndo in ClipboardCommands then
|
||||||
|
inherited WndProc(Msg)
|
||||||
|
else
|
||||||
|
Msg.Result := 1;
|
||||||
|
WM_COPY:
|
||||||
|
if caCopy in ClipboardCommands then
|
||||||
|
inherited WndProc(Msg)
|
||||||
|
else
|
||||||
|
Msg.Result := 1;
|
||||||
|
WM_CUT:
|
||||||
|
if caCut in ClipboardCommands then
|
||||||
|
inherited WndProc(Msg)
|
||||||
|
else
|
||||||
|
Msg.Result := 1;
|
||||||
|
WM_PASTE:
|
||||||
|
if caPaste in ClipboardCommands then
|
||||||
|
inherited WndProc(Msg)
|
||||||
|
else
|
||||||
|
Msg.Result := 1;
|
||||||
|
}
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE EDITCONTROL_WNDPROC(ClassName)
|
||||||
|
procedure TJvEx##ClassName.WndProc(var Msg: TLMessage);
|
||||||
|
var
|
||||||
|
IdSaveDC: Integer;
|
||||||
|
DlgCodes: TDlgCodes;
|
||||||
|
WCanvas: TCanvas;
|
||||||
|
begin
|
||||||
|
if not DispatchIsDesignMsg(Self, Msg) then
|
||||||
|
begin
|
||||||
|
case Msg.Msg of
|
||||||
|
EDITCONTROL_WNDPROC_CASES
|
||||||
|
else
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
end;
|
||||||
|
// TODO:
|
||||||
|
// LM_NCPAINT isn't send by LCL, may be .Net highlighting can't be implemented.
|
||||||
|
case Msg.Msg of // precheck message to prevent access violations on released controls
|
||||||
|
CM_MOUSEENTER, CM_MOUSELEAVE, LM_KILLFOCUS, LM_SETFOCUS, LM_NCPAINT:
|
||||||
|
if DotNetHighlighting then
|
||||||
|
HandleDotNetHighlighting(Self, Msg, MouseOver, Color);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
// *************************************************************************
|
||||||
|
// *************************************************************************
|
||||||
|
|
||||||
|
// ****************** Default-Helpers ********************
|
||||||
|
|
||||||
|
(*$DEFINE CONTROL_IMPL_DEFAULT(ClassName)
|
||||||
|
BEGIN_CONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
END_CONSTRUCTOR
|
||||||
|
|
||||||
|
CONTROL_IMPL(ClassName)
|
||||||
|
|
||||||
|
CONTROL_WNDPROC(ClassName)
|
||||||
|
|
||||||
|
//============================================================================
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE WINCONTROL_IMPL_DEFAULT(ClassName)
|
||||||
|
BEGIN_WINCONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
END_CONSTRUCTOR
|
||||||
|
|
||||||
|
WINCONTROL_IMPL(ClassName)
|
||||||
|
|
||||||
|
WINCONTROL_WNDPROC(ClassName)
|
||||||
|
|
||||||
|
//============================================================================
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
|
(*$DEFINE EDITCONTROL_IMPL_DEFAULT(ClassName)
|
||||||
|
BEGIN_EDITCONTROL_CONSTRUCTOR(ClassName)
|
||||||
|
END_CONSTRUCTOR
|
||||||
|
|
||||||
|
EDITCONTROL_IMPL(ClassName)
|
||||||
|
|
||||||
|
EDITCONTROL_WNDPROC(ClassName)
|
||||||
|
|
||||||
|
//============================================================================
|
||||||
|
|
||||||
|
*)
|
||||||
|
|
||||||
479
components/jvcllaz/devtools/JvExVCL/src/JvExControls.pas
Normal file
479
components/jvcllaz/devtools/JvExVCL/src/JvExControls.pas
Normal file
@ -0,0 +1,479 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvExControls.pas, released on 2004-01-04
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Andreas Hausladen [Andreas dott Hausladen att gmx dott de]
|
||||||
|
Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): -
|
||||||
|
dejoy.
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvExControls.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
// TODO: Make this unit generated by template as JVCL's.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvExControls;
|
||||||
|
{MACROINCLUDE JvExControls.macros}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
* WARNING: Do not edit this file.
|
||||||
|
* This file is autogenerated from the source in devtools/JvExVCL/src.
|
||||||
|
* If you do it despite this warning your changes will be discarded by the next
|
||||||
|
* update of this file. Do your changes in the template files.
|
||||||
|
****************************************************************************}
|
||||||
|
{$D-} // do not step into this unit
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Graphics, LCLIntf, LCLType, LMessages, Forms;
|
||||||
|
|
||||||
|
type
|
||||||
|
TDlgCode =
|
||||||
|
(dcWantAllKeys, dcWantArrows, dcWantChars, dcButton, dcHasSetSel, dcWantTab,
|
||||||
|
dcNative); // if dcNative is in the set the native allowed keys are used and GetDlgCode is ignored
|
||||||
|
TDlgCodes = set of TDlgCode;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
const
|
||||||
|
dcWantMessage = dcWantAllKeys;
|
||||||
|
|
||||||
|
const
|
||||||
|
CM_DENYSUBCLASSING = JvThemes.CM_DENYSUBCLASSING;
|
||||||
|
CM_PERFORM = CM_BASE + $500 + 0; // LParam: "Msg: ^TMessage"
|
||||||
|
CM_SETAUTOSIZE = CM_BASE + $500 + 1; // WParam: "Value: Boolean"
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvHotTrackOptions = class;
|
||||||
|
|
||||||
|
{ IJvExControl is used for the identification of an JvExXxx control. }
|
||||||
|
IJvExControl = interface
|
||||||
|
['{8E6579C3-D683-4562-AFAB-D23C8526E386}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Add IJvDenySubClassing to the base class list if the control should not
|
||||||
|
be themed by the ThemeManager (http://www.soft-gems.net Mike Lischke).
|
||||||
|
This only works with JvExVCL derived classes. }
|
||||||
|
IJvDenySubClassing = interface
|
||||||
|
['{76942BC0-2A6E-4DC4-BFC9-8E110DB7F601}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ IJvHotTrack is Specifies whether Control are highlighted when the mouse passes over them}
|
||||||
|
IJvHotTrack = interface
|
||||||
|
['{8F1B40FB-D8E3-46FE-A7A3-21CE4B199A8F}']
|
||||||
|
|
||||||
|
function GetHotTrack:Boolean;
|
||||||
|
function GetHotTrackFont:TFont;
|
||||||
|
function GetHotTrackFontOptions:TJvTrackFontOptions;
|
||||||
|
function GetHotTrackOptions:TJvHotTrackOptions;
|
||||||
|
|
||||||
|
procedure SetHotTrack(Value: Boolean);
|
||||||
|
procedure SetHotTrackFont(Value: TFont);
|
||||||
|
procedure SetHotTrackFontOptions(Value: TJvTrackFontOptions);
|
||||||
|
procedure SetHotTrackOptions(Value: TJvHotTrackOptions);
|
||||||
|
|
||||||
|
property HotTrack: Boolean read GetHotTrack write SetHotTrack;
|
||||||
|
property HotTrackFont: TFont read GetHotTrackFont write SetHotTrackFont;
|
||||||
|
property HotTrackFontOptions: TJvTrackFontOptions read GetHotTrackFontOptions write SetHotTrackFontOptions;
|
||||||
|
property HotTrackOptions: TJvHotTrackOptions read GetHotTrackOptions write SetHotTrackOptions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvHotTrackOptions = class(TJvPersistentProperty)
|
||||||
|
private
|
||||||
|
FEnabled: Boolean;
|
||||||
|
FFrameVisible: Boolean;
|
||||||
|
FColor: TColor;
|
||||||
|
FFrameColor: TColor;
|
||||||
|
procedure SetColor(Value: TColor);
|
||||||
|
procedure SetEnabled(Value: Boolean);
|
||||||
|
procedure SetFrameColor(Value: TColor);
|
||||||
|
procedure SetFrameVisible(Value: Boolean);
|
||||||
|
public
|
||||||
|
constructor Create; virtual;
|
||||||
|
procedure Assign(Source: TPersistent); override;
|
||||||
|
published
|
||||||
|
property Enabled: Boolean read FEnabled write SetEnabled default False;
|
||||||
|
property Color: TColor read FColor write SetColor default $00D2BDB6;
|
||||||
|
property FrameVisible: Boolean read FFrameVisible write SetFrameVisible default False;
|
||||||
|
property FrameColor: TColor read FFrameColor write SetFrameColor default $006A240A;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
type
|
||||||
|
TStructPtrMessage = class(TObject)
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Msg: TLMessage;
|
||||||
|
constructor Create(AMsg: Integer; WParam: Integer; var LParam);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//procedure SetDotNetFrameColors(FocusedColor, UnfocusedColor: TColor);
|
||||||
|
|
||||||
|
procedure DrawDotNetControl(Control: TWinControl; AColor: TColor; InControl: Boolean);
|
||||||
|
procedure HandleDotNetHighlighting(Control: TWinControl; const Msg: TLMessage;
|
||||||
|
MouseOver: Boolean; Color: TColor);
|
||||||
|
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: Longint): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
|
||||||
|
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: TControl): TLMessage; overload; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
|
||||||
|
function SmallPointToLong(const Pt: TSmallPoint): Longint; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
|
||||||
|
function ShiftStateToKeyData(Shift: TShiftState): Longint;
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//function GetFocusedControl(AControl: TControl): TWinControl;
|
||||||
|
|
||||||
|
function DlgcToDlgCodes(Value: Longint): TDlgCodes;
|
||||||
|
function DlgCodesToDlgc(Value: TDlgCodes): Longint;
|
||||||
|
procedure GetHintColor(var HintInfo: THintInfo; AControl: TControl; HintColor: TColor);
|
||||||
|
function DispatchIsDesignMsg(Control: TControl; var Msg: TLMessage): Boolean;
|
||||||
|
|
||||||
|
type
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Control)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(WinControl)
|
||||||
|
|
||||||
|
WINCONTROL_DECL_DEFAULT(CustomControl)
|
||||||
|
|
||||||
|
CONTROL_DECL_DEFAULT(GraphicControl)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(HintWindow)
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvExPubGraphicControl = class(TJvExGraphicControl)
|
||||||
|
COMMON_PUBLISHED
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
uses
|
||||||
|
TypInfo;
|
||||||
|
|
||||||
|
var
|
||||||
|
InternalFocusedColor: TColor = TColor($00733800);
|
||||||
|
InternalUnfocusedColor: TColor = clGray;
|
||||||
|
|
||||||
|
procedure SetDotNetFrameColors(FocusedColor, UnfocusedColor: TColor);
|
||||||
|
begin
|
||||||
|
InternalFocusedColor := FocusedColor;
|
||||||
|
InternalUnfocusedColor := UnfocusedColor;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
procedure DrawDotNetControl(Control: TWinControl; AColor: TColor; InControl: Boolean);
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
var
|
||||||
|
DC: HDC;
|
||||||
|
R: TRect;
|
||||||
|
Canvas: TCanvas;
|
||||||
|
begin
|
||||||
|
DC := GetWindowDC(Control.Handle);
|
||||||
|
try
|
||||||
|
GetWindowRect(Control.Handle, R);
|
||||||
|
OffsetRect(R, -R.Left, -R.Top);
|
||||||
|
Canvas := TCanvas.Create;
|
||||||
|
with Canvas do
|
||||||
|
try
|
||||||
|
Handle := DC;
|
||||||
|
Brush.Color := InternalUnfocusedColor;
|
||||||
|
if Control.Focused or InControl then
|
||||||
|
Brush.Color := InternalFocusedColor;
|
||||||
|
FrameRect(R);
|
||||||
|
InflateRect(R, -1, -1);
|
||||||
|
if not (Control.Focused or InControl) then
|
||||||
|
Brush.Color := AColor;
|
||||||
|
FrameRect(R);
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ReleaseDC(Control.Handle, DC);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure HandleDotNetHighlighting(Control: TWinControl; const Msg: TLMessage;
|
||||||
|
MouseOver: Boolean; Color: TColor);
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
var
|
||||||
|
Rgn, SubRgn: HRGN;
|
||||||
|
begin
|
||||||
|
if not (csDesigning in Control.ComponentState) then
|
||||||
|
case Msg.Msg of
|
||||||
|
CM_MOUSEENTER, CM_MOUSELEAVE, WM_KILLFOCUS, WM_SETFOCUS, WM_NCPAINT:
|
||||||
|
begin
|
||||||
|
DrawDotNetControl(Control, Color, MouseOver);
|
||||||
|
if Msg.Msg = CM_MOUSELEAVE then
|
||||||
|
begin
|
||||||
|
Rgn := CreateRectRgn(0, 0, Control.Width - 1, Control.Height - 1);
|
||||||
|
SubRgn := CreateRectRgn(2, 2, Control.Width - 3, Control.Height - 3);
|
||||||
|
try
|
||||||
|
CombineRgn(Rgn, Rgn, SubRgn, RGN_DIFF);
|
||||||
|
InvalidateRgn(Control.Handle, Rgn, False); // redraw 3D border
|
||||||
|
finally
|
||||||
|
DeleteObject(SubRgn);
|
||||||
|
DeleteObject(Rgn);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: Longint): TLMessage;
|
||||||
|
begin
|
||||||
|
Result.Msg := Msg;
|
||||||
|
Result.WParam := WParam;
|
||||||
|
Result.LParam := LParam;
|
||||||
|
Result.Result := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function CreateWMMessage(Msg: Integer; WParam: Integer; LParam: TControl): TLMessage;
|
||||||
|
begin
|
||||||
|
Result := CreateWMMessage(Msg, WParam, Integer(LParam));
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TStructPtrMessage }
|
||||||
|
constructor TStructPtrMessage.Create(AMsg: Integer; WParam: Integer; var LParam);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
Self.Msg.Msg := AMsg;
|
||||||
|
Self.Msg.WParam := WParam;
|
||||||
|
Self.Msg.LParam := Longint(@LParam);
|
||||||
|
Self.Msg.Result := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function SmallPointToLong(const Pt: TSmallPoint): Longint;
|
||||||
|
begin
|
||||||
|
Result := Longint(Pt);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function ShiftStateToKeyData(Shift: TShiftState): Longint;
|
||||||
|
const
|
||||||
|
AltMask = $20000000;
|
||||||
|
CtrlMask = $10000000;
|
||||||
|
ShiftMask = $08000000;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
if ssAlt in Shift then
|
||||||
|
Result := Result or AltMask;
|
||||||
|
if ssCtrl in Shift then
|
||||||
|
Result := Result or CtrlMask;
|
||||||
|
if ssShift in Shift then
|
||||||
|
Result := Result or ShiftMask;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
function GetFocusedControl(AControl: TControl): TWinControl;
|
||||||
|
var
|
||||||
|
Form: TCustomForm;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
Form := GetParentForm(AControl);
|
||||||
|
if Assigned(Form) then
|
||||||
|
Result := Form.ActiveControl;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
function DlgcToDlgCodes(Value: Longint): TDlgCodes;
|
||||||
|
begin
|
||||||
|
Result := [];
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
if (Value and DLGC_WANTARROWS) <> 0 then
|
||||||
|
Include(Result, dcWantArrows);
|
||||||
|
if (Value and DLGC_WANTTAB) <> 0 then
|
||||||
|
Include(Result, dcWantTab);
|
||||||
|
if (Value and DLGC_WANTALLKEYS) <> 0 then
|
||||||
|
Include(Result, dcWantAllKeys);
|
||||||
|
if (Value and DLGC_WANTCHARS) <> 0 then
|
||||||
|
Include(Result, dcWantChars);
|
||||||
|
if (Value and DLGC_BUTTON) <> 0 then
|
||||||
|
Include(Result, dcButton);
|
||||||
|
if (Value and DLGC_HASSETSEL) <> 0 then
|
||||||
|
Include(Result, dcHasSetSel);
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DlgCodesToDlgc(Value: TDlgCodes): Longint;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
if dcWantAllKeys in Value then
|
||||||
|
Result := Result or DLGC_WANTALLKEYS;
|
||||||
|
if dcWantArrows in Value then
|
||||||
|
Result := Result or DLGC_WANTARROWS;
|
||||||
|
if dcWantTab in Value then
|
||||||
|
Result := Result or DLGC_WANTTAB;
|
||||||
|
if dcWantChars in Value then
|
||||||
|
Result := Result or DLGC_WANTCHARS;
|
||||||
|
if dcButton in Value then
|
||||||
|
Result := Result or DLGC_BUTTON;
|
||||||
|
if dcHasSetSel in Value then
|
||||||
|
Result := Result or DLGC_HASSETSEL;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure GetHintColor(var HintInfo: THintInfo; AControl: TControl; HintColor: TColor);
|
||||||
|
var
|
||||||
|
AHintInfo: THintInfo;
|
||||||
|
begin
|
||||||
|
case HintColor of
|
||||||
|
clNone:
|
||||||
|
HintInfo.HintColor := Application.HintColor;
|
||||||
|
clDefault:
|
||||||
|
begin
|
||||||
|
if Assigned(AControl) and Assigned(AControl.Parent) then
|
||||||
|
begin
|
||||||
|
AHintInfo := HintInfo;
|
||||||
|
AControl.Parent.Perform(CM_HINTSHOW, 0, Integer(@AHintInfo));
|
||||||
|
HintInfo.HintColor := AHintInfo.HintColor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
HintInfo.HintColor := HintColor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DispatchIsDesignMsg(Control: TControl; var Msg: TLMessage): Boolean;
|
||||||
|
var
|
||||||
|
Form: TCustomForm;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
case Msg.Msg of
|
||||||
|
LM_SETFOCUS, LM_KILLFOCUS, LM_NCHITTEST,
|
||||||
|
LM_MOUSEFIRST..LM_MOUSELAST,
|
||||||
|
LM_KEYFIRST..LM_KEYLAST,
|
||||||
|
LM_CANCELMODE:
|
||||||
|
Exit; // These messages are handled in TWinControl.WndProc before IsDesignMsg() is called
|
||||||
|
end;
|
||||||
|
if (Control <> nil) and (csDesigning in Control.ComponentState) then
|
||||||
|
begin
|
||||||
|
Form := GetParentForm(Control);
|
||||||
|
if (Form <> nil) and (Form.Designer <> nil) and
|
||||||
|
Form.Designer.IsDesignMsg(Control, Msg) then
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
//=== { TJvHotTrackOptions } ======================================
|
||||||
|
|
||||||
|
constructor TJvHotTrackOptions.Create;
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
FEnabled := False;
|
||||||
|
FFrameVisible := False;
|
||||||
|
FColor := $00D2BDB6;
|
||||||
|
FFrameColor := $006A240A;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHotTrackOptions.Assign(Source: TPersistent);
|
||||||
|
begin
|
||||||
|
if Source is TJvHotTrackOptions then
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Enabled := TJvHotTrackOptions(Source).Enabled;
|
||||||
|
Color := TJvHotTrackOptions(Source).Color;
|
||||||
|
FrameVisible := TJvHotTrackOptions(Source).FrameVisible;
|
||||||
|
FrameColor := TJvHotTrackOptions(Source).FrameColor;
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
inherited Assign(Source);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHotTrackOptions.SetColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FColor <> Value then
|
||||||
|
begin
|
||||||
|
Changing;
|
||||||
|
ChangingProperty('Color');
|
||||||
|
FColor := Value;
|
||||||
|
ChangedProperty('Color');
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHotTrackOptions.SetEnabled(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FEnabled <> Value then
|
||||||
|
begin
|
||||||
|
Changing;
|
||||||
|
ChangingProperty('Enabled');
|
||||||
|
FEnabled := Value;
|
||||||
|
ChangedProperty('Enabled');
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHotTrackOptions.SetFrameVisible(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FFrameVisible <> Value then
|
||||||
|
begin
|
||||||
|
Changing;
|
||||||
|
ChangingProperty('FrameVisible');
|
||||||
|
FFrameVisible := Value;
|
||||||
|
ChangedProperty('FrameVisible');
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvHotTrackOptions.SetFrameColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FFrameColor <> Value then
|
||||||
|
begin
|
||||||
|
Changing;
|
||||||
|
ChangingProperty('FrameColor');
|
||||||
|
FFrameColor := Value;
|
||||||
|
ChangedProperty('FrameColor');
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
//============================================================================
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Control)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(WinControl)
|
||||||
|
|
||||||
|
CONTROL_IMPL_DEFAULT(GraphicControl)
|
||||||
|
|
||||||
|
WINCONTROL_IMPL_DEFAULT(CustomControl)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(HintWindow)
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
163
components/jvcllaz/devtools/JvExVCL/src/JvExExtCtrls.pas
Normal file
163
components/jvcllaz/devtools/JvExVCL/src/JvExExtCtrls.pas
Normal file
@ -0,0 +1,163 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvExExtCtrls.pas, released on 2004-01-04
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Andreas Hausladen [Andreas dott Hausladen att gmx dott de]
|
||||||
|
Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): -
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvExExtCtrls.pas 10613 2006-05-19 19:21:43Z jfudickar $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
unit JvExExtCtrls;
|
||||||
|
|
||||||
|
{MACROINCLUDE JvExControls.macros}
|
||||||
|
|
||||||
|
WARNINGHEADER
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, ExtCtrls, Forms, Graphics, JvExControls, LCLIntf, LMessages;
|
||||||
|
|
||||||
|
type
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Shape)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(PaintBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Image)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Bevel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomPanel)
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvExPubCustomPanel = class(TJvExCustomPanel)
|
||||||
|
COMMON_PUBLISHED
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomRadioGroup)
|
||||||
|
|
||||||
|
CONTROL_DECL_DEFAULT(Splitter)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(ControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Panel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(RadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Page)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Notebook)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Header)
|
||||||
|
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(BoundLabel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomLabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(LabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomColorBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_DECL_DEFAULT(ColorBox)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Shape)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(PaintBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Image)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Bevel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomPanel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomRadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(ControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Panel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(RadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Page)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Notebook)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Header)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(BoundLabel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomLabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(LabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomColorBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(ColorBox)
|
||||||
|
|
||||||
|
CONTROL_IMPL_DEFAULT(Splitter)
|
||||||
|
|
||||||
|
end.
|
||||||
19
components/jvcllaz/devtools/JvExVCL/src/build.pas
Normal file
19
components/jvcllaz/devtools/JvExVCL/src/build.pas
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
unit build;
|
||||||
|
interface
|
||||||
|
uses
|
||||||
|
JvExControls
|
||||||
|
// ,JvExButtons
|
||||||
|
// ,JvExCheckLst
|
||||||
|
// ,JvExComCtrls
|
||||||
|
// ,JvExExtCtrls
|
||||||
|
// ,JvExForms
|
||||||
|
// ,JvExGrids,
|
||||||
|
// ,JvExMask,
|
||||||
|
// {,JvExDBCtrls}
|
||||||
|
// ,JvExDBGrids,
|
||||||
|
// ,JvExStdCtrls
|
||||||
|
;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
1
components/jvcllaz/dist/readme.txt
vendored
Normal file
1
components/jvcllaz/dist/readme.txt
vendored
Normal file
@ -0,0 +1 @@
|
|||||||
|
Output directory for distribution packaging.
|
||||||
137
components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi
Normal file
137
components/jvcllaz/examples/JvNavigationPane/JvNavPaneDemo.lpi
Normal file
@ -0,0 +1,137 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<IconPath Value="./"/>
|
||||||
|
<TargetFileExt Value=".exe"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="2"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="6">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="JvNavPaneDemo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="JvNavPaneDemo"/>
|
||||||
|
<CursorPos X="36" Y="11"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="JvNavPaneDemoMainForm.pas"/>
|
||||||
|
<ComponentName Value="JvNavPaneDemoMainFrm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ResourceFilename Value="JvNavPaneDemoMainForm.lrs"/>
|
||||||
|
<UnitName Value="JvNavPaneDemoMainForm"/>
|
||||||
|
<CursorPos X="56" Y="345"/>
|
||||||
|
<TopLine Value="341"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="..\..\packages\JvXPBarReg.pp"/>
|
||||||
|
<UnitName Value="JvXPBarReg"/>
|
||||||
|
<CursorPos X="15" Y="20"/>
|
||||||
|
<TopLine Value="2"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="..\..\run\JvXPBar.pas"/>
|
||||||
|
<UnitName Value="JvXPBar"/>
|
||||||
|
<CursorPos X="3" Y="1758"/>
|
||||||
|
<TopLine Value="1747"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="..\..\packages\JvXPBarLaz.pas"/>
|
||||||
|
<UnitName Value="JvXPBarLaz"/>
|
||||||
|
<CursorPos X="5" Y="9"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="..\..\run\JvTypes.pas"/>
|
||||||
|
<UnitName Value="JvTypes"/>
|
||||||
|
<CursorPos X="12" Y="41"/>
|
||||||
|
<TopLine Value="26"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="..\..\resources\"/>
|
||||||
|
<OtherUnitFiles Value="..\..\run\"/>
|
||||||
|
<UnitOutputDirectory Value="..\..\out"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<CodeGeneration>
|
||||||
|
<Generate Value="Faster"/>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Watches Count="4">
|
||||||
|
<Item1>
|
||||||
|
<Expression Value="X"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Expression Value="Y"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Expression Value="SHIFT"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Expression Value="mc"/>
|
||||||
|
</Item4>
|
||||||
|
</Watches>
|
||||||
|
<Exceptions Count="2">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item2>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,18 @@
|
|||||||
|
program JvNavPaneDemo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms
|
||||||
|
{ add your units here }, JvNavPaneDemoMainForm;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TJvNavPaneDemoMainFrm, JvNavPaneDemoMainFrm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,776 @@
|
|||||||
|
object JvNavPaneDemoMainFrm: TJvNavPaneDemoMainFrm
|
||||||
|
Left = 105
|
||||||
|
Height = 468
|
||||||
|
Top = 109
|
||||||
|
Width = 518
|
||||||
|
HorzScrollBar.Page = 517
|
||||||
|
VertScrollBar.Page = 467
|
||||||
|
Caption = 'JvNavigationPane Demo'
|
||||||
|
DockSite = True
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
OnCreate = FormCreate
|
||||||
|
object PopupMenu1: TPopupMenu
|
||||||
|
OnPopup = PopupMenu1Popup
|
||||||
|
left = 92
|
||||||
|
top = 64
|
||||||
|
object HideAll1: TMenuItem
|
||||||
|
Caption = 'Hide All'
|
||||||
|
OnClick = HideAll1Click
|
||||||
|
end
|
||||||
|
object ShowAll1: TMenuItem
|
||||||
|
Caption = 'Show All'
|
||||||
|
OnClick = ShowAll1Click
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object ChangeFont1: TMenuItem
|
||||||
|
Caption = 'Font...'
|
||||||
|
OnClick = ChangeFont1Click
|
||||||
|
end
|
||||||
|
object Colors1: TMenuItem
|
||||||
|
Caption = 'Colors'
|
||||||
|
object Standard1: TMenuItem
|
||||||
|
Caption = 'Standard'
|
||||||
|
Checked = True
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
OnClick = SchemaClick
|
||||||
|
end
|
||||||
|
object Blue1: TMenuItem
|
||||||
|
Tag = 1
|
||||||
|
Caption = 'Blue'
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
OnClick = SchemaClick
|
||||||
|
end
|
||||||
|
object Silver1: TMenuItem
|
||||||
|
Tag = 2
|
||||||
|
Caption = 'Silver'
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
OnClick = SchemaClick
|
||||||
|
end
|
||||||
|
object Olive1: TMenuItem
|
||||||
|
Tag = 3
|
||||||
|
Caption = 'Olive'
|
||||||
|
GroupIndex = 1
|
||||||
|
RadioItem = True
|
||||||
|
OnClick = SchemaClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object BackgroundImage1: TMenuItem
|
||||||
|
Caption = 'Background Image...'
|
||||||
|
OnClick = BackgroundImage1Click
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object Dontallowresize1: TMenuItem
|
||||||
|
Caption = 'Don''t allow resize'
|
||||||
|
OnClick = Dontallowresize1Click
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object ShowToolPanel1: TMenuItem
|
||||||
|
Caption = 'Show Tool Panel'
|
||||||
|
OnClick = ShowToolPanel1Click
|
||||||
|
end
|
||||||
|
object ShowCloseButton1: TMenuItem
|
||||||
|
Caption = 'Show Close Button'
|
||||||
|
OnClick = ShowCloseButton1Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object LargeImages: TImageList
|
||||||
|
Height = 20
|
||||||
|
Width = 24
|
||||||
|
left = 92
|
||||||
|
top = 16
|
||||||
|
Bitmap = {
|
||||||
|
4C69060000001800000014000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000CEB59CFFC6AD9CFFCEAD
|
||||||
|
9CFFCEAD9CFF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000BDBDBDFFE7C6B5FFC6F7FFFFC6F7FFFFADE7
|
||||||
|
F7FFC6AD9CFFCEAD9CFF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000CEAD9CFFDED6CEFFC6EFFFFFC6EFFFFFC6F7FFFFADE7
|
||||||
|
F7FF7BD6F7FF8CC6D6FFAD9484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000BDBDBDFFCEBDB5FFC6F7FFFFC6EFFFFFC6F7FFFFC6F7FFFFC6EFFFFF8CE7
|
||||||
|
FFFF7BDEF7FF6BC6F7FF6BCEF7FFAD9484FF0000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000CEAD
|
||||||
|
9CFFDED6CEFFC6EFFFFFC6F7FFFFC6EFFFFFC6F7FFFFC6EFFFFFADE7F7FF8CE7
|
||||||
|
F7FF84D6F7FF63CEF7FF6BC6F7FF4ABDF7FFBDBDBDFF849CA5FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000CEAD9CFFC6F7
|
||||||
|
FFFFC6F7FFFFC6EFFFFFC6F7FFFFA5E7F7FF94E7FFFF7BD6F7FF7BD6F7FF84D6
|
||||||
|
F7FF7BD6F7FF6BC6F7FF6BCEF7FF4AB5EFFF52B5F7FF4ABDF7FFAD9484FF0000
|
||||||
|
00000000000000000000000000000000000000000000C6AD9CFFC6F7FFFFADE7
|
||||||
|
F7FFA5E7F7FF94E7F7FF7BD6F7FF6BC6F7FF63CEF7FF52B5EFFF4ABDF7FF4AB5
|
||||||
|
F7FF52BDF7FF31B5DEFF39ADF7FF31A5EFFF21A5EFFF39A5EFFF39ADF7FFA57B
|
||||||
|
6BFF0000000000000000000000000000000000000000CEAD9CFF63C6F7FFF7EF
|
||||||
|
EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7
|
||||||
|
E7FFF7EFEFFFF7F7EFFFF7EFEFFFADE7F7FFADE7EFFF94C6D6FF31ADEFFF9C7B
|
||||||
|
6BFF0000000000000000000000000000000000000000D6AD84FF7BD6F7FFF7F7
|
||||||
|
EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7EF
|
||||||
|
EFFFEFEFEFFFF7EFE7FFEFEFEFFFF7F7EFFFF7EFEFFFDEC6ADFF31A5F7FF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000CEADA5FFC6AD9CFFFFDE
|
||||||
|
C6FFFFFFFFFFF7DECEFFFFDEC6FFF7F7EFFFFFDECEFFFFDEC6FFFFDECEFFF7DE
|
||||||
|
C6FFF7F7EFFFF7EFEFFFEFF7EFFFF7EFEFFFEFEFEFFFD6BDADFFA57B6BFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000D6AD84FFFFDECEFFC6AD
|
||||||
|
9CFFFFFFFFFFF7F7EFFFD6CECEFFDED6CEFFD6D6CEFFD6D6CEFFDED6CEFFD6D6
|
||||||
|
CEFFDEBDADFFDEC6ADFFE7C6ADFFD6CECEFFF7F7EFFF9C7B6BFFE7AD8CFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000D6A58CFFFFFFFFFFFFE7
|
||||||
|
CEFFC6AD9CFFFFFFFFFFFFFFFFFFCEA584FFD6A58CFFD6A584FFAD948CFFAD94
|
||||||
|
8CFFAD948CFFAD948CFFF7EFEFFFF7F7EFFF9C736BFFE7BD94FFFFCEA5FF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000CE9C7BFFFFFFFFFFEFEF
|
||||||
|
EFFFF7F7EFFFC6AD9CFFD6A58CFFFFE7CEFFEFEFEFFFF7F7EFFFF7EFEFFFF7F7
|
||||||
|
EFFFEFEFEFFFF7D6B5FF9C7B6BFFAD948CFFEFB594FFF7D6BDFFFFCE9CFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000AD9484FFF7EFEFFFEFF7
|
||||||
|
EFFFF7EFEFFFD6A584FFEFF7EFFFF7EFEFFFEFEFEFFFF7EFEFFFEFEFEFFFEFEF
|
||||||
|
EFFFFFE7C6FFFFDECEFFFFCEA5FF9C7B6BFFFFCE9CFFFFCE9CFFF7C68CFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000AD948CFFF7F7EFFFF7EF
|
||||||
|
EFFFCEA584FFF7F7EFFFF7EFEFFFEFEFEFFFF7F7E7FFEFEFEFFFF7F7EFFFFFDE
|
||||||
|
C6FFF7D6C6FFF7DEBDFFF7D6B5FFF7C68CFF9C7B6BFFF7B58CFFF7A573FF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000AD9484FFF7EFEFFFC6AD
|
||||||
|
9CFFEFEFEFFFF7EFEFFFEFEFEFFFF7F7EFFFF7DEC6FFFFDECEFFF7DEC6FFF7D6
|
||||||
|
C6FFF7D6B5FFF7D6BDFFFFCE9CFFF7C68CFFFFAD8CFF9C7B6BFFE7946BFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000AD9484FFC6B59CFFF7F7
|
||||||
|
EFFFF7EFEFFFEFF7EFFFFFDEC6FFF7D6BDFFF7D6BDFFF7D6B5FFF7D6BDFFF7CE
|
||||||
|
ADFFFFCE9CFFFFCEA5FFF7BD8CFFE7B594FFF7A573FFE7946BFF9C7B6BFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000C69C7BFFFFDEC6FFEFEF
|
||||||
|
EFFFFFDEC6FFF7D6BDFFFFCE9CFFF7C68CFFE7B594FFF7AD8CFFF7B58CFFF7A5
|
||||||
|
73FFEFA57BFFF7A573FFE79C63FFE79463FFE79C6BFFE79463FFCE7B4AFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000CE9C7BFF9C7B6BFF9C7B
|
||||||
|
6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B
|
||||||
|
6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B
|
||||||
|
6BFF4A4231FF00000000000000000000000000000000000000004A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF0000000000000000000000004A3931FF000000004A3929FF0000
|
||||||
|
00004A3931FF000000004A3931FF000000004A3931FF000000004A3929FF0000
|
||||||
|
00004A3931FF000000004A3931FF000000004A3931FF000000004A3931FF0000
|
||||||
|
00004A3931FF0000000000000000AD948CFF00000000AD948CFF00000000AD94
|
||||||
|
8CFF00000000AD948CFF00000000A57B6BFF000000009C7B6BFF00000000A57B
|
||||||
|
6BFF00000000A57B6BFF000000006B6352FF00000000735A52FF000000006B5A
|
||||||
|
52FF000000000000000000000000E7AD8CFFE7B58CFFE7B58CFFF7A573FFDEA5
|
||||||
|
7BFFDEAD84FFDEA57BFFE79C63FFE7946BFFE79463FFEF9C6BFFE79463FFD684
|
||||||
|
5AFFD68452FFD6845AFFDE7B4AFFE77B4AFFDE7B4AFFDE7B4AFFE77B4AFFDE7B
|
||||||
|
4AFF4A4231FF0000000000000000E7B58CFFFFDECEFFF7DECEFFFFDECEFFF7DE
|
||||||
|
C6FFFFD6BDFFF7D6BDFFF7CEB5FFF7CEB5FFF7CEB5FFF7BD9CFFF7BDA5FFF7BD
|
||||||
|
9CFFF7B58CFFF7B58CFFF7B58CFFF7A57BFFF7A573FFF7A57BFFF7A573FFE794
|
||||||
|
6BFF4A4231FF0000000000000000E7AD8CFFF7DEC6FFFFDEBDFFF7DEC6FFF7CE
|
||||||
|
ADFFEFCEB5FFF7CEADFFFFCE9CFFF7BD9CFFEFBD9CFFF7B58CFFF7B58CFFF7B5
|
||||||
|
8CFFF7A573FFF7A573FFF7A573FFEFA573FFF7A57BFFE79C63FFE7946BFFE79C
|
||||||
|
63FF4A4231FF0000000000000000F7A573FFF7A573FFF7A57BFFDEA57BFFDEA5
|
||||||
|
7BFFDEA57BFFE79463FFE7946BFFE79463FFE79C6BFFE79463FFD68452FFCE84
|
||||||
|
52FFD68452FFDE7B4AFFDE7B4AFFDE7B4AFFDE7B4AFFDE7B4AFF4A4231FF4A42
|
||||||
|
31FF4A4231FF0000000000000000CEBDB5FFFFFFFFFFFFFFFFFFFFFFFFFFEFBD
|
||||||
|
9CFFFFFFFFFFFFFFFFFFFFFFFFFFEFC69CFFFFFFFFFFF7EFEFFFF7F7F7FFEFBD
|
||||||
|
9CFFFFFFFFFFEFEFF7FFF7F7EFFFEFBD9CFFF7EFEFFFF7F7EFFFFFDECEFFE7BD
|
||||||
|
9CFF4A4231FF0000000000000000CEBDADFFFFFFFFFFEFF7EFFFF7EFEFFFE7BD
|
||||||
|
9CFFFFFFFFFFF7EFEFFFF7F7EFFFCEA58CFFF7EFEFFFEFF7EFFFF7DECEFFD6A5
|
||||||
|
84FFEFEFEFFFF7EFEFFFF7DEC6FFD6A584FFEFEFEFFFF7DECEFFF7CEB5FFCE9C
|
||||||
|
7BFF4A4231FF0000000000000000CEBDADFFFFFFFFFFF7EFEFFFEFEFEFFFD6A5
|
||||||
|
84FFFFFFFFFFEFF7EFFFFFDECEFFC69C7BFFF7EFEFFFFFDEC6FFF7DECEFFC69C
|
||||||
|
7BFFF7F7EFFFF7D6BDFFF7CEADFFC69C7BFFFFDECEFFF7CEADFFFFCE9CFFC69C
|
||||||
|
7BFF4A4231FF0000000000000000CEAD9CFFE7BD9CFFEFBD94FFCEA584FFD6AD
|
||||||
|
8CFFE7B594FFE7AD8CFFCE9C7BFFC69C7BFFE7BD94FFD6A584FFCE9C7BFF398C
|
||||||
|
D6FF428CD6FF398CD6FF1842CEFF1842CEFFE7BD94FFD6A58CFFC69C7BFFA57B
|
||||||
|
73FF4A4231FF0000000000000000C6B59CFFFFFFFFFFFFFFFFFFF7EFEFFFE7B5
|
||||||
|
94FFFFFFFFFFF7F7EFFFEFEFEFFFEFB594FFEFEFEFFFF7F7EFFFEFEFEFFF428C
|
||||||
|
D6FFF7F7EFFFF7EFEFFFFFE7CEFF1839CEFFFFE7CEFFF7DEC6FFFFE7CEFFE7B5
|
||||||
|
94FF4A4231FF0000000000000000C6ADA5FFFFFFFFFFF7EFEFFFEFF7EFFFD6A5
|
||||||
|
8CFFFFFFFFFFF7EFEFFFF7E7CEFFD6A58CFFEFEFEFFFF7EFEFFFFFE7C6FF398C
|
||||||
|
D6FFFFDECEFFF7D6BDFFFFDEBDFF1042CEFFFFDECEFFF7D6BDFFF7CEB5FFCE9C
|
||||||
|
7BFF4A4231FF0000000000000000C6AD9CFFFFFFFFFFF7F7EFFFF7DECEFFCE9C
|
||||||
|
7BFFEFF7EFFFFFDEC6FFF7D6BDFFCE9C7BFFEFF7EFFFFFDECEFFF7D6B5FF1839
|
||||||
|
CEFFFFDEBDFFF7D6BDFFF7CEADFF1842CEFFFFDEBDFFEFC6A5FFEFBD9CFFC69C
|
||||||
|
7BFF4A3931FF0000000000000000CEB59CFFE7B594FFD6A584FFC69C7BFFCE9C
|
||||||
|
7BFFE7B594FFCEA58CFFCE9C7BFFC69C7BFFEFB594FFCEA58CFFCE9C7BFF1842
|
||||||
|
CEFF1042CEFF1842CEFF1842CEFF1042D6FFE7AD8CFFC69C7BFFAD948CFFA57B
|
||||||
|
6BFF4A4231FF0000000000000000C6ADA5FFFFFFFFFFF7F7EFFFF7EFEFFFE7B5
|
||||||
|
94FFF7F7EFFFF7F7EFFFEFEFEFFFE7BD94FFF7EFEFFFFFE7CEFFF7DECEFFEFBD
|
||||||
|
94FFFFDECEFFFFE7CEFFFFDEBDFFEFB594FFF7DEC6FFFFDEC6FFF7CEADFFE7B5
|
||||||
|
9CFF4A4231FF0000000000000000C6B59CFFF7EFEFFFEFEFEFFFF7F7EFFFCEA5
|
||||||
|
8CFFF7EFEFFFF7DEC6FFFFDECEFFD6A584FFF7DECEFFF7D6BDFFFFDEBDFFC69C
|
||||||
|
7BFFFFDECEFFF7D6BDFFF7CEB5FFC69C7BFFFFD6BDFFEFCEB5FFFFCE9CFFCE9C
|
||||||
|
7BFF4A3931FF0000000000000000D6A58CFFF7F7EFFFEFEFEFFFF7DEBDFFCE9C
|
||||||
|
7BFFEFF7EFFFF7D6C6FFF7CEADFFC69C7BFFFFE7CEFFF7D6BDFFFFCEA5FFC69C
|
||||||
|
7BFFF7DEBDFFF7CEB5FFF7BD9CFFC69C7BFFF7CEB5FFF7BD9CFFE7BD94FFCE9C
|
||||||
|
7BFF4A4231FF0000000000000000CEA58CFFF7D6B5FFE7B594FFD6A58CFFC69C
|
||||||
|
7BFFE7AD8CFFCE9C7BFFAD948CFF9C7B6BFFE7AD8CFFCE9C7BFFAD948CFF9C7B
|
||||||
|
6BFFE7AD8CFFC69C7BFFAD948CFF9C7B6BFFE7B58CFFC69C7BFFAD948CFFA57B
|
||||||
|
73FF4A3931FF0000000000000000D6A58CFF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000CEBDADFFCEBDB5FFD6BD
|
||||||
|
ADFFCEBDADFFCEBDADFFCEBDADFFD6BDB5FFCEBDADFFCEAD9CFFC6B5A5FFCEAD
|
||||||
|
9CFFC6B59CFFC6AD9CFFC6B59CFFCEAD9CFFC6B59CFFD6A58CFFCEA584FFD6A5
|
||||||
|
8CFFAD948CFFAD9484FFAD948CFF0000000000000000D6BDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEFEFEFFFF7F7EFFF4A4231FF0000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFF7EFEFFFB5BDBDFFAD948CFF6B7B8CFF6B848CFFBDBDBDFFF7EFEFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7EFFFF7EF
|
||||||
|
EFFFEFF7EFFFFFD6C6FF4A4231FF0000000000000000CEBDB5FFFFFFFFFFFFFF
|
||||||
|
FFFFBDBDBDFF6B848CFF6B7B8CFF8C9CA5FFAD948CFF6B5A52FFB5BDBDFFFFFF
|
||||||
|
FFFFFFFFFFFFF7AD8CFFF7B58CFFF7B58CFFF7A573FFF7A57BFFEFA573FFF7A5
|
||||||
|
73FFEFEFEFFFFFDEC6FF4A4231FF0000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFF6B7B8CFF6B5A52FF736352FF6B848CFF6B5A52FFBDBDBDFF6B7B8CFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFF7F7EFFFEFEFEFFFF7F7
|
||||||
|
EFFFEFEFEFFFF7D6B5FF4A4231FF0000000000000000D6BDADFFFFFFFFFFFFFF
|
||||||
|
FFFF736352FF4A3931FFBDBDBDFFDED6D6FFBDBDBDFF8C9CA5FF6B848CFFFFFF
|
||||||
|
FFFFFFFFFFFFFFB58CFFF7AD8CFFF7B58CFFF7A573FFEFA573FFF7A573FFF7A5
|
||||||
|
73FFF7EFEFFFF7CEADFF4A4231FF0000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFF4A3931FF4A4231FFDED6D6FFB5B5BDFF849CA5FF6B7B8CFF6B6352FFFFFF
|
||||||
|
FFFFFFFFFFFFEFF7EFFFF7EFEFFFF7F7EFFFEFEFEFFFF7EFEFFFEFEFEFFFF7F7
|
||||||
|
EFFFEFEFEFFFF7BD9CFF4A4231FF0000000000000000CEADA5FFFFFFFFFFFFFF
|
||||||
|
FFFFBDBDBDFF000000FFBDBDBDFF8C9CA5FF6B848CFF735A52FF849CA5FFF7EF
|
||||||
|
EFFFF7F7EFFFF7EFEFFFF7EFEFFFEFEFEFFFF7EFEFFFEFF7EFFFF7EFEFFFEFEF
|
||||||
|
EFFFFFE7CEFFF7BDA5FF4A4231FF0000000000000000C6AD9CFFFFFFFFFFFFFF
|
||||||
|
FFFFF7F7EFFFDECECEFF6B5A52FF6B6352FF735A52FF1842D6FFBDBDBDFFF7F7
|
||||||
|
EFFFEFEFEFFFEFEFE7FFF7F7EFFFEFEFEFFFF7F7EFFFF7EFEFFFF7DEC6FFFFDE
|
||||||
|
C6FFF7DECEFFEFB594FF4A4231FF0000000000000000CEAD9CFFFFFFFFFFFFFF
|
||||||
|
FFFFB5CEDEFF1842CEFF1842CEFFDED6D6FFF7F7EFFF1842CEFF1839CEFFD6D6
|
||||||
|
CEFFF7EFEFFFC69C7BFFCE9C7BFF9C7B6BFF9C736BFF9C7B6BFF9C7B6BFF9C7B
|
||||||
|
6BFFF7E7C6FFFFB58CFF4A4231FF0000000000000000C6AD9CFFFFFFFFFFFFFF
|
||||||
|
FFFF1842CEFF84ADC6FF398CD6FF1842CEFF1884BDFF1842CEFF188CC6FF1842
|
||||||
|
CEFFF7F7EFFFF7EFEFFFEFEFEFFFF7F7EFFFFFDEC6FFFFE7CEFFFFDECEFFFFD6
|
||||||
|
C6FFF7DEC6FFF7A573FF4A4231FF0000000000000000CEB5A5FFFFFFFFFFFFFF
|
||||||
|
FFFF1842CEFF39ADEFFF428CD6FF428CD6FF1842CEFF188CBDFF1842CEFF315A
|
||||||
|
73FFF7EFEFFFC69C7BFFA57B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C7B6BFF9C73
|
||||||
|
6BFFF7DEC6FFF7A573FF4A4231FF0000000000000000C6AD9CFFFFFFFFFFFFFF
|
||||||
|
FFFF1842CEFF188CBDFF428CD6FF428CD6FF1842CEFF188CC6FF2142CEFF3963
|
||||||
|
7BFFF7F7EFFFFFDECEFFF7DEC6FFFFDECEFFFFDECEFFFFDEC6FFF7DEBDFFFFDE
|
||||||
|
C6FFF7D6B5FFF7A57BFF4A4231FF0000000000000000C6AD9CFFFFFFFFFFF7F7
|
||||||
|
EFFFDED6CEFF1842CEFF1842CEFF1842CEFF1842CEFF396373FF39637BFFCEBD
|
||||||
|
ADFFFFDECEFF9C7B6BFFA57B6BFF9C7B6BFF9C7B6BFF9C736BFF9C7B6BFF9C73
|
||||||
|
6BFFF7CEB5FFE79463FF4A4231FF0000000000000000D6A58CFFF7F7EFFFF7EF
|
||||||
|
EFFFF7EFEFFFF7F7EFFFF7F7EFFFF7F7EFFFF7F7EFFFF7EFEFFFFFDECEFFFFE7
|
||||||
|
C6FFF7DECEFFFFDECEFFF7DEBDFFFFDEC6FFF7DEC6FFFFD6BDFFF7CEADFFF7CE
|
||||||
|
B5FFF7CEADFFE79463FF4A4231FF0000000000000000CEA584FFF7EFEFFFF7DE
|
||||||
|
C6FFF7D6C6FFF7DEC6FFF7CEBDFFF7D6B5FFF7C6ADFFEFC6ADFFF7BD9CFFEFBD
|
||||||
|
9CFFE7B594FFE7B58CFFF7AD8CFFF7A573FFF7A573FFEFA573FFF7A57BFFE794
|
||||||
|
63FFE79463FFEF9C6BFF4A4231FF0000000000000000D6A58CFF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A4231FF4A42
|
||||||
|
31FF4A4231FF4A4231FF4A4231FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000849CA5FF849CA5FF849CA5FF8C9C
|
||||||
|
A5FF6B7B8CFF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000DEC6B5FFCEBD
|
||||||
|
ADFFD6BDADFFCEBDB5FFCEBDADFF8C9CA5FF8CC6D6FFC6EFFFFFC6F7FFFFADE7
|
||||||
|
F7FF8CC6D6FF6B7B8CFFCEAD9CFFC6B5A5FFCEAD9CFFC6AD9CFFC6ADA5FF0000
|
||||||
|
00000000000000000000000000000000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFF7EFEFFF849CA5FFC6F7FFFF6B7B8CFF6B7B8CFF8C9C
|
||||||
|
A5FF8CC6CEFF31637BFFCEAD9CFFF7F7EFFFEFEFEFFFF7F7EFFFF7EFEFFF849C
|
||||||
|
A5FF0000000000000000000000000000000000000000D6BDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF8C9CA5FF8CBDD6FFADF7FFFF6B848CFF84ADC6FF8CC6
|
||||||
|
D6FF6BCEF7FF6B7B8CFF31637BFFFFDEC6FFEFEFEFFFF7F7EFFFB5CED6FF395A
|
||||||
|
7BFF0000000000000000000000000000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF849CA5FFADE7F7FFADE7EFFF8CBDD6FF8CC6CEFF8CC6
|
||||||
|
CEFF84ADC6FF84ADC6FF6B848CFFFFDEC6FFEFEFEFFFB5CED6FF1842CEFF428C
|
||||||
|
D6FF0000000000000000000000000000000000000000D6BDB5FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF6B848CFF6B7B8CFF6B7B8CFF396373FF39637BFF395A
|
||||||
|
7BFF396373FF6B7B8CFFAD948CFFFFDEBDFFA5ADF7FF1842CEFF428CD6FFCEA5
|
||||||
|
8CFF0000000000000000000000000000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7EFFFF7F7EFFFFFDECEFFF7DEC6FFFFD6
|
||||||
|
B5FFEFC6ADFFF7D6BDFFFFDEC6FFA5ADF7FF398CD6FF428CD6FFFFE7C6FF9C7B
|
||||||
|
6BFF0000000000000000000000000000000000000000CEBDB5FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEF
|
||||||
|
EFFFF7F7EFFFF7EFEFFFB5CED6FF1842CEFF1842CEFFB5CED6FFFFDECEFF9C7B
|
||||||
|
6BFF0000000000000000000000000000000000000000D6BDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7EFEFFFF7EF
|
||||||
|
EFFFEFEFEFFFA5ADF7FF398CD6FF1842CEFFBDBDBDFFFFDECEFFF7D6BDFF6B5A
|
||||||
|
52FF0000000000000000000000000000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7EFEFFFEFEFEFFFF7F7
|
||||||
|
EFFFA5B5F7FF428CD6FF1842CEFF84ADBDFFFFDECEFFFFE7C6FFF7C6ADFF6B63
|
||||||
|
52FF0000000000000000000000000000000000000000CEBDADFFFFFFFFFFFFFF
|
||||||
|
FFFFA5ADFFFFB5CED6FFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFF7F7E7FFA5AD
|
||||||
|
F7FF398CD6FF1842CEFF8C9CA5FFDED6CEFFF7DECEFFF7DEBDFFF7BD9CFF6B5A
|
||||||
|
52FF0000000000000000000000000000000000000000CEBDB5FFF7F7EFFFA5AD
|
||||||
|
F7FF428CD6FF398CD6FFA5ADF7FFFFFFFFFFF7EFEFFFF7F7EFFFA5ADF7FF428C
|
||||||
|
D6FF1842CEFF398CD6FFFFDEC6FFF7E7CEFFFFD6BDFFF7DEC6FFEFBD9CFF6B63
|
||||||
|
52FF0000000000000000000000000000000000000000E7BDADFFA5E7F7FF1842
|
||||||
|
CEFF1842CEFF1842CEFFADB5F7FFA5ADF7FFEFF7EFFFA5ADF7FF398CD6FF1842
|
||||||
|
CEFF1842CEFFE7D6CEFFFFDECEFFF7D6BDFFF7DEC6FFF7CEADFFE7AD8CFF6B5A
|
||||||
|
52FF0000000000000000000000000000000000000000CEAD9CFFFFFFFFFFADB5
|
||||||
|
F7FF1842CEFF1842CEFF1842CEFFA5ADF7FFA5ADF7FF428CD6FF1842CEFF1842
|
||||||
|
CEFFBDBDBDFFFFE7C6FFF7D6C6FFF7DEBDFFF7D6C6FFF7C6ADFFE7B58CFF4A42
|
||||||
|
31FF0000000000000000000000000000000000000000C6B59CFFFFFFFFFFFFFF
|
||||||
|
FFFFBDCED6FF1842CEFF1842CEFF1842CEFF428CD6FF1842CEFF1842CEFF428C
|
||||||
|
D6FFFFDECEFFF7DECEFFF7DEBDFFFFD6C6FFF7D6B5FFEFC6ADFFF7B58CFF4A39
|
||||||
|
31FF0000000000000000000000000000000000000000CEAD9CFFFFFFFFFFFFFF
|
||||||
|
FFFFF7EFEFFFBDD6DEFF1842CEFF2142CEFF1842CEFF1842CEFF1842CEFFDED6
|
||||||
|
CEFFF7DEC6FFFFDEBDFFF7D6C6FFF7D6B5FFF7CEB5FFEFC6A5FFF7A573FF4A39
|
||||||
|
31FF0000000000000000000000000000000000000000C6AD9CFFFFFFFFFFF7F7
|
||||||
|
EFFFEFEFEFFFF7EFEFFFB5CED6FF1842CEFF1842CEFF2142CEFFD6C6ADFFF7D6
|
||||||
|
BDFFF7D6BDFFF7CEADFFEFC6ADFFF7C6ADFFF7BD9CFFE7BD94FFF7A57BFF4A42
|
||||||
|
31FF0000000000000000000000000000000000000000CEAD9CFFEFF7EFFFFFD6
|
||||||
|
C6FFF7D6BDFFEFC6A5FFF7CEADFF8C9CA5FF1842CEFFAD9C8CFFE7B594FFE7AD
|
||||||
|
8CFFE7AD8CFFE7AD8CFFF7B58CFFF7B58CFFEFA573FFF7A57BFFEF9463FF4A42
|
||||||
|
31FF0000000000000000000000000000000000000000CEAD8CFF9C736BFF6B5A
|
||||||
|
52FF6B6352FF735A52FF6B5A52FF6B6352FFA57B6BFF6B5A52FF736352FF6B5A
|
||||||
|
52FF4A4231FF4A4231FF4A3931FF4A4231FF4A3931FF4A4231FF4A4231FF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000008CC6D6FF8CBD
|
||||||
|
D6FF8CC6D6FF8CC6CEFF8CBDD6FF8CC6CEFF8CC6D6FF8CBDD6FF8CC6CEFF94BD
|
||||||
|
D6FF7BADC6FF84ADC6FF7BADC6FF84ADC6FF7BADBDFF84ADC6FF7BADC6FF84AD
|
||||||
|
BDFF7BADC6FF00000000000000000000000000000000000000008CC6CEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF395A7BFF000000000000000000000000000000000000000094BDD6FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF39637BFF00000000000000000000000000000000000000008CC6D6FFFFFF
|
||||||
|
FFFFCEF7FFFFC6EFFFFFC6F7FFFFCEF7FFFFC6EFFFFFC6F7FFFFC6F7FFFFC6F7
|
||||||
|
FFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7
|
||||||
|
FFFF395A7BFF00000000000000000000000000000000000000008CC6CEFFC6EF
|
||||||
|
FFFFA5F7FFFFA5F7FFFFADEFFFFFA5F7FFFFA5F7FFFFADF7FFFFA5EFFFFFADF7
|
||||||
|
FFFFA5EFFFFFADF7FFFFA5EFFFFFADF7FFFFA5EFFFFFADF7FFFFA5EFFFFFADF7
|
||||||
|
FFFF396373FF00000000000000000000000000000000000000008CC6D6FFC6F7
|
||||||
|
FFFFADF7FFFFA5F7F7FFADF7FFFFA5F7F7FFADEFFFFFA5F7F7FFADF7FFFFA5F7
|
||||||
|
F7FFADF7FFFFA5F7F7FFADF7FFFFA5F7F7FFADF7FFFFA5F7FFFFADF7FFFFA5F7
|
||||||
|
FFFF315A73FF00000000000000000000000000000000000000008CC6CEFFC6EF
|
||||||
|
FFFFA5EFFFFFADF7FFFFA5EFFFFFADF7FFFFA5F7FFFFA5F7FFFFADF7FFFFA5EF
|
||||||
|
FFFFA5F7FFFFADF7FFFFA5EFFFFFA5F7FFFFADF7FFFFA5EFFFFFA5F7F7FFADF7
|
||||||
|
FFFF39637BFF00000000000000000000000000000000000000007BADBDFF94E7
|
||||||
|
FFFF8CE7F7FFA5F7FFFFADF7F7FFA5F7FFFFADEFF7FFA5F7FFFFADF7F7FFA5F7
|
||||||
|
FFFFADF7F7FFA5EFFFFFADF7F7FFA5F7FFFFADF7F7FFA5F7FFFFADF7FFFFA5F7
|
||||||
|
FFFF395A73FF000000000000000000000000000000000000000084ADBDFF8CE7
|
||||||
|
FFFF94E7F7FFA5F7FFFFADEFFFFFA5F7FFFFA5F7FFFFADF7FFFFA5F7FFFFA5EF
|
||||||
|
FFFFADF7FFFFA5F7FFFFA5F7FFFFADF7FFFFA5EFFFFFADF7F7FFA5EFFFFFADF7
|
||||||
|
FFFF31637BFF00000000000000000000000000000000000000007BADC6FF84D6
|
||||||
|
F7FF8CE7FFFF8CE7F7FF8CE7F7FF94E7F7FF8CDEFFFF8CE7F7FF94E7F7FF8CE7
|
||||||
|
F7FF8CE7FFFF94DEF7FF8CE7F7FF8CE7FFFF8CE7F7FF8CE7FFFF94E7F7FF8CE7
|
||||||
|
FFFF395A73FF000000000000000000000000000000000000000084ADBDFF63C6
|
||||||
|
F7FF94E7F7FF8CE7FFFF94E7FFFF8CE7F7FF8CE7FFFF94E7F7FF8CDEFFFF94E7
|
||||||
|
FFFF8CE7F7FF94E7FFFF8CE7F7FF94DEFFFF8CE7F7FF94E7FFFF8CE7F7FF94E7
|
||||||
|
FFFF31637BFF00000000000000000000000000000000000000007BADC6FF52BD
|
||||||
|
F7FF7BD6F7FF94E7F7FF8CDEFFFF94E7F7FF8CE7FFFF8CE7F7FF94E7FFFF8CE7
|
||||||
|
F7FF8CE7FFFF8CE7F7FF94E7FFFF8CE7F7FF94E7FFFF8CDEF7FF8CE7FFFF94E7
|
||||||
|
F7FF395A73FF000000000000000000000000000000000000000084ADBDFF319C
|
||||||
|
CEFF39B5E7FF4ABDEFFF4AB5F7FF39B5DEFF39B5E7FF84D6F7FF8CE7F7FF8CDE
|
||||||
|
FFFF94E7F7FF8CE7FFFF94DEF7FF8CE7FFFF8CE7F7FF94E7FFFF8CE7F7FF94E7
|
||||||
|
FFFF31637BFF000000000000000000000000000000000000000084ADC6FF39B5
|
||||||
|
E7FF39B5DEFF39B5E7FF39B5E7FF39B5DEFF00A5DEFF6BCEF7FF7BD6F7FF84D6
|
||||||
|
F7FF7BD6F7FF84D6F7FF7BD6F7FF7BD6F7FF84D6F7FF7BD6F7FF7BD6F7FF84D6
|
||||||
|
F7FF315A7BFF000000000000000000000000000000000000000084ADBDFF6BCE
|
||||||
|
F7FF00A5DEFF39B5E7FF39B5DEFF39B5E7FF00A5DEFF39B5E7FF84D6F7FF7BD6
|
||||||
|
FFFF84DEF7FF7BD6F7FF84DEF7FF7BD6FFFF84DEF7FF7BD6F7FF84D6FFFF7BDE
|
||||||
|
F7FF39637BFF00000000000000000000000000000000000000007BADC6FF6BCE
|
||||||
|
F7FF39B5DEFF1884BDFF39B5E7FF39B5DEFF39ADEFFF00A5DEFF6BCEF7FF7BD6
|
||||||
|
F7FF7BD6F7FF84D6F7FF7BD6F7FF84D6F7FF7BD6F7FF84DEF7FF7BD6F7FF84D6
|
||||||
|
F7FF31637BFF000000000000000000000000000000000000000084ADBDFF63C6
|
||||||
|
F7FF6BCEF7FF52BDF7FF00A5DEFF1884BDFF08A5DEFF00A5DEFF219CEFFF6BCE
|
||||||
|
F7FF63C6F7FF84DEF7FF7BD6FFFF7BDEF7FF84D6F7FF7BD6FFFF7BD6F7FF84D6
|
||||||
|
F7FF39637BFF00000000000000000000000000000000000000007BADC6FF6BCE
|
||||||
|
F7FF63C6F7FF6BCEF7FF6BCEF7FF4ABDF7FF299CEFFF319CCEFF08A5DEFF319C
|
||||||
|
CEFF39ADEFFF39B5E7FF4AB5EFFF52BDF7FF63C6F7FF6BCEF7FF6BCEF7FF63CE
|
||||||
|
F7FF395A73FF000000000000000000000000000000000000000084ADC6FF3963
|
||||||
|
73FF395A7BFF396373FF395A7BFF395A73FF39637BFF396373FF39637BFF3963
|
||||||
|
73FF39637BFF39637BFF395A73FF39637BFF396373FF395A7BFF396373FF395A
|
||||||
|
7BFF39637BFF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000008494A5FF849C
|
||||||
|
A5FF849CA5FF8C9CA5FF849CADFF849CA5FF8C9CA5FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000008C9CA5FFB5CEDEFFCEF7
|
||||||
|
FFFFC6F7FFFFC6EFFFFFADF7FFFFADE7F7FFB5CED6FF849CA5FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000008494A5FF84ADC6FFB5CED6FFB5CE
|
||||||
|
D6FFB5CEDEFFB5CED6FF8CBDCEFF8CC6D6FF8CBDCEFF84ADC6FF849CA5FF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000008C9CA5FF849CA5FF8C9CADFF849C
|
||||||
|
A5FF8C9CA5FF849CA5FF8C9CA5FF8C9CA5FF6B848CFF6B7B8CFF6B848CFF6B7B
|
||||||
|
8CFF6B848CFF6B7B8CFF6B7B8CFF6B7B8CFF6B7B8CFF6B7B8CFF6B7B8CFF6B7B
|
||||||
|
8CFF6B7B8CFF000000000000000000000000849CADFFCEF7FFFFC6EFFFFFC6F7
|
||||||
|
FFFFC6EFFFFFC6F7FFFFC6F7FFFFADE7F7FFADE7F7FFADE7F7FFADE7F7FF7BD6
|
||||||
|
F7FF84DEF7FF7BD6F7FF84DEF7FF7BDEF7FF6BCEF7FF6BCEF7FF63CEF7FF6BCE
|
||||||
|
F7FF84ADC6FF6B7B8CFF0000000000000000849CA5FFC6EFFFFFC6F7FFFFC6EF
|
||||||
|
FFFFADE7F7FFADE7F7FFADDEF7FFADE7F7FF8CE7F7FF7BD6F7FF7BDEF7FF6BC6
|
||||||
|
F7FF63CEF7FF6BC6F7FF63CEF7FF52B5F7FF4AB5F7FF4AB5F7FF39B5DEFF39B5
|
||||||
|
E7FF319CCEFF39637BFF0000000000000000849CA5FFC6F7FFFFC6EFFFFFADF7
|
||||||
|
FFFFA5E7EFFFADE7F7FFA5E7EFFF8CE7F7FF84D6F7FF7BD6F7FF6BC6F7FF6BCE
|
||||||
|
F7FF6BC6F7FF6BCEF7FF4AB5EFFF52BDF7FF4ABDEFFF39B5DEFF39B5E7FF319C
|
||||||
|
CEFF31A5CEFF735A52FF00000000000000008C9CA5FFC6EFFFFFA5F7FFFFADE7
|
||||||
|
EFFFADE7F7FFA5E7EFFF94E7FFFF7BD6F7FF84D6FFFF7BD6F7FF6BCEF7FF63C6
|
||||||
|
F7FF6BCEF7FF4AB5EFFF52BDF7FF4AB5EFFF39B5E7FF39B5E7FF39B5E7FF399C
|
||||||
|
CEFF319CCEFF39637BFF0000000000000000849CA5FFC6F7FFFFADE7F7FFADDE
|
||||||
|
F7FFA5E7EFFFADE7F7FF8CE7F7FF84D6F7FF7BDEF7FF6BC6F7FF6BCEF7FF63CE
|
||||||
|
F7FF6BC6F7FF4ABDF7FF52B5EFFF4ABDF7FF39B5DEFF39B5E7FF39ADEFFF319C
|
||||||
|
CEFF188CC6FF523931FF00000000000000008C9CA5FFC6EFFFFFADE7EFFFA5E7
|
||||||
|
F7FFADE7EFFF94E7FFFF7BD6F7FF84D6F7FF63C6F7FF6BCEF7FF63C6F7FF6BCE
|
||||||
|
F7FF4AB5EFFF52BDF7FF4AB5EFFF39B5E7FF39B5DEFF39B5E7FF31ADEFFF399C
|
||||||
|
CEFF188CC6FF4A4231FF0000000000000000849CA5FFC6F7FFFFADE7F7FFADDE
|
||||||
|
EFFF8CE7FFFF7BD6F7FF7BD6F7FF84DEF7FF63C6F7FF6BCEF7FF6BC6F7FF4ABD
|
||||||
|
EFFF52B5F7FF4ABDEFFF39B5E7FF39B5E7FF39B5DEFF39A5F7FF39ADEFFF319C
|
||||||
|
CEFF1884BDFF524231FF00000000000000008C9CA5FFC6EFFFFFADE7F7FFA5E7
|
||||||
|
EFFF94E7FFFF7BD6F7FF84D6F7FF63C6F7FF6BCEF7FF6BCEF7FF4AB5EFFF52BD
|
||||||
|
F7FF4AB5F7FF39B5DEFF39B5E7FF39B5DEFF31ADF7FF39ADEFFF319CCEFF399C
|
||||||
|
CEFF188CC6FF4A4231FF0000000000000000849CA5FFADE7F7FFA5E7EFFF94E7
|
||||||
|
FFFF7BD6F7FF84D6F7FF63CEF7FF6BCEF7FF6BC6F7FF63CEF7FF52B5F7FF4ABD
|
||||||
|
EFFF39B5E7FF39B5DEFF39B5E7FF39A5EFFF39ADEFFF319CCEFF39A5CEFF1884
|
||||||
|
C6FF188CBDFF4A3931FF00000000000000008494A5FFADE7F7FF8CE7FFFF7BD6
|
||||||
|
F7FF84D6F7FF63CEF7FF6BC6F7FF6BCEF7FF63C6F7FF52BDF7FF4AB5EFFF39B5
|
||||||
|
E7FF39B5DEFF39B5E7FF31ADEFFF39ADF7FF319CCEFF399CD6FF319CCEFF188C
|
||||||
|
BDFF1884C6FF4A4231FF0000000000000000849CA5FFADE7F7FF7BD6F7FF84D6
|
||||||
|
F7FF7BDEF7FF6BC6F7FF63CEF7FF6BC6F7FF4ABDEFFF52B5EFFF4ABDF7FF39B5
|
||||||
|
DEFF39B5E7FF39A5EFFF39ADEFFF319CCEFF39A5CEFF319CCEFF39A5CEFF1884
|
||||||
|
C6FF188CBDFF000000FF0000000000000000849CA5FFADE7F7FF84D6F7FF7BDE
|
||||||
|
F7FF6BC6F7FF6BCEF7FF63C6F7FF6BCEF7FF52BDF7FF4AB5F7FF39B5DEFF39B5
|
||||||
|
E7FF39B5E7FF39ADEFFF31ADF7FF399CCEFF319CCEFF399CCEFF31A5CEFF1884
|
||||||
|
BDFF188CC6FF000000FF0000000000000000849CADFFADE7EFFF7BD6F7FF6BC6
|
||||||
|
F7FF4ABDF7FF4AB5EFFF52BDEFFF4AB5F7FF39B5DEFF39ADEFFF319CCEFF399C
|
||||||
|
CEFF319CCEFF319CCEFF399CCEFF31A5CEFF1884C6FF188CC6FF1884BDFF188C
|
||||||
|
C6FF1884BDFF000000FF00000000000000008C9CA5FFADE7F7FF4AB5F7FF4ABD
|
||||||
|
F7FF84ADBDFF39B5E7FF319CCEFF399CCEFF319CCEFF319CCEFF1884BDFF188C
|
||||||
|
C6FF1884BDFF188CC6FF188CBDFF1884C6FF188CBDFF1884BDFF188CC6FF1884
|
||||||
|
BDFF188CC6FF000000FF00000000000000006B7B8CFF396373FF39637BFF5239
|
||||||
|
29FF4A4231FF524231FF4A4231FF524231FF4A4231FF524231FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object SmallImages: TImageList
|
||||||
|
left = 40
|
||||||
|
top = 16
|
||||||
|
Bitmap = {
|
||||||
|
4C69060000001000000010000000000000000000000000000000000000000000
|
||||||
|
000000000000CEBDADFFC6ADA5FFC6AD9CFFC6ADA5FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000008CBD
|
||||||
|
CEFFC6ADA5FFEFE7DEFFC6F7FFFFC6F7FFFFBDC6CEFFCEBDADFF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000CEBDB5FFCEBD
|
||||||
|
ADFFC6EFFFFFC6F7FFFFC6EFFFFFADE7EFFF8CE7FFFF63CEF7FFC6AD9CFF8C9C
|
||||||
|
A5FF0000000000000000000000000000000000000000CEBDADFFC6D6DEFFC6F7
|
||||||
|
FFFFC6F7FFFFC6EFFFFFADEFFFFFA5E7EFFF7BD6F7FF6BC6F7FF63CEF7FF8CBD
|
||||||
|
D6FFC6AD9CFF84ADC6FF00000000C6AD9CFFCEB5ADFFC6F7FFFFC6EFFFFFC6EF
|
||||||
|
FFFFC6F7FFFFA5EFFFFFADE7EFFF7BD6F7FF63C6F7FF6BCEF7FF6BC6EFFF6BCE
|
||||||
|
F7FF4AB5EFFF8CADC6FF8C9CA5FFC6AD9CFFADF7FFFFA5E7F7FFADE7EFFFADE7
|
||||||
|
EFFF7BD6F7FF6BC6F7FF63CEF7FF6BCEF7FF6BCEEFFF4AADEFFF42B5EFFF4AAD
|
||||||
|
E7FF42B5EFFF29BDEFFFBD9C8CFFC6ADA5FFADE7EFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7EFE7FFFFF7EFFFFFEFE7FFFFF7
|
||||||
|
EFFFEFDEDEFF42B5EFFF94847BFFC6AD9CFFCEBDB5FFF7EFEFFFFFEFE7FFE7E7
|
||||||
|
DEFFFFEFEFFFFFEFE7FFF7F7EFFFFFEFE7FFF7EFEFFFFFEFE7FFF7DECEFFF7F7
|
||||||
|
E7FFFFD6C6FF94847BFF94847BFFC6ADA5FFF7CEB5FFDEC6ADFFF7EFEFFFFFEF
|
||||||
|
EFFFE7BD94FFE7B594FFC6ADA5FFC6AD9CFFC6ADA5FFC6AD9CFFE7E7DEFFFFDE
|
||||||
|
C6FFB59C8CFFE7AD84FF94847BFFC6A58CFFFFFFFFFFFFDEC6FFDEC6ADFFDEC6
|
||||||
|
ADFFDEBDADFFDECEC6FFDEC6ADFFDEC6B5FFDEC6ADFFC6ADA5FFC6AD9CFFB59C
|
||||||
|
8CFFE7AD8CFFFFD69CFF8C8484FFBDA594FFFFFFFFFFFFFFFFFFBDA58CFFDECE
|
||||||
|
C6FFFFF7EFFFF7EFEFFFFFF7EFFFF7EFEFFFFFDECEFFFFDEC6FFDEA57BFFB58C
|
||||||
|
73FFFFD69CFFFFCE94FF94847BFFC6A58CFFFFFFFFFFC6ADA5FFDECEC6FFF7EF
|
||||||
|
EFFFF7EFE7FFFFEFEFFFF7EFE7FFFFF7E7FFF7DEC6FFF7DEC6FFFFD6ADFFE7AD
|
||||||
|
84FFB58473FFFFB57BFFCE734AFFB59C8CFFC6ADA5FFDECEC6FFFFFFFFFFF7F7
|
||||||
|
E7FFFFDECEFFF7E7C6FFFFDECEFFF7DEC6FFFFD6ADFFFFDEB5FFFFD69CFFFFCE
|
||||||
|
94FFE79463FFC67B4AFFCE7342FFBD9C84FFF7D6BDFFFFFFFFFFFFDECEFFFFDE
|
||||||
|
ADFFFFD69CFFFFC68CFFFFC68CFFFFC694FFFFB57BFFFFB57BFFF7A57BFFEFA5
|
||||||
|
7BFFE79463FFD6845AFFB56331FFB59C8CFFB59C8CFFB58C73FFB58473FFB58C
|
||||||
|
73FF8C8484FFCE734AFFC6734AFFC67B42FFC6734AFFC6734AFFC6734AFFB563
|
||||||
|
31FFBD6331FFB56331FFBD6331FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4A3931FFFF00FFFF4A4231FFFF00
|
||||||
|
FFFF4A4231FFFF00FFFF4A4231FFFF00FFFF523931FFFF00FFFF4A4231FFFF00
|
||||||
|
FFFF524231FFFF00FFFF524231FFB59C8CFFFFFFFFFF94847BFFFFFFFFFF9484
|
||||||
|
84FFFFFFFFFF94847BFFFFFFFFFF948484FFFFFFFFFF52636BFFFFFFFFFF525A
|
||||||
|
6BFFFFFFFFFF52636BFFFF00FFFFF7A58CFFF7AD94FFF7A57BFFDEA57BFFDEA5
|
||||||
|
7BFFE7946BFFE79463FFE7946BFFD68452FFDE7B4AFFD68452FFCE7B4AFFCE73
|
||||||
|
4AFFC67B42FFCE734AFF524231FFEFAD94FFF7EFEFFFFFF7EFFFF7EFEFFFFFF7
|
||||||
|
EFFFF7F7EFFFF7EFEFFFF7AD8CFFF7A57BFFF7A57BFFF7A57BFFEFA57BFFF7A5
|
||||||
|
7BFFF7A57BFFF7A57BFF524231FFF7AD8CFFF7A58CFFEFA573FFF7A57BFFEFA5
|
||||||
|
73FFF7A57BFFE79463FFE79463FFDE946BFFD68452FFDE7B4AFFDE7B4AFFDE7B
|
||||||
|
4AFFDE7B4AFFDE7B4AFF524231FFBDADA5FFFFFFFFFFFFFFFFFFDEA57BFFFFFF
|
||||||
|
FFFFFFFFFFFFDEA57BFFFFFFFFFFFFFFFFFFDEA57BFFFFFFFFFFFFFFFFFFDEA5
|
||||||
|
7BFFFFF7EFFFF7EFEFFF4A4231FFC6ADA5FFFFFFFFFFFFFFFFFFB59C8CFFFFFF
|
||||||
|
FFFFFFFFFFFFB59C8CFFFFFFFFFFFFFFFFFFB59C8CFFFFFFFFFFFFF7EFFFB594
|
||||||
|
8CFFFFF7EFFFDECEC6FF4A4239FFC6AD9CFFD6AD94FFB59C8CFFBD8473FFDEA5
|
||||||
|
7BFFB59C8CFFB58C73FFDEA57BFFB59C8CFF42B5EFFF2994DEFF1842CEFF184A
|
||||||
|
CEFFDEA57BFF00000000524239FFC6ADA5FFFFFFFFFFFFFFFFFFDEA57BFFFFFF
|
||||||
|
FFFFFFFFFFFFDEA57BFFFFFFFFFFFFFFFFFF299CDEFFFFFFFFFFFFF7EFFF1842
|
||||||
|
C6FFFFF7EFFFDECECEFF4A4231FFC6AD9CFFFFFFFFFFFFFFFFFFB59C8CFFFFFF
|
||||||
|
FFFFFFFFFFFFB59C8CFFFFFFFFFFFFEFEFFF1842CEFFFFF7EFFFFFEFE7FF1842
|
||||||
|
CEFFFFF7EFFFCEBDADFF4A4231FFC6ADA5FFD6AD94FF00000000BD8C73FFDEA5
|
||||||
|
7BFFB59C8CFFBD8473FFDEA57BFF00000000214AC6FF1842CEFF184ACEFF1842
|
||||||
|
CEFFDEA57BFFBD9C8CFF4A4231FFC6B5A5FFFFFFFFFFFFFFFFFFCEAD94FFFFFF
|
||||||
|
FFFFFFFFFFFFDEA57BFFFFF7EFFFFFEFEFFFDEA57BFFFFF7EFFFFFEFE7FFDEA5
|
||||||
|
7BFFFFE7CEFFC6B5ADFF524239FFC6AD9CFFFFFFFFFFFFFFFFFFB59484FFFFFF
|
||||||
|
FFFFFFF7EFFF00000000F7EFEFFFF7EFEFFF00000000F7EFEFFFF7F7EFFF0000
|
||||||
|
0000FFDECEFFCEBDB5FF4A4231FFC6ADA5FFC6ADA5FF00000000BD8C73FFE7B5
|
||||||
|
94FFD6AD94FFB58473FFEFBD94FF00000000BD8473FFC6AD9CFFB59C8CFFBD84
|
||||||
|
73FFCEAD8CFFB59C8CFF524231FF000000004A4239FF524231FF4A4239FF5242
|
||||||
|
39FF4A4231FF524239FF4A4231FF4A4239FF524231FF4A4239FF524231FF4A42
|
||||||
|
39FF524231FF524239FF4A4231FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000CEBDADFFCEBDB5FFCEBDADFFCEBDB5FFCEBD
|
||||||
|
ADFFCEBDB5FFC6ADA5FFC6AD9CFFC6ADA5FFC6AD9CFFC6ADA5FFC6A58CFFB59C
|
||||||
|
8CFFB59C84FFB5948CFFB59C8CFFCEBDB5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF526363FFC6BDADFFFFFFFFFFEFDEDEFF5A7B8CFF9484
|
||||||
|
7BFF5A7B8CFFBDC6CEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7
|
||||||
|
EFFFFFEFEFFFDED6CEFF4A3931FFCEBDB5FFFFFFFFFF4A6363FF637B8CFF8C9C
|
||||||
|
ADFF849CA5FF94847BFFEFE7DEFFFFFFFFFFF7F7EFFFFFFFFFFFF7EFEFFFF7EF
|
||||||
|
E7FFFFEFE7FFDECEC6FF4A4231FFCEBDADFFFFFFFFFF524239FF4A3931FFEFE7
|
||||||
|
DEFFBDC6CEFF94847BFFE7DEDEFFF7F7EFFFF7BDA5FFF7BD9CFFFFB57BFFF7A5
|
||||||
|
7BFFF7A57BFFCEBDB5FF4A4231FFC6ADA5FFFFFFFFFF52636BFF524239FFCEBD
|
||||||
|
B5FF94847BFF52636BFFFFFFFFFFFFEFEFFFF7F7E7FFF7EFEFFFFFF7EFFFF7EF
|
||||||
|
EFFFF7E7C6FFCEBDB5FF524231FFC6ADA5FFFFFFFFFFEFE7DEFF52636BFFB59C
|
||||||
|
84FF8C9CADFF525A63FFC6D6DEFFF7F7E7FFF7CEBDFFC6A58CFFB59C84FFB59C
|
||||||
|
84FFB58473FFCEBDB5FF4A4231FFBDAD9CFFFFF7EFFF107BBDFF8CADC6FF1842
|
||||||
|
CEFF1884BDFF184ACEFF1842CEFFFFF7EFFFFFDEC6FFF7DECEFFFFDECEFFF7D6
|
||||||
|
BDFFFFD6BDFFE7BD94FF4A3939FFC6AD9CFFEFE7DEFF1842C6FF4AB5EFFF299C
|
||||||
|
DEFF214ACEFF1884BDFF1842C6FFFFEFEFFFDEC6ADFFC6A594FFB59C84FFB59C
|
||||||
|
8CFFB58473FFEFBD9CFF4A4231FFC6A594FFF7F7EFFFBDC6CEFF1842CEFF214A
|
||||||
|
C6FF1842CEFF214ACEFFC6A58CFFFFE7CEFFF7DEC6FFF7D6BDFFF7D6C6FFFFDE
|
||||||
|
BDFFF7D6BDFFE7B58CFF4A4239FFB59C8CFFFFDEC6FFFFDEC6FFDECEC6FFE7C6
|
||||||
|
ADFFDEC6ADFFE7C6B5FFDEC6ADFFEFC6A5FFE7B59CFFE7BD94FFE7B594FFE7AD
|
||||||
|
8CFFE7B58CFFE7AD8CFF524231FFB59C84FF52636BFF4A4231FF4A4231FF5242
|
||||||
|
39FF4A4231FF4A4231FF524239FF4A4231FF524231FF4A4239FF524239FF4A42
|
||||||
|
31FF4A4239FF524239FF4A4239FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000084ADC6FF8C9CA5FF849CADFF0000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000DEC6ADFFCEBDB5FFCEBDADFFCEBD
|
||||||
|
B5FF8C9CA5FFADE7EFFFADE7F7FF8CC6D6FF526363FFC6ADA5FFC6AD9CFFC6A5
|
||||||
|
94FF00000000000000000000000000000000CEBDADFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF849CA5FF849CADFF94847BFF8CBDD6FF637B8CFFFFF7EFFFE7DEDEFFEFE7
|
||||||
|
DEFF525A63FF000000000000000000000000CEBDB5FFFFFFFFFFFFFFFFFF8C9C
|
||||||
|
ADFF7BD6F7FF8CE7FFFF7BD6F7FF63CEF7FF8C9CA5FF5A738CFFE7E7DEFFDECE
|
||||||
|
C6FFB59C84FF000000000000000000000000CEBDB5FFFFFFFFFFFFFFFFFF849C
|
||||||
|
A5FF637B8CFF637B8CFF637B8CFF637B8CFF5A7B8CFF8C9CADFF84ADBDFF1842
|
||||||
|
CEFFB59C8CFF000000000000000000000000CEBDADFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFF7EFEFFFFFEFEFFFF7F7EFFFEFDEDEFFEFE7DEFF8CADC6FF1842CEFF8C9C
|
||||||
|
A5FF948484FF000000000000000000000000C6AD9CFFFFFFFFFFFFFFFFFFFFEF
|
||||||
|
EFFFF7F7E7FFFFEFEFFFF7EFE7FFE7E7DEFF2994DEFF184ACEFF8C9CA5FFDED6
|
||||||
|
C6FF525A6BFF000000000000000000000000C6ADA5FFFFFFFFFFC6F7FFFFC6D6
|
||||||
|
D6FFFFEFE7FFF7EFEFFFEFE7DEFF8CADBDFF1842CEFF5A7B8CFFFFDECEFFE7C6
|
||||||
|
B5FF4A4231FF000000000000000000000000C6AD9CFFF7EFEFFF42ADEFFF4AB5
|
||||||
|
EFFF84ADC6FFC6D6D6FF84ADC6FF1842CEFF214ACEFFFFDEC6FFF7DEBDFFC6AD
|
||||||
|
A5FF4A4231FF000000000000000000000000C6AD9CFFFFF7EFFF2142C6FF1842
|
||||||
|
CEFF299CDEFF2994DEFF184AC6FF1842CEFFCEBDADFFFFDEC6FFDECEC6FFC6AD
|
||||||
|
A5FF4A4239FF000000000000000000000000C6ADA5FFF7F7EFFFC6D6D6FF1842
|
||||||
|
CEFF214ACEFF2142CEFF184ACEFF8C9CA5FFF7D6B5FFF7CEBDFFDEC6ADFFD6AD
|
||||||
|
8CFF524231FF000000000000000000000000C6AD9CFFFFEFE7FFFFF7EFFFEFE7
|
||||||
|
DEFF2142CEFF184ACEFF637B8CFFDECEC6FFF7CEB5FFDECEC6FFDEC6B5FFD6AD
|
||||||
|
94FF4A4239FF000000000000000000000000C6ADA5FFF7F7EFFFDECEC6FFDECE
|
||||||
|
C6FFDECEC6FF8C9CA5FFCEBDB5FFE7BD94FFC6ADA5FFC6AD9CFFD6AD8CFFBDA5
|
||||||
|
94FF524231FF000000000000000000000000D6AD94FF523931FF4A4231FF4A42
|
||||||
|
31FF4A4231FF52636BFF524231FF4A4239FF524231FF4A4239FF524231FF4A42
|
||||||
|
39FF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000008CBDD6FF8CC6CEFF94C6D6FF8CBD
|
||||||
|
D6FF8CC6D6FF94C6D6FF8CBDD6FF8CC6CEFF94BDD6FF8CC6D6FF84ADBDFF84AD
|
||||||
|
C6FF84ADC6FF84ADC6FF000000000000000094BDCEFFC6F7FFFFC6EFFFFFC6F7
|
||||||
|
FFFFC6F7FFFFC6EFFFFFC6F7FFFFC6F7FFFFC6F7FFFFC6F7FFFFCEEFFFFFC6F7
|
||||||
|
FFFFCEF7FFFF5A7B8CFF00000000000000008CC6D6FFC6F7FFFFADEFFFFFADEF
|
||||||
|
F7FFADEFFFFFADEFF7FFADEFFFFFADEFFFFFADEFFFFFA5EFFFFFADEFFFFFA5EF
|
||||||
|
F7FFADEFFFFF5A7B8CFF000000000000000084ADBDFFADEFFFFFADEFFFFFA5EF
|
||||||
|
FFFFADEFFFFFA5EFFFFFADEFFFFFA5EFF7FFADEFFFFFA5EFF7FFADEFFFFFADEF
|
||||||
|
FFFFADF7FFFF525A6BFF000000000000000084ADC6FFADE7EFFFA5EFFFFFADF7
|
||||||
|
F7FFADEFFFFFADF7FFFFA5EFFFFFADEFFFFFADF7FFFFADEFFFFFA5EFF7FFADEF
|
||||||
|
FFFFA5EFFFFF526363FF000000000000000084ADC6FF8CE7F7FF8CE7FFFF8CE7
|
||||||
|
FFFF8CE7F7FF8CE7FFFF8CE7F7FF8CE7F7FF8CE7FFFF8CE7F7FF8CE7FFFF8CE7
|
||||||
|
FFFF8CE7FFFF526363FF000000000000000084ADC6FF6BC6F7FF8CE7F7FF8CE7
|
||||||
|
FFFF8CDEFFFF8CE7F7FF8CE7FFFF8CE7FFFF8CDEF7FF8CE7FFFF8CE7F7FF8CE7
|
||||||
|
FFFF8CE7F7FF525A6BFF00000000000000008CADBDFF42B5EFFF7BD6F7FF8CE7
|
||||||
|
FFFF8CE7F7FF8CE7FFFF8CDEFFFF8CE7F7FF8CE7FFFF8CE7FFFF8CE7FFFF8CE7
|
||||||
|
FFFF8CE7FFFF526363FF000000000000000084ADC6FF4AADEFFF29BDEFFF4AB5
|
||||||
|
EFFF42ADEFFF299CDEFF6BCEEFFF8CE7FFFF8CE7F7FF8CDEFFFF8CE7F7FF8CE7
|
||||||
|
FFFF8CE7FFFF525A63FF000000000000000084ADBDFF6BCEF7FF299CDEFF29BD
|
||||||
|
EFFF29BDEFFF299CDEFF29BDEFFF8CDEFFFF8CE7FFFF8CE7F7FF8CE7FFFF8CE7
|
||||||
|
F7FF8CE7FFFF52636BFF000000000000000084ADC6FF6BCEF7FF4AADEFFF299C
|
||||||
|
DEFF31BDF7FF29BDEFFF299CDEFF7BD6F7FF7BD6F7FF7BD6FFFF7BD6F7FF7BD6
|
||||||
|
F7FF7BD6F7FF526363FF00000000000000008CADC6FF7BD6F7FF6BCEEFFF4AB5
|
||||||
|
EFFF299CDEFF319CE7FF299CDEFF4AB5EFFF7BD6F7FF6BCEF7FF7BD6F7FF7BD6
|
||||||
|
F7FF7BDEFFFF52636BFF000000000000000084ADBDFF6BCEF7FF7BD6F7FF6BC6
|
||||||
|
F7FF4AB5E7FF2994DEFF299CDEFF1884BDFF299CDEFF4AADEFFF4AB5EFFF4AB5
|
||||||
|
EFFF4AADEFFF526363FF00000000000000008CADC6FF5A738CFF637B8CFF5A7B
|
||||||
|
8CFF637B8CFF637B8CFF5A636BFF525A63FF5A636BFF526363FF525A6BFF5263
|
||||||
|
63FF526363FF52636BFF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000008C9CA5FF849CA5FF8C9CADFF849C
|
||||||
|
A5FF8C9CA5FF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000849CADFFADE7F7FFADEFFFFFADEFFFFFADF7
|
||||||
|
FFFF8CE7FFFF849CADFF00000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000008C9CA5FF849CA5FF8C9CA5FF849CA5FF849C
|
||||||
|
A5FF8C9CA5FF8C9CA5FF849CA5FF8C9CA5FF849CADFF849CA5FF8C9CADFF849C
|
||||||
|
A5FF849CA5FF0000000000000000849CADFFCEF7FFFFC6F7FFFFC6EFFFFFC6F7
|
||||||
|
FFFFADEFFFFFADEFFFFFADEFFFFF8CE7FFFF8CE7FFFF7BD6F7FF6BCEF7FF63C6
|
||||||
|
F7FF6BCEF7FF5A738CFF00000000849CA5FFC6EFFFFFADEFFFFFADEFFFFFADEF
|
||||||
|
FFFFA5EFFFFF8CE7FFFF8CE7FFFF8CE7FFFF63C6EFFF6BCEF7FF4AADEFFF4AB5
|
||||||
|
EFFF299CDEFF5A7B8CFF00000000849CADFFC6F7FFFFADEFFFFFA5EFFFFFADEF
|
||||||
|
FFFF8CE7F7FF8CE7FFFF8CE7F7FF7BD6F7FF6BCEF7FF63C6F7FF4AB5E7FF2994
|
||||||
|
DEFF1884BDFF5A636BFF000000008C9CA5FFC6F7FFFFA5EFF7FFADF7FFFFADEF
|
||||||
|
F7FF8CE7FFFF8CE7FFFF7BD6F7FF63CEF7FF6BC6EFFF4AB5EFFF4AB5EFFF319C
|
||||||
|
DEFF1884BDFF526363FF00000000849CA5FFADEFFFFFADEFFFFFA5EFFFFF8CE7
|
||||||
|
FFFF8CE7F7FF7BD6F7FF6BC6F7FF6BCEF7FF4AADEFFF4AB5E7FF4AADEFFF299C
|
||||||
|
DEFF1884BDFF524231FF000000008C9CADFFA5E7EFFFADEFFFFF8CE7F7FF8CE7
|
||||||
|
FFFF7BD6F7FF63CEF7FF6BCEF7FF42ADE7FF4AB5EFFF4AB5EFFF2994DEFF299C
|
||||||
|
DEFF1884BDFF4A4239FF0000000094847BFFADE7F7FF8CE7FFFF8CE7FFFF7BD6
|
||||||
|
F7FF6BC6F7FF6BCEEFFF4AADEFFF4AB5EFFF4AB5E7FF2994DEFF299CE7FF2184
|
||||||
|
BDFF1884BDFF524231FF000000005A7B8CFFADE7EFFF63CEF7FF4AADE7FF4AB5
|
||||||
|
EFFF299CDEFF2994E7FF1884B5FF1884BDFF1884BDFF1884BDFF1884B5FF1884
|
||||||
|
BDFF1884BDFF000000FF000000005A7B8CFF63738CFF526363FF52636BFF5242
|
||||||
|
31FF524231FF524231FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object ToolImages: TImageList
|
||||||
|
Height = 12
|
||||||
|
Width = 12
|
||||||
|
left = 144
|
||||||
|
top = 16
|
||||||
|
Bitmap = {
|
||||||
|
4C69060000000C0000000C000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000008484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF000000FF848484FF000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF8484
|
||||||
|
84FFC6C6C6FF000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF000000FF008484FF000000FF848484FF00FFFFFFC6C6C6FF000000FF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF008484FFC6C6C6FF000000FF8484
|
||||||
|
84FFFFFFFFFFFFFFFFFF008484FF000000FF00FFFFFFFFFFFFFF000000FF0084
|
||||||
|
84FFC6C6C6FFC6C6C6FF000000FF848484FF00FFFFFF008484FFC6C6C6FF0084
|
||||||
|
84FF000000FF000000FF008484FFC6C6C6FF008484FFC6C6C6FF000000FF8484
|
||||||
|
84FF008484FFC6C6C6FFC6C6C6FFC6C6C6FF008484FF008484FFC6C6C6FFC6C6
|
||||||
|
C6FFC6C6C6FF008484FF000000FF848484FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6
|
||||||
|
C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000008484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF000000FF848484FF000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF8484
|
||||||
|
84FFC6C6C6FF000000FF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF000000FF000084FF000000FF848484FF00FFFFFFC6C6C6FF000000FF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000084FFC6C6C6FF000000FF8484
|
||||||
|
84FFFFFFFFFFFFFFFFFF000084FF000000FF0000FFFF0000FFFF000000FF0000
|
||||||
|
84FFC6C6C6FF0000FFFF0000FFFF848484FF00FFFFFF000084FFC6C6C6FF0000
|
||||||
|
84FF0000FFFF0000FFFF0000FFFFC6C6C6FF0000FFFF0000FFFF0000FFFF8484
|
||||||
|
84FF000084FFC6C6C6FFC6C6C6FFC6C6C6FF000084FF0000FFFF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFF000000FF848484FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6
|
||||||
|
C6FFC6C6C6FFC6C6C6FF0000FFFF0000FFFF0000FFFFC6C6C6FF000000FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF0000FFFF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF0000FFFF0000FFFF0000FFFF000000FF0000FFFF0000FFFF0000FFFF0000
|
||||||
|
0000000000000000000000000000000000000000FFFF0000FFFF000000000000
|
||||||
|
0000000000000000FFFF0000FFFF000000000000000000000000000000000000
|
||||||
|
0000848484FFC6C6C6FF848484FF848484FF848484FF00000000000000000000
|
||||||
|
0000000000000000000000000000848484FFFFFFFFFF848484FFC6C6C6FFFFFF
|
||||||
|
FFFFFFFFFFFF848484FF00000000000000000000000000000000848484FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF848484FFFFFFFFFF848484FF0000
|
||||||
|
00000000000000000000848484FFFFFFFFFFFFFFFFFF848484FF848400FF0000
|
||||||
|
00FF848400FFC6C6C6FF848484FF000000000000000000000000848484FFFFFF
|
||||||
|
FFFFFFFFFFFF848484FF000000FFFFFF00FF848484FF848484FF848484FF0000
|
||||||
|
0000C6C6C6FFC6C6C6FF848484FFFFFFFFFFFFFFFFFF848484FF000000FFFFFF
|
||||||
|
FFFF848484FFC6C6C6FF848484FFC6C6C6FF000000FF000000FF848484FFFFFF
|
||||||
|
FFFFFFFFFFFF848484FF848400FF000000FF848400FF848484FF848484FF0000
|
||||||
|
00FF848484FF0000000000000000000000FFFFFFFFFFFFFFFFFF848484FF8484
|
||||||
|
84FF848484FF000000FF00000000848484FF0000000000000000000000000000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF00000000000000000000
|
||||||
|
000000000000000000000000000000000000848484FFC6C6C6FF848484FFC6C6
|
||||||
|
C6FF000000FF0000000000000000000000000000000000000000000000008484
|
||||||
|
84FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FF848484FF000000000000
|
||||||
|
00000000000000000000848484FFC6C6C6FF848484FFC6C6C6FF848484FFC6C6
|
||||||
|
C6FF848484FF848484FF000000FF000000000000000000000000000000000000
|
||||||
|
0000848484FFC6C6C6FF848484FF848484FF848484FF00000000000000000000
|
||||||
|
0000000000000000000000000000848484FFFFFFFFFF848484FFC6C6C6FFFFFF
|
||||||
|
FFFFFFFFFFFF848484FF00000000000000000000000000000000848484FFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF000000FFC6C6C6FF848484FFFFFFFFFF848484FF0000
|
||||||
|
00000000000000000000848484FFFFFFFFFFFFFFFFFF848484FF848400FF0000
|
||||||
|
00FF848400FFC6C6C6FF848484FF000000000000000000000000848484FFFFFF
|
||||||
|
FFFFFFFFFFFF848484FF000000FFFFFF00FF848484FF848484FF848484FF0000
|
||||||
|
0000C6C6C6FFC6C6C6FF848484FFFFFFFFFFFFFFFFFF848484FF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFF848484FFC6C6C6FF000000FF000000FF848484FFFFFF
|
||||||
|
FFFFFFFFFFFF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFF0000
|
||||||
|
00FF848484FF0000000000000000000000FFFFFFFFFF0000FFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF0000FFFF848484FF0000000000000000000000000000
|
||||||
|
0000000000FF0000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000
|
||||||
|
000000000000000000000000000000000000848484FF0000FFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF0000FFFF000000000000000000000000000000008484
|
||||||
|
84FFFFFFFFFF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFF0000
|
||||||
|
00000000000000000000848484FFC6C6C6FF848484FFC6C6C6FF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFF000000FF000000000000000000000000000000000084
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
00000000000000000000008484FFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FF8484
|
||||||
|
84FF000000000000000000000000000000000000000000000000000000FF0000
|
||||||
|
00FF848484FFC6C6C6FF008484FF000000FF0000000000000000000000000000
|
||||||
|
00000000000000000000848484FFC6C6C6FFFFFFFFFFFFFFFFFF008484FF0000
|
||||||
|
00FF00000000000000000000000000000000000000FF00000000000000FF0000
|
||||||
|
00FF848484FFC6C6C6FF000000FF000000FF00000000000000FF00000000C6C6
|
||||||
|
C6FF000000FF000000FF848484FFC6C6C6FFFFFFFFFFFFFFFFFF848484FF0000
|
||||||
|
00FF000000FF000000FFC6C6C6FF00000000000000FFFFFFFFFF000000FF0000
|
||||||
|
00FF848484FFC6C6C6FF000000FF000000FFFFFFFFFF000000FF000000000000
|
||||||
|
0000000000FFFFFFFFFF848484FFC6C6C6FFC6C6C6FF848484FF848484FF0000
|
||||||
|
00FFFFFFFFFF000000FF000000000000000000000000000000FFFFFFFFFF0000
|
||||||
|
00FF000000FF000000FF000000FFFFFFFFFF000000FF00000000000000000000
|
||||||
|
00000000000000000000848484FF848484FF848484FF848484FF848484FF0000
|
||||||
|
00FF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF000000FF00000000000000000000000000000000000000000000
|
||||||
|
000000000000C6C6C6FF848484FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF848484FF0000000000000000000000000000000000000000000000000084
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
00000000000000000000008484FFFFFFFFFFFFFFFFFFFFFFFFFFC6C6C6FF8484
|
||||||
|
84FF000000000000000000000000000000000000000000000000000000FF0000
|
||||||
|
00FF848484FFC6C6C6FF008484FF000000FF0000000000000000000000000000
|
||||||
|
00000000000000000000848484FFC6C6C6FFFFFFFFFFFFFFFFFF008484FF0000
|
||||||
|
00FF00000000000000000000000000000000000000FF00000000000000FF0000
|
||||||
|
00FF848484FFC6C6C6FF000000FF000000FF00000000000000FF00000000C6C6
|
||||||
|
C6FF000000FF000000FF848484FFC6C6C6FFFFFFFFFFFFFFFFFF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFFC6C6C6FF00000000000000FFFFFFFFFF000000FF0000
|
||||||
|
00FF848484FF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFF0000
|
||||||
|
0000000000FFFFFFFFFF848484FFC6C6C6FFC6C6C6FF0000FFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF0000FFFF0000000000000000000000FFFFFFFFFF0000
|
||||||
|
00FF000000FF0000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF0000FFFF0000
|
||||||
|
00000000000000000000848484FF848484FF848484FF0000FFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFF0000FFFF000000000000000000000000000000000000
|
||||||
|
0000000000FF0000FFFFFFFFFFFF0000FFFF0000FFFFFFFFFFFF0000FFFF0000
|
||||||
|
000000000000C6C6C6FF848484FF000000FF000000FF000000FF0000FFFF0000
|
||||||
|
FFFF0000FFFF0000FFFF00000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object OpenPictureDialog1: TOpenPictureDialog
|
||||||
|
Title = 'Open existing file'
|
||||||
|
left = 136
|
||||||
|
top = 64
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,941 @@
|
|||||||
|
LazarusResources.Add('TJvNavPaneDemoMainFrm','FORMDATA',[
|
||||||
|
'TPF0'#21'TJvNavPaneDemoMainFrm'#20'JvNavPaneDemoMainFrm'#4'Left'#2'i'#6'Heig'
|
||||||
|
+'ht'#3#212#1#3'Top'#2'm'#5'Width'#3#6#2#18'HorzScrollBar.Page'#3#5#2#18'Vert'
|
||||||
|
+'ScrollBar.Page'#3#211#1#7'Caption'#6#21'JvNavigationPane Demo'#8'DockSite'#9
|
||||||
|
+#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#8'OnCreate'#7#10'FormCreate'
|
||||||
|
+#0#10'TPopupMenu'#10'PopupMenu1'#7'OnPopup'#7#15'PopupMenu1Popup'#4'left'#2
|
||||||
|
+'\'#3'top'#2'@'#0#9'TMenuItem'#8'HideAll1'#7'Caption'#6#8'Hide All'#7'OnClic'
|
||||||
|
+'k'#7#13'HideAll1Click'#0#0#9'TMenuItem'#8'ShowAll1'#7'Caption'#6#8'Show All'
|
||||||
|
+#7'OnClick'#7#13'ShowAll1Click'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0
|
||||||
|
+#9'TMenuItem'#11'ChangeFont1'#7'Caption'#6#7'Font...'#7'OnClick'#7#16'Change'
|
||||||
|
+'Font1Click'#0#0#9'TMenuItem'#7'Colors1'#7'Caption'#6#6'Colors'#0#9'TMenuIte'
|
||||||
|
+'m'#9'Standard1'#7'Caption'#6#8'Standard'#7'Checked'#9#10'GroupIndex'#2#1#9
|
||||||
|
+'RadioItem'#9#7'OnClick'#7#11'SchemaClick'#0#0#9'TMenuItem'#5'Blue1'#3'Tag'#2
|
||||||
|
+#1#7'Caption'#6#4'Blue'#10'GroupIndex'#2#1#9'RadioItem'#9#7'OnClick'#7#11'Sc'
|
||||||
|
+'hemaClick'#0#0#9'TMenuItem'#7'Silver1'#3'Tag'#2#2#7'Caption'#6#6'Silver'#10
|
||||||
|
+'GroupIndex'#2#1#9'RadioItem'#9#7'OnClick'#7#11'SchemaClick'#0#0#9'TMenuItem'
|
||||||
|
+#6'Olive1'#3'Tag'#2#3#7'Caption'#6#5'Olive'#10'GroupIndex'#2#1#9'RadioItem'#9
|
||||||
|
+#7'OnClick'#7#11'SchemaClick'#0#0#0#9'TMenuItem'#16'BackgroundImage1'#7'Capt'
|
||||||
|
+'ion'#6#19'Background Image...'#7'OnClick'#7#21'BackgroundImage1Click'#0#0#9
|
||||||
|
+'TMenuItem'#2'N2'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#16'Dontallowresize1'#7
|
||||||
|
+'Caption'#6#18'Don''t allow resize'#7'OnClick'#7#21'Dontallowresize1Click'#0
|
||||||
|
+#0#9'TMenuItem'#2'N3'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#14'ShowToolPanel1'#7
|
||||||
|
+'Caption'#6#15'Show Tool Panel'#7'OnClick'#7#19'ShowToolPanel1Click'#0#0#9'T'
|
||||||
|
+'MenuItem'#16'ShowCloseButton1'#7'Caption'#6#17'Show Close Button'#7'OnClick'
|
||||||
|
+#7#21'ShowCloseButton1Click'#0#0#0#10'TImageList'#11'LargeImages'#6'Height'#2
|
||||||
|
+#20#5'Width'#2#24#4'left'#2'\'#3'top'#2#16#6'Bitmap'#10#14'-'#0#0'Li'#6#0#0#0
|
||||||
|
+#24#0#0#0#20#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#206#181#156#255#198#173#156#255#206#173#156#255#206
|
||||||
|
+#173#156#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#189#189#189#255#231#198#181#255#198#247#255#255#198#247#255#255#173#231
|
||||||
|
+#247#255#198#173#156#255#206#173#156#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#206#173#156#255#222#214#206#255#198#239#255#255#198#239#255
|
||||||
|
+#255#198#247#255#255#173#231#247#255'{'#214#247#255#140#198#214#255#173#148
|
||||||
|
+#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#189#189#189#255#206#189#181#255#198#247
|
||||||
|
+#255#255#198#239#255#255#198#247#255#255#198#247#255#255#198#239#255#255#140
|
||||||
|
+#231#255#255'{'#222#247#255'k'#198#247#255'k'#206#247#255#173#148#132#255#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#206#173#156#255#222#214#206#255#198#239#255#255#198#247#255#255#198
|
||||||
|
+#239#255#255#198#247#255#255#198#239#255#255#173#231#247#255#140#231#247#255
|
||||||
|
+#132#214#247#255'c'#206#247#255'k'#198#247#255'J'#189#247#255#189#189#189#255
|
||||||
|
+#132#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#206#173#156#255#198#247#255#255#198#247#255#255#198#239#255#255#198#247
|
||||||
|
+#255#255#165#231#247#255#148#231#255#255'{'#214#247#255'{'#214#247#255#132
|
||||||
|
+#214#247#255'{'#214#247#255'k'#198#247#255'k'#206#247#255'J'#181#239#255'R'
|
||||||
|
+#181#247#255'J'#189#247#255#173#148#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#198#173#156#255#198#247#255#255#173#231#247#255#165#231#247
|
||||||
|
+#255#148#231#247#255'{'#214#247#255'k'#198#247#255'c'#206#247#255'R'#181#239
|
||||||
|
+#255'J'#189#247#255'J'#181#247#255'R'#189#247#255'1'#181#222#255'9'#173#247
|
||||||
|
+#255'1'#165#239#255'!'#165#239#255'9'#165#239#255'9'#173#247#255#165'{k'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#173#156#255'c'#198#247#255#247
|
||||||
|
+#239#239#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#247#247#231#255#247#239#239
|
||||||
|
+#255#247#247#239#255#247#239#239#255#173#231#247#255#173#231#239#255#148#198
|
||||||
|
+#214#255'1'#173#239#255#156'{k'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#214#173#132#255'{'#214#247#255#247#247#239#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#247#239#239#255#239#239#239#255#247#239#231#255#239#239#239#255#247
|
||||||
|
+#247#239#255#247#239#239#255#222#198#173#255'1'#165#247#255#156'{k'#255'JB1'
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#173#165#255#198#173#156#255#255#222
|
||||||
|
+#198#255#255#255#255#255#247#222#206#255#255#222#198#255#247#247#239#255#255
|
||||||
|
+#222#206#255#255#222#198#255#255#222#206#255#247#222#198#255#247#247#239#255
|
||||||
|
+#247#239#239#255#239#247#239#255#247#239#239#255#239#239#239#255#214#189#173
|
||||||
|
,#255#165'{k'#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#214#173
|
||||||
|
+#132#255#255#222#206#255#198#173#156#255#255#255#255#255#247#247#239#255#214
|
||||||
|
+#206#206#255#222#214#206#255#214#214#206#255#214#214#206#255#222#214#206#255
|
||||||
|
+#214#214#206#255#222#189#173#255#222#198#173#255#231#198#173#255#214#206#206
|
||||||
|
+#255#247#247#239#255#156'{k'#255#231#173#140#255#156'{k'#255'JB1'#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#214#165#140#255#255#255#255#255#255#231#206#255#198
|
||||||
|
+#173#156#255#255#255#255#255#255#255#255#255#206#165#132#255#214#165#140#255
|
||||||
|
+#214#165#132#255#173#148#140#255#173#148#140#255#173#148#140#255#173#148#140
|
||||||
|
+#255#247#239#239#255#247#247#239#255#156'sk'#255#231#189#148#255#255#206#165
|
||||||
|
+#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#156'{'#255#255
|
||||||
|
+#255#255#255#239#239#239#255#247#247#239#255#198#173#156#255#214#165#140#255
|
||||||
|
+#255#231#206#255#239#239#239#255#247#247#239#255#247#239#239#255#247#247#239
|
||||||
|
+#255#239#239#239#255#247#214#181#255#156'{k'#255#173#148#140#255#239#181#148
|
||||||
|
+#255#247#214#189#255#255#206#156#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#173#148#132#255#247#239#239#255#239#247#239#255#247#239#239#255
|
||||||
|
+#214#165#132#255#239#247#239#255#247#239#239#255#239#239#239#255#247#239#239
|
||||||
|
+#255#239#239#239#255#239#239#239#255#255#231#198#255#255#222#206#255#255#206
|
||||||
|
+#165#255#156'{k'#255#255#206#156#255#255#206#156#255#247#198#140#255#156'{k'
|
||||||
|
+#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#173#148#140#255#247#247#239#255
|
||||||
|
+#247#239#239#255#206#165#132#255#247#247#239#255#247#239#239#255#239#239#239
|
||||||
|
+#255#247#247#231#255#239#239#239#255#247#247#239#255#255#222#198#255#247#214
|
||||||
|
+#198#255#247#222#189#255#247#214#181#255#247#198#140#255#156'{k'#255#247#181
|
||||||
|
+#140#255#247#165's'#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#173#148#132#255#247#239#239#255#198#173#156#255#239#239#239#255#247#239#239
|
||||||
|
+#255#239#239#239#255#247#247#239#255#247#222#198#255#255#222#206#255#247#222
|
||||||
|
+#198#255#247#214#198#255#247#214#181#255#247#214#189#255#255#206#156#255#247
|
||||||
|
+#198#140#255#255#173#140#255#156'{k'#255#231#148'k'#255#156'{k'#255'JB1'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#173#148#132#255#198#181#156#255#247#247#239
|
||||||
|
+#255#247#239#239#255#239#247#239#255#255#222#198#255#247#214#189#255#247#214
|
||||||
|
+#189#255#247#214#181#255#247#214#189#255#247#206#173#255#255#206#156#255#255
|
||||||
|
+#206#165#255#247#189#140#255#231#181#148#255#247#165's'#255#231#148'k'#255
|
||||||
|
+#156'{k'#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#198#156'{'
|
||||||
|
+#255#255#222#198#255#239#239#239#255#255#222#198#255#247#214#189#255#255#206
|
||||||
|
+#156#255#247#198#140#255#231#181#148#255#247#173#140#255#247#181#140#255#247
|
||||||
|
+#165's'#255#239#165'{'#255#247#165's'#255#231#156'c'#255#231#148'c'#255#231
|
||||||
|
+#156'k'#255#231#148'c'#255#206'{J'#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#206#156'{'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255
|
||||||
|
+#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156
|
||||||
|
+'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'
|
||||||
|
+#255#156'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'JB1'#255'J'
|
||||||
|
+'B1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'
|
||||||
|
+#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255
|
||||||
|
+'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0'J91'#255#0#0#0#0'J9)'#255#0#0#0#0'J91'#255
|
||||||
|
+#0#0#0#0'J91'#255#0#0#0#0'J91'#255#0#0#0#0'J9)'#255#0#0#0#0'J91'#255#0#0#0#0
|
||||||
|
+'J91'#255#0#0#0#0'J91'#255#0#0#0#0'J91'#255#0#0#0#0'J91'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#173#148#140#255#0#0#0#0#173#148#140#255#0#0#0#0#173#148#140#255#0#0#0#0#173
|
||||||
|
+#148#140#255#0#0#0#0#165'{k'#255#0#0#0#0#156'{k'#255#0#0#0#0#165'{k'#255#0#0
|
||||||
|
+#0#0#165'{k'#255#0#0#0#0'kcR'#255#0#0#0#0'sZR'#255#0#0#0#0'kZR'#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#231#173#140#255#231#181#140#255#231#181#140#255#247#165's'#255
|
||||||
|
+#222#165'{'#255#222#173#132#255#222#165'{'#255#231#156'c'#255#231#148'k'#255
|
||||||
|
+#231#148'c'#255#239#156'k'#255#231#148'c'#255#214#132'Z'#255#214#132'R'#255
|
||||||
|
+#214#132'Z'#255#222'{J'#255#231'{J'#255#222'{J'#255#222'{J'#255#231'{J'#255
|
||||||
|
+#222'{J'#255'JB1'#255#0#0#0#0#0#0#0#0#231#181#140#255#255#222#206#255#247#222
|
||||||
|
+#206#255#255#222#206#255#247#222#198#255#255#214#189#255#247#214#189#255#247
|
||||||
|
+#206#181#255#247#206#181#255#247#206#181#255#247#189#156#255#247#189#165#255
|
||||||
|
+#247#189#156#255#247#181#140#255#247#181#140#255#247#181#140#255#247#165'{'
|
||||||
|
+#255#247#165's'#255#247#165'{'#255#247#165's'#255#231#148'k'#255'JB1'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#231#173#140#255#247#222#198#255#255#222#189#255#247#222#198#255
|
||||||
|
+#247#206#173#255#239#206#181#255#247#206#173#255#255#206#156#255#247#189#156
|
||||||
|
+#255#239#189#156#255#247#181#140#255#247#181#140#255#247#181#140#255#247#165
|
||||||
|
+'s'#255#247#165's'#255#247#165's'#255#239#165's'#255#247#165'{'#255#231#156
|
||||||
|
+'c'#255#231#148'k'#255#231#156'c'#255'JB1'#255#0#0#0#0#0#0#0#0#247#165's'#255
|
||||||
|
+#247#165's'#255#247#165'{'#255#222#165'{'#255#222#165'{'#255#222#165'{'#255
|
||||||
|
+#231#148'c'#255#231#148'k'#255#231#148'c'#255#231#156'k'#255#231#148'c'#255
|
||||||
|
,#214#132'R'#255#206#132'R'#255#214#132'R'#255#222'{J'#255#222'{J'#255#222'{J'
|
||||||
|
+#255#222'{J'#255#222'{J'#255'JB1'#255'JB1'#255'JB1'#255#0#0#0#0#0#0#0#0#206
|
||||||
|
+#189#181#255#255#255#255#255#255#255#255#255#255#255#255#255#239#189#156#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#239#198#156#255#255#255#255
|
||||||
|
+#255#247#239#239#255#247#247#247#255#239#189#156#255#255#255#255#255#239#239
|
||||||
|
+#247#255#247#247#239#255#239#189#156#255#247#239#239#255#247#247#239#255#255
|
||||||
|
+#222#206#255#231#189#156#255'JB1'#255#0#0#0#0#0#0#0#0#206#189#173#255#255#255
|
||||||
|
+#255#255#239#247#239#255#247#239#239#255#231#189#156#255#255#255#255#255#247
|
||||||
|
+#239#239#255#247#247#239#255#206#165#140#255#247#239#239#255#239#247#239#255
|
||||||
|
+#247#222#206#255#214#165#132#255#239#239#239#255#247#239#239#255#247#222#198
|
||||||
|
+#255#214#165#132#255#239#239#239#255#247#222#206#255#247#206#181#255#206#156
|
||||||
|
+'{'#255'JB1'#255#0#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255#247#239#239
|
||||||
|
+#255#239#239#239#255#214#165#132#255#255#255#255#255#239#247#239#255#255#222
|
||||||
|
+#206#255#198#156'{'#255#247#239#239#255#255#222#198#255#247#222#206#255#198
|
||||||
|
+#156'{'#255#247#247#239#255#247#214#189#255#247#206#173#255#198#156'{'#255
|
||||||
|
+#255#222#206#255#247#206#173#255#255#206#156#255#198#156'{'#255'JB1'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#206#173#156#255#231#189#156#255#239#189#148#255#206#165#132#255
|
||||||
|
+#214#173#140#255#231#181#148#255#231#173#140#255#206#156'{'#255#198#156'{'
|
||||||
|
+#255#231#189#148#255#214#165#132#255#206#156'{'#255'9'#140#214#255'B'#140#214
|
||||||
|
+#255'9'#140#214#255#24'B'#206#255#24'B'#206#255#231#189#148#255#214#165#140
|
||||||
|
+#255#198#156'{'#255#165'{s'#255'JB1'#255#0#0#0#0#0#0#0#0#198#181#156#255#255
|
||||||
|
+#255#255#255#255#255#255#255#247#239#239#255#231#181#148#255#255#255#255#255
|
||||||
|
+#247#247#239#255#239#239#239#255#239#181#148#255#239#239#239#255#247#247#239
|
||||||
|
+#255#239#239#239#255'B'#140#214#255#247#247#239#255#247#239#239#255#255#231
|
||||||
|
+#206#255#24'9'#206#255#255#231#206#255#247#222#198#255#255#231#206#255#231
|
||||||
|
+#181#148#255'JB1'#255#0#0#0#0#0#0#0#0#198#173#165#255#255#255#255#255#247#239
|
||||||
|
+#239#255#239#247#239#255#214#165#140#255#255#255#255#255#247#239#239#255#247
|
||||||
|
+#231#206#255#214#165#140#255#239#239#239#255#247#239#239#255#255#231#198#255
|
||||||
|
+'9'#140#214#255#255#222#206#255#247#214#189#255#255#222#189#255#16'B'#206#255
|
||||||
|
+#255#222#206#255#247#214#189#255#247#206#181#255#206#156'{'#255'JB1'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#198#173#156#255#255#255#255#255#247#247#239#255#247#222#206#255
|
||||||
|
+#206#156'{'#255#239#247#239#255#255#222#198#255#247#214#189#255#206#156'{'
|
||||||
|
+#255#239#247#239#255#255#222#206#255#247#214#181#255#24'9'#206#255#255#222
|
||||||
|
+#189#255#247#214#189#255#247#206#173#255#24'B'#206#255#255#222#189#255#239
|
||||||
|
+#198#165#255#239#189#156#255#198#156'{'#255'J91'#255#0#0#0#0#0#0#0#0#206#181
|
||||||
|
+#156#255#231#181#148#255#214#165#132#255#198#156'{'#255#206#156'{'#255#231
|
||||||
|
+#181#148#255#206#165#140#255#206#156'{'#255#198#156'{'#255#239#181#148#255
|
||||||
|
+#206#165#140#255#206#156'{'#255#24'B'#206#255#16'B'#206#255#24'B'#206#255#24
|
||||||
|
+'B'#206#255#16'B'#214#255#231#173#140#255#198#156'{'#255#173#148#140#255#165
|
||||||
|
+'{k'#255'JB1'#255#0#0#0#0#0#0#0#0#198#173#165#255#255#255#255#255#247#247#239
|
||||||
|
+#255#247#239#239#255#231#181#148#255#247#247#239#255#247#247#239#255#239#239
|
||||||
|
+#239#255#231#189#148#255#247#239#239#255#255#231#206#255#247#222#206#255#239
|
||||||
|
+#189#148#255#255#222#206#255#255#231#206#255#255#222#189#255#239#181#148#255
|
||||||
|
+#247#222#198#255#255#222#198#255#247#206#173#255#231#181#156#255'JB1'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#198#181#156#255#247#239#239#255#239#239#239#255#247#247#239#255
|
||||||
|
+#206#165#140#255#247#239#239#255#247#222#198#255#255#222#206#255#214#165#132
|
||||||
|
+#255#247#222#206#255#247#214#189#255#255#222#189#255#198#156'{'#255#255#222
|
||||||
|
+#206#255#247#214#189#255#247#206#181#255#198#156'{'#255#255#214#189#255#239
|
||||||
|
+#206#181#255#255#206#156#255#206#156'{'#255'J91'#255#0#0#0#0#0#0#0#0#214#165
|
||||||
|
+#140#255#247#247#239#255#239#239#239#255#247#222#189#255#206#156'{'#255#239
|
||||||
|
+#247#239#255#247#214#198#255#247#206#173#255#198#156'{'#255#255#231#206#255
|
||||||
|
+#247#214#189#255#255#206#165#255#198#156'{'#255#247#222#189#255#247#206#181
|
||||||
|
+#255#247#189#156#255#198#156'{'#255#247#206#181#255#247#189#156#255#231#189
|
||||||
|
+#148#255#206#156'{'#255'JB1'#255#0#0#0#0#0#0#0#0#206#165#140#255#247#214#181
|
||||||
|
+#255#231#181#148#255#214#165#140#255#198#156'{'#255#231#173#140#255#206#156
|
||||||
|
+'{'#255#173#148#140#255#156'{k'#255#231#173#140#255#206#156'{'#255#173#148
|
||||||
|
+#140#255#156'{k'#255#231#173#140#255#198#156'{'#255#173#148#140#255#156'{k'
|
||||||
|
+#255#231#181#140#255#198#156'{'#255#173#148#140#255#165'{s'#255'J91'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#214#165#140#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB'
|
||||||
|
+'1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'
|
||||||
|
+#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173#255#206#189#181#255#214#189#173#255
|
||||||
|
+#206#189#173#255#206#189#173#255#206#189#173#255#214#189#181#255#206#189#173
|
||||||
|
+#255#206#173#156#255#198#181#165#255#206#173#156#255#198#181#156#255#198#173
|
||||||
|
+#156#255#198#181#156#255#206#173#156#255#198#181#156#255#214#165#140#255#206
|
||||||
|
+#165#132#255#214#165#140#255#173#148#140#255#173#148#132#255#173#148#140#255
|
||||||
|
+#0#0#0#0#0#0#0#0#214#189#173#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#239#239#239#255#247#247#239#255'JB1'#255#0#0#0#0#0#0#0#0#206
|
||||||
|
+#189#173#255#255#255#255#255#255#255#255#255#247#239#239#255#181#189#189#255
|
||||||
|
+#173#148#140#255'k{'#140#255'k'#132#140#255#189#189#189#255#247#239#239#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#247#247#239#255#247#239#239#255#239#247
|
||||||
|
+#239#255#255#214#198#255'JB1'#255#0#0#0#0#0#0#0#0#206#189#181#255#255#255#255
|
||||||
|
+#255#255#255#255#255#189#189#189#255'k'#132#140#255'k{'#140#255#140#156#165
|
||||||
|
+#255#173#148#140#255'kZR'#255#181#189#189#255#255#255#255#255#255#255#255#255
|
||||||
|
+#247#173#140#255#247#181#140#255#247#181#140#255#247#165's'#255#247#165'{'
|
||||||
|
+#255#239#165's'#255#247#165's'#255#239#239#239#255#255#222#198#255'JB1'#255#0
|
||||||
|
+#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255#255#255#255#255'k{'#140#255'k'
|
||||||
|
+'ZR'#255'scR'#255'k'#132#140#255'kZR'#255#189#189#189#255'k{'#140#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#239
|
||||||
|
+#239#239#255#247#247#239#255#239#239#239#255#247#247#239#255#239#239#239#255
|
||||||
|
+#247#214#181#255'JB1'#255#0#0#0#0#0#0#0#0#214#189#173#255#255#255#255#255#255
|
||||||
|
+#255#255#255'scR'#255'J91'#255#189#189#189#255#222#214#214#255#189#189#189
|
||||||
|
+#255#140#156#165#255'k'#132#140#255#255#255#255#255#255#255#255#255#255#181
|
||||||
|
+#140#255#247#173#140#255#247#181#140#255#247#165's'#255#239#165's'#255#247
|
||||||
|
+#165's'#255#247#165's'#255#247#239#239#255#247#206#173#255'JB1'#255#0#0#0#0#0
|
||||||
|
+#0#0#0#206#189#173#255#255#255#255#255#255#255#255#255'J91'#255'JB1'#255#222
|
||||||
|
+#214#214#255#181#181#189#255#132#156#165#255'k{'#140#255'kcR'#255#255#255#255
|
||||||
|
+#255#255#255#255#255#239#247#239#255#247#239#239#255#247#247#239#255#239#239
|
||||||
|
+#239#255#247#239#239#255#239#239#239#255#247#247#239#255#239#239#239#255#247
|
||||||
|
+#189#156#255'JB1'#255#0#0#0#0#0#0#0#0#206#173#165#255#255#255#255#255#255#255
|
||||||
|
+#255#255#189#189#189#255#0#0#0#255#189#189#189#255#140#156#165#255'k'#132#140
|
||||||
|
+#255'sZR'#255#132#156#165#255#247#239#239#255#247#247#239#255#247#239#239#255
|
||||||
|
+#247#239#239#255#239#239#239#255#247#239#239#255#239#247#239#255#247#239#239
|
||||||
|
+#255#239#239#239#255#255#231#206#255#247#189#165#255'JB1'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#198#173#156#255#255#255#255#255#255#255#255#255#247#247#239#255#222#206#206
|
||||||
|
+#255'kZR'#255'kcR'#255'sZR'#255#24'B'#214#255#189#189#189#255#247#247#239#255
|
||||||
|
+#239#239#239#255#239#239#231#255#247#247#239#255#239#239#239#255#247#247#239
|
||||||
|
+#255#247#239#239#255#247#222#198#255#255#222#198#255#247#222#206#255#239#181
|
||||||
|
+#148#255'JB1'#255#0#0#0#0#0#0#0#0#206#173#156#255#255#255#255#255#255#255#255
|
||||||
|
+#255#181#206#222#255#24'B'#206#255#24'B'#206#255#222#214#214#255#247#247#239
|
||||||
|
+#255#24'B'#206#255#24'9'#206#255#214#214#206#255#247#239#239#255#198#156'{'
|
||||||
|
+#255#206#156'{'#255#156'{k'#255#156'sk'#255#156'{k'#255#156'{k'#255#156'{k'
|
||||||
|
+#255#247#231#198#255#255#181#140#255'JB1'#255#0#0#0#0#0#0#0#0#198#173#156#255
|
||||||
|
+#255#255#255#255#255#255#255#255#24'B'#206#255#132#173#198#255'9'#140#214#255
|
||||||
|
+#24'B'#206#255#24#132#189#255#24'B'#206#255#24#140#198#255#24'B'#206#255#247
|
||||||
|
+#247#239#255#247#239#239#255#239#239#239#255#247#247#239#255#255#222#198#255
|
||||||
|
+#255#231#206#255#255#222#206#255#255#214#198#255#247#222#198#255#247#165's'
|
||||||
|
+#255'JB1'#255#0#0#0#0#0#0#0#0#206#181#165#255#255#255#255#255#255#255#255#255
|
||||||
|
+#24'B'#206#255'9'#173#239#255'B'#140#214#255'B'#140#214#255#24'B'#206#255#24
|
||||||
|
+#140#189#255#24'B'#206#255'1Zs'#255#247#239#239#255#198#156'{'#255#165'{k'
|
||||||
|
+#255#156'{k'#255#156'{k'#255#156'{k'#255#156'{k'#255#156'sk'#255#247#222#198
|
||||||
|
+#255#247#165's'#255'JB1'#255#0#0#0#0#0#0#0#0#198#173#156#255#255#255#255#255
|
||||||
|
+#255#255#255#255#24'B'#206#255#24#140#189#255'B'#140#214#255'B'#140#214#255
|
||||||
|
+#24'B'#206#255#24#140#198#255'!B'#206#255'9c{'#255#247#247#239#255#255#222
|
||||||
|
+#206#255#247#222#198#255#255#222#206#255#255#222#206#255#255#222#198#255#247
|
||||||
|
+#222#189#255#255#222#198#255#247#214#181#255#247#165'{'#255'JB1'#255#0#0#0#0
|
||||||
|
+#0#0#0#0#198#173#156#255#255#255#255#255#247#247#239#255#222#214#206#255#24
|
||||||
|
+'B'#206#255#24'B'#206#255#24'B'#206#255#24'B'#206#255'9cs'#255'9c{'#255#206
|
||||||
|
+#189#173#255#255#222#206#255#156'{k'#255#165'{k'#255#156'{k'#255#156'{k'#255
|
||||||
|
,#156'sk'#255#156'{k'#255#156'sk'#255#247#206#181#255#231#148'c'#255'JB1'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#214#165#140#255#247#247#239#255#247#239#239#255#247#239#239
|
||||||
|
+#255#247#247#239#255#247#247#239#255#247#247#239#255#247#247#239#255#247#239
|
||||||
|
+#239#255#255#222#206#255#255#231#198#255#247#222#206#255#255#222#206#255#247
|
||||||
|
+#222#189#255#255#222#198#255#247#222#198#255#255#214#189#255#247#206#173#255
|
||||||
|
+#247#206#181#255#247#206#173#255#231#148'c'#255'JB1'#255#0#0#0#0#0#0#0#0#206
|
||||||
|
+#165#132#255#247#239#239#255#247#222#198#255#247#214#198#255#247#222#198#255
|
||||||
|
+#247#206#189#255#247#214#181#255#247#198#173#255#239#198#173#255#247#189#156
|
||||||
|
+#255#239#189#156#255#231#181#148#255#231#181#140#255#247#173#140#255#247#165
|
||||||
|
+'s'#255#247#165's'#255#239#165's'#255#247#165'{'#255#231#148'c'#255#231#148
|
||||||
|
+'c'#255#239#156'k'#255'JB1'#255#0#0#0#0#0#0#0#0#214#165#140#255'JB1'#255'JB1'
|
||||||
|
+#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255
|
||||||
|
+'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'#255'JB1'
|
||||||
|
+#255'JB1'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#132#156#165#255#132#156#165#255#132#156#165#255#140
|
||||||
|
+#156#165#255'k{'#140#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#222#198#181#255#206#189
|
||||||
|
+#173#255#214#189#173#255#206#189#181#255#206#189#173#255#140#156#165#255#140
|
||||||
|
+#198#214#255#198#239#255#255#198#247#255#255#173#231#247#255#140#198#214#255
|
||||||
|
+'k{'#140#255#206#173#156#255#198#181#165#255#206#173#156#255#198#173#156#255
|
||||||
|
+#198#173#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#247#239
|
||||||
|
+#239#255#132#156#165#255#198#247#255#255'k{'#140#255'k{'#140#255#140#156#165
|
||||||
|
+#255#140#198#206#255'1c{'#255#206#173#156#255#247#247#239#255#239#239#239#255
|
||||||
|
+#247#247#239#255#247#239#239#255#132#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#214#189#173#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#140#156#165#255#140#189#214#255#173#247#255#255'k'#132#140
|
||||||
|
+#255#132#173#198#255#140#198#214#255'k'#206#247#255'k{'#140#255'1c{'#255#255
|
||||||
|
+#222#198#255#239#239#239#255#247#247#239#255#181#206#214#255'9Z{'#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#132#156#165#255#173#231#247#255#173#231
|
||||||
|
+#239#255#140#189#214#255#140#198#206#255#140#198#206#255#132#173#198#255#132
|
||||||
|
+#173#198#255'k'#132#140#255#255#222#198#255#239#239#239#255#181#206#214#255
|
||||||
|
+#24'B'#206#255'B'#140#214#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#214#189
|
||||||
|
+#181#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'k'
|
||||||
|
+#132#140#255'k{'#140#255'k{'#140#255'9cs'#255'9c{'#255'9Z{'#255'9cs'#255'k{'
|
||||||
|
+#140#255#173#148#140#255#255#222#189#255#165#173#247#255#24'B'#206#255'B'#140
|
||||||
|
+#214#255#206#165#140#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#247#247#239#255#247#247#239#255#255#222#206#255#247#222#198#255#255
|
||||||
|
+#214#181#255#239#198#173#255#247#214#189#255#255#222#198#255#165#173#247#255
|
||||||
|
+'9'#140#214#255'B'#140#214#255#255#231#198#255#156'{k'#255#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#206#189#181#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#239#239#239#255#247#247#239#255#247#239#239
|
||||||
|
+#255#181#206#214#255#24'B'#206#255#24'B'#206#255#181#206#214#255#255#222#206
|
||||||
|
+#255#156'{k'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#214#189#173#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#247#239#239#255#247#239#239
|
||||||
|
+#255#239#239#239#255#165#173#247#255'9'#140#214#255#24'B'#206#255#189#189#189
|
||||||
|
+#255#255#222#206#255#247#214#189#255'kZR'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#206#189#173#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#247#239#239#255
|
||||||
|
+#239#239#239#255#247#247#239#255#165#181#247#255'B'#140#214#255#24'B'#206#255
|
||||||
|
+#132#173#189#255#255#222#206#255#255#231#198#255#247#198#173#255'kcR'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255#255#255
|
||||||
|
+#255#255#165#173#255#255#181#206#214#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#239#239#239#255#247#247#231#255#165#173#247#255'9'#140#214#255
|
||||||
|
+#24'B'#206#255#140#156#165#255#222#214#206#255#247#222#206#255#247#222#189
|
||||||
|
,#255#247#189#156#255'kZR'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189
|
||||||
|
+#181#255#247#247#239#255#165#173#247#255'B'#140#214#255'9'#140#214#255#165
|
||||||
|
+#173#247#255#255#255#255#255#247#239#239#255#247#247#239#255#165#173#247#255
|
||||||
|
+'B'#140#214#255#24'B'#206#255'9'#140#214#255#255#222#198#255#247#231#206#255
|
||||||
|
+#255#214#189#255#247#222#198#255#239#189#156#255'kcR'#255#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#231#189#173#255#165#231#247#255#24'B'#206#255#24'B'#206
|
||||||
|
+#255#24'B'#206#255#173#181#247#255#165#173#247#255#239#247#239#255#165#173
|
||||||
|
+#247#255'9'#140#214#255#24'B'#206#255#24'B'#206#255#231#214#206#255#255#222
|
||||||
|
+#206#255#247#214#189#255#247#222#198#255#247#206#173#255#231#173#140#255'kZR'
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#173#156#255#255#255#255#255
|
||||||
|
+#173#181#247#255#24'B'#206#255#24'B'#206#255#24'B'#206#255#165#173#247#255
|
||||||
|
+#165#173#247#255'B'#140#214#255#24'B'#206#255#24'B'#206#255#189#189#189#255
|
||||||
|
+#255#231#198#255#247#214#198#255#247#222#189#255#247#214#198#255#247#198#173
|
||||||
|
+#255#231#181#140#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#198#181
|
||||||
|
+#156#255#255#255#255#255#255#255#255#255#189#206#214#255#24'B'#206#255#24'B'
|
||||||
|
+#206#255#24'B'#206#255'B'#140#214#255#24'B'#206#255#24'B'#206#255'B'#140#214
|
||||||
|
+#255#255#222#206#255#247#222#206#255#247#222#189#255#255#214#198#255#247#214
|
||||||
|
+#181#255#239#198#173#255#247#181#140#255'J91'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#206#173#156#255#255#255#255#255#255#255#255#255#247#239#239#255
|
||||||
|
+#189#214#222#255#24'B'#206#255'!B'#206#255#24'B'#206#255#24'B'#206#255#24'B'
|
||||||
|
+#206#255#222#214#206#255#247#222#198#255#255#222#189#255#247#214#198#255#247
|
||||||
|
+#214#181#255#247#206#181#255#239#198#165#255#247#165's'#255'J91'#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#198#173#156#255#255#255#255#255#247#247#239
|
||||||
|
+#255#239#239#239#255#247#239#239#255#181#206#214#255#24'B'#206#255#24'B'#206
|
||||||
|
+#255'!B'#206#255#214#198#173#255#247#214#189#255#247#214#189#255#247#206#173
|
||||||
|
+#255#239#198#173#255#247#198#173#255#247#189#156#255#231#189#148#255#247#165
|
||||||
|
+'{'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#173#156#255#239
|
||||||
|
+#247#239#255#255#214#198#255#247#214#189#255#239#198#165#255#247#206#173#255
|
||||||
|
+#140#156#165#255#24'B'#206#255#173#156#140#255#231#181#148#255#231#173#140
|
||||||
|
+#255#231#173#140#255#231#173#140#255#247#181#140#255#247#181#140#255#239#165
|
||||||
|
+'s'#255#247#165'{'#255#239#148'c'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#206#173#140#255#156'sk'#255'kZR'#255'kcR'#255'sZR'#255'kZR'#255'k'
|
||||||
|
+'cR'#255#165'{k'#255'kZR'#255'scR'#255'kZR'#255'JB1'#255'JB1'#255'J91'#255'J'
|
||||||
|
+'B1'#255'J91'#255'JB1'#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#198#214#255#140
|
||||||
|
+#189#214#255#140#198#214#255#140#198#206#255#140#189#214#255#140#198#206#255
|
||||||
|
+#140#198#214#255#140#189#214#255#140#198#206#255#148#189#214#255'{'#173#198
|
||||||
|
+#255#132#173#198#255'{'#173#198#255#132#173#198#255'{'#173#189#255#132#173
|
||||||
|
+#198#255'{'#173#198#255#132#173#189#255'{'#173#198#255#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#140#198#206#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255'9Z{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#148#189#214#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255'9c{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#140#198#214#255#255#255#255#255#206#247#255#255#198#239#255#255#198
|
||||||
|
+#247#255#255#206#247#255#255#198#239#255#255#198#247#255#255#198#247#255#255
|
||||||
|
+#198#247#255#255#198#247#255#255#198#247#255#255#198#247#255#255#198#247#255
|
||||||
|
+#255#198#247#255#255#198#247#255#255#198#247#255#255#198#247#255#255'9Z{'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#198#206#255#198#239#255#255#165
|
||||||
|
+#247#255#255#165#247#255#255#173#239#255#255#165#247#255#255#165#247#255#255
|
||||||
|
+#173#247#255#255#165#239#255#255#173#247#255#255#165#239#255#255#173#247#255
|
||||||
|
+#255#165#239#255#255#173#247#255#255#165#239#255#255#173#247#255#255#165#239
|
||||||
|
+#255#255#173#247#255#255'9cs'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140
|
||||||
|
+#198#214#255#198#247#255#255#173#247#255#255#165#247#247#255#173#247#255#255
|
||||||
|
+#165#247#247#255#173#239#255#255#165#247#247#255#173#247#255#255#165#247#247
|
||||||
|
+#255#173#247#255#255#165#247#247#255#173#247#255#255#165#247#247#255#173#247
|
||||||
|
+#255#255#165#247#255#255#173#247#255#255#165#247#255#255'1Zs'#255#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#198#206#255#198#239#255#255#165#239#255#255
|
||||||
|
,#173#247#255#255#165#239#255#255#173#247#255#255#165#247#255#255#165#247#255
|
||||||
|
+#255#173#247#255#255#165#239#255#255#165#247#255#255#173#247#255#255#165#239
|
||||||
|
+#255#255#165#247#255#255#173#247#255#255#165#239#255#255#165#247#247#255#173
|
||||||
|
+#247#255#255'9c{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'{'#173#189#255
|
||||||
|
+#148#231#255#255#140#231#247#255#165#247#255#255#173#247#247#255#165#247#255
|
||||||
|
+#255#173#239#247#255#165#247#255#255#173#247#247#255#165#247#255#255#173#247
|
||||||
|
+#247#255#165#239#255#255#173#247#247#255#165#247#255#255#173#247#247#255#165
|
||||||
|
+#247#255#255#173#247#255#255#165#247#255#255'9Zs'#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#132#173#189#255#140#231#255#255#148#231#247#255#165#247#255
|
||||||
|
+#255#173#239#255#255#165#247#255#255#165#247#255#255#173#247#255#255#165#247
|
||||||
|
+#255#255#165#239#255#255#173#247#255#255#165#247#255#255#165#247#255#255#173
|
||||||
|
+#247#255#255#165#239#255#255#173#247#247#255#165#239#255#255#173#247#255#255
|
||||||
|
+'1c{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'{'#173#198#255#132#214#247
|
||||||
|
+#255#140#231#255#255#140#231#247#255#140#231#247#255#148#231#247#255#140#222
|
||||||
|
+#255#255#140#231#247#255#148#231#247#255#140#231#247#255#140#231#255#255#148
|
||||||
|
+#222#247#255#140#231#247#255#140#231#255#255#140#231#247#255#140#231#255#255
|
||||||
|
+#148#231#247#255#140#231#255#255'9Zs'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#132#173#189#255'c'#198#247#255#148#231#247#255#140#231#255#255#148#231
|
||||||
|
+#255#255#140#231#247#255#140#231#255#255#148#231#247#255#140#222#255#255#148
|
||||||
|
+#231#255#255#140#231#247#255#148#231#255#255#140#231#247#255#148#222#255#255
|
||||||
|
+#140#231#247#255#148#231#255#255#140#231#247#255#148#231#255#255'1c{'#255#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'{'#173#198#255'R'#189#247#255'{'#214#247
|
||||||
|
+#255#148#231#247#255#140#222#255#255#148#231#247#255#140#231#255#255#140#231
|
||||||
|
+#247#255#148#231#255#255#140#231#247#255#140#231#255#255#140#231#247#255#148
|
||||||
|
+#231#255#255#140#231#247#255#148#231#255#255#140#222#247#255#140#231#255#255
|
||||||
|
+#148#231#247#255'9Zs'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#173#189
|
||||||
|
+#255'1'#156#206#255'9'#181#231#255'J'#189#239#255'J'#181#247#255'9'#181#222
|
||||||
|
+#255'9'#181#231#255#132#214#247#255#140#231#247#255#140#222#255#255#148#231
|
||||||
|
+#247#255#140#231#255#255#148#222#247#255#140#231#255#255#140#231#247#255#148
|
||||||
|
+#231#255#255#140#231#247#255#148#231#255#255'1c{'#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#132#173#198#255'9'#181#231#255'9'#181#222#255'9'#181#231#255
|
||||||
|
+'9'#181#231#255'9'#181#222#255#0#165#222#255'k'#206#247#255'{'#214#247#255
|
||||||
|
+#132#214#247#255'{'#214#247#255#132#214#247#255'{'#214#247#255'{'#214#247#255
|
||||||
|
+#132#214#247#255'{'#214#247#255'{'#214#247#255#132#214#247#255'1Z{'#255#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#173#189#255'k'#206#247#255#0#165#222
|
||||||
|
+#255'9'#181#231#255'9'#181#222#255'9'#181#231#255#0#165#222#255'9'#181#231
|
||||||
|
+#255#132#214#247#255'{'#214#255#255#132#222#247#255'{'#214#247#255#132#222
|
||||||
|
+#247#255'{'#214#255#255#132#222#247#255'{'#214#247#255#132#214#255#255'{'#222
|
||||||
|
+#247#255'9c{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0'{'#173#198#255'k'
|
||||||
|
+#206#247#255'9'#181#222#255#24#132#189#255'9'#181#231#255'9'#181#222#255'9'
|
||||||
|
+#173#239#255#0#165#222#255'k'#206#247#255'{'#214#247#255'{'#214#247#255#132
|
||||||
|
+#214#247#255'{'#214#247#255#132#214#247#255'{'#214#247#255#132#222#247#255'{'
|
||||||
|
+#214#247#255#132#214#247#255'1c{'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#132#173#189#255'c'#198#247#255'k'#206#247#255'R'#189#247#255#0#165#222#255
|
||||||
|
+#24#132#189#255#8#165#222#255#0#165#222#255'!'#156#239#255'k'#206#247#255'c'
|
||||||
|
+#198#247#255#132#222#247#255'{'#214#255#255'{'#222#247#255#132#214#247#255'{'
|
||||||
|
+#214#255#255'{'#214#247#255#132#214#247#255'9c{'#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0'{'#173#198#255'k'#206#247#255'c'#198#247#255'k'#206#247#255
|
||||||
|
+'k'#206#247#255'J'#189#247#255')'#156#239#255'1'#156#206#255#8#165#222#255'1'
|
||||||
|
+#156#206#255'9'#173#239#255'9'#181#231#255'J'#181#239#255'R'#189#247#255'c'
|
||||||
|
+#198#247#255'k'#206#247#255'k'#206#247#255'c'#206#247#255'9Zs'#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#173#198#255'9cs'#255'9Z{'#255'9cs'#255'9Z'
|
||||||
|
+'{'#255'9Zs'#255'9c{'#255'9cs'#255'9c{'#255'9cs'#255'9c{'#255'9c{'#255'9Zs'
|
||||||
|
+#255'9c{'#255'9cs'#255'9Z{'#255'9cs'#255'9Z{'#255'9c{'#255#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#148#165
|
||||||
|
+#255#132#156#165#255#132#156#165#255#140#156#165#255#132#156#173#255#132#156
|
||||||
|
+#165#255#140#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#140#156#165#255#181#206#222#255#206#247#255#255#198#247#255#255#198#239#255
|
||||||
|
+#255#173#247#255#255#173#231#247#255#181#206#214#255#132#156#165#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#148#165#255#132#173#198#255#181#206#214#255
|
||||||
|
,#181#206#214#255#181#206#222#255#181#206#214#255#140#189#206#255#140#198#214
|
||||||
|
+#255#140#189#206#255#132#173#198#255#132#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#140#156#165#255#132#156#165#255#140#156#173#255#132#156#165#255#140#156
|
||||||
|
+#165#255#132#156#165#255#140#156#165#255#140#156#165#255'k'#132#140#255'k{'
|
||||||
|
+#140#255'k'#132#140#255'k{'#140#255'k'#132#140#255'k{'#140#255'k{'#140#255'k'
|
||||||
|
+'{'#140#255'k{'#140#255'k{'#140#255'k{'#140#255'k{'#140#255'k{'#140#255#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#132#156#173#255#206#247#255#255#198#239#255#255#198#247
|
||||||
|
+#255#255#198#239#255#255#198#247#255#255#198#247#255#255#173#231#247#255#173
|
||||||
|
+#231#247#255#173#231#247#255#173#231#247#255'{'#214#247#255#132#222#247#255
|
||||||
|
+'{'#214#247#255#132#222#247#255'{'#222#247#255'k'#206#247#255'k'#206#247#255
|
||||||
|
+'c'#206#247#255'k'#206#247#255#132#173#198#255'k{'#140#255#0#0#0#0#0#0#0#0
|
||||||
|
+#132#156#165#255#198#239#255#255#198#247#255#255#198#239#255#255#173#231#247
|
||||||
|
+#255#173#231#247#255#173#222#247#255#173#231#247#255#140#231#247#255'{'#214
|
||||||
|
+#247#255'{'#222#247#255'k'#198#247#255'c'#206#247#255'k'#198#247#255'c'#206
|
||||||
|
+#247#255'R'#181#247#255'J'#181#247#255'J'#181#247#255'9'#181#222#255'9'#181
|
||||||
|
+#231#255'1'#156#206#255'9c{'#255#0#0#0#0#0#0#0#0#132#156#165#255#198#247#255
|
||||||
|
+#255#198#239#255#255#173#247#255#255#165#231#239#255#173#231#247#255#165#231
|
||||||
|
+#239#255#140#231#247#255#132#214#247#255'{'#214#247#255'k'#198#247#255'k'#206
|
||||||
|
+#247#255'k'#198#247#255'k'#206#247#255'J'#181#239#255'R'#189#247#255'J'#189
|
||||||
|
+#239#255'9'#181#222#255'9'#181#231#255'1'#156#206#255'1'#165#206#255'sZR'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#140#156#165#255#198#239#255#255#165#247#255#255#173#231#239
|
||||||
|
+#255#173#231#247#255#165#231#239#255#148#231#255#255'{'#214#247#255#132#214
|
||||||
|
+#255#255'{'#214#247#255'k'#206#247#255'c'#198#247#255'k'#206#247#255'J'#181
|
||||||
|
+#239#255'R'#189#247#255'J'#181#239#255'9'#181#231#255'9'#181#231#255'9'#181
|
||||||
|
+#231#255'9'#156#206#255'1'#156#206#255'9c{'#255#0#0#0#0#0#0#0#0#132#156#165
|
||||||
|
+#255#198#247#255#255#173#231#247#255#173#222#247#255#165#231#239#255#173#231
|
||||||
|
+#247#255#140#231#247#255#132#214#247#255'{'#222#247#255'k'#198#247#255'k'#206
|
||||||
|
+#247#255'c'#206#247#255'k'#198#247#255'J'#189#247#255'R'#181#239#255'J'#189
|
||||||
|
+#247#255'9'#181#222#255'9'#181#231#255'9'#173#239#255'1'#156#206#255#24#140
|
||||||
|
+#198#255'R91'#255#0#0#0#0#0#0#0#0#140#156#165#255#198#239#255#255#173#231#239
|
||||||
|
+#255#165#231#247#255#173#231#239#255#148#231#255#255'{'#214#247#255#132#214
|
||||||
|
+#247#255'c'#198#247#255'k'#206#247#255'c'#198#247#255'k'#206#247#255'J'#181
|
||||||
|
+#239#255'R'#189#247#255'J'#181#239#255'9'#181#231#255'9'#181#222#255'9'#181
|
||||||
|
+#231#255'1'#173#239#255'9'#156#206#255#24#140#198#255'JB1'#255#0#0#0#0#0#0#0
|
||||||
|
+#0#132#156#165#255#198#247#255#255#173#231#247#255#173#222#239#255#140#231
|
||||||
|
+#255#255'{'#214#247#255'{'#214#247#255#132#222#247#255'c'#198#247#255'k'#206
|
||||||
|
+#247#255'k'#198#247#255'J'#189#239#255'R'#181#247#255'J'#189#239#255'9'#181
|
||||||
|
+#231#255'9'#181#231#255'9'#181#222#255'9'#165#247#255'9'#173#239#255'1'#156
|
||||||
|
+#206#255#24#132#189#255'RB1'#255#0#0#0#0#0#0#0#0#140#156#165#255#198#239#255
|
||||||
|
+#255#173#231#247#255#165#231#239#255#148#231#255#255'{'#214#247#255#132#214
|
||||||
|
+#247#255'c'#198#247#255'k'#206#247#255'k'#206#247#255'J'#181#239#255'R'#189
|
||||||
|
+#247#255'J'#181#247#255'9'#181#222#255'9'#181#231#255'9'#181#222#255'1'#173
|
||||||
|
+#247#255'9'#173#239#255'1'#156#206#255'9'#156#206#255#24#140#198#255'JB1'#255
|
||||||
|
+#0#0#0#0#0#0#0#0#132#156#165#255#173#231#247#255#165#231#239#255#148#231#255
|
||||||
|
+#255'{'#214#247#255#132#214#247#255'c'#206#247#255'k'#206#247#255'k'#198#247
|
||||||
|
+#255'c'#206#247#255'R'#181#247#255'J'#189#239#255'9'#181#231#255'9'#181#222
|
||||||
|
+#255'9'#181#231#255'9'#165#239#255'9'#173#239#255'1'#156#206#255'9'#165#206
|
||||||
|
+#255#24#132#198#255#24#140#189#255'J91'#255#0#0#0#0#0#0#0#0#132#148#165#255
|
||||||
|
+#173#231#247#255#140#231#255#255'{'#214#247#255#132#214#247#255'c'#206#247
|
||||||
|
+#255'k'#198#247#255'k'#206#247#255'c'#198#247#255'R'#189#247#255'J'#181#239
|
||||||
|
+#255'9'#181#231#255'9'#181#222#255'9'#181#231#255'1'#173#239#255'9'#173#247
|
||||||
|
+#255'1'#156#206#255'9'#156#214#255'1'#156#206#255#24#140#189#255#24#132#198
|
||||||
|
+#255'JB1'#255#0#0#0#0#0#0#0#0#132#156#165#255#173#231#247#255'{'#214#247#255
|
||||||
|
+#132#214#247#255'{'#222#247#255'k'#198#247#255'c'#206#247#255'k'#198#247#255
|
||||||
|
+'J'#189#239#255'R'#181#239#255'J'#189#247#255'9'#181#222#255'9'#181#231#255
|
||||||
|
+'9'#165#239#255'9'#173#239#255'1'#156#206#255'9'#165#206#255'1'#156#206#255
|
||||||
|
+'9'#165#206#255#24#132#198#255#24#140#189#255#0#0#0#255#0#0#0#0#0#0#0#0#132
|
||||||
|
+#156#165#255#173#231#247#255#132#214#247#255'{'#222#247#255'k'#198#247#255'k'
|
||||||
|
+#206#247#255'c'#198#247#255'k'#206#247#255'R'#189#247#255'J'#181#247#255'9'
|
||||||
|
+#181#222#255'9'#181#231#255'9'#181#231#255'9'#173#239#255'1'#173#247#255'9'
|
||||||
|
+#156#206#255'1'#156#206#255'9'#156#206#255'1'#165#206#255#24#132#189#255#24
|
||||||
|
+#140#198#255#0#0#0#255#0#0#0#0#0#0#0#0#132#156#173#255#173#231#239#255'{'#214
|
||||||
|
+#247#255'k'#198#247#255'J'#189#247#255'J'#181#239#255'R'#189#239#255'J'#181
|
||||||
|
,#247#255'9'#181#222#255'9'#173#239#255'1'#156#206#255'9'#156#206#255'1'#156
|
||||||
|
+#206#255'1'#156#206#255'9'#156#206#255'1'#165#206#255#24#132#198#255#24#140
|
||||||
|
+#198#255#24#132#189#255#24#140#198#255#24#132#189#255#0#0#0#255#0#0#0#0#0#0#0
|
||||||
|
+#0#140#156#165#255#173#231#247#255'J'#181#247#255'J'#189#247#255#132#173#189
|
||||||
|
+#255'9'#181#231#255'1'#156#206#255'9'#156#206#255'1'#156#206#255'1'#156#206
|
||||||
|
+#255#24#132#189#255#24#140#198#255#24#132#189#255#24#140#198#255#24#140#189
|
||||||
|
+#255#24#132#198#255#24#140#189#255#24#132#189#255#24#140#198#255#24#132#189
|
||||||
|
+#255#24#140#198#255#0#0#0#255#0#0#0#0#0#0#0#0'k{'#140#255'9cs'#255'9c{'#255
|
||||||
|
+'R9)'#255'JB1'#255'RB1'#255'JB1'#255'RB1'#255'JB1'#255'RB1'#255#0#0#0#255#0#0
|
||||||
|
+#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255
|
||||||
|
+#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#10'TImageList'#11'SmallImages'#4'left'#2'('#3'top'#2#16#6'Bitmap'#10
|
||||||
|
+#14#24#0#0'Li'#6#0#0#0#16#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#206#189#173#255#198#173#165#255#198#173#156#255#198#173#165#255
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#140#189#206#255#198#173#165#255#239#231#222#255#198#247#255#255#198#247
|
||||||
|
+#255#255#189#198#206#255#206#189#173#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#181#255#206#189#173#255#198#239#255#255
|
||||||
|
+#198#247#255#255#198#239#255#255#173#231#239#255#140#231#255#255'c'#206#247
|
||||||
|
+#255#198#173#156#255#140#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#206#189#173#255#198#214#222#255#198#247#255#255#198#247#255#255#198#239#255
|
||||||
|
+#255#173#239#255#255#165#231#239#255'{'#214#247#255'k'#198#247#255'c'#206#247
|
||||||
|
+#255#140#189#214#255#198#173#156#255#132#173#198#255#0#0#0#0#198#173#156#255
|
||||||
|
+#206#181#173#255#198#247#255#255#198#239#255#255#198#239#255#255#198#247#255
|
||||||
|
+#255#165#239#255#255#173#231#239#255'{'#214#247#255'c'#198#247#255'k'#206#247
|
||||||
|
+#255'k'#198#239#255'k'#206#247#255'J'#181#239#255#140#173#198#255#140#156#165
|
||||||
|
+#255#198#173#156#255#173#247#255#255#165#231#247#255#173#231#239#255#173#231
|
||||||
|
+#239#255'{'#214#247#255'k'#198#247#255'c'#206#247#255'k'#206#247#255'k'#206
|
||||||
|
+#239#255'J'#173#239#255'B'#181#239#255'J'#173#231#255'B'#181#239#255')'#189
|
||||||
|
+#239#255#189#156#140#255#198#173#165#255#173#231#239#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#247#239#231#255#255#247#239#255#255#239#231#255#255#247#239
|
||||||
|
+#255#239#222#222#255'B'#181#239#255#148#132'{'#255#198#173#156#255#206#189
|
||||||
|
+#181#255#247#239#239#255#255#239#231#255#231#231#222#255#255#239#239#255#255
|
||||||
|
+#239#231#255#247#247#239#255#255#239#231#255#247#239#239#255#255#239#231#255
|
||||||
|
+#247#222#206#255#247#247#231#255#255#214#198#255#148#132'{'#255#148#132'{'
|
||||||
|
+#255#198#173#165#255#247#206#181#255#222#198#173#255#247#239#239#255#255#239
|
||||||
|
+#239#255#231#189#148#255#231#181#148#255#198#173#165#255#198#173#156#255#198
|
||||||
|
+#173#165#255#198#173#156#255#231#231#222#255#255#222#198#255#181#156#140#255
|
||||||
|
+#231#173#132#255#148#132'{'#255#198#165#140#255#255#255#255#255#255#222#198
|
||||||
|
+#255#222#198#173#255#222#198#173#255#222#189#173#255#222#206#198#255#222#198
|
||||||
|
+#173#255#222#198#181#255#222#198#173#255#198#173#165#255#198#173#156#255#181
|
||||||
|
+#156#140#255#231#173#140#255#255#214#156#255#140#132#132#255#189#165#148#255
|
||||||
|
+#255#255#255#255#255#255#255#255#189#165#140#255#222#206#198#255#255#247#239
|
||||||
|
+#255#247#239#239#255#255#247#239#255#247#239#239#255#255#222#206#255#255#222
|
||||||
|
+#198#255#222#165'{'#255#181#140's'#255#255#214#156#255#255#206#148#255#148
|
||||||
|
+#132'{'#255#198#165#140#255#255#255#255#255#198#173#165#255#222#206#198#255
|
||||||
|
+#247#239#239#255#247#239#231#255#255#239#239#255#247#239#231#255#255#247#231
|
||||||
|
+#255#247#222#198#255#247#222#198#255#255#214#173#255#231#173#132#255#181#132
|
||||||
|
+'s'#255#255#181'{'#255#206'sJ'#255#181#156#140#255#198#173#165#255#222#206
|
||||||
|
+#198#255#255#255#255#255#247#247#231#255#255#222#206#255#247#231#198#255#255
|
||||||
|
+#222#206#255#247#222#198#255#255#214#173#255#255#222#181#255#255#214#156#255
|
||||||
|
+#255#206#148#255#231#148'c'#255#198'{J'#255#206'sB'#255#189#156#132#255#247
|
||||||
|
+#214#189#255#255#255#255#255#255#222#206#255#255#222#173#255#255#214#156#255
|
||||||
|
+#255#198#140#255#255#198#140#255#255#198#148#255#255#181'{'#255#255#181'{'
|
||||||
|
+#255#247#165'{'#255#239#165'{'#255#231#148'c'#255#214#132'Z'#255#181'c1'#255
|
||||||
|
+#181#156#140#255#181#156#140#255#181#140's'#255#181#132's'#255#181#140's'#255
|
||||||
|
+#140#132#132#255#206'sJ'#255#198'sJ'#255#198'{B'#255#198'sJ'#255#198'sJ'#255
|
||||||
|
+#198'sJ'#255#181'c1'#255#189'c1'#255#181'c1'#255#189'c1'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255'J91'#255#255#0#255#255'JB'
|
||||||
|
+'1'#255#255#0#255#255'JB1'#255#255#0#255#255'JB1'#255#255#0#255#255'R91'#255
|
||||||
|
+#255#0#255#255'JB1'#255#255#0#255#255'RB1'#255#255#0#255#255'RB1'#255#181#156
|
||||||
|
+#140#255#255#255#255#255#148#132'{'#255#255#255#255#255#148#132#132#255#255
|
||||||
|
+#255#255#255#148#132'{'#255#255#255#255#255#148#132#132#255#255#255#255#255
|
||||||
|
+'Rck'#255#255#255#255#255'RZk'#255#255#255#255#255'Rck'#255#255#0#255#255#247
|
||||||
|
+#165#140#255#247#173#148#255#247#165'{'#255#222#165'{'#255#222#165'{'#255#231
|
||||||
|
+#148'k'#255#231#148'c'#255#231#148'k'#255#214#132'R'#255#222'{J'#255#214#132
|
||||||
|
+'R'#255#206'{J'#255#206'sJ'#255#198'{B'#255#206'sJ'#255'RB1'#255#239#173#148
|
||||||
|
+#255#247#239#239#255#255#247#239#255#247#239#239#255#255#247#239#255#247#247
|
||||||
|
+#239#255#247#239#239#255#247#173#140#255#247#165'{'#255#247#165'{'#255#247
|
||||||
|
+#165'{'#255#239#165'{'#255#247#165'{'#255#247#165'{'#255#247#165'{'#255'RB1'
|
||||||
|
+#255#247#173#140#255#247#165#140#255#239#165's'#255#247#165'{'#255#239#165's'
|
||||||
|
+#255#247#165'{'#255#231#148'c'#255#231#148'c'#255#222#148'k'#255#214#132'R'
|
||||||
|
+#255#222'{J'#255#222'{J'#255#222'{J'#255#222'{J'#255#222'{J'#255'RB1'#255#189
|
||||||
|
+#173#165#255#255#255#255#255#255#255#255#255#222#165'{'#255#255#255#255#255
|
||||||
|
+#255#255#255#255#222#165'{'#255#255#255#255#255#255#255#255#255#222#165'{'
|
||||||
|
+#255#255#255#255#255#255#255#255#255#222#165'{'#255#255#247#239#255#247#239
|
||||||
|
+#239#255'JB1'#255#198#173#165#255#255#255#255#255#255#255#255#255#181#156#140
|
||||||
|
+#255#255#255#255#255#255#255#255#255#181#156#140#255#255#255#255#255#255#255
|
||||||
|
+#255#255#181#156#140#255#255#255#255#255#255#247#239#255#181#148#140#255#255
|
||||||
|
+#247#239#255#222#206#198#255'JB9'#255#198#173#156#255#214#173#148#255#181#156
|
||||||
|
+#140#255#189#132's'#255#222#165'{'#255#181#156#140#255#181#140's'#255#222#165
|
||||||
|
+'{'#255#181#156#140#255'B'#181#239#255')'#148#222#255#24'B'#206#255#24'J'#206
|
||||||
|
+#255#222#165'{'#255#0#0#0#0'RB9'#255#198#173#165#255#255#255#255#255#255#255
|
||||||
|
+#255#255#222#165'{'#255#255#255#255#255#255#255#255#255#222#165'{'#255#255
|
||||||
|
+#255#255#255#255#255#255#255')'#156#222#255#255#255#255#255#255#247#239#255
|
||||||
|
+#24'B'#198#255#255#247#239#255#222#206#206#255'JB1'#255#198#173#156#255#255
|
||||||
|
+#255#255#255#255#255#255#255#181#156#140#255#255#255#255#255#255#255#255#255
|
||||||
|
+#181#156#140#255#255#255#255#255#255#239#239#255#24'B'#206#255#255#247#239
|
||||||
|
+#255#255#239#231#255#24'B'#206#255#255#247#239#255#206#189#173#255'JB1'#255
|
||||||
|
+#198#173#165#255#214#173#148#255#0#0#0#0#189#140's'#255#222#165'{'#255#181
|
||||||
|
+#156#140#255#189#132's'#255#222#165'{'#255#0#0#0#0'!J'#198#255#24'B'#206#255
|
||||||
|
+#24'J'#206#255#24'B'#206#255#222#165'{'#255#189#156#140#255'JB1'#255#198#181
|
||||||
|
+#165#255#255#255#255#255#255#255#255#255#206#173#148#255#255#255#255#255#255
|
||||||
|
+#255#255#255#222#165'{'#255#255#247#239#255#255#239#239#255#222#165'{'#255
|
||||||
|
+#255#247#239#255#255#239#231#255#222#165'{'#255#255#231#206#255#198#181#173
|
||||||
|
+#255'RB9'#255#198#173#156#255#255#255#255#255#255#255#255#255#181#148#132#255
|
||||||
|
+#255#255#255#255#255#247#239#255#0#0#0#0#247#239#239#255#247#239#239#255#0#0
|
||||||
|
+#0#0#247#239#239#255#247#247#239#255#0#0#0#0#255#222#206#255#206#189#181#255
|
||||||
|
+'JB1'#255#198#173#165#255#198#173#165#255#0#0#0#0#189#140's'#255#231#181#148
|
||||||
|
+#255#214#173#148#255#181#132's'#255#239#189#148#255#0#0#0#0#189#132's'#255
|
||||||
|
+#198#173#156#255#181#156#140#255#189#132's'#255#206#173#140#255#181#156#140
|
||||||
|
+#255'RB1'#255#0#0#0#0'JB9'#255'RB1'#255'JB9'#255'RB9'#255'JB1'#255'RB9'#255
|
||||||
|
+'JB1'#255'JB9'#255'RB1'#255'JB9'#255'RB1'#255'JB9'#255'RB1'#255'RB9'#255'JB1'
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173#255#206#189#181#255#206#189#173
|
||||||
|
+#255#206#189#181#255#206#189#173#255#206#189#181#255#198#173#165#255#198#173
|
||||||
|
+#156#255#198#173#165#255#198#173#156#255#198#173#165#255#198#165#140#255#181
|
||||||
|
+#156#140#255#181#156#132#255#181#148#140#255#181#156#140#255#206#189#181#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255'Rcc'
|
||||||
|
+#255#198#189#173#255#255#255#255#255#239#222#222#255'Z{'#140#255#148#132'{'
|
||||||
|
+#255'Z{'#140#255#189#198#206#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#247#239#255#255#239#239#255#222#214
|
||||||
|
+#206#255'J91'#255#206#189#181#255#255#255#255#255'Jcc'#255'c{'#140#255#140
|
||||||
|
+#156#173#255#132#156#165#255#148#132'{'#255#239#231#222#255#255#255#255#255
|
||||||
|
+#247#247#239#255#255#255#255#255#247#239#239#255#247#239#231#255#255#239#231
|
||||||
|
+#255#222#206#198#255'JB1'#255#206#189#173#255#255#255#255#255'RB9'#255'J91'
|
||||||
|
+#255#239#231#222#255#189#198#206#255#148#132'{'#255#231#222#222#255#247#247
|
||||||
|
,#239#255#247#189#165#255#247#189#156#255#255#181'{'#255#247#165'{'#255#247
|
||||||
|
+#165'{'#255#206#189#181#255'JB1'#255#198#173#165#255#255#255#255#255'Rck'#255
|
||||||
|
+'RB9'#255#206#189#181#255#148#132'{'#255'Rck'#255#255#255#255#255#255#239#239
|
||||||
|
+#255#247#247#231#255#247#239#239#255#255#247#239#255#247#239#239#255#247#231
|
||||||
|
+#198#255#206#189#181#255'RB1'#255#198#173#165#255#255#255#255#255#239#231#222
|
||||||
|
+#255'Rck'#255#181#156#132#255#140#156#173#255'RZc'#255#198#214#222#255#247
|
||||||
|
+#247#231#255#247#206#189#255#198#165#140#255#181#156#132#255#181#156#132#255
|
||||||
|
+#181#132's'#255#206#189#181#255'JB1'#255#189#173#156#255#255#247#239#255#16
|
||||||
|
+'{'#189#255#140#173#198#255#24'B'#206#255#24#132#189#255#24'J'#206#255#24'B'
|
||||||
|
+#206#255#255#247#239#255#255#222#198#255#247#222#206#255#255#222#206#255#247
|
||||||
|
+#214#189#255#255#214#189#255#231#189#148#255'J99'#255#198#173#156#255#239#231
|
||||||
|
+#222#255#24'B'#198#255'J'#181#239#255')'#156#222#255'!J'#206#255#24#132#189
|
||||||
|
+#255#24'B'#198#255#255#239#239#255#222#198#173#255#198#165#148#255#181#156
|
||||||
|
+#132#255#181#156#140#255#181#132's'#255#239#189#156#255'JB1'#255#198#165#148
|
||||||
|
+#255#247#247#239#255#189#198#206#255#24'B'#206#255'!J'#198#255#24'B'#206#255
|
||||||
|
+'!J'#206#255#198#165#140#255#255#231#206#255#247#222#198#255#247#214#189#255
|
||||||
|
+#247#214#198#255#255#222#189#255#247#214#189#255#231#181#140#255'JB9'#255#181
|
||||||
|
+#156#140#255#255#222#198#255#255#222#198#255#222#206#198#255#231#198#173#255
|
||||||
|
+#222#198#173#255#231#198#181#255#222#198#173#255#239#198#165#255#231#181#156
|
||||||
|
+#255#231#189#148#255#231#181#148#255#231#173#140#255#231#181#140#255#231#173
|
||||||
|
+#140#255'RB1'#255#181#156#132#255'Rck'#255'JB1'#255'JB1'#255'RB9'#255'JB1'
|
||||||
|
+#255'JB1'#255'RB9'#255'JB1'#255'RB1'#255'JB9'#255'RB9'#255'JB1'#255'JB9'#255
|
||||||
|
+'RB9'#255'JB9'#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#132#173#198#255#140#156#165#255#132#156#173#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#222#198#173#255#206
|
||||||
|
+#189#181#255#206#189#173#255#206#189#181#255#140#156#165#255#173#231#239#255
|
||||||
|
+#173#231#247#255#140#198#214#255'Rcc'#255#198#173#165#255#198#173#156#255#198
|
||||||
|
+#165#148#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#132#156#165#255#132#156#173#255#148#132'{'
|
||||||
|
+#255#140#189#214#255'c{'#140#255#255#247#239#255#231#222#222#255#239#231#222
|
||||||
|
+#255'RZc'#255#0#0#0#0#0#0#0#0#0#0#0#0#206#189#181#255#255#255#255#255#255#255
|
||||||
|
+#255#255#140#156#173#255'{'#214#247#255#140#231#255#255'{'#214#247#255'c'#206
|
||||||
|
+#247#255#140#156#165#255'Zs'#140#255#231#231#222#255#222#206#198#255#181#156
|
||||||
|
+#132#255#0#0#0#0#0#0#0#0#0#0#0#0#206#189#181#255#255#255#255#255#255#255#255
|
||||||
|
+#255#132#156#165#255'c{'#140#255'c{'#140#255'c{'#140#255'c{'#140#255'Z{'#140
|
||||||
|
+#255#140#156#173#255#132#173#189#255#24'B'#206#255#181#156#140#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#206#189#173#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#247#239#239#255#255#239#239#255#247#247#239#255#239#222#222#255#239#231
|
||||||
|
+#222#255#140#173#198#255#24'B'#206#255#140#156#165#255#148#132#132#255#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#198#173#156#255#255#255#255#255#255#255#255#255#255#239
|
||||||
|
+#239#255#247#247#231#255#255#239#239#255#247#239#231#255#231#231#222#255')'
|
||||||
|
+#148#222#255#24'J'#206#255#140#156#165#255#222#214#198#255'RZk'#255#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#198#173#165#255#255#255#255#255#198#247#255#255#198#214#214
|
||||||
|
+#255#255#239#231#255#247#239#239#255#239#231#222#255#140#173#189#255#24'B'
|
||||||
|
+#206#255'Z{'#140#255#255#222#206#255#231#198#181#255'JB1'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#198#173#156#255#247#239#239#255'B'#173#239#255'J'#181#239#255#132
|
||||||
|
+#173#198#255#198#214#214#255#132#173#198#255#24'B'#206#255'!J'#206#255#255
|
||||||
|
+#222#198#255#247#222#189#255#198#173#165#255'JB1'#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#198#173#156#255#255#247#239#255'!B'#198#255#24'B'#206#255')'#156#222#255')'
|
||||||
|
+#148#222#255#24'J'#198#255#24'B'#206#255#206#189#173#255#255#222#198#255#222
|
||||||
|
+#206#198#255#198#173#165#255'JB9'#255#0#0#0#0#0#0#0#0#0#0#0#0#198#173#165#255
|
||||||
|
+#247#247#239#255#198#214#214#255#24'B'#206#255'!J'#206#255'!B'#206#255#24'J'
|
||||||
|
+#206#255#140#156#165#255#247#214#181#255#247#206#189#255#222#198#173#255#214
|
||||||
|
+#173#140#255'RB1'#255#0#0#0#0#0#0#0#0#0#0#0#0#198#173#156#255#255#239#231#255
|
||||||
|
+#255#247#239#255#239#231#222#255'!B'#206#255#24'J'#206#255'c{'#140#255#222
|
||||||
|
+#206#198#255#247#206#181#255#222#206#198#255#222#198#181#255#214#173#148#255
|
||||||
|
+'JB9'#255#0#0#0#0#0#0#0#0#0#0#0#0#198#173#165#255#247#247#239#255#222#206#198
|
||||||
|
+#255#222#206#198#255#222#206#198#255#140#156#165#255#206#189#181#255#231#189
|
||||||
|
+#148#255#198#173#165#255#198#173#156#255#214#173#140#255#189#165#148#255'RB1'
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#214#173#148#255'R91'#255'JB1'#255'JB1'#255'JB1'
|
||||||
|
+#255'Rck'#255'RB1'#255'JB9'#255'RB1'#255'JB9'#255'RB1'#255'JB9'#255#0#0#0#0#0
|
||||||
|
,#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#140#189#214#255#140#198#206#255#148#198#214#255
|
||||||
|
+#140#189#214#255#140#198#214#255#148#198#214#255#140#189#214#255#140#198#206
|
||||||
|
+#255#148#189#214#255#140#198#214#255#132#173#189#255#132#173#198#255#132#173
|
||||||
|
+#198#255#132#173#198#255#0#0#0#0#0#0#0#0#148#189#206#255#198#247#255#255#198
|
||||||
|
+#239#255#255#198#247#255#255#198#247#255#255#198#239#255#255#198#247#255#255
|
||||||
|
+#198#247#255#255#198#247#255#255#198#247#255#255#206#239#255#255#198#247#255
|
||||||
|
+#255#206#247#255#255'Z{'#140#255#0#0#0#0#0#0#0#0#140#198#214#255#198#247#255
|
||||||
|
+#255#173#239#255#255#173#239#247#255#173#239#255#255#173#239#247#255#173#239
|
||||||
|
+#255#255#173#239#255#255#173#239#255#255#165#239#255#255#173#239#255#255#165
|
||||||
|
+#239#247#255#173#239#255#255'Z{'#140#255#0#0#0#0#0#0#0#0#132#173#189#255#173
|
||||||
|
+#239#255#255#173#239#255#255#165#239#255#255#173#239#255#255#165#239#255#255
|
||||||
|
+#173#239#255#255#165#239#247#255#173#239#255#255#165#239#247#255#173#239#255
|
||||||
|
+#255#173#239#255#255#173#247#255#255'RZk'#255#0#0#0#0#0#0#0#0#132#173#198#255
|
||||||
|
+#173#231#239#255#165#239#255#255#173#247#247#255#173#239#255#255#173#247#255
|
||||||
|
+#255#165#239#255#255#173#239#255#255#173#247#255#255#173#239#255#255#165#239
|
||||||
|
+#247#255#173#239#255#255#165#239#255#255'Rcc'#255#0#0#0#0#0#0#0#0#132#173#198
|
||||||
|
+#255#140#231#247#255#140#231#255#255#140#231#255#255#140#231#247#255#140#231
|
||||||
|
+#255#255#140#231#247#255#140#231#247#255#140#231#255#255#140#231#247#255#140
|
||||||
|
+#231#255#255#140#231#255#255#140#231#255#255'Rcc'#255#0#0#0#0#0#0#0#0#132#173
|
||||||
|
+#198#255'k'#198#247#255#140#231#247#255#140#231#255#255#140#222#255#255#140
|
||||||
|
+#231#247#255#140#231#255#255#140#231#255#255#140#222#247#255#140#231#255#255
|
||||||
|
+#140#231#247#255#140#231#255#255#140#231#247#255'RZk'#255#0#0#0#0#0#0#0#0#140
|
||||||
|
+#173#189#255'B'#181#239#255'{'#214#247#255#140#231#255#255#140#231#247#255
|
||||||
|
+#140#231#255#255#140#222#255#255#140#231#247#255#140#231#255#255#140#231#255
|
||||||
|
+#255#140#231#255#255#140#231#255#255#140#231#255#255'Rcc'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#132#173#198#255'J'#173#239#255')'#189#239#255'J'#181#239#255'B'#173#239#255
|
||||||
|
+')'#156#222#255'k'#206#239#255#140#231#255#255#140#231#247#255#140#222#255
|
||||||
|
+#255#140#231#247#255#140#231#255#255#140#231#255#255'RZc'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#132#173#189#255'k'#206#247#255')'#156#222#255')'#189#239#255')'#189#239#255
|
||||||
|
+')'#156#222#255')'#189#239#255#140#222#255#255#140#231#255#255#140#231#247
|
||||||
|
+#255#140#231#255#255#140#231#247#255#140#231#255#255'Rck'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#132#173#198#255'k'#206#247#255'J'#173#239#255')'#156#222#255'1'#189#247#255
|
||||||
|
+')'#189#239#255')'#156#222#255'{'#214#247#255'{'#214#247#255'{'#214#255#255
|
||||||
|
+'{'#214#247#255'{'#214#247#255'{'#214#247#255'Rcc'#255#0#0#0#0#0#0#0#0#140
|
||||||
|
+#173#198#255'{'#214#247#255'k'#206#239#255'J'#181#239#255')'#156#222#255'1'
|
||||||
|
+#156#231#255')'#156#222#255'J'#181#239#255'{'#214#247#255'k'#206#247#255'{'
|
||||||
|
+#214#247#255'{'#214#247#255'{'#222#255#255'Rck'#255#0#0#0#0#0#0#0#0#132#173
|
||||||
|
+#189#255'k'#206#247#255'{'#214#247#255'k'#198#247#255'J'#181#231#255')'#148
|
||||||
|
+#222#255')'#156#222#255#24#132#189#255')'#156#222#255'J'#173#239#255'J'#181
|
||||||
|
+#239#255'J'#181#239#255'J'#173#239#255'Rcc'#255#0#0#0#0#0#0#0#0#140#173#198
|
||||||
|
+#255'Zs'#140#255'c{'#140#255'Z{'#140#255'c{'#140#255'c{'#140#255'Zck'#255'RZ'
|
||||||
|
+'c'#255'Zck'#255'Rcc'#255'RZk'#255'Rcc'#255'Rcc'#255'Rck'#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#156#165#255#132#156#165#255#140#156#173#255
|
||||||
|
+#132#156#165#255#140#156#165#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#156#173#255#173#231#247#255#173#239
|
||||||
|
+#255#255#173#239#255#255#173#247#255#255#140#231#255#255#132#156#173#255#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#140#156
|
||||||
|
+#165#255#132#156#165#255#140#156#165#255#132#156#165#255#132#156#165#255#140
|
||||||
|
+#156#165#255#140#156#165#255#132#156#165#255#140#156#165#255#132#156#173#255
|
||||||
|
+#132#156#165#255#140#156#173#255#132#156#165#255#132#156#165#255#0#0#0#0#0#0
|
||||||
|
+#0#0#132#156#173#255#206#247#255#255#198#247#255#255#198#239#255#255#198#247
|
||||||
|
+#255#255#173#239#255#255#173#239#255#255#173#239#255#255#140#231#255#255#140
|
||||||
|
+#231#255#255'{'#214#247#255'k'#206#247#255'c'#198#247#255'k'#206#247#255'Zs'
|
||||||
|
+#140#255#0#0#0#0#132#156#165#255#198#239#255#255#173#239#255#255#173#239#255
|
||||||
|
+#255#173#239#255#255#165#239#255#255#140#231#255#255#140#231#255#255#140#231
|
||||||
|
+#255#255'c'#198#239#255'k'#206#247#255'J'#173#239#255'J'#181#239#255')'#156
|
||||||
|
,#222#255'Z{'#140#255#0#0#0#0#132#156#173#255#198#247#255#255#173#239#255#255
|
||||||
|
+#165#239#255#255#173#239#255#255#140#231#247#255#140#231#255#255#140#231#247
|
||||||
|
+#255'{'#214#247#255'k'#206#247#255'c'#198#247#255'J'#181#231#255')'#148#222
|
||||||
|
+#255#24#132#189#255'Zck'#255#0#0#0#0#140#156#165#255#198#247#255#255#165#239
|
||||||
|
+#247#255#173#247#255#255#173#239#247#255#140#231#255#255#140#231#255#255'{'
|
||||||
|
+#214#247#255'c'#206#247#255'k'#198#239#255'J'#181#239#255'J'#181#239#255'1'
|
||||||
|
+#156#222#255#24#132#189#255'Rcc'#255#0#0#0#0#132#156#165#255#173#239#255#255
|
||||||
|
+#173#239#255#255#165#239#255#255#140#231#255#255#140#231#247#255'{'#214#247
|
||||||
|
+#255'k'#198#247#255'k'#206#247#255'J'#173#239#255'J'#181#231#255'J'#173#239
|
||||||
|
+#255')'#156#222#255#24#132#189#255'RB1'#255#0#0#0#0#140#156#173#255#165#231
|
||||||
|
+#239#255#173#239#255#255#140#231#247#255#140#231#255#255'{'#214#247#255'c'
|
||||||
|
+#206#247#255'k'#206#247#255'B'#173#231#255'J'#181#239#255'J'#181#239#255')'
|
||||||
|
+#148#222#255')'#156#222#255#24#132#189#255'JB9'#255#0#0#0#0#148#132'{'#255
|
||||||
|
+#173#231#247#255#140#231#255#255#140#231#255#255'{'#214#247#255'k'#198#247
|
||||||
|
+#255'k'#206#239#255'J'#173#239#255'J'#181#239#255'J'#181#231#255')'#148#222
|
||||||
|
+#255')'#156#231#255'!'#132#189#255#24#132#189#255'RB1'#255#0#0#0#0'Z{'#140
|
||||||
|
+#255#173#231#239#255'c'#206#247#255'J'#173#231#255'J'#181#239#255')'#156#222
|
||||||
|
+#255')'#148#231#255#24#132#181#255#24#132#189#255#24#132#189#255#24#132#189
|
||||||
|
+#255#24#132#181#255#24#132#189#255#24#132#189#255#0#0#0#255#0#0#0#0'Z{'#140
|
||||||
|
+#255'cs'#140#255'Rcc'#255'Rck'#255'RB1'#255'RB1'#255'RB1'#255#0#0#0#255#0#0#0
|
||||||
|
+#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#10'TImageList'#10'ToolImages'#6'Height'#2#12#5'Width'#2#12#4'left'#3#144
|
||||||
|
+#0#3'top'#2#16#6'Bitmap'#10#142#13#0#0'Li'#6#0#0#0#12#0#0#0#12#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255
|
||||||
|
+#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132
|
||||||
|
+#255#132#132#132#255#132#132#132#255#0#0#0#255#132#132#132#255#0#0#0#255#0
|
||||||
|
+#255#255#255#255#255#255#255#0#255#255#255#255#255#255#255#0#255#255#255#255
|
||||||
|
+#255#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#0#0#255#132#132#132
|
||||||
|
+#255#198#198#198#255#0#0#0#255#0#255#255#255#255#255#255#255#0#255#255#255
|
||||||
|
+#255#255#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#132#132#255#0#0#0
|
||||||
|
+#255#132#132#132#255#0#255#255#255#198#198#198#255#0#0#0#255#0#255#255#255
|
||||||
|
+#255#255#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#132#132#255#198
|
||||||
|
+#198#198#255#0#0#0#255#132#132#132#255#255#255#255#255#255#255#255#255#0#132
|
||||||
|
+#132#255#0#0#0#255#0#255#255#255#255#255#255#255#0#0#0#255#0#132#132#255#198
|
||||||
|
+#198#198#255#198#198#198#255#0#0#0#255#132#132#132#255#0#255#255#255#0#132
|
||||||
|
+#132#255#198#198#198#255#0#132#132#255#0#0#0#255#0#0#0#255#0#132#132#255#198
|
||||||
|
+#198#198#255#0#132#132#255#198#198#198#255#0#0#0#255#132#132#132#255#0#132
|
||||||
|
+#132#255#198#198#198#255#198#198#198#255#198#198#198#255#0#132#132#255#0#132
|
||||||
|
+#132#255#198#198#198#255#198#198#198#255#198#198#198#255#0#132#132#255#0#0#0
|
||||||
|
+#255#132#132#132#255#198#198#198#255#198#198#198#255#198#198#198#255#198#198
|
||||||
|
+#198#255#198#198#198#255#198#198#198#255#198#198#198#255#198#198#198#255#198
|
||||||
|
+#198#198#255#198#198#198#255#0#0#0#255#132#132#132#255#132#132#132#255#132
|
||||||
|
+#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255
|
||||||
|
+#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#0#0#0#255#0
|
||||||
|
+#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0
|
||||||
|
+#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#132
|
||||||
|
+#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255
|
||||||
|
+#132#132#132#255#132#132#132#255#0#0#0#255#132#132#132#255#0#0#0#255#0#255
|
||||||
|
+#255#255#255#255#255#255#0#255#255#255#255#255#255#255#0#255#255#255#255#255
|
||||||
|
+#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#0#0#255#132#132#132#255
|
||||||
|
+#198#198#198#255#0#0#0#255#0#255#255#255#255#255#255#255#0#255#255#255#255
|
||||||
|
+#255#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#0#132#255#0#0#0#255
|
||||||
|
+#132#132#132#255#0#255#255#255#198#198#198#255#0#0#0#255#0#255#255#255#255
|
||||||
|
+#255#255#255#0#255#255#255#255#255#255#255#0#0#0#255#0#0#132#255#198#198#198
|
||||||
|
+#255#0#0#0#255#132#132#132#255#255#255#255#255#255#255#255#255#0#0#132#255#0
|
||||||
|
,#0#0#255#0#0#255#255#0#0#255#255#0#0#0#255#0#0#132#255#198#198#198#255#0#0
|
||||||
|
+#255#255#0#0#255#255#132#132#132#255#0#255#255#255#0#0#132#255#198#198#198
|
||||||
|
+#255#0#0#132#255#0#0#255#255#0#0#255#255#0#0#255#255#198#198#198#255#0#0#255
|
||||||
|
+#255#0#0#255#255#0#0#255#255#132#132#132#255#0#0#132#255#198#198#198#255#198
|
||||||
|
+#198#198#255#198#198#198#255#0#0#132#255#0#0#255#255#0#0#255#255#0#0#255#255
|
||||||
|
+#0#0#255#255#0#0#255#255#0#0#0#255#132#132#132#255#198#198#198#255#198#198
|
||||||
|
+#198#255#198#198#198#255#198#198#198#255#198#198#198#255#198#198#198#255#0#0
|
||||||
|
+#255#255#0#0#255#255#0#0#255#255#198#198#198#255#0#0#0#255#132#132#132#255
|
||||||
|
+#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#132#132#132
|
||||||
|
+#255#0#0#255#255#0#0#255#255#0#0#255#255#0#0#255#255#0#0#255#255#0#0#0#255#0
|
||||||
|
+#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#255#255#0#0#255#255#0#0
|
||||||
|
+#255#255#0#0#0#255#0#0#255#255#0#0#255#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#255#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255
|
||||||
|
+#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#198
|
||||||
|
+#198#198#255#132#132#132#255#132#132#132#255#132#132#132#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255#255#132#132#132
|
||||||
|
+#255#198#198#198#255#255#255#255#255#255#255#255#255#132#132#132#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#0#0#0#255#198#198#198#255#132#132#132#255#255#255#255#255#132
|
||||||
|
+#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255#255#255#255
|
||||||
|
+#255#255#132#132#132#255#132#132#0#255#0#0#0#255#132#132#0#255#198#198#198
|
||||||
|
+#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255#255
|
||||||
|
+#255#255#255#255#132#132#132#255#0#0#0#255#255#255#0#255#132#132#132#255#132
|
||||||
|
+#132#132#255#132#132#132#255#0#0#0#0#198#198#198#255#198#198#198#255#132#132
|
||||||
|
+#132#255#255#255#255#255#255#255#255#255#132#132#132#255#0#0#0#255#255#255
|
||||||
|
+#255#255#132#132#132#255#198#198#198#255#132#132#132#255#198#198#198#255#0#0
|
||||||
|
+#0#255#0#0#0#255#132#132#132#255#255#255#255#255#255#255#255#255#132#132#132
|
||||||
|
+#255#132#132#0#255#0#0#0#255#132#132#0#255#132#132#132#255#132#132#132#255#0
|
||||||
|
+#0#0#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#255#255
|
||||||
|
+#255#255#132#132#132#255#132#132#132#255#132#132#132#255#0#0#0#255#0#0#0#0
|
||||||
|
+#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0
|
||||||
|
+#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#132#132#132#255#198#198#198#255#132#132#132#255#198#198#198#255#0#0#0
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#198#198#198#255#132
|
||||||
|
+#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#198#198#198#255
|
||||||
|
+#132#132#132#255#198#198#198#255#132#132#132#255#198#198#198#255#132#132#132
|
||||||
|
+#255#132#132#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132
|
||||||
|
+#132#132#255#198#198#198#255#132#132#132#255#132#132#132#255#132#132#132#255
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255
|
||||||
|
+#255#132#132#132#255#198#198#198#255#255#255#255#255#255#255#255#255#132#132
|
||||||
|
+#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#0#0#0#255#198#198#198#255#132#132#132#255#255
|
||||||
|
+#255#255#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#255#255
|
||||||
|
+#255#255#255#255#255#255#132#132#132#255#132#132#0#255#0#0#0#255#132#132#0
|
||||||
|
+#255#198#198#198#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255
|
||||||
|
+#255#255#255#255#255#255#255#255#132#132#132#255#0#0#0#255#255#255#0#255#132
|
||||||
|
+#132#132#255#132#132#132#255#132#132#132#255#0#0#0#0#198#198#198#255#198#198
|
||||||
|
+#198#255#132#132#132#255#255#255#255#255#255#255#255#255#132#132#132#255#0#0
|
||||||
|
+#255#255#0#0#255#255#0#0#255#255#0#0#255#255#132#132#132#255#198#198#198#255
|
||||||
|
+#0#0#0#255#0#0#0#255#132#132#132#255#255#255#255#255#255#255#255#255#0#0#255
|
||||||
|
+#255#255#255#255#255#0#0#255#255#0#0#255#255#255#255#255#255#0#0#255#255#0#0
|
||||||
|
+#0#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#0#0#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255
|
||||||
|
+#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#255#255#0#0
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0#255#255#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#0#0#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#132#132#132#255#255#255#255#255#0#0#255#255#255#255#255#255#0#0
|
||||||
|
+#255#255#0#0#255#255#255#255#255#255#0#0#255#255#0#0#0#0#0#0#0#0#0#0#0#0#132
|
||||||
|
+#132#132#255#198#198#198#255#132#132#132#255#198#198#198#255#0#0#255#255#0#0
|
||||||
|
+#255#255#0#0#255#255#0#0#255#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#132#132#255#132#132#132#255#132#132#132#255#132#132#132#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#255#255#255#255#255#255
|
||||||
|
,#255#255#255#255#255#255#255#198#198#198#255#132#132#132#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#132#132#132#255#198#198
|
||||||
|
+#198#255#0#132#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#132#132#132#255#198#198#198#255#255#255#255#255#255#255#255#255#0#132
|
||||||
|
+#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#0#0#0#0
|
||||||
|
+#255#0#0#0#255#132#132#132#255#198#198#198#255#0#0#0#255#0#0#0#255#0#0#0#0#0
|
||||||
|
+#0#0#255#0#0#0#0#198#198#198#255#0#0#0#255#0#0#0#255#132#132#132#255#198#198
|
||||||
|
+#198#255#255#255#255#255#255#255#255#255#132#132#132#255#0#0#0#255#0#0#0#255
|
||||||
|
+#0#0#0#255#198#198#198#255#0#0#0#0#0#0#0#255#255#255#255#255#0#0#0#255#0#0#0
|
||||||
|
+#255#132#132#132#255#198#198#198#255#0#0#0#255#0#0#0#255#255#255#255#255#0#0
|
||||||
|
+#0#255#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#132#132#132#255#198#198#198
|
||||||
|
+#255#198#198#198#255#132#132#132#255#132#132#132#255#0#0#0#255#255#255#255
|
||||||
|
+#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#255#255#255#255#0#0#0#255#0
|
||||||
|
+#0#0#255#0#0#0#255#0#0#0#255#255#255#255#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#132#132#132#255#132#132#132#255#132#132#132#255#132#132
|
||||||
|
+#132#255#132#132#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#198#198#198#255#132#132#132#255#0#0#0#255#0#0#0#255#0
|
||||||
|
+#0#0#255#0#0#0#255#0#0#0#255#132#132#132#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#132#132#255#132#132#132#255#132#132#132#255#132#132#132
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#132#132#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#198#198#198#255#132#132#132
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#132
|
||||||
|
+#132#132#255#198#198#198#255#0#132#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#132#132#132#255#198#198#198#255#255#255#255#255#255
|
||||||
|
+#255#255#255#0#132#132#255#0#0#0#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#255#0#0#0#0#0#0#0#255#0#0#0#255#132#132#132#255#198#198#198#255#0#0#0#255#0
|
||||||
|
+#0#0#255#0#0#0#0#0#0#0#255#0#0#0#0#198#198#198#255#0#0#0#255#0#0#0#255#132
|
||||||
|
+#132#132#255#198#198#198#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0
|
||||||
|
+#255#255#0#0#255#255#0#0#255#255#198#198#198#255#0#0#0#0#0#0#0#255#255#255
|
||||||
|
+#255#255#0#0#0#255#0#0#0#255#132#132#132#255#0#0#255#255#255#255#255#255#0#0
|
||||||
|
+#255#255#0#0#255#255#255#255#255#255#0#0#255#255#0#0#0#0#0#0#0#255#255#255
|
||||||
|
+#255#255#132#132#132#255#198#198#198#255#198#198#198#255#0#0#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#255#255#255#255#255#0#0#0#255#0#0#0#255#0#0#255#255#0#0#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0#255#255#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#132#132#132#255#132#132#132#255#132#132#132#255#0#0#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#0#0#255#255#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#255#255#255#255#255#255#0#0
|
||||||
|
+#255#255#0#0#255#255#255#255#255#255#0#0#255#255#0#0#0#0#0#0#0#0#198#198#198
|
||||||
|
+#255#132#132#132#255#0#0#0#255#0#0#0#255#0#0#0#255#0#0#255#255#0#0#255#255#0
|
||||||
|
+#0#255#255#0#0#255#255#0#0#0#0#0#0#18'TOpenPictureDialog'#18'OpenPictureDial'
|
||||||
|
+'og1'#5'Title'#6#18'Open existing file'#4'left'#3#136#0#3'top'#2'@'#0#0#0
|
||||||
|
]);
|
||||||
@ -0,0 +1,482 @@
|
|||||||
|
// $Id: JvNavPaneDemoMainForm.pas 10610 2006-05-19 13:35:08Z elahn $
|
||||||
|
unit JvNavPaneDemoMainForm;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
LCLIntf, LMessages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, {JvOutlookBar,} ComCtrls, CheckLst, //JvComponent,
|
||||||
|
JvNavigationPane, ImgList, Menus, {JvPageList, JclWin32, JvExControls,} ExtCtrls,
|
||||||
|
{JvExExtCtrls,} ExtDlgs, LResources;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvNavPaneDemoMainFrm = class(TForm)
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
LargeImages: TImageList;
|
||||||
|
HideAll1: TMenuItem;
|
||||||
|
ShowAll1: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
Dontallowresize1: TMenuItem;
|
||||||
|
ChangeFont1: TMenuItem;
|
||||||
|
SmallImages: TImageList;
|
||||||
|
Colors1: TMenuItem;
|
||||||
|
Standard1: TMenuItem;
|
||||||
|
Blue1: TMenuItem;
|
||||||
|
Silver1: TMenuItem;
|
||||||
|
Olive1: TMenuItem;
|
||||||
|
N2: TMenuItem;
|
||||||
|
ShowToolPanel1: TMenuItem;
|
||||||
|
ToolImages: TImageList;
|
||||||
|
ShowCloseButton1: TMenuItem;
|
||||||
|
N3: TMenuItem;
|
||||||
|
BackgroundImage1: TMenuItem;
|
||||||
|
OpenPictureDialog1: TOpenPictureDialog;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure Dontallowresize1Click(Sender: TObject);
|
||||||
|
procedure HideAll1Click(Sender: TObject);
|
||||||
|
procedure ShowAll1Click(Sender: TObject);
|
||||||
|
procedure ChangeFont1Click(Sender: TObject);
|
||||||
|
procedure SchemaClick(Sender: TObject);
|
||||||
|
procedure PopupMenu1Popup(Sender: TObject);
|
||||||
|
procedure ShowToolPanel1Click(Sender: TObject);
|
||||||
|
procedure ShowCloseButton1Click(Sender: TObject);
|
||||||
|
procedure BackgroundImage1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
JvNavPaneStyleManager1: TJvNavPaneStyleManager;
|
||||||
|
JvOutlookSplitter1: TJvOutlookSplitter;
|
||||||
|
{ Private declarations }
|
||||||
|
procedure DoToolMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);
|
||||||
|
procedure DoToolMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
|
||||||
|
procedure DoToolPanelClose(Sender: TObject);
|
||||||
|
procedure DoToolButtonClick(Sender: TObject; Index: integer);
|
||||||
|
procedure DoToolEndDock(Sender, Target: TObject; X, Y: Integer);
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
NP: TJvNavigationPane;
|
||||||
|
NT: TJvNavPaneToolPanel;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
JvNavPaneDemoMainFrm: TJvNavPaneDemoMainFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
CommCtrl;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
Page: TJvNavPanelPage;
|
||||||
|
N: TTreeNode;
|
||||||
|
R: TRect;
|
||||||
|
i: integer;
|
||||||
|
|
||||||
|
tv: TTreeView;
|
||||||
|
|
||||||
|
dummy: integer;
|
||||||
|
begin
|
||||||
|
//Self.Height := 600;
|
||||||
|
//Self.Width := 800;
|
||||||
|
(*
|
||||||
|
object JvNavPaneStyleManager1: TJvNavPaneStyleManager
|
||||||
|
Theme = nptXPOlive
|
||||||
|
Left = 32
|
||||||
|
Top = 50
|
||||||
|
end
|
||||||
|
object JvOutlookSplitter1: TJvOutlookSplitter
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 7
|
||||||
|
Height = 434
|
||||||
|
Cursor = crSizeWE
|
||||||
|
Align = alLeft
|
||||||
|
ColorFrom = 7703937
|
||||||
|
ColorTo = 3823693
|
||||||
|
StyleManager = JvNavPaneStyleManager1
|
||||||
|
ParentStyleManager = False
|
||||||
|
end
|
||||||
|
*)
|
||||||
|
JvNavPaneStyleManager1 := TJvNavPaneStyleManager.Create(Self);
|
||||||
|
JvNavPaneStyleManager1.Theme := nptXPOlive;
|
||||||
|
|
||||||
|
JvOutlookSplitter1 := TJvOutlookSplitter.Create(Self);
|
||||||
|
JvOutlookSplitter1.Parent := Self;
|
||||||
|
JvOutlookSplitter1.Align := alLeft;
|
||||||
|
JvOutlookSplitter1.ColorFrom := TColor(7703937);
|
||||||
|
JvOutlookSplitter1.ColorTo := TColor(3823693);
|
||||||
|
JvOutlookSplitter1.StyleManager := JvNavPaneStyleManager1;
|
||||||
|
JvOutlookSplitter1.ParentStyleManager := False;
|
||||||
|
|
||||||
|
JvNavPaneStyleManager1.Theme := nptCustom;
|
||||||
|
// this is how to create a NavPane at run-time
|
||||||
|
// also shows how to create and insert pages as well as controls on pages
|
||||||
|
NP := TJvNavigationPane.Create(Self);
|
||||||
|
|
||||||
|
NP.Parent := Self;
|
||||||
|
NP.Cursor := crHandPoint;
|
||||||
|
NP.Width := 220;
|
||||||
|
// NP.BorderWidth := 2;
|
||||||
|
NP.Align := alLeft;
|
||||||
|
JvOutlookSplitter1.Left := 225;
|
||||||
|
JvOutlookSplitter1.MinSize := 220;
|
||||||
|
NP.DropDownMenu := PopupMenu1;
|
||||||
|
NP.SmallImages := SmallImages;
|
||||||
|
NP.LargeImages := LargeImages;
|
||||||
|
NP.AutoHeaders := True;
|
||||||
|
NP.StyleManager := JvNavPaneStyleManager1;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := '&Mail';
|
||||||
|
Page.ImageIndex := 0;
|
||||||
|
Page.PageList := NP;
|
||||||
|
|
||||||
|
with TJvNavPanelDivider.Create(Self) do
|
||||||
|
begin
|
||||||
|
Caption := 'Favorite Folders';
|
||||||
|
Parent := Page;
|
||||||
|
Top := 100;
|
||||||
|
Align := alTop;
|
||||||
|
Enabled := false;
|
||||||
|
Cursor := crDefault;
|
||||||
|
StyleManager := JvNavPaneStyleManager1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
tv := TTreeView.Create(Self);
|
||||||
|
with tv do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Top := 200;
|
||||||
|
Align := alTop;
|
||||||
|
Font.Style := [];
|
||||||
|
BorderStyle := bsNone;
|
||||||
|
Items.Add(nil, 'Inbox');
|
||||||
|
Items.Add(nil, 'Unread Mail');
|
||||||
|
Items.Add(nil, 'For Follow Up [4]');
|
||||||
|
Items.Add(nil, 'Sent Items');
|
||||||
|
Height := 100;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with TJvNavPanelDivider.Create(Self) do
|
||||||
|
begin
|
||||||
|
Caption := 'All Mail Folders';
|
||||||
|
Parent := Page;
|
||||||
|
Top := tv.Top + tv.Height; // 201; // old = 100
|
||||||
|
Align := alTop;
|
||||||
|
Cursor := crSizeNS;
|
||||||
|
StyleManager := JvNavPaneStyleManager1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with TTreeView.Create(Self) do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Align := alClient;
|
||||||
|
BorderStyle := bsNone;
|
||||||
|
Font.Style := [];
|
||||||
|
N := Items.Add(nil, 'Mailbox - Chris Gray');
|
||||||
|
Items.AddChild(N, 'Deleted Items');
|
||||||
|
Items.AddChild(N, 'Drafts');
|
||||||
|
Items.AddChild(N, 'Inbox');
|
||||||
|
Items.AddChild(N, 'Junk E-mail');
|
||||||
|
Items.AddChild(N, 'Outbox');
|
||||||
|
Items.AddChild(N, 'Sent Items');
|
||||||
|
N := Items.AddChild(N, 'Search Folders');
|
||||||
|
Items.AddChild(N, 'For Follow Up [4]');
|
||||||
|
Items.AddChild(N, 'Large Mail');
|
||||||
|
Items.AddChild(N, 'Unread Mail');
|
||||||
|
FullExpand;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := '&Calendar';
|
||||||
|
Page.ImageIndex := 1;
|
||||||
|
Page.PageList := NP;
|
||||||
|
//TODO: replace
|
||||||
|
(*
|
||||||
|
// NB! TMonthCalendar messes up the form when you size the form smaller than one calendar width
|
||||||
|
with TMonthCalendar.Create(Self) do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Align := alTop;
|
||||||
|
AutoSize := true;
|
||||||
|
AutoSize := false;
|
||||||
|
Date := SysUtils.Date;
|
||||||
|
MonthCal_GetMinReqRect(Handle, R);
|
||||||
|
end;
|
||||||
|
Constraints.MinHeight := R.Bottom - R.Top + 12;
|
||||||
|
Constraints.MinWidth := R.Right - R.Left + 12;
|
||||||
|
*)
|
||||||
|
|
||||||
|
with TJvNavPanelDivider.Create(Self) do
|
||||||
|
begin
|
||||||
|
Caption := 'My Calendars';
|
||||||
|
Parent := Page;
|
||||||
|
Top := 1500;
|
||||||
|
Align := alTop;
|
||||||
|
Cursor := crDefault;
|
||||||
|
Enabled := false;
|
||||||
|
StyleManager := JvNavPaneStyleManager1;
|
||||||
|
end;
|
||||||
|
with TCheckListBox.Create(Self) do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Checked[Items.Add('Calendar')] := true;
|
||||||
|
Items.Add('Project Schedule');
|
||||||
|
Top := 1500;
|
||||||
|
Height := 32;
|
||||||
|
Align := alTop;
|
||||||
|
end;
|
||||||
|
with TJvNavPanelDivider.Create(Self) do
|
||||||
|
begin
|
||||||
|
Caption := 'Other Calendars';
|
||||||
|
Parent := Page;
|
||||||
|
Top := 1500;
|
||||||
|
Align := alTop;
|
||||||
|
Cursor := crSizeNS;
|
||||||
|
StyleManager := JvNavPaneStyleManager1;
|
||||||
|
end;
|
||||||
|
with TCheckListBox.Create(Self) do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Checked[Items.Add('Alan Chong')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Andreas Hausladen')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Andr� Snepvangers')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Michael Beck')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Leroy Casterline')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Chris Latta')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Erwin Molendijk')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('James Lan')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Ignacio Vazquez')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Marcel Bestebroer')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Jens Fudickar')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Jose Perez')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Marc Hoffmann')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Fernando Silva')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Robert Marquardt')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Matthias Thoma')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Olivier Sannier')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Oliver Giesen')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Dmitry Osinovsky')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Peter Thornqvist')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('henri gourvest')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Rob den Braasem')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Remko Bonte')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Christian Vogt')] := Random(4) = 1;
|
||||||
|
Checked[Items.Add('Warren Postma')] := Random(4) = 1;
|
||||||
|
Top := 1500;
|
||||||
|
Align := alClient;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := 'C&ontacts';
|
||||||
|
Page.ImageIndex := 2;
|
||||||
|
Page.PageList := NP;
|
||||||
|
|
||||||
|
with TListBox.Create(Self) do
|
||||||
|
begin
|
||||||
|
Parent := Page;
|
||||||
|
Align := alClient;
|
||||||
|
Items.Add('Alan Chong');
|
||||||
|
Items.Add('Andreas Hausladen');
|
||||||
|
Items.Add('Andr� Snepvangers');
|
||||||
|
Items.Add('Michael Beck');
|
||||||
|
Items.Add('Leroy Casterline');
|
||||||
|
Items.Add('Chris Latta');
|
||||||
|
Items.Add('Erwin Molendijk');
|
||||||
|
Items.Add('James Lan');
|
||||||
|
Items.Add('Ignacio Vazquez');
|
||||||
|
Items.Add('Marcel Bestebroer');
|
||||||
|
Items.Add('Jens Fudickar');
|
||||||
|
Items.Add('Jose Perez');
|
||||||
|
Items.Add('Marc Hoffmann');
|
||||||
|
Items.Add('Fernando Silva');
|
||||||
|
Items.Add('Robert Marquardt');
|
||||||
|
Items.Add('Matthias Thoma');
|
||||||
|
Items.Add('Olivier Sannier');
|
||||||
|
Items.Add('Oliver Giesen');
|
||||||
|
Items.Add('Dmitry Osinovsky');
|
||||||
|
Items.Add('Peter Thornqvist');
|
||||||
|
Items.Add('henri gourvest');
|
||||||
|
Items.Add('Rob den Braasem');
|
||||||
|
Items.Add('Remko Bonte');
|
||||||
|
Items.Add('Christian Vogt');
|
||||||
|
Items.Add('Warren Postma');
|
||||||
|
end;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := '&Tasks';
|
||||||
|
Page.ImageIndex := 3;
|
||||||
|
Page.PageList := NP;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := '&Notes';
|
||||||
|
Page.ImageIndex := 4;
|
||||||
|
Page.PageList := NP;
|
||||||
|
|
||||||
|
Page := TJvNavPanelPage.Create(Self);
|
||||||
|
Page.Caption := '&Folder List';
|
||||||
|
Page.ImageIndex := 5;
|
||||||
|
Page.PageList := NP;
|
||||||
|
|
||||||
|
{ with TJvOutlookSplitter.Create(Self) do
|
||||||
|
begin
|
||||||
|
Align := alNone;
|
||||||
|
Parent := Self;
|
||||||
|
Left := NP.Width + 100;
|
||||||
|
Align := alLeft;
|
||||||
|
Width := 7;
|
||||||
|
Cursor := crSizeWE;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
NP.ActivePageIndex := 0;
|
||||||
|
|
||||||
|
NT := TJvNavPaneToolPanel.Create(Self);
|
||||||
|
NT.DragKind := dkDock;
|
||||||
|
// NT.DragMode := dmAutomatic;
|
||||||
|
NT.Parent := Self;
|
||||||
|
NT.Align := alClient;
|
||||||
|
NT.Caption := 'Sample Tool Panel';
|
||||||
|
NT.StyleManager := JvNavPaneStyleManager1;
|
||||||
|
NT.Images := ToolImages;
|
||||||
|
NT.DropDownMenu := PopupMenu1;
|
||||||
|
for i := 0 to ToolImages.Count - 1 do
|
||||||
|
NT.Buttons.Add.ImageIndex := i;
|
||||||
|
NT.OnButtonClick := @DoToolButtonClick;
|
||||||
|
NT.OnMouseDown := @DoToolMouseDown;
|
||||||
|
NT.OnMouseMove := @DoToolMouseMove;
|
||||||
|
NT.OnEndDock := @DoToolEndDock;
|
||||||
|
|
||||||
|
NT.CloseButton := false;
|
||||||
|
NT.OnClose := @DoToolPanelClose;
|
||||||
|
// now, set the real start theme:
|
||||||
|
JvNavPaneStyleManager1.Theme := nptStandard;
|
||||||
|
|
||||||
|
// SESS
|
||||||
|
NT.ShowHint := true;
|
||||||
|
NT.Hint := 'Hello world !!';
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.Dontallowresize1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Dontallowresize1.Checked := not Dontallowresize1.Checked;
|
||||||
|
NP.Resizable := not Dontallowresize1.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.HideAll1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NP.MaximizedCount := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.ShowAll1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NP.MaximizedCount := NP.PageCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.ChangeFont1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
FD: TFontDialog;
|
||||||
|
begin
|
||||||
|
FD := TFontDialog.Create(nil);
|
||||||
|
try
|
||||||
|
FD.Font := NP.NavPanelFont;
|
||||||
|
if FD.Execute then
|
||||||
|
NP.NavPanelFont := FD.Font;
|
||||||
|
finally
|
||||||
|
FD.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.SchemaClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvNavPaneStyleManager1.Theme := TJvNavPanelTheme((Sender as TMenuItem).Tag);
|
||||||
|
(Sender as TMenuItem).Checked := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.DoToolPanelClose(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if MessageDlg('Close this window?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
|
||||||
|
begin
|
||||||
|
JvOutlookSplitter1.Visible := False;
|
||||||
|
NT.Visible := False;
|
||||||
|
NP.Align := alClient;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.PopupMenu1Popup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowToolPanel1.Enabled := not NT.Visible;
|
||||||
|
ShowCloseButton1.Checked := NT.CloseButton;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.ShowToolPanel1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NP.Align := alLeft;
|
||||||
|
NP.Width := 220;
|
||||||
|
JvOutlookSplitter1.Visible := True;
|
||||||
|
JvOutlookSplitter1.Left := 225;
|
||||||
|
NT.Visible := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.DoToolButtonClick(Sender: TObject; Index: integer);
|
||||||
|
begin
|
||||||
|
ShowMessageFmt('You clicked button %d ', [Index]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.ShowCloseButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowCloseButton1.Checked := not ShowCloseButton1.Checked;
|
||||||
|
NT.CloseButton := ShowCloseButton1.Checked;
|
||||||
|
end;
|
||||||
|
|
||||||
|
type
|
||||||
|
THackForm = class(TCustomForm);
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.DoToolEndDock(Sender, Target: TObject; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
if (Target is TCustomForm) and (Target <> Self) then
|
||||||
|
begin
|
||||||
|
TCustomForm(Target).BorderStyle := bsSizeable;
|
||||||
|
//TODO:
|
||||||
|
//SetWindowLong(TCustomForm(Target).Handle, GWL_STYLE, GetWindowLong(TCustomForm(Target).Handle, GWL_STYLE) and not WS_CAPTION);
|
||||||
|
TCustomForm(Target).Width := TCustomForm(Target).Width + 1;
|
||||||
|
TCustomForm(Target).Width := TCustomForm(Target).Width - 1;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
NT.Align := alClient;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.DoToolMouseDown(Sender: TObject; Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: integer);
|
||||||
|
begin
|
||||||
|
if phtGrabber in NT.GetHitTestInfoAt(X, Y) then
|
||||||
|
NT.BeginDrag(false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.DoToolMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||||
|
Y: integer);
|
||||||
|
begin
|
||||||
|
if phtGrabber in NT.GetHitTestInfoAt(X, Y) then
|
||||||
|
NT.Cursor := crSize
|
||||||
|
else
|
||||||
|
NT.Cursor := crDefault;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvNavPaneDemoMainFrm.BackgroundImage1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if OpenPictureDialog1.Execute then
|
||||||
|
begin
|
||||||
|
NP.Background.Picture.LoadFromFile(OpenPictureDialog1.Filename);
|
||||||
|
NP.Background.Tile := True;
|
||||||
|
NT.Background.Picture.LoadFromFile(OpenPictureDialog1.Filename);
|
||||||
|
NT.Background.Tile := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$i JvNavPaneDemoMainForm.lrs}
|
||||||
|
{$i JvNavPaneDemoMainForm.lrs}
|
||||||
|
{$i JvNavPaneDemoMainForm.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
components/jvcllaz/examples/JvNavigationPane/LargeImages.bmp
Normal file
BIN
components/jvcllaz/examples/JvNavigationPane/LargeImages.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 8.5 KiB |
BIN
components/jvcllaz/examples/JvNavigationPane/SmallImages.bmp
Normal file
BIN
components/jvcllaz/examples/JvNavigationPane/SmallImages.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.6 KiB |
71
components/jvcllaz/packages/JvCoreLaz.lpk
Normal file
71
components/jvcllaz/packages/JvCoreLaz.lpk
Normal file
@ -0,0 +1,71 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="2">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="JvCoreLaz"/>
|
||||||
|
<Author Value="Sergio Samayoa"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="..\resource\"/>
|
||||||
|
<OtherUnitFiles Value="..\run\"/>
|
||||||
|
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)\"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<CodeGeneration>
|
||||||
|
<Generate Value="Faster"/>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Description Value="JVCL Core Components"/>
|
||||||
|
<Version Major="1"/>
|
||||||
|
<Files Count="7">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="..\run\JvTypes.pas"/>
|
||||||
|
<UnitName Value="JvTypes"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="..\run\JvComponent.pas"/>
|
||||||
|
<UnitName Value="JvComponent"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Filename Value="..\run\JvConsts.pas"/>
|
||||||
|
<UnitName Value="JvConsts"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Filename Value="..\run\JvExControls.pas"/>
|
||||||
|
<UnitName Value="JvExControls"/>
|
||||||
|
</Item4>
|
||||||
|
<Item5>
|
||||||
|
<Filename Value="..\run\JvExExtCtrls.pas"/>
|
||||||
|
<UnitName Value="JvExExtCtrls"/>
|
||||||
|
</Item5>
|
||||||
|
<Item6>
|
||||||
|
<Filename Value="..\run\JvJCLUtils.pas"/>
|
||||||
|
<UnitName Value="JvJCLUtils"/>
|
||||||
|
</Item6>
|
||||||
|
<Item7>
|
||||||
|
<Filename Value="..\run\JvJVCLUtils.pas"/>
|
||||||
|
<UnitName Value="JvJVCLUtils"/>
|
||||||
|
</Item7>
|
||||||
|
</Files>
|
||||||
|
<RequiredPkgs Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)\"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
15
components/jvcllaz/packages/JvCoreLaz.pas
Normal file
15
components/jvcllaz/packages/JvCoreLaz.pas
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
{ This file was automatically created by Lazarus. Do not edit!
|
||||||
|
This source is only used to compile and install the package.
|
||||||
|
}
|
||||||
|
|
||||||
|
unit JvCoreLaz;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvTypes, JvComponent, JvConsts, JvExControls, JvExExtCtrls, JvJCLUtils,
|
||||||
|
JvJVCLUtils;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
63
components/jvcllaz/packages/JvXPBarLaz.lpk
Normal file
63
components/jvcllaz/packages/JvXPBarLaz.lpk
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="2">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="JvXPBarLaz"/>
|
||||||
|
<Author Value="Sergio Samayoa"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="5"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="..\resource\"/>
|
||||||
|
<OtherUnitFiles Value="..\run\"/>
|
||||||
|
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<CodeGeneration>
|
||||||
|
<Generate Value="Faster"/>
|
||||||
|
</CodeGeneration>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Description Value="JvXPBar (JVCL) conversion for Lazarus version 1.0
|
||||||
|
"/>
|
||||||
|
<License Value="As JVCL."/>
|
||||||
|
<Version Major="1"/>
|
||||||
|
<Files Count="4">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="..\run\JvXPCoreUtils.pas"/>
|
||||||
|
<UnitName Value="JvXPCoreUtils"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="..\run\JvXPBar.pas"/>
|
||||||
|
<UnitName Value="JvXPBar"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Filename Value="..\run\JvXPCore.pas"/>
|
||||||
|
<UnitName Value="JvXPCore"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Filename Value="JvXPBarReg.pp"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="JvXPBarReg"/>
|
||||||
|
</Item4>
|
||||||
|
</Files>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<RequiredPkgs Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)\"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
79
components/jvcllaz/packages/JvXPBarLaz.lrs
Normal file
79
components/jvcllaz/packages/JvXPBarLaz.lrs
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
LazarusResources.Add('TJVXPBAR','BMP',[
|
||||||
|
'BM'#246#6#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#24#0#0#0#24#0#0#0#1#0#24#0#0#0#0#0
|
||||||
|
+#192#6#0#0#18#11#0#0#18#11#0#0#0#0#0#0#0#0#0#0#192#0#224#0#224#192#0#224#192
|
||||||
|
+#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224
|
||||||
|
+#192#0#224#192#0#224#192#0#224#160#0#224#160#0#224#160#255#255#0#255#0#0#255
|
||||||
|
+#0#0#255#0#0#255#0#0#255#0#0#255#0#0#255#0#0#0#224#192#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#224#192#0#0#0#0#0#0#0#0#0#0#224#192#0#224#160#0
|
||||||
|
+#0#0#255#255#0#255#0#0#255#0#0#0#255#255#0#255#255#255#0#0#255#0#0#255#0#0#0
|
||||||
|
+#224#192#192#192#192#192#192#192#192#192#192#192#192#192#192#192#192#192#192
|
||||||
|
+#192#192#192#192#192#192#192#0#224#192#0#0#0#0#224#192#0#224#192#0#0#0#0#224
|
||||||
|
+#192#0#224#160#255#255#0#255#0#0#0#255#255#255#0#0#255#0#0#0#255#255#255#0#0
|
||||||
|
+#255#0#0#0#224#224#128#128#128#128#128#128#128#128#128#128#128#128#128#128
|
||||||
|
+#128#128#128#128#128#128#128#128#128#128#0#224#192#0#0#0#0#224#192#0#224#192
|
||||||
|
+#0#0#0#0#224#192#0#224#192#255#255#0#255#0#0#0#255#255#255#0#0#255#0#0#0#255
|
||||||
|
+#255#255#0#0#255#0#0#0#224#224#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#224#192#0#0#0#0#0#0#0#0#0#0#224#192#0#224#192#0#0#0#255#255#0#255#0#0
|
||||||
|
+#255#0#0#255#0#0#255#0#0#0#255#255#255#0#0#255#0#0#0#224#224#0#224#224#0#224
|
||||||
|
+#224#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0
|
||||||
|
+#224#192#0#224#192#0#224#192#0#224#192#0#224#192#0#224#192#255#255#0#255#0#0
|
||||||
|
+#255#0#0#255#0#0#255#0#0#0#255#255#255#0#0#255#0#0#0#224#224#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#255#255#0#255#0#0#255#0#0#255#0#0#255#0#0#0#255#255#255#0#0#255#0#0#0#224
|
||||||
|
+#224#0#0#0#255#255#255#128#128#128#128#128#128#128#128#128#128#128#128#128
|
||||||
|
+#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128#128
|
||||||
|
+#128#128#128#128#128#128#128#255#255#0#255#0#0#255#0#0#255#0#0#255#0#0#255#0
|
||||||
|
+#0#255#0#0#255#0#0#0#224#224#0#0#0#255#255#255#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#0#224#224#0#0#0#255
|
||||||
|
+#255#255#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#128
|
||||||
|
+#128#128#0#0#0#0#224#160#0#224#224#0#0#0#255#255#255#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#128#128#128#0#0#0#0#224#160#0#224
|
||||||
|
+#224#0#0#0#255#255#255#247#223#214#247#223#214#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#128#128#128#0#0#0#0#224#160#0#224#224#0#0#0#255#255#255#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#128#128#128#0#0#0#0
|
||||||
|
+#224#192#0#224#224#0#0#0#255#255#255#247#223#214#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#128#128#128#0#0#0#0#224#192#0#224#224#0#0#0#255#255
|
||||||
|
+#255#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#128#128
|
||||||
|
+#128#0#0#0#0#224#192#0#224#224#0#0#0#255#255#255#247#223#214#247#223#214#247
|
||||||
|
+#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223
|
||||||
|
+#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214#247#223#214
|
||||||
|
+#247#223#214#247#223#214#247#223#214#128#128#128#0#0#0#0#224#192#0#224#224#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#224#192#0#224#224#0
|
||||||
|
+#0#0#255#255#255#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228
|
||||||
|
+#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228
|
||||||
|
+#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#128#128#128#0
|
||||||
|
+#0#0#0#224#192#0#224#224#0#0#0#255#255#255#228#167'~'#228#167'~'#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#0#0#0#228#167'~'#228
|
||||||
|
+#167'~'#128#128#128#0#0#0#0#224#192#0#224#224#0#0#0#255#255#255#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#0#0#0#0#0
|
||||||
|
,#0#0#0#0#228#167'~'#128#128#128#0#0#0#0#224#192#0#224#224#0#0#0#255#255#255
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'#228#167'~'
|
||||||
|
+#228#167'~'#228#167'~'#228#167'~'#228#167'~'#128#128#128#0#0#0#0#224#192#0
|
||||||
|
+#192#224#0#224#224#0#0#0#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||||
|
+#255#255#255#0#0#0#0#224#192#0#224#192#0#192#224#0#192#224#0#224#224#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#224#192#0#224#192#0#224#192#0#192#224#0#192#224#0
|
||||||
|
+#192#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224
|
||||||
|
+#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224#224#0#224#224#0
|
||||||
|
+#224#224#0#224#224#0#224#224#0#224#224#0#224#192#0#224#192#0#224#192
|
||||||
|
]);
|
||||||
21
components/jvcllaz/packages/JvXPBarLaz.pas
Normal file
21
components/jvcllaz/packages/JvXPBarLaz.pas
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
{ This file was automatically created by Lazarus. Do not edit!
|
||||||
|
This source is only used to compile and install the package.
|
||||||
|
}
|
||||||
|
|
||||||
|
unit JvXPBarLaz;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvXPCoreUtils, JvXPBar, JvXPCore, JvXPBarReg, LazarusPackageIntf;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterUnit('JvXPBarReg', @JvXPBarReg.Register);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterPackage('JvXPBarLaz', @Register);
|
||||||
|
end.
|
||||||
24
components/jvcllaz/packages/JvXPBarReg.pp
Normal file
24
components/jvcllaz/packages/JvXPBarReg.pp
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
unit JvXPBarReg;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, LResources, SysUtils;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses JvXPBar;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterComponents('JvXP',[TJvXPBar]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I JvXPBarLaz.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
254
components/jvcllaz/resource/JvXPBar.lrs
Normal file
254
components/jvcllaz/resource/JvXPBar.lrs
Normal file
@ -0,0 +1,254 @@
|
|||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE0','BMP',[
|
||||||
|
'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3
|
||||||
|
+#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0
|
||||||
|
+#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0
|
||||||
|
]);
|
||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE1','BMP',[
|
||||||
|
'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3
|
||||||
|
+#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#165'8'#0#165'8'#1#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0
|
||||||
|
+#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0
|
||||||
|
]);
|
||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBARCOLLAPSE2','BMP',[
|
||||||
|
'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3
|
||||||
|
+#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165
|
||||||
|
+'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255
|
||||||
|
+#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165
|
||||||
|
+'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165
|
||||||
|
+'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0
|
||||||
|
]);
|
||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND0','BMP',[
|
||||||
|
'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3
|
||||||
|
+#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#168'6'#8#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165
|
||||||
|
+'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#173'3'#24#166'8'#2#255#0#255#255#0#255#255#0#255#165'8'
|
||||||
|
+#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#166'7'#3#165'8'#0#255#0#255#165
|
||||||
|
+'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#0#182
|
||||||
|
+'./'#255#0#255#255#0#255#255#0#255#169'6'#11#169'5'#12#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#0#0
|
||||||
|
]);
|
||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND1','BMP',[
|
||||||
|
'BM&'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#24#0#0#0#0#0#240#3
|
||||||
|
+#0#0#195#14#0#0#195#14#0#0#0#0#0#0#0#0#0#0#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#167'6'#7#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#166'8'#2#165'8'#0#165
|
||||||
|
+'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#165'8'#0#165'8'#0#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#165'8'#0
|
||||||
|
+#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#165'8'#0#165'8'#0#165'8'#0#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#1#165'8'#1#255#0#255#165
|
||||||
|
+'8'#0#165'8'#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#165'8'#1#171
|
||||||
|
+'4'#18#255#0#255#255#0#255#255#0#255#166'7'#4#165'8'#1#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0
|
||||||
|
+#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255
|
||||||
|
+#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#0#0#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#0#0#255#0#255
|
||||||
|
+#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0
|
||||||
|
+#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255#255#0#255
|
||||||
|
+#255#0#255#255#0#255#0#0
|
||||||
|
]);
|
||||||
|
LazarusResources.Add('JVXPCUSTOMWINXPBAREXPAND2','BMP',[
|
||||||
|
'BM'#174#1#0#0#0#0#0#0'F'#0#0#0'('#0#0#0#18#0#0#0#18#0#0#0#1#0#8#0#0#0#0#0'h'
|
||||||
|
+#1#0#0#195#14#0#0#195#14#0#0#4#0#0#0#4#0#0#0#255#0#255#0#165'8'#0#0#255#255
|
||||||
|
+#255#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#1#1#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#0#0#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#1#1#0#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#1#0#0#0#1#1#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
]);
|
||||||
923
components/jvcllaz/run/JvButton.pas
Normal file
923
components/jvcllaz/run/JvButton.pas
Normal file
@ -0,0 +1,923 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvButton.PAS, released on 2001-02-28.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is S�bastien Buysse [sbuysse att buypin dott com]
|
||||||
|
Portions created by S�bastien Buysse are Copyright (C) 2001 S�bastien Buysse.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): Michael Beck [mbeck att bigfoot dott com].
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvButton.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvButton;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Graphics, JvComponent, JvConsts, JvTypes, LMessages, Menus;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvButtonMouseState = (bsMouseInside, bsMouseDown);
|
||||||
|
TJvButtonMouseStates = set of TJvButtonMouseState;
|
||||||
|
|
||||||
|
TJvCustomGraphicButton = class(TJvGraphicControl)
|
||||||
|
private
|
||||||
|
FStates: TJvButtonMouseStates;
|
||||||
|
FBuffer: TBitmap;
|
||||||
|
FFlat: Boolean;
|
||||||
|
FDropDownMenu: TPopupMenu;
|
||||||
|
FDown: Boolean;
|
||||||
|
FForceSameSize: Boolean;
|
||||||
|
FAllowAllUp: Boolean;
|
||||||
|
FGroupIndex: Integer;
|
||||||
|
FHotTrack: Boolean;
|
||||||
|
FHotFont: TFont;
|
||||||
|
FHotTrackFontOptions: TJvTrackFontOptions;
|
||||||
|
FOnDropDownMenu: TContextPopupEvent;
|
||||||
|
FDropArrow: Boolean;
|
||||||
|
FOnDropDownClose: TNotifyEvent;
|
||||||
|
function GetPattern: TBitmap;
|
||||||
|
procedure SetFlat(const Value: Boolean);
|
||||||
|
procedure SetDown(Value: Boolean);
|
||||||
|
procedure CMButtonPressed(var Msg: TCMButtonPressed); message CM_JVBUTTONPRESSED;
|
||||||
|
procedure CMForceSize(var Msg: TCMForceSize); message CM_FORCESIZE;
|
||||||
|
procedure CMSysColorChange(var Msg: TLMessage); message CM_SYSCOLORCHANGE;
|
||||||
|
procedure SetForceSameSize(const Value: Boolean);
|
||||||
|
procedure SetAllowAllUp(const Value: Boolean);
|
||||||
|
procedure SetGroupIndex(const Value: Integer);
|
||||||
|
procedure SetHotFont(const Value: TFont);
|
||||||
|
procedure SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
procedure SetDropArrow(const Value: Boolean);
|
||||||
|
procedure SetDropDownMenu(const Value: TPopupMenu);
|
||||||
|
protected
|
||||||
|
procedure ButtonPressed(Sender: TJvCustomGraphicButton; AGroupIndex: Integer); virtual;
|
||||||
|
procedure ForceSize(Sender: TControl; AWidth, AHeight: Integer);
|
||||||
|
function DoDropDownMenu(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): Boolean; virtual;
|
||||||
|
procedure DropDownClose;
|
||||||
|
procedure UpdateExclusive;
|
||||||
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
procedure MouseEnter(Control: TControl); override;
|
||||||
|
procedure MouseLeave(Control: TControl); override;
|
||||||
|
procedure Paint; override;
|
||||||
|
procedure PaintButton(ACanvas: TCanvas); virtual;
|
||||||
|
procedure PaintFrame(ACanvas: TCanvas); virtual;
|
||||||
|
function InsideBtn(X, Y: Integer): Boolean; virtual;
|
||||||
|
function WantKey(Key: Integer; Shift: TShiftState;
|
||||||
|
const KeyText: WideString): Boolean; override;
|
||||||
|
procedure EnabledChanged; override;
|
||||||
|
procedure FontChanged; override;
|
||||||
|
procedure RepaintBackground; virtual;
|
||||||
|
procedure TextChanged; override;
|
||||||
|
property AllowAllUp: Boolean read FAllowAllUp write SetAllowAllUp default False;
|
||||||
|
property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
|
||||||
|
property MouseStates: TJvButtonMouseStates read FStates write FStates default [];
|
||||||
|
property ForceSameSize: Boolean read FForceSameSize write SetForceSameSize default False;
|
||||||
|
property Pattern: TBitmap read GetPattern;
|
||||||
|
property Flat: Boolean read FFlat write SetFlat default False;
|
||||||
|
property HotTrack: Boolean read FHotTrack write FHotTrack default False;
|
||||||
|
property HotTrackFont: TFont read FHotFont write SetHotFont;
|
||||||
|
property HotTrackFontOptions: TJvTrackFontOptions read FHotTrackFontOptions write SetHotTrackFontOptions default
|
||||||
|
DefaultTrackFontOptions;
|
||||||
|
property Down: Boolean read FDown write SetDown default False;
|
||||||
|
property DropDownMenu: TPopupMenu read FDropDownMenu write SetDropDownMenu;
|
||||||
|
property DropArrow: Boolean read FDropArrow write SetDropArrow default False;
|
||||||
|
property OnDropDownMenu: TContextPopupEvent read FOnDropDownMenu write FOnDropDownMenu;
|
||||||
|
property OnDropDownClose: TNotifyEvent read FOnDropDownClose write FOnDropDownClose;
|
||||||
|
public
|
||||||
|
procedure Click; override;
|
||||||
|
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure DrawDropArrow(ACanvas: TCanvas; ArrowRect: TRect); virtual;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvCustomButton = class(TJvExButton)
|
||||||
|
private
|
||||||
|
FDropDownMenu: TPopupMenu;
|
||||||
|
FHotTrack: Boolean;
|
||||||
|
FHotFont: TFont;
|
||||||
|
FFontSave: TFont;
|
||||||
|
FWordWrap: Boolean;
|
||||||
|
FForceSameSize: Boolean;
|
||||||
|
FHotTrackFontOptions: TJvTrackFontOptions;
|
||||||
|
FOnDropDownMenu: TContextPopupEvent;
|
||||||
|
FDropArrow: Boolean;
|
||||||
|
procedure SetHotFont(const Value: TFont);
|
||||||
|
procedure SetWordWrap(const Value: Boolean);
|
||||||
|
procedure SetForceSameSize(const Value: Boolean);
|
||||||
|
procedure CMForceSize(var Msg: TCMForceSize); message CM_FORCESIZE;
|
||||||
|
procedure SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
procedure SetDropArrow(const Value: Boolean);
|
||||||
|
procedure SetDropDownMenu(const Value: TPopupMenu);
|
||||||
|
protected
|
||||||
|
function DoDropDownMenu(X, Y: Integer): Boolean; virtual;
|
||||||
|
procedure ForceSize(Sender: TControl; AWidth, AHeight: Integer);
|
||||||
|
procedure MouseEnter(Control: TControl); override;
|
||||||
|
procedure MouseLeave(Control: TControl); override;
|
||||||
|
procedure FontChanged; override;
|
||||||
|
procedure CreateParams(var Params: TCreateParams); override;
|
||||||
|
function GetRealCaption: string; dynamic;
|
||||||
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
property WordWrap: Boolean read FWordWrap write SetWordWrap default True;
|
||||||
|
property ForceSameSize: Boolean read FForceSameSize write SetForceSameSize default False;
|
||||||
|
property DropArrow: Boolean read FDropArrow write SetDropArrow default False;
|
||||||
|
property DropDownMenu: TPopupMenu read FDropDownMenu write SetDropDownMenu;
|
||||||
|
property HotTrack: Boolean read FHotTrack write FHotTrack default False;
|
||||||
|
property HotTrackFont: TFont read FHotFont write SetHotFont;
|
||||||
|
property HotTrackFontOptions: TJvTrackFontOptions read FHotTrackFontOptions write SetHotTrackFontOptions default
|
||||||
|
DefaultTrackFontOptions;
|
||||||
|
property HintColor;
|
||||||
|
property OnParentColorChange;
|
||||||
|
property OnDropDownMenu: TContextPopupEvent read FOnDropDownMenu write FOnDropDownMenu;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure Click;override;
|
||||||
|
procedure DrawDropArrow(Canvas: TCanvas; ArrowRect: TRect); virtual;
|
||||||
|
procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// TJvDropDownButton draws a DropDown button with the DropDown glyph
|
||||||
|
// (also themed). It ignores the properties Glyph and Flat
|
||||||
|
TJvDropDownButton = class(TSpeedButton)
|
||||||
|
protected
|
||||||
|
procedure Paint; override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms, JvJVCLUtils, LCLIntf, LCLType, SysUtils;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
const
|
||||||
|
JvBtnLineSeparator = '|';
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
var
|
||||||
|
GlobalPattern: TBitmap = nil;
|
||||||
|
|
||||||
|
function CreateBrushPattern: TBitmap;
|
||||||
|
var
|
||||||
|
X, Y: Integer;
|
||||||
|
begin
|
||||||
|
if GlobalPattern = nil then
|
||||||
|
begin
|
||||||
|
GlobalPattern := TBitmap.Create;
|
||||||
|
try
|
||||||
|
GlobalPattern.Width := 8; { must have this size }
|
||||||
|
GlobalPattern.Height := 8;
|
||||||
|
with GlobalPattern.Canvas do
|
||||||
|
begin
|
||||||
|
Brush.Style := bsSolid;
|
||||||
|
Brush.Color := clBtnFace;
|
||||||
|
FillRect(Rect(0, 0, GlobalPattern.Width, GlobalPattern.Height));
|
||||||
|
for Y := 0 to 7 do
|
||||||
|
for X := 0 to 7 do
|
||||||
|
if (Y mod 2) = (X mod 2) then { toggles between even/odd pixels }
|
||||||
|
Pixels[X, Y] := clWhite; { on even/odd rows }
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
FreeAndNil(GlobalPattern);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result := GlobalPattern;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvCustomGraphicButton } =============================================
|
||||||
|
|
||||||
|
constructor TJvCustomGraphicButton.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
ControlStyle := ControlStyle -
|
||||||
|
[csOpaque, csDoubleClicks ];
|
||||||
|
FStates := [];
|
||||||
|
SetBounds(0, 0, 40, 40);
|
||||||
|
FBuffer := TBitmap.Create;
|
||||||
|
FFlat := False;
|
||||||
|
FDropArrow := False;
|
||||||
|
FForceSameSize := False;
|
||||||
|
FHotFont := TFont.Create;
|
||||||
|
FHotTrackFontOptions := DefaultTrackFontOptions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvCustomGraphicButton.Destroy;
|
||||||
|
begin
|
||||||
|
FBuffer.Free;
|
||||||
|
FHotFont.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.DrawDropArrow(ACanvas: TCanvas; ArrowRect: TRect);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if not Enabled then
|
||||||
|
ACanvas.Pen.Color := clInactiveCaption
|
||||||
|
else
|
||||||
|
ACanvas.Pen.Color := clWindowText;
|
||||||
|
for I := 0 to 3 do
|
||||||
|
begin
|
||||||
|
if ArrowRect.Left + I <= ArrowRect.Right - I then
|
||||||
|
begin
|
||||||
|
ACanvas.MoveTo(ArrowRect.Left + I, ArrowRect.Top + I);
|
||||||
|
ACanvas.LineTo(ArrowRect.Right - I, ArrowRect.Top + I);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Handle speedkeys (Alt + key) }
|
||||||
|
|
||||||
|
function TJvCustomGraphicButton.WantKey(Key: Integer; Shift: TShiftState;
|
||||||
|
const KeyText: WideString): Boolean;
|
||||||
|
begin
|
||||||
|
Result := IsAccel(Key, Caption) and Enabled and (Shift * KeyboardShiftStates = [ssAlt]);
|
||||||
|
if Result then
|
||||||
|
Click
|
||||||
|
else
|
||||||
|
Result := inherited WantKey(Key, Shift, KeyText);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.EnabledChanged;
|
||||||
|
begin
|
||||||
|
inherited EnabledChanged;
|
||||||
|
if not Enabled then
|
||||||
|
FStates := [];
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.MouseEnter(Control: TControl);
|
||||||
|
begin
|
||||||
|
if csDesigning in ComponentState then
|
||||||
|
Exit;
|
||||||
|
if Enabled and not MouseOver then
|
||||||
|
begin
|
||||||
|
Include(FStates, bsMouseInside);
|
||||||
|
inherited MouseEnter(Control);
|
||||||
|
if Flat then
|
||||||
|
RepaintBackground;
|
||||||
|
if HotTrack then
|
||||||
|
Repaint;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.MouseLeave(Control: TControl);
|
||||||
|
begin
|
||||||
|
if Enabled and MouseOver then
|
||||||
|
begin
|
||||||
|
Exclude(FStates, bsMouseInside);
|
||||||
|
inherited MouseLeave(Control);
|
||||||
|
if Flat then
|
||||||
|
RepaintBackground;
|
||||||
|
if HotTrack then
|
||||||
|
Repaint;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.Paint;
|
||||||
|
var
|
||||||
|
ArrowRect: TRect;
|
||||||
|
begin
|
||||||
|
// FBuffer.Width := Width;
|
||||||
|
// FBuffer.Height := Height;
|
||||||
|
PaintFrame(Canvas);
|
||||||
|
PaintButton(Canvas);
|
||||||
|
if DropArrow and Assigned(DropDownMenu) then
|
||||||
|
begin
|
||||||
|
ArrowRect := Rect(Width - 16, Height div 2, Width - 9, Height div 2 + 9);
|
||||||
|
if bsMouseDown in FStates then
|
||||||
|
OffsetRect(ArrowRect, 1, 1);
|
||||||
|
DrawDropArrow(Canvas, ArrowRect);
|
||||||
|
end;
|
||||||
|
// BitBlt(Canvas.Handle, 0, 0, Width,Height, FBuffer.Canvas.Handle, 0, 0, SRCCOPY);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.PaintFrame(ACanvas: TCanvas);
|
||||||
|
begin
|
||||||
|
// do nothing
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.PaintButton(ACanvas: TCanvas);
|
||||||
|
begin
|
||||||
|
if (bsMouseInside in FStates) and HotTrack then
|
||||||
|
ACanvas.Font := FHotFont
|
||||||
|
else
|
||||||
|
ACanvas.Font := Font;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomGraphicButton.InsideBtn(X, Y: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := PtInRect(Rect(0, 0, Width, Height), Point(X, Y));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.MouseDown(Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
Tmp: TPoint;
|
||||||
|
begin
|
||||||
|
if not Enabled then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
inherited MouseDown(Button, Shift, X, Y);
|
||||||
|
|
||||||
|
if InsideBtn(X, Y) then
|
||||||
|
begin
|
||||||
|
FStates := [bsMouseDown, bsMouseInside];
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
SetCaptureControl(Self);
|
||||||
|
Tmp := ClientToScreen(Point(0, Height));
|
||||||
|
DoDropDownMenu(Button, Shift, Tmp.X, Tmp.Y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.MouseMove(Shift: TShiftState;
|
||||||
|
X, Y: Integer);
|
||||||
|
begin
|
||||||
|
inherited MouseMove(Shift, X, Y);
|
||||||
|
if MouseCapture then
|
||||||
|
begin
|
||||||
|
if not InsideBtn(X, Y) then
|
||||||
|
begin
|
||||||
|
if bsMouseInside in FStates then
|
||||||
|
begin
|
||||||
|
Exclude(FStates, bsMouseInside);
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if not (bsMouseInside in FStates) then
|
||||||
|
begin
|
||||||
|
Include(FStates, bsMouseInside);
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.MouseUp(Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
if GetCaptureControl = Self then
|
||||||
|
ReleaseCapture;
|
||||||
|
if not Enabled then
|
||||||
|
Exit;
|
||||||
|
inherited MouseUp(Button, Shift, X, Y);
|
||||||
|
Exclude(FStates, bsMouseDown);
|
||||||
|
|
||||||
|
// 26.09.2007 - SESS:
|
||||||
|
// Update bsMouseInside flag also.
|
||||||
|
if not InsideBtn(X, Y) and (bsMouseInside in FStates) then
|
||||||
|
Exclude(FStates, bsMouseInside);
|
||||||
|
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomGraphicButton.DoDropDownMenu(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): Boolean;
|
||||||
|
var
|
||||||
|
Msg: TMsg;
|
||||||
|
Handled: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (Button = mbLeft) and (DropDownMenu <> nil);
|
||||||
|
if Result then
|
||||||
|
begin
|
||||||
|
DropDownMenu.PopupComponent := Self;
|
||||||
|
Handled := False;
|
||||||
|
if Assigned(FOnDropDownMenu) then
|
||||||
|
FOnDropDownMenu(Self, Point(X, Y), Handled);
|
||||||
|
if not Handled then
|
||||||
|
DropDownMenu.Popup(X, Y)
|
||||||
|
else
|
||||||
|
Exit;
|
||||||
|
{ wait 'til menu is done }
|
||||||
|
while PeekMessage(Msg, 0, LM_MOUSEFIRST, LM_MOUSELAST, PM_REMOVE) do
|
||||||
|
{nothing};
|
||||||
|
{ release button }
|
||||||
|
MouseUp(Button, Shift, X, Y);
|
||||||
|
DropDownClose;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetFlat(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FFlat <> Value then
|
||||||
|
begin
|
||||||
|
FFlat := Value;
|
||||||
|
if FFlat then
|
||||||
|
ControlStyle := ControlStyle - [csOpaque]
|
||||||
|
else
|
||||||
|
ControlStyle := ControlStyle + [csOpaque];
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.Notification(AComponent: TComponent;
|
||||||
|
Operation: TOperation);
|
||||||
|
begin
|
||||||
|
inherited Notification(AComponent, Operation);
|
||||||
|
if (Operation = opRemove) and (AComponent = DropDownMenu) then
|
||||||
|
DropDownMenu := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetDown(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if GroupIndex = 0 then
|
||||||
|
Value := False;
|
||||||
|
if FDown <> Value then
|
||||||
|
begin
|
||||||
|
if FDown and not AllowAllUp then
|
||||||
|
Exit;
|
||||||
|
FDown := Value;
|
||||||
|
UpdateExclusive;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetForceSameSize(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FForceSameSize <> Value then
|
||||||
|
begin
|
||||||
|
FForceSameSize := Value;
|
||||||
|
if FForceSameSize then
|
||||||
|
SetBounds(Left, Top, Width, Height);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
|
||||||
|
var
|
||||||
|
Form: TCustomForm;
|
||||||
|
Msg: TCMForceSize;
|
||||||
|
begin
|
||||||
|
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
|
||||||
|
if ForceSameSize then
|
||||||
|
begin
|
||||||
|
Form := GetParentForm(Self);
|
||||||
|
if Assigned(Form) then
|
||||||
|
begin
|
||||||
|
Msg.Msg := CM_FORCESIZE;
|
||||||
|
Msg.Sender := Self;
|
||||||
|
Msg.NewSize.X := AWidth;
|
||||||
|
Msg.NewSize.Y := AHeight;
|
||||||
|
Form.Broadcast(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.CMForceSize(var Msg: TCMForceSize);
|
||||||
|
begin
|
||||||
|
with Msg do
|
||||||
|
ForceSize(Sender, NewSize.x, NewSize.y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomGraphicButton.GetPattern: TBitmap;
|
||||||
|
begin
|
||||||
|
Result := CreateBrushPattern;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetAllowAllUp(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FAllowAllUp <> Value then
|
||||||
|
begin
|
||||||
|
FAllowAllUp := Value;
|
||||||
|
UpdateExclusive;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetGroupIndex(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FGroupIndex <> Value then
|
||||||
|
begin
|
||||||
|
FGroupIndex := Value;
|
||||||
|
UpdateExclusive;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.UpdateExclusive;
|
||||||
|
var
|
||||||
|
Msg: TCMButtonPressed;
|
||||||
|
begin
|
||||||
|
if (GroupIndex <> 0) and (Parent <> nil) then
|
||||||
|
begin
|
||||||
|
Msg.Msg := CM_JVBUTTONPRESSED;
|
||||||
|
Msg.Index := GroupIndex;
|
||||||
|
Msg.Control := Self;
|
||||||
|
Msg.Result := 0;
|
||||||
|
Parent.Broadcast(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.CMButtonPressed(var Msg: TCMButtonPressed);
|
||||||
|
begin
|
||||||
|
ButtonPressed(TJvCustomGraphicButton(Msg.Control), Msg.Index);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetHotFont(const Value: TFont);
|
||||||
|
begin
|
||||||
|
FHotFont.Assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
begin
|
||||||
|
if FHotTrackFontOptions <> Value then
|
||||||
|
begin
|
||||||
|
FHotTrackFontOptions := Value;
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, HotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetDropArrow(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FDropArrow <> Value then
|
||||||
|
begin
|
||||||
|
FDropArrow := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.SetDropDownMenu(const Value: TPopupMenu);
|
||||||
|
begin
|
||||||
|
if FDropDownMenu <> Value then
|
||||||
|
begin
|
||||||
|
FDropDownMenu := Value;
|
||||||
|
if DropArrow then
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.CMSysColorChange(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.FontChanged;
|
||||||
|
begin
|
||||||
|
inherited FontChanged;
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, HotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.TextChanged;
|
||||||
|
begin
|
||||||
|
inherited TextChanged;
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.Click;
|
||||||
|
begin
|
||||||
|
if GroupIndex <> 0 then
|
||||||
|
begin
|
||||||
|
if AllowAllUp then
|
||||||
|
Down := not Down
|
||||||
|
else
|
||||||
|
Down := True;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
inherited Click;
|
||||||
|
except
|
||||||
|
// Mantis 3097: In case there is an exception, we ensure here that the
|
||||||
|
// button is not left "down", and we reraise the exception as we can't
|
||||||
|
// handle it and don't want to ignore it.
|
||||||
|
Exclude(FStates, bsMouseDown);
|
||||||
|
RepaintBackground;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.ButtonPressed(Sender: TJvCustomGraphicButton;
|
||||||
|
AGroupIndex: Integer);
|
||||||
|
begin
|
||||||
|
if AGroupIndex = GroupIndex then
|
||||||
|
if Sender <> Self then
|
||||||
|
begin
|
||||||
|
if Sender.Down and Down then
|
||||||
|
begin
|
||||||
|
FDown := False;
|
||||||
|
Exclude(FStates, bsMouseDown);
|
||||||
|
RepaintBackground;
|
||||||
|
end;
|
||||||
|
FAllowAllUp := Sender.AllowAllUp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.ForceSize(Sender: TControl; AWidth, AHeight: Integer);
|
||||||
|
begin
|
||||||
|
if Sender <> Self then
|
||||||
|
inherited SetBounds(Left, Top, AWidth, AHeight);
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
//=== { TJvCustomButton } ====================================================
|
||||||
|
|
||||||
|
constructor TJvCustomButton.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FDropArrow := False;
|
||||||
|
FHotTrack := False;
|
||||||
|
FHotFont := TFont.Create;
|
||||||
|
FFontSave := TFont.Create;
|
||||||
|
// ControlStyle := ControlStyle + [csAcceptsControls];
|
||||||
|
FWordWrap := True;
|
||||||
|
FForceSameSize := False;
|
||||||
|
FHotTrackFontOptions := DefaultTrackFontOptions;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvCustomButton.Destroy;
|
||||||
|
begin
|
||||||
|
FHotFont.Free;
|
||||||
|
FFontSave.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.Click;
|
||||||
|
var
|
||||||
|
Tmp: TPoint;
|
||||||
|
begin
|
||||||
|
// Call ClientToScreen before the inherited Click as the OnClick handler might
|
||||||
|
// reset the parent, which is needed by ClientToScreen.
|
||||||
|
Tmp := ClientToScreen(Point(0, Height));
|
||||||
|
inherited Click;
|
||||||
|
DoDropDownMenu(Tmp.X, Tmp.Y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.DrawDropArrow(Canvas: TCanvas; ArrowRect: TRect);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if not Enabled then
|
||||||
|
Canvas.Pen.Color := clInactiveCaption
|
||||||
|
else
|
||||||
|
Canvas.Pen.Color := clWindowText;
|
||||||
|
for I := 0 to (ArrowRect.Bottom - ArrowRect.Top) do
|
||||||
|
begin
|
||||||
|
if ArrowRect.Left + I <= ArrowRect.Right - I then
|
||||||
|
begin
|
||||||
|
Canvas.MoveTo(ArrowRect.Left + I, ArrowRect.Top + I);
|
||||||
|
Canvas.LineTo(ArrowRect.Right - I, ArrowRect.Top + I);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.CreateParams(var Params: TCreateParams);
|
||||||
|
begin
|
||||||
|
inherited CreateParams(Params);
|
||||||
|
Params.Style := Params.Style or BS_MULTILINE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
begin
|
||||||
|
if FHotTrackFontOptions <> Value then
|
||||||
|
begin
|
||||||
|
FHotTrackFontOptions := Value;
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, HotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetDropArrow(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FDropArrow <> Value then
|
||||||
|
begin
|
||||||
|
FDropArrow := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetHotFont(const Value: TFont);
|
||||||
|
begin
|
||||||
|
FHotFont.Assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetDropDownMenu(const Value: TPopupMenu);
|
||||||
|
begin
|
||||||
|
if FDropDownMenu <> Value then
|
||||||
|
begin
|
||||||
|
FDropDownMenu := Value;
|
||||||
|
if DropArrow then
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.MouseEnter(Control: TControl);
|
||||||
|
begin
|
||||||
|
if not MouseOver then
|
||||||
|
begin
|
||||||
|
if FHotTrack then
|
||||||
|
begin
|
||||||
|
FFontSave.Assign(Font);
|
||||||
|
Font.Assign(FHotFont);
|
||||||
|
end;
|
||||||
|
inherited MouseEnter(Control);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.MouseLeave(Control: TControl);
|
||||||
|
begin
|
||||||
|
if MouseOver then
|
||||||
|
begin
|
||||||
|
if FHotTrack then
|
||||||
|
Font.Assign(FFontSave);
|
||||||
|
inherited MouseLeave(Control);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.FontChanged;
|
||||||
|
begin
|
||||||
|
inherited FontChanged;
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, HotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomButton.GetRealCaption: string;
|
||||||
|
begin
|
||||||
|
if WordWrap then
|
||||||
|
Result := StringReplace(Caption, JvBtnLineSeparator, Lf, [rfReplaceAll])
|
||||||
|
else
|
||||||
|
Result := Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetWordWrap(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FWordWrap <> Value then
|
||||||
|
begin
|
||||||
|
FWordWrap := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetForceSameSize(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FForceSameSize <> Value then
|
||||||
|
begin
|
||||||
|
FForceSameSize := Value;
|
||||||
|
if FForceSameSize then
|
||||||
|
SetBounds(Left, Top, Width, Height);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
|
||||||
|
var
|
||||||
|
Form: TCustomForm;
|
||||||
|
Msg: TCMForceSize;
|
||||||
|
begin
|
||||||
|
inherited SetBounds(ALeft, ATop, AWidth, AHeight);
|
||||||
|
if ForceSameSize then
|
||||||
|
begin
|
||||||
|
Form := GetParentForm(Self);
|
||||||
|
if Assigned(Form) then
|
||||||
|
begin
|
||||||
|
Msg.Msg := CM_FORCESIZE;
|
||||||
|
Msg.Sender := Self;
|
||||||
|
Msg.NewSize.X := AWidth;
|
||||||
|
Msg.NewSize.Y := AHeight;
|
||||||
|
Form.Broadcast(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.CMForceSize(var Msg: TCMForceSize);
|
||||||
|
begin
|
||||||
|
with Msg do
|
||||||
|
ForceSize(Sender, NewSize.x, NewSize.y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomButton.Notification(AComponent: TComponent;
|
||||||
|
Operation: TOperation);
|
||||||
|
begin
|
||||||
|
inherited Notification(AComponent, Operation);
|
||||||
|
if (Operation = opRemove) and (AComponent = FDropDownMenu) then
|
||||||
|
DropDownMenu := nil;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.RepaintBackground;
|
||||||
|
var
|
||||||
|
R: TRect;
|
||||||
|
begin
|
||||||
|
if (Parent <> nil) and Parent.HandleAllocated then
|
||||||
|
begin
|
||||||
|
R := BoundsRect;
|
||||||
|
InvalidateRect(Parent.Handle, @R, True);
|
||||||
|
end;
|
||||||
|
Repaint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
procedure TJvCustomButton.ForceSize(Sender: TControl; AWidth, AHeight: Integer);
|
||||||
|
begin
|
||||||
|
if Sender <> Self then
|
||||||
|
inherited SetBounds(Left, Top, AWidth, AHeight);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomButton.DoDropDownMenu(X, Y: Integer): Boolean;
|
||||||
|
var
|
||||||
|
Msg: TMsg;
|
||||||
|
Handled: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (DropDownMenu <> nil);
|
||||||
|
if Result then
|
||||||
|
begin
|
||||||
|
DropDownMenu.PopupComponent := Self;
|
||||||
|
case DropDownMenu.Alignment of
|
||||||
|
paRight:
|
||||||
|
Inc(X, Width);
|
||||||
|
paCenter:
|
||||||
|
Inc(X, Width div 2);
|
||||||
|
end;
|
||||||
|
Handled := False;
|
||||||
|
if Assigned(FOnDropDownMenu) then
|
||||||
|
FOnDropDownMenu(Self, Point(X, Y), Handled);
|
||||||
|
if not Handled then
|
||||||
|
DropDownMenu.Popup(X, Y)
|
||||||
|
else
|
||||||
|
Exit;
|
||||||
|
{ wait 'til menu is done }
|
||||||
|
while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE) do
|
||||||
|
{nothing};
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvDropDownButton } ==================================================
|
||||||
|
|
||||||
|
constructor TJvDropDownButton.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
Width := 16;
|
||||||
|
Height := 16;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvDropDownButton.Paint;
|
||||||
|
var
|
||||||
|
PaintRect: TRect;
|
||||||
|
DrawFlags: Integer;
|
||||||
|
DC: HDC;
|
||||||
|
Bmp: TBitmap;
|
||||||
|
begin
|
||||||
|
// adjust FState and FDragging
|
||||||
|
DC := Canvas.Handle;
|
||||||
|
Bmp := TBitmap.Create;
|
||||||
|
try
|
||||||
|
Bmp.Width := 1;
|
||||||
|
Bmp.Height := 1;
|
||||||
|
Canvas.Handle := Bmp.Canvas.Handle;
|
||||||
|
try
|
||||||
|
inherited Paint;
|
||||||
|
finally
|
||||||
|
Canvas.Handle := DC;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Bmp.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
PaintRect := Rect(0, 0, Width, Height);
|
||||||
|
DrawFlags := DFCS_SCROLLCOMBOBOX or DFCS_ADJUSTRECT;
|
||||||
|
if FState in [bsDown, bsExclusive] then
|
||||||
|
DrawFlags := DrawFlags or DFCS_PUSHED;
|
||||||
|
|
||||||
|
{$IFDEF JVCLThemesEnabled}
|
||||||
|
if ThemeServices.ThemesEnabled then
|
||||||
|
DrawThemedFrameControl(Self, Canvas.Handle, PaintRect, DFC_SCROLL, DrawFlags)
|
||||||
|
else
|
||||||
|
{$ENDIF JVCLThemesEnabled}
|
||||||
|
begin
|
||||||
|
DrawFrameControl(Canvas.Handle, PaintRect, DFC_SCROLL, DrawFlags);
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
procedure TJvCustomGraphicButton.DropDownClose;
|
||||||
|
begin
|
||||||
|
if Assigned(FOnDropDownClose) then
|
||||||
|
FOnDropDownClose(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
finalization
|
||||||
|
FreeAndNil(GlobalPattern);
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
267
components/jvcllaz/run/JvComponent.pas
Normal file
267
components/jvcllaz/run/JvComponent.pas
Normal file
@ -0,0 +1,267 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvComponent.PAS, released on 2000-09-22.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Joe Doe .
|
||||||
|
Portions created by Joe Doe are Copyright (C) 1999 Joe Doe.
|
||||||
|
Portions created by XXXX Corp. are Copyright (C) 1998, 1999 XXXX Corp.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): -
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvComponent.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvComponent;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Forms, LMessages, JvExControls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvGraphicControl = TJvExGraphicControl;
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//TJvPubGraphicControl = TJvExPubGraphicControl;
|
||||||
|
|
||||||
|
TJvCustomControl = TJvExCustomControl;
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//TJvWinControl = TJvExWinControl;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvForm = class(TJvExForm)
|
||||||
|
private
|
||||||
|
FIsFocusable: Boolean;
|
||||||
|
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
|
||||||
|
procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
|
||||||
|
protected
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0); override;
|
||||||
|
{$IFDEF USE_DXGETTEXT}
|
||||||
|
procedure RefreshTranslation; virtual;
|
||||||
|
{$ENDIF USE_DXGETTEXT}
|
||||||
|
|
||||||
|
function ShowModal: Integer; override;
|
||||||
|
{ ShowNoActivate() shows the form but does not activate it. }
|
||||||
|
procedure ShowNoActivate(CallActivate: Boolean = False);
|
||||||
|
published
|
||||||
|
property IsFocusable: Boolean read FIsFocusable write FIsFocusable default True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvPopupListBox } ====================================================
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvPopupListBox = class(TJvExCustomListBox)
|
||||||
|
private
|
||||||
|
FSearchText: string;
|
||||||
|
FSearchTickCount: Longint;
|
||||||
|
protected
|
||||||
|
procedure CreateParams(var Params: TCreateParams); override;
|
||||||
|
procedure CreateWnd; override;
|
||||||
|
procedure KeyPress(var Key: Char); override;
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
{$IFDEF COMPILER6_UP}
|
||||||
|
uses
|
||||||
|
RTLConsts;
|
||||||
|
{$ELSE}
|
||||||
|
uses
|
||||||
|
Consts;
|
||||||
|
{$ENDIF COMPILER6_UP}
|
||||||
|
|
||||||
|
//=== { TJvForm } ============================================================
|
||||||
|
|
||||||
|
constructor TJvForm.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
// inherited Create(AOwner);
|
||||||
|
{$IFDEF CLR}
|
||||||
|
GlobalNameSpace.AcquireWriterLock(MaxInt);
|
||||||
|
{$ELSE}
|
||||||
|
GlobalNameSpace.BeginWrite;
|
||||||
|
{$ENDIF CLR}
|
||||||
|
try
|
||||||
|
CreateNew(AOwner, 0);
|
||||||
|
if (ClassType <> TJvForm) and not (csDesigning in ComponentState) then
|
||||||
|
begin
|
||||||
|
Include(FFormState, fsCreating);
|
||||||
|
try
|
||||||
|
if not InitInheritedComponent(Self, TJvForm) then
|
||||||
|
{$IFDEF CLR}
|
||||||
|
raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
|
||||||
|
{$ELSE}
|
||||||
|
raise EResNotFound.CreateResFmt(@SResNotFound, [ClassName]);
|
||||||
|
{$ENDIF CLR}
|
||||||
|
|
||||||
|
{$IFDEF USE_DXGETTEXT}
|
||||||
|
TranslateComponent(Self, cDomainName);
|
||||||
|
{$ENDIF USE_DXGETTEXT}
|
||||||
|
finally
|
||||||
|
Exclude(FFormState, fsCreating);
|
||||||
|
end;
|
||||||
|
{$IFNDEF CLR}
|
||||||
|
if OldCreateOrder then
|
||||||
|
{$ENDIF !CLR}
|
||||||
|
DoCreate;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
{$IFDEF CLR}
|
||||||
|
GlobalNameSpace.ReleaseWriterLock;
|
||||||
|
{$ELSE}
|
||||||
|
GlobalNameSpace.EndWrite;
|
||||||
|
{$ENDIF CLR}
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TJvForm.CreateNew(AOwner: TComponent; Dummy: Integer);
|
||||||
|
begin
|
||||||
|
inherited CreateNew(AOwner, Dummy);
|
||||||
|
FIsFocusable := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$IFDEF USE_DXGETTEXT}
|
||||||
|
|
||||||
|
procedure TJvForm.RefreshTranslation;
|
||||||
|
begin
|
||||||
|
ReTranslateComponent(Self, cDomainName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$ENDIF USE_DXGETTEXT}
|
||||||
|
|
||||||
|
procedure TJvForm.CMShowingChanged(var Message: TMessage);
|
||||||
|
var
|
||||||
|
NewParent: HWND;
|
||||||
|
begin
|
||||||
|
if Showing and (FormStyle <> fsMDIChild) then
|
||||||
|
begin
|
||||||
|
if FormStyle = fsStayOnTop then
|
||||||
|
begin
|
||||||
|
// restore StayOnTop
|
||||||
|
NewParent := Application.Handle;
|
||||||
|
if GetWindowLong(Handle, GWL_HWNDPARENT) <> Longint(NewParent) then
|
||||||
|
SetWindowLong(Handle, GWL_HWNDPARENT, Longint(NewParent));
|
||||||
|
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
// Fixing the Window Ghosting "bug", only for forms that don't have a parent assigned (Mantis 4032)
|
||||||
|
if not Assigned(Parent) then
|
||||||
|
begin
|
||||||
|
NewParent := 0;
|
||||||
|
if Assigned(Screen.ActiveForm) and (Screen.ActiveForm <> Self) then
|
||||||
|
begin
|
||||||
|
if fsModal in Screen.ActiveForm.FormState then
|
||||||
|
NewParent := Screen.ActiveForm.Handle;
|
||||||
|
end;
|
||||||
|
if (NewParent = 0) and Assigned(Application.MainForm) and (Application.MainForm <> Self) then
|
||||||
|
NewParent := Application.MainForm.Handle;
|
||||||
|
if NewParent = 0 then
|
||||||
|
NewParent := Application.Handle;
|
||||||
|
if GetWindowLong(Handle, GWL_HWNDPARENT) <> Longint(NewParent) then
|
||||||
|
SetWindowLong(Handle, GWL_HWNDPARENT, Longint(NewParent));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvForm.ShowModal: Integer;
|
||||||
|
var
|
||||||
|
Msg: TMsg;
|
||||||
|
begin
|
||||||
|
while PeekMessage(Msg, 0, WM_ENABLE, WM_ENABLE, PM_REMOVE) do
|
||||||
|
DispatchMessage(Msg);
|
||||||
|
Result := inherited ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvForm.WMMouseActivate(var Msg: TMessage);
|
||||||
|
begin
|
||||||
|
if IsFocusable then
|
||||||
|
inherited
|
||||||
|
else
|
||||||
|
Msg.Result := MA_NOACTIVATE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvForm.ShowNoActivate(CallActivate: Boolean);
|
||||||
|
begin
|
||||||
|
if CallActivate then
|
||||||
|
Activate;
|
||||||
|
SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW or SWP_NOACTIVATE);
|
||||||
|
Visible := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvPopupListBox } ====================================================
|
||||||
|
|
||||||
|
procedure TJvPopupListBox.CreateParams(var Params: TCreateParams);
|
||||||
|
begin
|
||||||
|
inherited CreateParams(Params);
|
||||||
|
with Params do
|
||||||
|
begin
|
||||||
|
Style := Style or WS_BORDER;
|
||||||
|
ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
|
||||||
|
AddBiDiModeExStyle(ExStyle);
|
||||||
|
WindowClass.Style := CS_SAVEBITS;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPopupListBox.CreateWnd;
|
||||||
|
begin
|
||||||
|
inherited CreateWnd;
|
||||||
|
Windows.SetParent(Handle, 0);
|
||||||
|
CallWindowProc(DefWndProc, Handle, WM_SETFOCUS, 0, 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPopupListBox.KeyPress(var Key: Char);
|
||||||
|
var
|
||||||
|
TickCount: Int64;
|
||||||
|
begin
|
||||||
|
case Key of
|
||||||
|
BackSpace, Esc:
|
||||||
|
FSearchText := '';
|
||||||
|
#32..#255:
|
||||||
|
begin
|
||||||
|
TickCount := GetTickCount;
|
||||||
|
if TickCount < FSearchTickCount then
|
||||||
|
Inc(TickCount, $100000000); // (ahuser) reduces the overflow
|
||||||
|
if TickCount - FSearchTickCount >= 4000 then
|
||||||
|
FSearchText := '';
|
||||||
|
FSearchTickCount := TickCount;
|
||||||
|
if Length(FSearchText) < 32 then
|
||||||
|
FSearchText := FSearchText + Key;
|
||||||
|
{$IFNDEF CLR}
|
||||||
|
SendMessage(Handle, LB_SELECTSTRING, WPARAM(-1), LPARAM(PChar(FSearchText)));
|
||||||
|
{$ELSE}
|
||||||
|
SendTextMessage(Handle, LB_SELECTSTRING, WPARAM(-1), FSearchText);
|
||||||
|
{$ENDIF !CLR}
|
||||||
|
Key := #0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
inherited KeyPress(Key);
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
end.
|
||||||
215
components/jvcllaz/run/JvConsts.pas
Normal file
215
components/jvcllaz/run/JvConsts.pas
Normal file
@ -0,0 +1,215 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvConst.PAS, released on 2002-07-04.
|
||||||
|
|
||||||
|
The Initial Developers of the Original Code are: Fedor Koshevnikov, Igor Pavluk and Serge Korolev
|
||||||
|
Copyright (c) 1997, 1998 Fedor Koshevnikov, Igor Pavluk and Serge Korolev
|
||||||
|
Copyright (c) 2001,2002 SGB Software
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvConsts.pas 11414 2007-07-11 21:15:58Z ahuser $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvConsts;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Controls, Classes, LMessages, SysUtils;
|
||||||
|
//, Forms, Graphics, Windows,
|
||||||
|
|
||||||
|
const
|
||||||
|
{ JvEditor }
|
||||||
|
JvEditorCompletionChars = #8'0123456789QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm';
|
||||||
|
|
||||||
|
{ Various units }
|
||||||
|
DigitSymbols = ['0'..'9'];
|
||||||
|
SignSymbols = ['+', '-'];
|
||||||
|
IdentifierUppercaseLetters = ['A'..'Z'];
|
||||||
|
IdentifierLowercaseLetters = ['a'..'z'];
|
||||||
|
HexadecimalUppercaseLetters = ['A'..'F'];
|
||||||
|
HexadecimalLowercaseLetters = ['a'..'f'];
|
||||||
|
IdentifierLetters = IdentifierUppercaseLetters + IdentifierLowercaseLetters;
|
||||||
|
IdentifierFirstSymbols = ['_'] + IdentifierLetters;
|
||||||
|
IdentifierSymbols = IdentifierFirstSymbols + DigitSymbols;
|
||||||
|
HexadecimalSymbols = DigitSymbols + HexadecimalUppercaseLetters + HexadecimalLowercaseLetters;
|
||||||
|
|
||||||
|
{$IFDEF DELPHI5}
|
||||||
|
SDelphiKey = 'Software\Borland\Delphi\5.0';
|
||||||
|
{$ENDIF DELPHI5}
|
||||||
|
{$IFDEF BCB5}
|
||||||
|
SDelphiKey = 'Software\Borland\C++Builder\5.0';
|
||||||
|
{$ENDIF BCB5}
|
||||||
|
{$IFDEF DELPHI6}
|
||||||
|
SDelphiKey = 'Software\Borland\Delphi\6.0';
|
||||||
|
{$ENDIF DELPHI6}
|
||||||
|
{$IFDEF BCB6}
|
||||||
|
SDelphiKey = 'Software\Borland\C++Builder\6.0';
|
||||||
|
{$ENDIF BCB6}
|
||||||
|
{$IFDEF DELPHI7}
|
||||||
|
SDelphiKey = 'Software\Borland\Delphi\7.0';
|
||||||
|
{$ENDIF DELPHI7}
|
||||||
|
{$IFDEF DELPHI8}
|
||||||
|
SDelphiKey = 'Software\Borland\BDS\2.0';
|
||||||
|
{$ENDIF DELPHI8}
|
||||||
|
{$IFDEF DELPHI9}
|
||||||
|
SDelphiKey = 'Software\Borland\BDS\3.0';
|
||||||
|
{$ENDIF DELPHI9}
|
||||||
|
{$IFDEF DELPHI10}
|
||||||
|
SDelphiKey = 'Software\Borland\BDS\4.0';
|
||||||
|
{$ENDIF DELPHI10}
|
||||||
|
{$IFDEF DELPHI11}
|
||||||
|
SDelphiKey = 'Software\Borland\BDS\5.0';
|
||||||
|
{$ENDIF DELPHI11}
|
||||||
|
{ JvDataProvider constants }
|
||||||
|
{ Consumer attributes }
|
||||||
|
DPA_RenderDisabledAsGrayed = 1;
|
||||||
|
DPA_RendersSingleItem = 2;
|
||||||
|
DPA_ConsumerDisplaysList = 3;
|
||||||
|
|
||||||
|
CM_JVBASE = CM_BASE + 80; // warning VCL improves and comes nearer
|
||||||
|
{ Command message for JvSpeedbar editor }
|
||||||
|
CM_SPEEDBARCHANGED = CM_JVBASE + 0;
|
||||||
|
{ Command message for TJvSpeedButton }
|
||||||
|
CM_JVBUTTONPRESSED = CM_JVBASE + 1;
|
||||||
|
// (rom) disabled unused
|
||||||
|
{ Command messages for TJvWindowHook }
|
||||||
|
//CM_RECREATEWINDOW = CM_JVBASE + 2;
|
||||||
|
//CM_DESTROYHOOK = CM_JVBASE + 3;
|
||||||
|
{ Notify message for TJvxTrayIcon }
|
||||||
|
//CM_TRAYICON = CM_JVBASE + 4;
|
||||||
|
CM_FORCESIZE = CM_JVBASE + 5; // used in JvButton
|
||||||
|
|
||||||
|
{ Values for WParam for CM_SPEEDBARCHANGED message }
|
||||||
|
SBR_CHANGED = 0; { change buttons properties }
|
||||||
|
SBR_DESTROYED = 1; { destroy SpeedBar }
|
||||||
|
SBR_BTNSELECT = 2; { select button in SpeedBar }
|
||||||
|
SBR_BTNSIZECHANGED = 3; { button size changed }
|
||||||
|
|
||||||
|
{ TBitmap.GetTransparentColor from GRAPHICS.PAS use this value }
|
||||||
|
PaletteMask = $02000000;
|
||||||
|
|
||||||
|
// (outchy) now used
|
||||||
|
{$IFDEF COMPILER7_UP}
|
||||||
|
// (outchy) it was defined as $000000FF
|
||||||
|
DEFAULT_SYSCOLOR_MASK = clSystemColor; // $FF000000
|
||||||
|
{$ELSE}
|
||||||
|
DEFAULT_SYSCOLOR_MASK = $80000000;
|
||||||
|
{$ENDIF COMPILER7_UP}
|
||||||
|
|
||||||
|
{$IFDEF COMPILER5}
|
||||||
|
// Delphi colors not defined in Delphi 5
|
||||||
|
clMoneyGreen = TColor($C0DCC0);
|
||||||
|
clSkyBlue = TColor($F0CAA6);
|
||||||
|
clCream = TColor($F0FBFF);
|
||||||
|
clMedGray = TColor($A4A0A0);
|
||||||
|
// (outchy) = TColor(COLOR_XXXXXXXXXXX or $80000000);
|
||||||
|
clGradientActiveCaption = TColor(COLOR_GRADIENTACTIVECAPTION or DEFAULT_SYSCOLOR_MASK);
|
||||||
|
clGradientInactiveCaption = TColor(COLOR_GRADIENTINACTIVECAPTION or DEFAULT_SYSCOLOR_MASK);
|
||||||
|
clHotLight = TColor(COLOR_HOTLIGHT or DEFAULT_SYSCOLOR_MASK);
|
||||||
|
clMenuHighlight = TColor(COLOR_MENUHILIGHT or DEFAULT_SYSCOLOR_MASK);
|
||||||
|
clMenuBar = TColor(COLOR_MENUBAR or DEFAULT_SYSCOLOR_MASK);
|
||||||
|
{$ENDIF COMPILER5}
|
||||||
|
|
||||||
|
{$IFDEF COMPILER5}
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
sLineBreak = #13#10;
|
||||||
|
{$ENDIF MSWINDOWS}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
sLineBreak = #10;
|
||||||
|
{$ENDIF UNIX}
|
||||||
|
{$ENDIF COMPILER5}
|
||||||
|
sLineBreakLen = Length(sLineBreak);
|
||||||
|
|
||||||
|
CrLf = #13#10;
|
||||||
|
Cr = #13;
|
||||||
|
Lf = #10;
|
||||||
|
Backspace = #8;
|
||||||
|
Tab = #9;
|
||||||
|
Esc = #27;
|
||||||
|
Del = #127;
|
||||||
|
CtrlC = ^C;
|
||||||
|
CtrlH = ^H;
|
||||||
|
CtrlI = ^I;
|
||||||
|
CtrlJ = ^J;
|
||||||
|
CtrlM = ^M;
|
||||||
|
CtrlV = ^V;
|
||||||
|
CtrlX = ^X;
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
RegPathDelim = '\';
|
||||||
|
PathDelim = '\';
|
||||||
|
DriveDelim = ':';
|
||||||
|
PathSep = ';';
|
||||||
|
AllFilePattern = '*.*';
|
||||||
|
{$ENDIF MSWINDOWS}
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
RegPathDelim = '_';
|
||||||
|
PathDelim = '/';
|
||||||
|
AllFilePattern = '*';
|
||||||
|
{$ENDIF UNIX}
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
//TODO: SESS - 25.09.2007 This doesnt compile in fpc
|
||||||
|
{const Separators is used in GetWordOnPos, JvUtils.ReplaceStrings and SubWord}
|
||||||
|
Separators: TSysCharSet = [#00, ' ', '-', #13, #10, '.', ',', '/', '\', '#', '"', '''',
|
||||||
|
':', '+', '%', '*', '(', ')', ';', '=', '{', '}', '[', ']', '{', '}', '<', '>'];
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
DigitChars = ['0'..'9'];
|
||||||
|
|
||||||
|
var
|
||||||
|
crJVCLFirst: TCursor = 100;
|
||||||
|
crMultiDragLink: TCursor = 100;
|
||||||
|
crDragAlt: TCursor = 101;
|
||||||
|
crMultiDragAlt: TCursor = 102;
|
||||||
|
crMultiDragLinkAlt: TCursor = 103;
|
||||||
|
crHand: TCursor = 104;
|
||||||
|
crDragHand: TCursor = 105;
|
||||||
|
// this should be incremented to always contain the last default JVCL cursor index
|
||||||
|
crJVCLLast: TCursor = 105;
|
||||||
|
|
||||||
|
const
|
||||||
|
ROP_DSPDxax = $00E20746;
|
||||||
|
|
||||||
|
const
|
||||||
|
FOURCC_ACON = 'ACON';
|
||||||
|
FOURCC_IART = 'IART';
|
||||||
|
FOURCC_INAM = 'INAM';
|
||||||
|
FOURCC_INFO = 'INFO';
|
||||||
|
FOURCC_LIST = 'LIST';
|
||||||
|
FOURCC_RIFF = 'RIFF';
|
||||||
|
FOURCC_anih = 'anih';
|
||||||
|
FOURCC_fram = 'fram';
|
||||||
|
FOURCC_icon = 'icon';
|
||||||
|
FOURCC_rate = 'rate';
|
||||||
|
FOURCC_seq = 'seq ';
|
||||||
|
|
||||||
|
AF_ICON = $00000001;
|
||||||
|
AF_SEQUENCE = $00000002;
|
||||||
|
|
||||||
|
const
|
||||||
|
KeyboardShiftStates = [ssShift, ssAlt, ssCtrl];
|
||||||
|
MouseShiftStates = [ssLeft, ssRight, ssMiddle, ssDouble];
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1064
components/jvcllaz/run/JvExControls.pas
Normal file
1064
components/jvcllaz/run/JvExControls.pas
Normal file
File diff suppressed because it is too large
Load Diff
395
components/jvcllaz/run/JvExExtCtrls.pas
Normal file
395
components/jvcllaz/run/JvExExtCtrls.pas
Normal file
@ -0,0 +1,395 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvExExtCtrls.pas, released on 2004-01-04
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Andreas Hausladen [Andreas dott Hausladen att gmx dott de]
|
||||||
|
Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): -
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvExExtCtrls.pas 10613 2006-05-19 19:21:43Z jfudickar $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
unit JvExExtCtrls;
|
||||||
|
|
||||||
|
{MACROINCLUDE JvExControls.macros}
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
* WARNING: Do not edit this file.
|
||||||
|
* This file is autogenerated from the source in devtools/JvExVCL/src.
|
||||||
|
* If you do it despite this warning your changes will be discarded by the next
|
||||||
|
* update of this file. Do your changes in the template files.
|
||||||
|
****************************************************************************}
|
||||||
|
{$D-} // do not step into this unit
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, ExtCtrls, Forms, Graphics, JvExControls, LCLIntf, LMessages;
|
||||||
|
|
||||||
|
type
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Shape)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(PaintBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Image)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(Bevel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomPanel)
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvExPubCustomPanel = class(TJvExCustomPanel)
|
||||||
|
COMMON_PUBLISHED
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomRadioGroup)
|
||||||
|
|
||||||
|
TJvExSplitter = class(TSplitter)
|
||||||
|
private
|
||||||
|
// TODO:
|
||||||
|
// FAboutJVCL: TJVCLAboutInfo;
|
||||||
|
FHintColor: TColor;
|
||||||
|
FMouseOver: Boolean;
|
||||||
|
FHintWindowClass: THintWindowClass;
|
||||||
|
FOnMouseEnter: TNotifyEvent;
|
||||||
|
FOnMouseLeave: TNotifyEvent;
|
||||||
|
FOnParentColorChanged: TNotifyEvent;
|
||||||
|
function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload;
|
||||||
|
function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload;
|
||||||
|
function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer;
|
||||||
|
protected
|
||||||
|
procedure WndProc(var Msg: TLMessage); override;
|
||||||
|
procedure FocusChanged(AControl: TWinControl); dynamic;
|
||||||
|
procedure VisibleChanged; reintroduce; dynamic;
|
||||||
|
procedure EnabledChanged; reintroduce; dynamic;
|
||||||
|
procedure TextChanged; reintroduce; virtual;
|
||||||
|
procedure ColorChanged; reintroduce; dynamic;
|
||||||
|
procedure FontChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentFontChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentColorChanged; reintroduce; dynamic;
|
||||||
|
procedure ParentShowHintChanged; reintroduce; dynamic;
|
||||||
|
function WantKey(Key: Integer; Shift: TShiftState; const KeyText: WideString): Boolean; reintroduce; virtual;
|
||||||
|
function HintShow(var HintInfo: THintInfo): Boolean; reintroduce; dynamic;
|
||||||
|
function HitTest(X, Y: Integer): Boolean; reintroduce; virtual;
|
||||||
|
procedure MouseEnter(AControl: TControl); reintroduce; dynamic;
|
||||||
|
procedure MouseLeave(AControl: TControl); reintroduce; dynamic;
|
||||||
|
property MouseOver: Boolean read FMouseOver write FMouseOver;
|
||||||
|
property HintColor: TColor read FHintColor write FHintColor default clDefault;
|
||||||
|
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
|
||||||
|
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
|
||||||
|
property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged;
|
||||||
|
function GetCaption: TCaption; virtual;
|
||||||
|
procedure SetCaption(Value: TCaption); virtual;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
property Caption: TCaption read GetCaption write SetCaption;
|
||||||
|
property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass;
|
||||||
|
published
|
||||||
|
// TODO:
|
||||||
|
// property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(ControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Panel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(RadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Page)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Notebook)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(Header)
|
||||||
|
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_DECL_DEFAULT(BoundLabel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomLabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_DECL_DEFAULT(LabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_DECL_DEFAULT(CustomColorBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_DECL_DEFAULT(ColorBox)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Shape)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(PaintBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Image)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(Bevel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomPanel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomRadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(ControlBar)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Panel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(RadioGroup)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Page)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Notebook)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(Header)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//CONTROL_IMPL_DEFAULT(BoundLabel)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomLabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(LabeledEdit)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(CustomColorBox)
|
||||||
|
|
||||||
|
//******************** NOT CONVERTED - Exists in LCL?
|
||||||
|
//WINCONTROL_IMPL_DEFAULT(ColorBox)
|
||||||
|
|
||||||
|
constructor TJvExSplitter.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FHintColor := clDefault;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TLMessage;
|
||||||
|
begin
|
||||||
|
Mesg := CreateWMMessage(Msg, WParam, LParam);
|
||||||
|
inherited WndProc(Mesg);
|
||||||
|
Result := Mesg.Result;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TLMessage;
|
||||||
|
begin
|
||||||
|
Mesg := CreateWMMessage(Msg, WParam, LParam);
|
||||||
|
inherited WndProc(Mesg);
|
||||||
|
Result := Mesg.Result;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer;
|
||||||
|
var
|
||||||
|
Mesg: TStructPtrMessage;
|
||||||
|
begin
|
||||||
|
Mesg := TStructPtrMessage.Create(Msg, WParam, LParam);
|
||||||
|
try
|
||||||
|
inherited WndProc(Mesg.Msg);
|
||||||
|
finally
|
||||||
|
Result := Mesg.Msg.Result;
|
||||||
|
Mesg.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.VisibleChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_VISIBLECHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.EnabledChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_ENABLEDCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.TextChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_TEXTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.FontChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_FONTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.ColorChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_COLORCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.ParentFontChanged;
|
||||||
|
begin
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
//BaseWndProc(CM_PARENTFONTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.ParentColorChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_PARENTCOLORCHANGED);
|
||||||
|
if Assigned(OnParentColorChange) then
|
||||||
|
OnParentColorChange(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.ParentShowHintChanged;
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_PARENTSHOWHINTCHANGED);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.WantKey(Key: Integer; Shift: TShiftState; const KeyText: WideString): Boolean;
|
||||||
|
begin
|
||||||
|
Result := BaseWndProc(CM_DIALOGCHAR, Word(Key), ShiftStateToKeyData(Shift)) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.HitTest(X, Y: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := BaseWndProc(CM_HITTEST, 0, SmallPointToLong(PointToSmallPoint(Point(X, Y)))) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.HintShow(var HintInfo: THintInfo): Boolean;
|
||||||
|
begin
|
||||||
|
GetHintColor(HintInfo, Self, FHintColor);
|
||||||
|
if FHintWindowClass <> nil then
|
||||||
|
HintInfo.HintWindowClass := FHintWindowClass;
|
||||||
|
Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.MouseEnter(AControl: TControl);
|
||||||
|
begin
|
||||||
|
FMouseOver := True;
|
||||||
|
if Assigned(FOnMouseEnter) then
|
||||||
|
FOnMouseEnter(Self);
|
||||||
|
BaseWndProc(CM_MOUSEENTER, 0, AControl);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.MouseLeave(AControl: TControl);
|
||||||
|
begin
|
||||||
|
FMouseOver := False;
|
||||||
|
BaseWndProc(CM_MOUSELEAVE, 0, AControl);
|
||||||
|
if Assigned(FOnMouseLeave) then
|
||||||
|
FOnMouseLeave(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.FocusChanged(AControl: TWinControl);
|
||||||
|
begin
|
||||||
|
BaseWndProc(CM_FOCUSCHANGED, 0, AControl);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvExSplitter.GetCaption: TCaption;
|
||||||
|
begin
|
||||||
|
Result := inherited Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// 25.09.2007 - SESS:
|
||||||
|
// I have done this because TextChanged wasn't fired as expected.
|
||||||
|
// I still don't shure if this problem is only for this reintroduced
|
||||||
|
// method because the way LCL treats Caption or will have the same
|
||||||
|
// problem with other reintroduced methods. So far, I tested some
|
||||||
|
// other events and seems not.
|
||||||
|
procedure TJvExSplitter.SetCaption(Value: TCaption);
|
||||||
|
begin
|
||||||
|
inherited Caption := Value;
|
||||||
|
TextChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvExSplitter.WndProc(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
if not DispatchIsDesignMsg(Self, Msg) then
|
||||||
|
case Msg.Msg of
|
||||||
|
{
|
||||||
|
// TODO: do we need this? I think not...
|
||||||
|
CM_DENYSUBCLASSING:
|
||||||
|
Msg.Result := Ord(GetInterfaceEntry(IJvDenySubClassing) <> nil);
|
||||||
|
}
|
||||||
|
CM_DIALOGCHAR:
|
||||||
|
with TCMDialogChar(Msg) do
|
||||||
|
Result := Ord(WantKey(CharCode, KeyDataToShiftState(KeyData), WideChar(CharCode)));
|
||||||
|
CM_HINTSHOW:
|
||||||
|
with TCMHintShow(Msg) do
|
||||||
|
Result := Integer(HintShow(HintInfo^));
|
||||||
|
CM_HITTEST:
|
||||||
|
with TCMHitTest(Msg) do
|
||||||
|
Result := Integer(HitTest(XPos, YPos));
|
||||||
|
CM_MOUSEENTER:
|
||||||
|
MouseEnter(TControl(Msg.LParam));
|
||||||
|
CM_MOUSELEAVE:
|
||||||
|
MouseLeave(TControl(Msg.LParam));
|
||||||
|
CM_VISIBLECHANGED:
|
||||||
|
VisibleChanged;
|
||||||
|
CM_ENABLEDCHANGED:
|
||||||
|
EnabledChanged;
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
CM_TEXTCHANGED:
|
||||||
|
TextChanged;
|
||||||
|
CM_FONTCHANGED:
|
||||||
|
FontChanged;
|
||||||
|
CM_COLORCHANGED:
|
||||||
|
ColorChanged;
|
||||||
|
CM_FOCUSCHANGED:
|
||||||
|
FocusChanged(TWinControl(Msg.LParam));
|
||||||
|
// LCL doesn't send this message but left it in case
|
||||||
|
//CM_PARENTFONTCHANGED:
|
||||||
|
// ParentFontChanged;
|
||||||
|
CM_PARENTCOLORCHANGED:
|
||||||
|
ParentColorChanged;
|
||||||
|
CM_PARENTSHOWHINTCHANGED:
|
||||||
|
ParentShowHintChanged;
|
||||||
|
else
|
||||||
|
inherited WndProc(Msg);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//============================================================================
|
||||||
|
|
||||||
|
end.
|
||||||
9764
components/jvcllaz/run/JvJCLUtils.pas
Normal file
9764
components/jvcllaz/run/JvJCLUtils.pas
Normal file
File diff suppressed because it is too large
Load Diff
7694
components/jvcllaz/run/JvJVCLUtils.pas
Normal file
7694
components/jvcllaz/run/JvJVCLUtils.pas
Normal file
File diff suppressed because it is too large
Load Diff
5192
components/jvcllaz/run/JvNavigationPane.pas
Normal file
5192
components/jvcllaz/run/JvNavigationPane.pas
Normal file
File diff suppressed because it is too large
Load Diff
943
components/jvcllaz/run/JvPageList.pas
Normal file
943
components/jvcllaz/run/JvPageList.pas
Normal file
@ -0,0 +1,943 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvPageList.PAS, released on 2003-04-25.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Peter Th�rnqvist [peter3 at sourceforge dot net] .
|
||||||
|
Portions created by Peter Th�rnqvist are Copyright (C) 2004 Peter Th�rnqvist.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvPageList.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvPageList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Graphics, JvComponent, LCLIntf, LCLType, LMessages,
|
||||||
|
SysUtils;
|
||||||
|
|
||||||
|
type
|
||||||
|
EPageListError = class(Exception);
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
IPageList = interface
|
||||||
|
['{6BB90183-CFB1-4431-9CFD-E9A032E0C94C}']
|
||||||
|
function CanChange(AIndex: Integer): Boolean;
|
||||||
|
procedure SetActivePageIndex(AIndex: Integer);
|
||||||
|
function GetPageCount: Integer;
|
||||||
|
function GetPageCaption(AIndex: Integer): string;
|
||||||
|
procedure AddPage(const ACaption: string);
|
||||||
|
procedure DeletePage(Index: Integer);
|
||||||
|
procedure MovePage(CurIndex, NewIndex: Integer);
|
||||||
|
procedure PageCaptionChanged(Index: Integer; const NewCaption: string);
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
TJvCustomPageList = class;
|
||||||
|
|
||||||
|
TJvPagePaintEvent = procedure(Sender: TObject; ACanvas: TCanvas; ARect: TRect) of object;
|
||||||
|
TJvPageCanPaintEvent = procedure(Sender: TObject; ACanvas: TCanvas; ARect: TRect; var DefaultDraw: Boolean) of object;
|
||||||
|
|
||||||
|
{ TJvCustomPage is the base class for pages in a TJvPageList and implements the basic behaviour of such
|
||||||
|
a control. It has support for accepting components, propagating it's Enabled state, changing it's order in the
|
||||||
|
page list and custom painting }
|
||||||
|
|
||||||
|
TJvCustomPage = class(TJvCustomControl)
|
||||||
|
private
|
||||||
|
FPageList: TJvCustomPageList;
|
||||||
|
FPageIndex: Integer;
|
||||||
|
FOnBeforePaint: TJvPageCanPaintEvent;
|
||||||
|
FOnPaint: TJvPagePaintEvent;
|
||||||
|
FOnAfterPaint: TJvPagePaintEvent;
|
||||||
|
FOnHide: TNotifyEvent;
|
||||||
|
FOnShow: TNotifyEvent;
|
||||||
|
FData: TObject;
|
||||||
|
protected
|
||||||
|
procedure CreateParams(var Params: TCreateParams); override;
|
||||||
|
function DoEraseBackground(ACanvas: TCanvas; Param: Integer): Boolean; override;
|
||||||
|
procedure SetPageIndex(Value: Integer);virtual;
|
||||||
|
function GetPageIndex: Integer;virtual;
|
||||||
|
procedure SetPageList(Value: TJvCustomPageList);virtual;
|
||||||
|
procedure TextChanged; override;
|
||||||
|
procedure ShowingChanged; override;
|
||||||
|
procedure Paint; override;
|
||||||
|
procedure ReadState(Reader: TReader); override;
|
||||||
|
function DoBeforePaint(ACanvas: TCanvas; ARect: TRect): Boolean; dynamic;
|
||||||
|
procedure DoAfterPaint(ACanvas: TCanvas; ARect: TRect); dynamic;
|
||||||
|
procedure DoPaint(ACanvas: TCanvas; ARect: TRect); virtual;
|
||||||
|
procedure DoShow; virtual;
|
||||||
|
procedure DoHide; virtual;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
property PageList: TJvCustomPageList read FPageList write SetPageList;
|
||||||
|
protected
|
||||||
|
property Left stored False;
|
||||||
|
property Top stored False;
|
||||||
|
property Width stored False;
|
||||||
|
property Height stored False;
|
||||||
|
property OnHide: TNotifyEvent read FOnHide write FOnHide;
|
||||||
|
property OnShow: TNotifyEvent read FOnShow write FOnShow;
|
||||||
|
property OnBeforePaint: TJvPageCanPaintEvent read FOnBeforePaint write FOnBeforePaint;
|
||||||
|
property OnPaint: TJvPagePaintEvent read FOnPaint write FOnPaint;
|
||||||
|
property OnAfterPaint: TJvPagePaintEvent read FOnAfterPaint write FOnAfterPaint;
|
||||||
|
public
|
||||||
|
property Data: TObject read FData write FData;
|
||||||
|
property PageIndex: Integer read GetPageIndex write SetPageIndex stored False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvCustomPageClass = class of TJvCustomPage;
|
||||||
|
TJvPageChangingEvent = procedure(Sender: TObject; PageIndex: Integer; var AllowChange: Boolean) of object;
|
||||||
|
|
||||||
|
{
|
||||||
|
TJvCustomPageList is a base class for components that implements the IPageList interface.
|
||||||
|
It works like TPageControl but does not have any tabs
|
||||||
|
}
|
||||||
|
TJvShowDesignCaption = (sdcNone, sdcTopLeft, sdcTopCenter, sdcTopRight, sdcLeftCenter, sdcCenter, sdcRightCenter, sdcBottomLeft, sdcBottomCenter, sdcBottomRight, sdcRunTime);
|
||||||
|
|
||||||
|
//TODO: 25.09.2007 - SESS - Find a better place...
|
||||||
|
TCMDesignHitTest = TLMMouse;
|
||||||
|
|
||||||
|
// TJvCustomPageList = class(TJvCustomControl, IUnknown, IPageList)
|
||||||
|
TJvCustomPageList = class(TJvCustomControl)
|
||||||
|
private
|
||||||
|
FPages: TList;
|
||||||
|
FActivePage: TJvCustomPage;
|
||||||
|
FPropagateEnable: Boolean;
|
||||||
|
FOnChange: TNotifyEvent;
|
||||||
|
FOnChanging: TJvPageChangingEvent;
|
||||||
|
FShowDesignCaption: TJvShowDesignCaption;
|
||||||
|
FHiddenPages: TList;
|
||||||
|
procedure CMDesignHitTest(var Msg: TCMDesignHitTest); message CM_DESIGNHITTEST;
|
||||||
|
procedure UpdateEnabled;
|
||||||
|
procedure SetPropagateEnable(const Value: Boolean);
|
||||||
|
procedure SetShowDesignCaption(const Value: TJvShowDesignCaption);
|
||||||
|
function GetPage(Index: Integer): TJvCustomPage;
|
||||||
|
protected
|
||||||
|
procedure EnabledChanged; override;
|
||||||
|
{ IPageList }
|
||||||
|
procedure AddPage(const ACaption: string);
|
||||||
|
procedure DeletePage(Index: Integer);
|
||||||
|
procedure MovePage(CurIndex, NewIndex: Integer);
|
||||||
|
function CanChange(AIndex: Integer): Boolean; virtual;
|
||||||
|
function GetActivePageIndex: Integer; virtual;
|
||||||
|
procedure SetActivePageIndex(AIndex: Integer); virtual;
|
||||||
|
function GetPageFromIndex(AIndex: Integer): TJvCustomPage; virtual;
|
||||||
|
function GetPageCount: Integer;virtual;
|
||||||
|
function GetPageCaption(AIndex: Integer): string; virtual;
|
||||||
|
procedure Paint; override;
|
||||||
|
procedure PageCaptionChanged(Index: Integer; const NewCaption: string); virtual;
|
||||||
|
procedure Change; dynamic;
|
||||||
|
procedure Loaded; override;
|
||||||
|
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
|
||||||
|
procedure ShowControl(AControl: TControl); override;
|
||||||
|
function InternalGetPageClass: TJvCustomPageClass; virtual;
|
||||||
|
procedure SetActivePage(Page: TJvCustomPage); virtual;
|
||||||
|
procedure InsertPage(APage: TJvCustomPage); virtual;
|
||||||
|
procedure RemovePage(APage: TJvCustomPage); virtual;
|
||||||
|
property PageList: TList read FPages;
|
||||||
|
property HiddenPageList: TList read FHiddenPages;
|
||||||
|
property PropagateEnable: Boolean read FPropagateEnable write SetPropagateEnable;
|
||||||
|
property ShowDesignCaption: TJvShowDesignCaption read FShowDesignCaption write SetShowDesignCaption default sdcCenter;
|
||||||
|
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||||
|
property OnChanging: TJvPageChangingEvent read FOnChanging write FOnChanging;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
function FindNextPage(CurPage: TJvCustomPage; GoForward: Boolean; IncludeDisabled: Boolean): TJvCustomPage;
|
||||||
|
procedure PrevPage;
|
||||||
|
procedure NextPage;
|
||||||
|
function HidePage(Page: TJvCustomPage): TJvCustomPage; virtual;
|
||||||
|
function ShowPage(Page: TJvCustomPage; PageIndex: Integer = -1): TJvCustomPage; virtual;
|
||||||
|
function GetPageClass: TJvCustomPageClass;
|
||||||
|
function GetVisiblePageCount: Integer;
|
||||||
|
property Height default 200;
|
||||||
|
property Width default 300;
|
||||||
|
property ActivePageIndex: Integer read GetActivePageIndex write SetActivePageIndex;
|
||||||
|
property ActivePage: TJvCustomPage read FActivePage write SetActivePage;
|
||||||
|
property Pages[Index: Integer]: TJvCustomPage read GetPage; default;
|
||||||
|
property PageCount: Integer read GetPageCount;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(******************** NOT CONVERTED
|
||||||
|
TJvStandardPage = class(TJvCustomPage)
|
||||||
|
published
|
||||||
|
property BorderWidth;
|
||||||
|
property Caption;
|
||||||
|
property Color;
|
||||||
|
property DragMode;
|
||||||
|
property Enabled;
|
||||||
|
property Font;
|
||||||
|
property Constraints;
|
||||||
|
property ParentFont;
|
||||||
|
property ParentShowHint;
|
||||||
|
property PopupMenu;
|
||||||
|
property ShowHint;
|
||||||
|
property PageIndex;
|
||||||
|
property OnContextPopup;
|
||||||
|
property OnDragDrop;
|
||||||
|
property OnDragOver;
|
||||||
|
property OnEndDrag;
|
||||||
|
property OnEnter;
|
||||||
|
property OnExit;
|
||||||
|
property OnHide;
|
||||||
|
property OnMouseDown;
|
||||||
|
property OnMouseMove;
|
||||||
|
property OnMouseUp;
|
||||||
|
property OnResize;
|
||||||
|
property OnShow;
|
||||||
|
property OnStartDrag;
|
||||||
|
property OnBeforePaint;
|
||||||
|
property OnPaint;
|
||||||
|
property OnAfterPaint;
|
||||||
|
property OnMouseEnter;
|
||||||
|
property OnMouseLeave;
|
||||||
|
property OnParentColorChange;
|
||||||
|
{$IFDEF JVCLThemesEnabled}
|
||||||
|
property ParentBackground default False;
|
||||||
|
{$ENDIF JVCLThemesEnabled}
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvPageList = class(TJvCustomPageList)
|
||||||
|
protected
|
||||||
|
function InternalGetPageClass: TJvCustomPageClass; override;
|
||||||
|
public
|
||||||
|
property PageCount;
|
||||||
|
published
|
||||||
|
property ActivePage;
|
||||||
|
property PropagateEnable;
|
||||||
|
property ShowDesignCaption;
|
||||||
|
property Action;
|
||||||
|
property Align;
|
||||||
|
property Anchors;
|
||||||
|
property BiDiMode;
|
||||||
|
property BorderWidth;
|
||||||
|
property DragCursor;
|
||||||
|
property DragKind;
|
||||||
|
property OnStartDock;
|
||||||
|
property OnUnDock;
|
||||||
|
property OnEndDock;
|
||||||
|
property OnCanResize;
|
||||||
|
property OnDockDrop;
|
||||||
|
property OnDockOver;
|
||||||
|
property OnGetSiteInfo;
|
||||||
|
property Constraints;
|
||||||
|
property DragMode;
|
||||||
|
property Enabled;
|
||||||
|
property PopupMenu;
|
||||||
|
property ShowHint;
|
||||||
|
property Visible;
|
||||||
|
property OnMouseEnter;
|
||||||
|
property OnMouseLeave;
|
||||||
|
property OnParentColorChange;
|
||||||
|
property OnChange;
|
||||||
|
property OnChanging;
|
||||||
|
property OnConstrainedResize;
|
||||||
|
property OnContextPopup;
|
||||||
|
property OnDblClick;
|
||||||
|
property OnDragDrop;
|
||||||
|
property OnDragOver;
|
||||||
|
property OnEndDrag;
|
||||||
|
property OnEnter;
|
||||||
|
property OnExit;
|
||||||
|
property OnMouseDown;
|
||||||
|
property OnMouseMove;
|
||||||
|
property OnMouseUp;
|
||||||
|
property OnMouseWheel;
|
||||||
|
property OnMouseWheelDown;
|
||||||
|
property OnMouseWheelUp;
|
||||||
|
property OnResize;
|
||||||
|
property OnStartDrag;
|
||||||
|
{$IFDEF JVCLThemesEnabled}
|
||||||
|
property ParentBackground default False;
|
||||||
|
{$ENDIF JVCLThemesEnabled}
|
||||||
|
end;
|
||||||
|
******************** NOT CONVERTED *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms;
|
||||||
|
|
||||||
|
function GetUniqueName(AOwner: TComponent; const AClassName: string): string;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
i := 0;
|
||||||
|
if AOwner = nil then
|
||||||
|
begin
|
||||||
|
repeat
|
||||||
|
Inc(i);
|
||||||
|
Result := AClassName + IntToStr(i);
|
||||||
|
until FindGlobalComponent(Result) = nil;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
repeat
|
||||||
|
Inc(i);
|
||||||
|
Result := AClassName + IntToStr(i);
|
||||||
|
until AOwner.FindComponent(Result) = nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvCustomPage } ======================================================
|
||||||
|
|
||||||
|
constructor TJvCustomPage.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FPageIndex := -1;
|
||||||
|
Align := alClient;
|
||||||
|
ControlStyle := ControlStyle + [csOpaque, csAcceptsControls, csNoDesignVisible];
|
||||||
|
// IncludeThemeStyle(Self, [csParentBackground]);
|
||||||
|
Visible := False;
|
||||||
|
DoubleBuffered := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.CreateParams(var Params: TCreateParams);
|
||||||
|
begin
|
||||||
|
inherited CreateParams(Params);
|
||||||
|
with Params.WindowClass do
|
||||||
|
Style := Style and not (CS_HREDRAW or CS_VREDRAW);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvCustomPage.Destroy;
|
||||||
|
begin
|
||||||
|
PageList := nil;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.DoAfterPaint(ACanvas: TCanvas; ARect: TRect);
|
||||||
|
begin
|
||||||
|
if Assigned(FOnAfterPaint) then
|
||||||
|
FOnAfterPaint(Self, ACanvas, ARect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPage.DoBeforePaint(ACanvas: TCanvas; ARect: TRect): Boolean;
|
||||||
|
begin
|
||||||
|
Result := True;
|
||||||
|
if Assigned(FOnBeforePaint) then
|
||||||
|
FOnBeforePaint(Self, ACanvas, ARect, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetDesignCaptionFlags(Value: TJvShowDesignCaption): Cardinal;
|
||||||
|
begin
|
||||||
|
case Value of
|
||||||
|
sdcTopLeft:
|
||||||
|
Result := DT_TOP or DT_LEFT;
|
||||||
|
sdcTopCenter:
|
||||||
|
Result := DT_TOP or DT_CENTER;
|
||||||
|
sdcTopRight:
|
||||||
|
Result := DT_TOP or DT_RIGHT;
|
||||||
|
sdcLeftCenter:
|
||||||
|
Result := DT_VCENTER or DT_LEFT;
|
||||||
|
sdcCenter:
|
||||||
|
Result := DT_VCENTER or DT_CENTER;
|
||||||
|
sdcRightCenter:
|
||||||
|
Result := DT_VCENTER or DT_RIGHT;
|
||||||
|
sdcBottomLeft:
|
||||||
|
Result := DT_BOTTOM or DT_LEFT;
|
||||||
|
sdcBottomCenter:
|
||||||
|
Result := DT_BOTTOM or DT_CENTER;
|
||||||
|
sdcBottomRight:
|
||||||
|
Result := DT_BOTTOM or DT_RIGHT;
|
||||||
|
else
|
||||||
|
Result := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.DoPaint(ACanvas: TCanvas; ARect: TRect);
|
||||||
|
var
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
Font := Self.Font;
|
||||||
|
Brush.Style := bsSolid;
|
||||||
|
Brush.Color := Self.Color;
|
||||||
|
//SESS
|
||||||
|
//DrawThemedBackground(Self, Canvas, ARect);
|
||||||
|
DoEraseBackground(Canvas, 0);
|
||||||
|
if (csDesigning in ComponentState) then
|
||||||
|
begin
|
||||||
|
Pen.Style := psDot;
|
||||||
|
Pen.Color := clBlack;
|
||||||
|
Brush.Style := bsClear;
|
||||||
|
Rectangle(ARect);
|
||||||
|
Brush.Style := bsSolid;
|
||||||
|
Brush.Color := Color;
|
||||||
|
if (PageList <> nil) and (PageList.ShowDesignCaption <> sdcNone) then
|
||||||
|
begin
|
||||||
|
S := Caption;
|
||||||
|
if S = '' then
|
||||||
|
S := Name;
|
||||||
|
// make some space around the edges
|
||||||
|
InflateRect(ARect, -4, -4);
|
||||||
|
if not Enabled then
|
||||||
|
begin
|
||||||
|
SetBkMode(Handle, TRANSPARENT);
|
||||||
|
Canvas.Font.Color := clHighlightText;
|
||||||
|
//TODO: Use JCLUtils one?
|
||||||
|
DrawText(Handle, PChar(S), Length(S), ARect, GetDesignCaptionFlags(PageList.ShowDesignCaption) or DT_SINGLELINE);
|
||||||
|
OffsetRect(ARect, -1, -1);
|
||||||
|
Canvas.Font.Color := clGrayText;
|
||||||
|
end;
|
||||||
|
DrawText(Handle, PChar(S), Length(S), ARect, GetDesignCaptionFlags(PageList.ShowDesignCaption) or DT_SINGLELINE);
|
||||||
|
InflateRect(ARect, 4, 4);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if Assigned(FOnPaint) then
|
||||||
|
FOnPaint(Self, ACanvas, ARect);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPage.GetPageIndex: Integer;
|
||||||
|
begin
|
||||||
|
if Assigned(FPageList) then
|
||||||
|
Result := FPageList.PageList.IndexOf(Self)
|
||||||
|
else
|
||||||
|
Result := FPageIndex;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.Paint;
|
||||||
|
var
|
||||||
|
R: TRect;
|
||||||
|
begin
|
||||||
|
R := ClientRect;
|
||||||
|
if DoBeforePaint(Canvas, R) then
|
||||||
|
DoPaint(Canvas, R);
|
||||||
|
DoAfterPaint(Canvas, R);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.ReadState(Reader: TReader);
|
||||||
|
begin
|
||||||
|
if Reader.Parent is TJvCustomPageList then
|
||||||
|
PageList := TJvCustomPageList(Reader.Parent);
|
||||||
|
inherited ReadState(Reader);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.SetPageList(Value: TJvCustomPageList);
|
||||||
|
begin
|
||||||
|
if FPageList <> Value then
|
||||||
|
begin
|
||||||
|
if Assigned(FPageList) then
|
||||||
|
FPageList.RemovePage(Self);
|
||||||
|
FPageList := Value;
|
||||||
|
Parent := FPageList;
|
||||||
|
if FPageList <> nil then
|
||||||
|
FPageList.InsertPage(Self);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.SetPageIndex(Value: Integer);
|
||||||
|
var
|
||||||
|
OldIndex: Integer;
|
||||||
|
begin
|
||||||
|
if (Value <> PageIndex) then
|
||||||
|
begin
|
||||||
|
OldIndex := PageIndex;
|
||||||
|
if Assigned(FPageList) and (Value >= 0) and (Value < FPageList.PageCount) then
|
||||||
|
FPageList.PageList.Move(OldIndex, Value);
|
||||||
|
FPageIndex := Value;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPage.DoEraseBackground(ACanvas: TCanvas; Param: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
ACanvas.Brush.Color := Self.Color;
|
||||||
|
ACanvas.Brush.Style := bsSolid;
|
||||||
|
ACanvas.FillRect(Rect(0, 0, Width, Height));
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.TextChanged;
|
||||||
|
begin
|
||||||
|
inherited TextChanged;
|
||||||
|
if csDesigning in ComponentState then
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.DoHide;
|
||||||
|
begin
|
||||||
|
if Assigned(FOnHide) then
|
||||||
|
FOnHide(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.DoShow;
|
||||||
|
begin
|
||||||
|
if Assigned(FOnShow) then
|
||||||
|
FOnShow(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPage.ShowingChanged;
|
||||||
|
begin
|
||||||
|
inherited ShowingChanged;
|
||||||
|
if Showing then
|
||||||
|
try
|
||||||
|
DoShow
|
||||||
|
except
|
||||||
|
Application.HandleException(Self);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if not Showing then
|
||||||
|
try
|
||||||
|
DoHide;
|
||||||
|
except
|
||||||
|
Application.HandleException(Self);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvCustomPageList } ==================================================
|
||||||
|
|
||||||
|
constructor TJvCustomPageList.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
ControlStyle := ControlStyle + [csAcceptsControls];
|
||||||
|
// IncludeThemeStyle(Self, [csParentBackground]);
|
||||||
|
FPages := TList.Create;
|
||||||
|
FHiddenPages := TList.Create;
|
||||||
|
Height := 200;
|
||||||
|
Width := 300;
|
||||||
|
FShowDesignCaption := sdcCenter;
|
||||||
|
ActivePageIndex := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvCustomPageList.Destroy;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
for I := FPages.Count - 1 downto 0 do
|
||||||
|
TJvCustomPage(FPages[I]).FPageList := nil;
|
||||||
|
FPages.Free;
|
||||||
|
FHiddenPages.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.CanChange(AIndex: Integer): Boolean;
|
||||||
|
begin
|
||||||
|
Result := (AIndex >= 0) and (AIndex < GetPageCount);
|
||||||
|
if Result and Assigned(FOnChanging) then
|
||||||
|
FOnChanging(Self, AIndex, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.Change;
|
||||||
|
begin
|
||||||
|
if Assigned(FOnChange) then
|
||||||
|
FOnChange(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.CMDesignHitTest(var Msg: TCMDesignHitTest);
|
||||||
|
var
|
||||||
|
Pt: TPoint;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Pt := SmallPointToPoint(Msg.Pos);
|
||||||
|
if Assigned(ActivePage) and PtInRect(ActivePage.BoundsRect, Pt) then
|
||||||
|
Msg.Result := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.GetChildren(Proc: TGetChildProc;
|
||||||
|
Root: TComponent);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
Control: TControl;
|
||||||
|
begin
|
||||||
|
for I := 0 to FPages.Count - 1 do
|
||||||
|
Proc(TComponent(FPages[I]));
|
||||||
|
for I := 0 to ControlCount - 1 do
|
||||||
|
begin
|
||||||
|
Control := Controls[I];
|
||||||
|
if not (Control is TJvCustomPage) and (Control.Owner = Root) then
|
||||||
|
Proc(Control);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetPageCaption(AIndex: Integer): string;
|
||||||
|
begin
|
||||||
|
if (AIndex >= 0) and (AIndex < GetPageCount) then
|
||||||
|
Result := TJvCustomPage(FPages[AIndex]).Caption
|
||||||
|
else
|
||||||
|
Result := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.InternalGetPageClass: TJvCustomPageClass;
|
||||||
|
begin
|
||||||
|
Result := TJvCustomPage;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetPageCount: Integer;
|
||||||
|
begin
|
||||||
|
if FPages = nil then
|
||||||
|
Result := 0
|
||||||
|
else
|
||||||
|
Result := FPages.Count;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.InsertPage(APage: TJvCustomPage);
|
||||||
|
begin
|
||||||
|
if (APage <> nil) and (FPages.IndexOf(APage) = -1) then
|
||||||
|
FPages.Add(APage);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.Loaded;
|
||||||
|
begin
|
||||||
|
inherited Loaded;
|
||||||
|
if (GetPageCount > 0) and (ActivePage = nil) then
|
||||||
|
ActivePage := Pages[0];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.Paint;
|
||||||
|
begin
|
||||||
|
if (csDesigning in ComponentState) and (GetPageCount = 0) then
|
||||||
|
with Canvas do
|
||||||
|
begin
|
||||||
|
Pen.Color := clBlack;
|
||||||
|
Pen.Style := psDot;
|
||||||
|
Brush.Style := bsClear;
|
||||||
|
Rectangle(ClientRect);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.RemovePage(APage: TJvCustomPage);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
WNextPage: TJvCustomPage;
|
||||||
|
begin
|
||||||
|
WNextPage := FindNextPage(APage, True, not (csDesigning in ComponentState));
|
||||||
|
if WNextPage = APage then
|
||||||
|
WNextPage := nil;
|
||||||
|
APage.Visible := False;
|
||||||
|
APage.FPageList := nil;
|
||||||
|
FPages.Remove(APage);
|
||||||
|
SetActivePage(WNextPage);
|
||||||
|
// (ahuser) In some cases SetActivePage does not change FActivePage
|
||||||
|
// so we force FActivePage not to be "APage"
|
||||||
|
if (FActivePage = APage) or (FActivePage = nil) then
|
||||||
|
begin
|
||||||
|
FActivePage := nil;
|
||||||
|
for I := 0 to PageCount - 1 do
|
||||||
|
if Pages[I] <> APage then
|
||||||
|
begin
|
||||||
|
FActivePage := Pages[I];
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetPageFromIndex(AIndex: Integer): TJvCustomPage;
|
||||||
|
begin
|
||||||
|
if (AIndex >= 0) and (AIndex < GetPageCount) then
|
||||||
|
Result := TJvCustomPage(Pages[AIndex])
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetVisiblePageCount: Integer;
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := 0;
|
||||||
|
for i := 0 to PageCount - 1 do
|
||||||
|
if Pages[i].Visible then
|
||||||
|
Inc(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.SetActivePageIndex(AIndex: Integer);
|
||||||
|
begin
|
||||||
|
if (AIndex > -1) and (AIndex < PageCount) then
|
||||||
|
ActivePage := Pages[AIndex]
|
||||||
|
else
|
||||||
|
ActivePage := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.ShowControl(AControl: TControl);
|
||||||
|
begin
|
||||||
|
if AControl is TJvCustomPage then
|
||||||
|
ActivePage := TJvCustomPage(AControl);
|
||||||
|
inherited ShowControl(AControl);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetPageClass: TJvCustomPageClass;
|
||||||
|
begin
|
||||||
|
Result := InternalGetPageClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.HidePage(Page: TJvCustomPage): TJvCustomPage;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if (Page <> nil) and (Page.PageList = Self) then
|
||||||
|
begin
|
||||||
|
if ActivePage = Page then
|
||||||
|
NextPage;
|
||||||
|
if ActivePage = Page then
|
||||||
|
ActivePage := nil;
|
||||||
|
I := Page.PageIndex;
|
||||||
|
Page.PageList := nil;
|
||||||
|
Page.PageIndex := I;
|
||||||
|
Result := Page;
|
||||||
|
FHiddenPages.Add(Result);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.ShowPage(Page: TJvCustomPage; PageIndex: Integer): TJvCustomPage;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if (Page <> nil) and (Page.PageList = nil) then
|
||||||
|
begin
|
||||||
|
I := Page.PageIndex;
|
||||||
|
Page.PageList := Self;
|
||||||
|
Page.Parent := Self;
|
||||||
|
if PageIndex > -1 then
|
||||||
|
Page.PageIndex := PageIndex
|
||||||
|
else
|
||||||
|
if I > -1 then
|
||||||
|
Page.PageIndex := I;
|
||||||
|
Result := Page;
|
||||||
|
FHiddenPages.Remove(Result);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.SetActivePage(Page: TJvCustomPage);
|
||||||
|
var
|
||||||
|
ParentForm: TCustomForm;
|
||||||
|
//TODO: why?
|
||||||
|
//{$IFDEF COMPILER9_UP}
|
||||||
|
I: Integer;
|
||||||
|
//{$ENDIF COMPILER9_UP}
|
||||||
|
begin
|
||||||
|
// Mantis 3227: Checking if the page can be changed has to be done at the
|
||||||
|
// beginning or the page would change but not the index...
|
||||||
|
if not (csLoading in ComponentState) and not CanChange(FPages.IndexOf(Page)) then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
if GetPageCount = 0 then
|
||||||
|
FActivePage := nil;
|
||||||
|
if (Page = nil) or (Page.PageList <> Self) then
|
||||||
|
Exit
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ParentForm := GetParentForm(Self);
|
||||||
|
if (ParentForm <> nil) and (FActivePage <> nil) and
|
||||||
|
FActivePage.ContainsControl(ParentForm.ActiveControl) then
|
||||||
|
begin
|
||||||
|
ParentForm.ActiveControl := FActivePage;
|
||||||
|
if ParentForm.ActiveControl <> FActivePage then
|
||||||
|
begin
|
||||||
|
ActivePage := GetPageFromIndex(FActivePage.PageIndex);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//TODO: why?
|
||||||
|
//{$IFDEF COMPILER9_UP}
|
||||||
|
for I := 0 to GetPageCount - 1 do
|
||||||
|
if Pages[i] <> Page then
|
||||||
|
Pages[i].Hide;
|
||||||
|
//{$ELSE}
|
||||||
|
//Page.BringToFront;
|
||||||
|
//{$ENDIF COMPILER9_UP}
|
||||||
|
Page.Visible := True;
|
||||||
|
if (ParentForm <> nil) and (FActivePage <> nil) and (ParentForm.ActiveControl = FActivePage) then
|
||||||
|
begin
|
||||||
|
if Page.CanFocus then
|
||||||
|
ParentForm.ActiveControl := Page
|
||||||
|
else
|
||||||
|
ParentForm.ActiveControl := Self;
|
||||||
|
end;
|
||||||
|
Page.Refresh;
|
||||||
|
|
||||||
|
if (FActivePage <> nil) and (FActivePage <> Page) then
|
||||||
|
FActivePage.Visible := False;
|
||||||
|
if (FActivePage <> Page) then
|
||||||
|
begin
|
||||||
|
FActivePage := Page;
|
||||||
|
if not (csLoading in ComponentState) then
|
||||||
|
Change;
|
||||||
|
end;
|
||||||
|
if (ParentForm <> nil) and (FActivePage <> nil) and
|
||||||
|
(ParentForm.ActiveControl = FActivePage) then
|
||||||
|
begin
|
||||||
|
FActivePage.SelectFirst;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetActivePageIndex: Integer;
|
||||||
|
begin
|
||||||
|
if ActivePage <> nil then
|
||||||
|
Result := ActivePage.PageIndex
|
||||||
|
else
|
||||||
|
Result := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.NextPage;
|
||||||
|
begin
|
||||||
|
if (ActivePageIndex < PageCount - 1) and (PageCount > 1) then
|
||||||
|
ActivePageIndex := ActivePageIndex + 1
|
||||||
|
else
|
||||||
|
if PageCount > 0 then
|
||||||
|
ActivePageIndex := 0
|
||||||
|
else
|
||||||
|
ActivePageIndex := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.PrevPage;
|
||||||
|
begin
|
||||||
|
if ActivePageIndex > 0 then
|
||||||
|
ActivePageIndex := ActivePageIndex - 1
|
||||||
|
else
|
||||||
|
ActivePageIndex := PageCount - 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.SetPropagateEnable(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FPropagateEnable <> Value then
|
||||||
|
begin
|
||||||
|
FPropagateEnable := Value;
|
||||||
|
UpdateEnabled;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.EnabledChanged;
|
||||||
|
begin
|
||||||
|
inherited EnabledChanged;
|
||||||
|
UpdateEnabled;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.FindNextPage(CurPage: TJvCustomPage;
|
||||||
|
GoForward, IncludeDisabled: Boolean): TJvCustomPage;
|
||||||
|
var
|
||||||
|
I, StartIndex: Integer;
|
||||||
|
begin
|
||||||
|
if PageCount <> 0 then
|
||||||
|
begin
|
||||||
|
StartIndex := FPages.IndexOf(CurPage);
|
||||||
|
if StartIndex < 0 then
|
||||||
|
if GoForward then
|
||||||
|
StartIndex := FPages.Count - 1
|
||||||
|
else
|
||||||
|
StartIndex := 0;
|
||||||
|
I := StartIndex;
|
||||||
|
repeat
|
||||||
|
if GoForward then
|
||||||
|
begin
|
||||||
|
Inc(I);
|
||||||
|
if I >= FPages.Count - 1 then
|
||||||
|
I := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if I <= 0 then
|
||||||
|
I := FPages.Count - 1;
|
||||||
|
Dec(I);
|
||||||
|
end;
|
||||||
|
Result := Pages[I];
|
||||||
|
if IncludeDisabled or Result.Enabled then
|
||||||
|
Exit;
|
||||||
|
until I = StartIndex;
|
||||||
|
end;
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.SetShowDesignCaption(const Value: TJvShowDesignCaption);
|
||||||
|
begin
|
||||||
|
if FShowDesignCaption <> Value then
|
||||||
|
begin
|
||||||
|
FShowDesignCaption := Value;
|
||||||
|
//TODO:
|
||||||
|
(*
|
||||||
|
if HandleAllocated and (csDesigning in ComponentState) then
|
||||||
|
RedrawWindow(Handle, nil, 0, RDW_UPDATENOW or RDW_INVALIDATE or RDW_ALLCHILDREN);
|
||||||
|
*)
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.UpdateEnabled;
|
||||||
|
|
||||||
|
procedure InternalSetEnabled(AControl: TWinControl);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
for I := 0 to AControl.ControlCount - 1 do
|
||||||
|
begin
|
||||||
|
AControl.Controls[I].Enabled := Self.Enabled;
|
||||||
|
if AControl.Controls[I] is TWinControl then
|
||||||
|
InternalSetEnabled(TWinControl(AControl.Controls[I]));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if PropagateEnable then
|
||||||
|
InternalSetEnabled(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvCustomPageList.GetPage(Index: Integer): TJvCustomPage;
|
||||||
|
begin
|
||||||
|
if (Index >= 0) and (Index < FPages.Count) then
|
||||||
|
Result := TJvCustomPage(FPages[Index])
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
procedure TJvCustomPageList.DeletePage(Index: Integer);
|
||||||
|
begin
|
||||||
|
if (Index >= 0) and (Index < PageCount) then
|
||||||
|
Pages[Index].Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.AddPage(const ACaption: string);
|
||||||
|
var
|
||||||
|
Page: TJvCustomPage;
|
||||||
|
begin
|
||||||
|
Page := GetPageClass.Create(Owner);
|
||||||
|
Page.Caption := ACaption;
|
||||||
|
Page.Name := GetUniqueName(Owner, Copy(Page.ClassName, 2, MaxInt));
|
||||||
|
Page.PageList := Self;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.MovePage(CurIndex, NewIndex: Integer);
|
||||||
|
begin
|
||||||
|
FPages.Move(CurIndex, NewIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvCustomPageList.PageCaptionChanged(Index: Integer;
|
||||||
|
const NewCaption: string);
|
||||||
|
begin
|
||||||
|
if (Index >= 0) and (Index < PageCount) then
|
||||||
|
Pages[Index].Caption := NewCaption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(**************
|
||||||
|
//===TJvPageList =============================================================
|
||||||
|
|
||||||
|
function TJvPageList.InternalGetPageClass: TJvCustomPageClass;
|
||||||
|
begin
|
||||||
|
Result := TJvStandardPage;
|
||||||
|
end;
|
||||||
|
*******************)
|
||||||
|
|
||||||
|
end.
|
||||||
739
components/jvcllaz/run/JvTypes.pas
Normal file
739
components/jvcllaz/run/JvTypes.pas
Normal file
@ -0,0 +1,739 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvTypes.PAS, released on 2001-02-28.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is S�bastien Buysse [sbuysse att buypin dott com]
|
||||||
|
Portions created by S�bastien Buysse are Copyright (C) 2001 S�bastien Buysse.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): Michael Beck [mbeck att bigfoot dott com].
|
||||||
|
Peter Thornqvist
|
||||||
|
Oliver Giesen
|
||||||
|
Gustavo Bianconi
|
||||||
|
dejoy
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvTypes.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Initial port to Lazarus by Sergio Samayoa - september 2007.
|
||||||
|
// Conversion is done in incremental way: as types / classes / routines
|
||||||
|
// are needed they are converted.
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
unit JvTypes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Forms, Graphics, LMessages, SysUtils;
|
||||||
|
|
||||||
|
const
|
||||||
|
MaxPixelCount = 32767;
|
||||||
|
|
||||||
|
(********************
|
||||||
|
type
|
||||||
|
TJvBytes = Pointer;
|
||||||
|
IntPtr = Pointer;
|
||||||
|
********************)
|
||||||
|
|
||||||
|
type
|
||||||
|
PCaptionChar = PChar;
|
||||||
|
|
||||||
|
// used in JvSpeedButton, JvArrowButton, JvButton CM_JVBUTTONPRESSED
|
||||||
|
// asn: can also be used with CM_BUTTONPRESSED
|
||||||
|
TCMButtonPressed = packed record
|
||||||
|
Msg: Cardinal;
|
||||||
|
Index: Integer; { clx has Index and Control switched }
|
||||||
|
Control: TControl;
|
||||||
|
Result: Longint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(********************
|
||||||
|
THintString = string;
|
||||||
|
THintStringList = TStringList;
|
||||||
|
|
||||||
|
{ JvExVCL classes }
|
||||||
|
TInputKey = (ikAll, ikArrows, ikChars, ikButton, ikTabs, ikEdit, ikNative{, ikNav, ikEsc});
|
||||||
|
TInputKeys = set of TInputKey;
|
||||||
|
|
||||||
|
{$IFDEF CLR}
|
||||||
|
[StructLayout(LayoutKind.Sequential)]
|
||||||
|
{$ENDIF CLR}
|
||||||
|
TJvRGBTriple = packed record
|
||||||
|
rgbBlue: Byte;
|
||||||
|
rgbGreen: Byte;
|
||||||
|
rgbRed: Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
NullHandle = 0;
|
||||||
|
// (rom) deleted fbs constants. They are already in JvConsts.pas.
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TTimerProc = procedure(hwnd: THandle; Msg: Cardinal; idEvent: Cardinal; dwTime: Cardinal);
|
||||||
|
|
||||||
|
type
|
||||||
|
{$IFDEF COMPILER5}
|
||||||
|
EOSError = class(EWin32Error);
|
||||||
|
IInterface = IUnknown;
|
||||||
|
{$M+}
|
||||||
|
IInvokable = interface(IInterface)
|
||||||
|
end;
|
||||||
|
{$M-}
|
||||||
|
{$ENDIF COMPILER5}
|
||||||
|
{$IFDEF CLR}
|
||||||
|
IUnknown = IInterface;
|
||||||
|
{$ENDIF CLR}
|
||||||
|
|
||||||
|
// Base class for persistent properties that can show events.
|
||||||
|
// By default, Delphi and BCB don't show the events of a class
|
||||||
|
// derived from TPersistent unless it also derives from
|
||||||
|
// TComponent. However, up until version 5, you couldn't have
|
||||||
|
// a Component as a Sub Component of another one, thus preventing
|
||||||
|
// from having events for a sub property.
|
||||||
|
// The design time editor associated with TJvPersistent will display
|
||||||
|
// the events, thus mimicking a Sub Component.
|
||||||
|
{$IFDEF COMPILER6_UP}
|
||||||
|
TJvPersistent = class(TComponent)
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
end;
|
||||||
|
{$ELSE}
|
||||||
|
TJvPersistent = class(TPersistent);
|
||||||
|
{$ENDIF COMPILER6_UP}
|
||||||
|
|
||||||
|
// Added by dejoy (2005-04-20)
|
||||||
|
// A lot of TJVxxx control persistent properties used TPersistent,
|
||||||
|
// So and a TJvPersistentProperty to do this job. make to support batch-update mode
|
||||||
|
// and property change notify.
|
||||||
|
TJvPropertyChangeEvent = procedure(Sender: TObject; const PropName: string) of object;
|
||||||
|
|
||||||
|
TJvPersistentProperty = class(TPersistent)//?? TJvPersistent
|
||||||
|
private
|
||||||
|
FUpdateCount: Integer;
|
||||||
|
FOnChanging: TNotifyEvent;
|
||||||
|
FOnChange: TNotifyEvent;
|
||||||
|
FOnChangingProperty: TJvPropertyChangeEvent;
|
||||||
|
FOnChangeProperty: TJvPropertyChangeEvent;
|
||||||
|
protected
|
||||||
|
procedure Changed; virtual;
|
||||||
|
procedure Changing; virtual;
|
||||||
|
procedure ChangedProperty(const PropName: string); virtual;
|
||||||
|
procedure ChangingProperty(const PropName: string); virtual;
|
||||||
|
procedure SetUpdateState(Updating: Boolean); virtual;
|
||||||
|
property UpdateCount: Integer read FUpdateCount;
|
||||||
|
public
|
||||||
|
procedure BeginUpdate; virtual;
|
||||||
|
procedure EndUpdate; virtual;
|
||||||
|
property OnChange: TNotifyEvent read FOnChange write FOnChange;
|
||||||
|
property OnChanging: TNotifyEvent read FOnChanging write FOnChanging;
|
||||||
|
property OnChangeProperty: TJvPropertyChangeEvent read FOnChangeProperty write FOnChangeProperty;
|
||||||
|
property OnChangingProperty: TJvPropertyChangeEvent read FOnChangingProperty write FOnChangingProperty;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvRegKey = (hkClassesRoot, hkCurrentUser, hkLocalMachine, hkUsers,
|
||||||
|
hkPerformanceData, hkCurrentConfig, hkDynData);
|
||||||
|
TJvRegKeys = set of TJvRegKey;
|
||||||
|
|
||||||
|
// base JVCL Exception class to derive from
|
||||||
|
EJVCLException = class(Exception);
|
||||||
|
|
||||||
|
TJvLinkClickEvent = procedure(Sender: TObject; Link: string) of object;
|
||||||
|
// TOnRegistryChangeKey = procedure(Sender: TObject; RootKey: HKEY; Path: string) of object;
|
||||||
|
// TAngle = 0..360;
|
||||||
|
TJvOutputMode = (omFile, omStream);
|
||||||
|
// TLabelDirection = (sdLeftToRight, sdRightToLeft); // JvScrollingLabel
|
||||||
|
|
||||||
|
TJvDoneFileEvent = procedure(Sender: TObject; FileName: string; FileSize: Integer; Url: string) of object;
|
||||||
|
TJvDoneStreamEvent = procedure(Sender: TObject; Stream: TStream; StreamSize: Integer; Url: string) of object;
|
||||||
|
TJvHTTPProgressEvent = procedure(Sender: TObject; UserData, Position: Integer; TotalSize: Integer; Url: string; var Continue: Boolean) of object;
|
||||||
|
TJvFTPProgressEvent = procedure(Sender: TObject; Position: Integer; Url: string) of object;
|
||||||
|
|
||||||
|
// from JvComponent.pas
|
||||||
|
TJvClipboardCommand = (caCopy, caCut, caPaste, caClear, caUndo);
|
||||||
|
TJvClipboardCommands = set of TJvClipboardCommand;
|
||||||
|
********************)
|
||||||
|
|
||||||
|
// used in JvButton
|
||||||
|
TCMForceSize = record
|
||||||
|
Msg: Cardinal;
|
||||||
|
NewSize: TSmallPoint;
|
||||||
|
Sender: TControl;
|
||||||
|
Result: Longint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(********************
|
||||||
|
PJvRGBArray = ^TJvRGBArray;
|
||||||
|
TJvRGBArray = array [0..MaxPixelCount] of TJvRGBTriple;
|
||||||
|
PRGBQuadArray = ^TRGBQuadArray;
|
||||||
|
TRGBQuadArray = array [0..MaxPixelCount] of TRGBQuad;
|
||||||
|
PRGBPalette = ^TRGBPalette;
|
||||||
|
TRGBPalette = array [Byte] of TRGBQuad;
|
||||||
|
|
||||||
|
{ (rom) unused
|
||||||
|
TJvPoint = class(TPersistent)
|
||||||
|
protected
|
||||||
|
FX: Integer;
|
||||||
|
FY: Integer;
|
||||||
|
published
|
||||||
|
property X: Integer read FX write FX;
|
||||||
|
property Y: Integer read FY write FY;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
|
TJvErrorEvent = procedure(Sender: TObject; ErrorMsg: string) of object;
|
||||||
|
TJvWaveLocation = (frFile, frResource, frRAM);
|
||||||
|
|
||||||
|
TJvPopupPosition = (ppNone, ppForm, ppApplication);
|
||||||
|
// TJvDirMask = (dmFileNameChange, dmDirnameChange, dmAttributesChange, dmSizeChange, dmLastWriteChange, dmSecurityChange); //JvDirectorySpy
|
||||||
|
// TJvDirMasks = set of TJvDirMask;
|
||||||
|
// EJvDirectoryError = class(EJVCLException); // JvDirectorySpy
|
||||||
|
// TListEvent = procedure(Sender: TObject; Title: string; Handle: THandle) of object; // JvWindowsTitle
|
||||||
|
|
||||||
|
TJvProgressEvent = procedure(Sender: TObject; Current, Total: Integer) of object;
|
||||||
|
TJvNextPageEvent = procedure(Sender: TObject; PageNumber: Integer) of object;
|
||||||
|
TJvBitmapStyle = (bsNormal, bsCentered, bsStretched);
|
||||||
|
|
||||||
|
// TOnOpened = procedure(Sender: TObject; Value: string) of object; // archive
|
||||||
|
// TOnOpenCanceled = procedure(Sender: TObject) of object; // archive
|
||||||
|
|
||||||
|
{$IFDEF COMPILER5}
|
||||||
|
|
||||||
|
{ TStream seek origins }
|
||||||
|
// TSeekOrigin = (soFromBeginning, soFromCurrent, soFromEnd);
|
||||||
|
// (outchy)
|
||||||
|
// TStream.Seek can not be used with TSeekOrigin
|
||||||
|
// soFromBeginning, soFromCurrent and soFromEnd are defined in Classes.pas
|
||||||
|
|
||||||
|
TWMNCPaint = packed record
|
||||||
|
Msg: Cardinal;
|
||||||
|
RGN: HRGN;
|
||||||
|
Unused: Longint;
|
||||||
|
Result: Longint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// (outchy) defined in Windows.pas
|
||||||
|
// PInteger = ^Integer;
|
||||||
|
// PDouble = ^Double;
|
||||||
|
PBoolean = ^Boolean;
|
||||||
|
PWordBool = ^WordBool;
|
||||||
|
PCardinal = ^Cardinal;
|
||||||
|
// PByte = ^Byte;
|
||||||
|
|
||||||
|
TVarType = Word;
|
||||||
|
|
||||||
|
{$ENDIF COMPILER5}
|
||||||
|
|
||||||
|
TJvGradientStyle = (grFilled, grEllipse, grHorizontal, grVertical, grPyramid, grMount);
|
||||||
|
// TOnDelete = procedure(Sender: TObject; Path: string) of object;
|
||||||
|
TJvParentEvent = procedure(Sender: TObject; ParentWindow: THandle) of object;
|
||||||
|
// TOnImage = procedure(Sender: TObject; Image: TBitmap) of object; // JvClipboardViewer
|
||||||
|
// TOnText = procedure(Sender: TObject; Text: string) of object;
|
||||||
|
// TJvRestart = (rsLogoff, rsShutdown, rsReboot, rsRestart, rsRebootSystem, rsExitAndExecApp);
|
||||||
|
// TJvRunOption = (roNoBrowse, roNoDefault, roCalcDirectory, roNoLabel, roNoSeparateMem); // JvRunDlg
|
||||||
|
// TJvRunOptions = set of TJvRunOption; // JvRunDlg
|
||||||
|
// TJvFileKind = (ftFile, ftPrinter); // JvObjectPropertiesDlg
|
||||||
|
|
||||||
|
// TSHFormatDrive = function(Handle: THandle; Drive, ID, Options: Word): LongInt; stdcall; // JvFormatDrive
|
||||||
|
// TFormatOption = (shQuickFormat, shFull, shSystemFilesOnly); // JvFormatDrive
|
||||||
|
// TButtonStyle = (bsAbortRetryIgnore, bsOk, bsOkCancel, bsRetryCancel, bsYesNo, bsYesNoCancel); // JvMessageBox
|
||||||
|
// TButtonDisplay = (bdIconExclamation, bdIconWarning, bdIconInformation, bdIconAsterisk, bdIconQuestion, bdIconStop, bdIconError, bdIconHand); // JvMessageBox
|
||||||
|
|
||||||
|
// TDefault = (dbButton1, dbButton2, dbButton3, dbButton4); // JvMessageBox
|
||||||
|
// TModality = (bmApplModal, bmSystemModal, bmTaskModal); // JvMessageBox
|
||||||
|
// TButtonOption = (boDefaultDesktopOnly, boHelp, boRight, boRtlReading, boSetForeground, boTopMost); // JvMessageBox
|
||||||
|
// TButtonOptions = set of TButtonOption; // JvMessageBox
|
||||||
|
// TButtonResult = (brAbort, brCancel, brIgnore, brNo, brOk, brRetry, brYes); // JvMessageBox
|
||||||
|
// TMsgStyle = (msBeep, msIconAsterisk, msIconExclamation, msIconHand, msIconQuestion, msOk); // JvMessageBeep
|
||||||
|
TJvDiskRes = (dsSuccess, dsCancel, dsSkipfile, dsError);
|
||||||
|
TJvDiskStyle = (idfCheckFirst, idfNoBeep, idfNoBrowse, idfNoCompressed, idfNoDetails,
|
||||||
|
idfNoForeground, idfNoSkip, idfOemDisk, idfWarnIfSkip);
|
||||||
|
TJvDiskStyles = set of TJvDiskStyle;
|
||||||
|
TJvDeleteStyle = (idNoBeep, idNoForeground);
|
||||||
|
TJvDeleteStyles = set of TJvDeleteStyle;
|
||||||
|
// TOnOk = procedure(Sender: TObject; Password: string; var Accept: Boolean) of object; // JvPasswordForm
|
||||||
|
|
||||||
|
// TCoordChanged = procedure(Sender: TObject; Coord: string) of object;
|
||||||
|
TJvNotifyParamsEvent = procedure(Sender: TObject; Params: Pointer) of object;
|
||||||
|
|
||||||
|
TJvFileInfoRec = record
|
||||||
|
Attributes: DWORD;
|
||||||
|
DisplayName: string;
|
||||||
|
ExeType: Integer;
|
||||||
|
Icon: HICON;
|
||||||
|
Location: string;
|
||||||
|
TypeName: string;
|
||||||
|
SysIconIndex: Integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvAnimation = (anLeftRight, anRightLeft, anRightAndLeft, anLeftVumeter, anRightVumeter);
|
||||||
|
TJvAnimations = set of TJvAnimation;
|
||||||
|
// TOnFound = procedure(Sender: TObject; Path: string) of object; // JvSearchFile
|
||||||
|
// TOnChangedDir = procedure(Sender: TObject; Directory: string) of object; // JvSearchFile
|
||||||
|
// TOnAlarm = procedure(Sender: TObject; Keyword: string) of object; // JvAlarm
|
||||||
|
{ TAlarm = record
|
||||||
|
Keyword: string;
|
||||||
|
DateTime: TDateTime;
|
||||||
|
end;
|
||||||
|
} // JvAlarm
|
||||||
|
|
||||||
|
// Bianconi - Moved from JvAlarms.pas
|
||||||
|
TJvTriggerKind =
|
||||||
|
(tkOneShot, tkEachSecond, tkEachMinute, tkEachHour, tkEachDay, tkEachMonth, tkEachYear);
|
||||||
|
// End of Bianconi
|
||||||
|
|
||||||
|
TJvFourCC = array [0..3] of Char;
|
||||||
|
PJvAniTag = ^TJvAniTag;
|
||||||
|
TJvAniTag = packed record
|
||||||
|
ckID: TJvFourCC;
|
||||||
|
ckSize: Longint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvAniHeader = packed record
|
||||||
|
dwSizeof: Longint;
|
||||||
|
dwFrames: Longint;
|
||||||
|
dwSteps: Longint;
|
||||||
|
dwCX: Longint;
|
||||||
|
dwCY: Longint;
|
||||||
|
dwBitCount: Longint;
|
||||||
|
dwPlanes: Longint;
|
||||||
|
dwJIFRate: Longint;
|
||||||
|
dwFlags: Longint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvChangeColorEvent = procedure(Sender: TObject; Foreground, Background: TColor) of object;
|
||||||
|
|
||||||
|
TJvLayout = (lTop, lCenter, lBottom);
|
||||||
|
TJvBevelStyle = (bsShape, bsLowered, bsRaised);
|
||||||
|
|
||||||
|
{for OnLoseFocus the AFocusControl argument will point at the control that
|
||||||
|
receives focus while for OnGetFocus it is the control that lost the focus}
|
||||||
|
TJvFocusChangeEvent = procedure(const ASender: TObject;
|
||||||
|
const AFocusControl: TWinControl) of object;
|
||||||
|
|
||||||
|
// JvJCLUtils
|
||||||
|
TTickCount = Cardinal;
|
||||||
|
|
||||||
|
{**** string handling routines}
|
||||||
|
TSetOfChar = TSysCharSet;
|
||||||
|
TCharSet = TSysCharSet;
|
||||||
|
|
||||||
|
TDateOrder = (doMDY, doDMY, doYMD);
|
||||||
|
TDayOfWeekName = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
|
||||||
|
TDaysOfWeek = set of TDayOfWeekName;
|
||||||
|
|
||||||
|
const
|
||||||
|
DefaultDateOrder = doDMY;
|
||||||
|
|
||||||
|
CenturyOffset: Byte = 60;
|
||||||
|
NullDate: TDateTime = 0; {-693594}
|
||||||
|
|
||||||
|
type
|
||||||
|
// JvDriveCtrls / JvLookOut
|
||||||
|
TJvImageSize = (isSmall, isLarge);
|
||||||
|
TJvImageAlign = (iaLeft, iaCentered);
|
||||||
|
|
||||||
|
TJvDriveType = (dtUnknown, dtRemovable, dtFixed, dtRemote, dtCDROM, dtRamDisk);
|
||||||
|
TJvDriveTypes = set of TJvDriveType;
|
||||||
|
********************)
|
||||||
|
|
||||||
|
type
|
||||||
|
// Defines how a property (like a HotTrackFont) follows changes in the component's normal Font
|
||||||
|
TJvTrackFontOption = (
|
||||||
|
hoFollowFont, // makes HotTrackFont follow changes to the normal Font
|
||||||
|
hoPreserveCharSet, // don't change HotTrackFont.Charset
|
||||||
|
hoPreserveColor, // don't change HotTrackFont.Color
|
||||||
|
hoPreserveHeight, // don't change HotTrackFont.Height (affects Size as well)
|
||||||
|
hoPreserveName, // don't change HotTrackFont.Name
|
||||||
|
hoPreservePitch, // don't change HotTrackFont.Pitch
|
||||||
|
hoPreserveStyle); // don't change HotTrackFont.Style
|
||||||
|
TJvTrackFontOptions = set of TJvTrackFontOption;
|
||||||
|
|
||||||
|
const
|
||||||
|
DefaultTrackFontOptions = [hoFollowFont, hoPreserveColor, hoPreserveStyle];
|
||||||
|
|
||||||
|
(********************
|
||||||
|
type
|
||||||
|
// from JvListView.pas
|
||||||
|
TJvSortMethod = (smAutomatic, smAlphabetic, smNonCaseSensitive, smNumeric, smDate, smTime, smDateTime, smCurrency);
|
||||||
|
TJvListViewColumnSortEvent = procedure(Sender: TObject; Column: Integer; var AMethod: TJvSortMethod) of object;
|
||||||
|
|
||||||
|
// from JvOfficeColorPanel.pas
|
||||||
|
TJvAddInControlSiteInfo = record
|
||||||
|
AddInControl: TControl;
|
||||||
|
BoundsRect: TRect;
|
||||||
|
SiteInfoData: TObject;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvClickColorType =
|
||||||
|
(cctColors, cctNoneColor, cctDefaultColor, cctCustomColor, cctAddInControl, cctNone);
|
||||||
|
TJvHoldCustomColorEvent = procedure(Sender: TObject; AColor: TColor) of object;
|
||||||
|
TJvColorQuadLayOut = (cqlNone, cqlLeft, cqlRight, cqlClient);
|
||||||
|
TJvGetAddInControlSiteInfoEvent = procedure(Sender: TControl; var ASiteInfo: TJvAddInControlSiteInfo) of object;
|
||||||
|
|
||||||
|
// from JvColorProvider.pas
|
||||||
|
TColorType = (ctStandard, ctSystem, ctCustom);
|
||||||
|
|
||||||
|
TDefColorItem = record
|
||||||
|
Value: TColor;
|
||||||
|
Constant: string;
|
||||||
|
Description: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
ColCount = 20;
|
||||||
|
StandardColCount = 40;
|
||||||
|
SysColCount = 30;
|
||||||
|
{$IFDEF COMPILER5}
|
||||||
|
clSystemColor = TColor($80000000);
|
||||||
|
clHotLight = TColor(clSystemColor or COLOR_HOTLIGHT);
|
||||||
|
clGradientActiveCaption = TColor(clSystemColor or COLOR_GRADIENTACTIVECAPTION);
|
||||||
|
clGradientInactiveCaption = TColor(clSystemColor or COLOR_GRADIENTINACTIVECAPTION);
|
||||||
|
clMenuHighlight = TColor(clSystemColor or COLOR_MENUHILIGHT);
|
||||||
|
clMenuBar = TColor(clSystemColor or COLOR_MENUBAR);
|
||||||
|
{$ENDIF COMPILER5}
|
||||||
|
{$IFDEF COMPILER6}
|
||||||
|
{$IF not declared(clHotLight)}
|
||||||
|
{$MESSAGE ERROR 'You do not have installed Delphi 6 Update 2. Please install this before installing the JVCL. http://www.borland.com/downloads/registered/del6_reg_updates_prompt.html'}
|
||||||
|
{$IFEND}
|
||||||
|
{$ENDIF COMPILER6}
|
||||||
|
|
||||||
|
ColorValues: array [0 .. ColCount - 1] of TDefColorItem = (
|
||||||
|
(Value: clBlack; Constant: 'clBlack'; Description: RsClBlack),
|
||||||
|
(Value: clMaroon; Constant: 'clMaroon'; Description: RsClMaroon),
|
||||||
|
(Value: clGreen; Constant: 'clGreen'; Description: RsClGreen),
|
||||||
|
(Value: clOlive; Constant: 'clOlive'; Description: RsClOlive),
|
||||||
|
(Value: clNavy; Constant: 'clNavy'; Description: RsClNavy),
|
||||||
|
(Value: clPurple; Constant: 'clPurple'; Description: RsClPurple),
|
||||||
|
(Value: clTeal; Constant: 'clTeal'; Description: RsClTeal),
|
||||||
|
(Value: clGray; Constant: 'clGray'; Description: RsClGray),
|
||||||
|
(Value: clSilver; Constant: 'clSilver'; Description: RsClSilver),
|
||||||
|
(Value: clRed; Constant: 'clRed'; Description: RsClRed),
|
||||||
|
(Value: clLime; Constant: 'clLime'; Description: RsClLime),
|
||||||
|
(Value: clYellow; Constant: 'clYellow'; Description: RsClYellow),
|
||||||
|
(Value: clBlue; Constant: 'clBlue'; Description: RsClBlue),
|
||||||
|
(Value: clFuchsia; Constant: 'clFuchsia'; Description: RsClFuchsia),
|
||||||
|
(Value: clAqua; Constant: 'clAqua'; Description: RsClAqua),
|
||||||
|
(Value: clWhite; Constant: 'clWhite'; Description: RsClWhite),
|
||||||
|
(Value: clMoneyGreen; Constant: 'clMoneyGreen'; Description: RsClMoneyGreen),
|
||||||
|
(Value: clSkyBlue; Constant: 'clSkyBlue'; Description: RsClSkyBlue),
|
||||||
|
(Value: clCream; Constant: 'clCream'; Description: RsClCream),
|
||||||
|
(Value: clMedGray; Constant: 'clMedGray'; Description: RsClMedGray)
|
||||||
|
);
|
||||||
|
|
||||||
|
//added by dejoy (2005-04-20)
|
||||||
|
StandardColorValues: array [0 .. StandardColCount - 1] of TDefColorItem = (
|
||||||
|
(Value: $00000000; Constant: 'clBlack'; Description: RsClBlack),
|
||||||
|
(Value: $00003399; Constant: 'clBrown'; Description: RsClBrown),
|
||||||
|
(Value: $00003333; Constant: 'clOliveGreen'; Description: RsClOliveGreen),
|
||||||
|
(Value: $00003300; Constant: 'clDarkGreen'; Description: RsClDarkGreen),
|
||||||
|
(Value: $00663300; Constant: 'clDarkTeal'; Description: RsClDarkTeal),
|
||||||
|
(Value: $00800000; Constant: 'clDarkBlue'; Description: RsClDarkBlue),
|
||||||
|
(Value: $00993333; Constant: 'clIndigo'; Description: RsClIndigo),
|
||||||
|
(Value: $00333333; Constant: 'clGray80'; Description: RsClGray80),
|
||||||
|
|
||||||
|
(Value: $00000080; Constant: 'clDarkRed'; Description: RsClDarkRed),
|
||||||
|
(Value: $000066FF; Constant: 'clOrange'; Description: RsClOrange),
|
||||||
|
(Value: $00008080; Constant: 'clDarkYellow'; Description: RsClDarkYellow),
|
||||||
|
(Value: $00008000; Constant: 'clGreen'; Description: RsClGreen),
|
||||||
|
(Value: $00808000; Constant: 'clTeal'; Description: RsClTeal),
|
||||||
|
(Value: $00FF0000; Constant: 'clBlue'; Description: RsClBlue),
|
||||||
|
(Value: $00996666; Constant: 'clBlueGray'; Description: RsClBlueGray),
|
||||||
|
(Value: $00808080; Constant: 'clGray50'; Description: RsClGray50),
|
||||||
|
|
||||||
|
(Value: $000000FF; Constant: 'clRed'; Description: RsClRed),
|
||||||
|
(Value: $000099FF; Constant: 'clLightOrange'; Description: RsClLightOrange),
|
||||||
|
(Value: $0000CC99; Constant: 'clLime'; Description: RsClLime),
|
||||||
|
(Value: $00669933; Constant: 'clSeaGreen'; Description: RsClSeaGreen),
|
||||||
|
(Value: $00999933; Constant: 'clAqua'; Description: RsClAqua),
|
||||||
|
(Value: $00FF6633; Constant: 'clLightBlue'; Description: RsClLightBlue),
|
||||||
|
(Value: $00800080; Constant: 'clViolet'; Description: RsClViolet),
|
||||||
|
(Value: $00999999; Constant: 'clGray40'; Description: RsClGray40),
|
||||||
|
|
||||||
|
(Value: $00FF00FF; Constant: 'clPink'; Description: RsClPink),
|
||||||
|
(Value: $0000CCFF; Constant: 'clGold'; Description: RsClGold),
|
||||||
|
(Value: $0000FFFF; Constant: 'clYellow'; Description: RsClYellow),
|
||||||
|
(Value: $0000FF00; Constant: 'clBrightGreen'; Description: RsClBrightGreen),
|
||||||
|
(Value: $00FFFF00; Constant: 'clTurquoise'; Description: RsClTurquoise),
|
||||||
|
(Value: $00F0CAA6; Constant: 'clSkyBlue'; Description: RsClSkyBlue),
|
||||||
|
(Value: $00663399; Constant: 'clPlum'; Description: RsClPlum),
|
||||||
|
(Value: $00C0C0C0; Constant: 'clGray25'; Description: RsClGray25),
|
||||||
|
|
||||||
|
(Value: $00CC99FF; Constant: 'clRose'; Description: RsClRose),
|
||||||
|
(Value: $0099CCFF; Constant: 'clTan'; Description: RsClTan),
|
||||||
|
(Value: $0099FFFF; Constant: 'clLightYellow'; Description: RsClLightYellow),
|
||||||
|
(Value: $00CCFFCC; Constant: 'clLightGreen'; Description: RsClLightGreen),
|
||||||
|
(Value: $00FFFFCC; Constant: 'clLightTurquoise'; Description: RsClLightTurquoise),
|
||||||
|
(Value: $00FFCC99; Constant: 'clPaleBlue'; Description: RsClPaleBlue),
|
||||||
|
(Value: $00FF99CC; Constant: 'clLavender'; Description: RsClLavender),
|
||||||
|
(Value: $00FFFFFF; Constant: 'clWhite'; Description: RsClWhite)
|
||||||
|
);
|
||||||
|
|
||||||
|
SysColorValues: array [0 .. SysColCount - 1] of TDefColorItem = (
|
||||||
|
(Value: clScrollBar; Constant: 'clScrollBar'; Description: RsClScrollBar),
|
||||||
|
(Value: clBackground; Constant: 'clBackground'; Description: RsClBackground),
|
||||||
|
(Value: clActiveCaption; Constant: 'clActiveCaption'; Description: RsClActiveCaption),
|
||||||
|
(Value: clInactiveCaption; Constant: 'clInactiveCaption'; Description: RsClInactiveCaption),
|
||||||
|
(Value: clMenu; Constant: 'clMenu'; Description: RsClMenu),
|
||||||
|
(Value: clWindow; Constant: 'clWindow'; Description: RsClWindow),
|
||||||
|
(Value: clWindowFrame; Constant: 'clWindowFrame'; Description: RsClWindowFrame),
|
||||||
|
(Value: clMenuText; Constant: 'clMenuText'; Description: RsClMenuText),
|
||||||
|
(Value: clWindowText; Constant: 'clWindowText'; Description: RsClWindowText),
|
||||||
|
(Value: clCaptionText; Constant: 'clCaptionText'; Description: RsClCaptionText),
|
||||||
|
(Value: clActiveBorder; Constant: 'clActiveBorder'; Description: RsClActiveBorder),
|
||||||
|
(Value: clInactiveBorder; Constant: 'clInactiveBorder'; Description: RsClInactiveBorder),
|
||||||
|
(Value: clAppWorkSpace; Constant: 'clAppWorkSpace'; Description: RsClAppWorkSpace),
|
||||||
|
(Value: clHighlight; Constant: 'clHighlight'; Description: RsClHighlight),
|
||||||
|
(Value: clHighlightText; Constant: 'clHighlightText'; Description: RsClHighlightText),
|
||||||
|
(Value: clBtnFace; Constant: 'clBtnFace'; Description: RsClBtnFace),
|
||||||
|
(Value: clBtnShadow; Constant: 'clBtnShadow'; Description: RsClBtnShadow),
|
||||||
|
(Value: clGrayText; Constant: 'clGrayText'; Description: RsClGrayText),
|
||||||
|
(Value: clBtnText; Constant: 'clBtnText'; Description: RsClBtnText),
|
||||||
|
(Value: clInactiveCaptionText; Constant: 'clInactiveCaptionText'; Description: RsClInactiveCaptionText),
|
||||||
|
(Value: clBtnHighlight; Constant: 'clBtnHighlight'; Description: RsClBtnHighlight),
|
||||||
|
(Value: cl3DDkShadow; Constant: 'cl3DDkShadow'; Description: RsCl3DDkShadow),
|
||||||
|
(Value: cl3DLight; Constant: 'cl3DLight'; Description: RsCl3DLight),
|
||||||
|
(Value: clInfoText; Constant: 'clInfoText'; Description: RsClInfoText),
|
||||||
|
(Value: clInfoBk; Constant: 'clInfoBk'; Description: RsClInfoBk),
|
||||||
|
|
||||||
|
(Value: clGradientActiveCaption; Constant: 'clGradientActiveCaption'; Description: RsGradientActiveCaption),
|
||||||
|
(Value: clGradientInactiveCaption; Constant: 'clGradientInactiveCaption';Description: RsGradientInactiveCaption),
|
||||||
|
(Value: clHotLight; Constant: 'clHotLight'; Description: RsHotLight),
|
||||||
|
(Value: clMenuBar; Constant: 'clMenuBar'; Description: RsMenuBar),
|
||||||
|
(Value: clMenuHighlight; Constant: 'clMenuHighlight'; Description: RsMenuHighlight)
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvSizeRect = packed record
|
||||||
|
Top: Integer;
|
||||||
|
Left: Integer;
|
||||||
|
Width: Integer;
|
||||||
|
Height: Integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$IFNDEF CLR}
|
||||||
|
TJvMessage = packed record
|
||||||
|
Msg: Integer;
|
||||||
|
case Integer of
|
||||||
|
0:
|
||||||
|
(
|
||||||
|
WParam: Integer;
|
||||||
|
LParam: Integer;
|
||||||
|
Result: Integer;
|
||||||
|
);
|
||||||
|
1:
|
||||||
|
(
|
||||||
|
WParamLo: Word;
|
||||||
|
WParamHi: Word;
|
||||||
|
LParamLo: Word;
|
||||||
|
LParamHi: Word;
|
||||||
|
ResultLo: Word;
|
||||||
|
ResultHi: Word;
|
||||||
|
);
|
||||||
|
2:
|
||||||
|
( // WM_NOPARAMS
|
||||||
|
Unused: array[0..3] of Word;
|
||||||
|
Handled: LongBool; // "Result"
|
||||||
|
);
|
||||||
|
3:
|
||||||
|
( // WM_SCROLL
|
||||||
|
Pos: Integer; // WParam
|
||||||
|
ScrollCode: Integer; // LParam
|
||||||
|
);
|
||||||
|
4:
|
||||||
|
( // WM_TIMER
|
||||||
|
TimerID: Integer; // WParam
|
||||||
|
TimerProc: TTimerProc;// LParam
|
||||||
|
);
|
||||||
|
5:
|
||||||
|
( // WM_MOUSEACTIVATE
|
||||||
|
TopLevel: HWND; // WParam
|
||||||
|
HitTestCode: Word; // LParamLo
|
||||||
|
MouseMsg: Word; // LParamHi
|
||||||
|
);
|
||||||
|
6:
|
||||||
|
( // WM_MOUSE(WHEEL) | WM_MOVE
|
||||||
|
case Integer of
|
||||||
|
0:
|
||||||
|
( // WM_MOUSE
|
||||||
|
Keys: Integer; // WParam
|
||||||
|
// LParam: Pos | (XPos, YPos)
|
||||||
|
case Integer of
|
||||||
|
0:
|
||||||
|
(
|
||||||
|
Position: TSmallPoint;
|
||||||
|
);
|
||||||
|
1:
|
||||||
|
(
|
||||||
|
XPos: Smallint;
|
||||||
|
YPos: Smallint;
|
||||||
|
)
|
||||||
|
);
|
||||||
|
1:
|
||||||
|
( // WM_MOUSEWHEEL
|
||||||
|
WheelDelta: Integer; // WParam
|
||||||
|
);
|
||||||
|
);
|
||||||
|
7:
|
||||||
|
( // WM_ACTIVATE
|
||||||
|
Active: Word; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE } // WParamLo
|
||||||
|
Minimized: WordBool; // WParamHi
|
||||||
|
ActiveWindow: HWND; // LParam
|
||||||
|
);
|
||||||
|
|
||||||
|
8:
|
||||||
|
( // WM_COMMAND
|
||||||
|
ItemID: Word; // WParamLo
|
||||||
|
NotifyCode: Word; // WParamHi
|
||||||
|
Ctl: HWND; // LParam
|
||||||
|
);
|
||||||
|
9:
|
||||||
|
( // WM_GETICON
|
||||||
|
BigIcon: LongBool;
|
||||||
|
);
|
||||||
|
10:
|
||||||
|
( // CM_(FOCUS|CONTROL)CHANGED | CM_HINTSHOW
|
||||||
|
Reserved: Integer; // WParam
|
||||||
|
case Integer of
|
||||||
|
0:
|
||||||
|
( // CM_(CONTROL)CHANGED
|
||||||
|
Child: TControl; // LParam
|
||||||
|
);
|
||||||
|
1:
|
||||||
|
( // CM_FOCUSCHANGED | CM_FORCESIZE }
|
||||||
|
Sender: TControl; // LParam
|
||||||
|
);
|
||||||
|
2:
|
||||||
|
( //CM_HINTSHOW
|
||||||
|
HintInfo: PHintInfo;
|
||||||
|
)
|
||||||
|
);
|
||||||
|
11:
|
||||||
|
( // CM_CONTROLLISTCHANGE | CM_(CONTROL)CHANGED (| CM_BUTTONPRESSED for clx)
|
||||||
|
Control: TControl; // WParam
|
||||||
|
case Integer of
|
||||||
|
0:
|
||||||
|
( // CM_(CONTROL)CHANGED
|
||||||
|
Inserting: LongBool; // LParam
|
||||||
|
);
|
||||||
|
1: // CM_BUTTONPRESSED (clx)
|
||||||
|
(
|
||||||
|
Index: Integer;
|
||||||
|
)
|
||||||
|
);
|
||||||
|
12:
|
||||||
|
( // CM_HINTSHOWPAUSE
|
||||||
|
WasActive: LongBool;
|
||||||
|
Pause: PInteger;
|
||||||
|
);
|
||||||
|
13:
|
||||||
|
( // WM_KEY
|
||||||
|
CharCode: Word;
|
||||||
|
NotUsed: Word;
|
||||||
|
KeyData: Integer;
|
||||||
|
);
|
||||||
|
14:
|
||||||
|
( // WM_GETTEXT
|
||||||
|
TextMax: Integer;
|
||||||
|
Text: PChar
|
||||||
|
);
|
||||||
|
15:
|
||||||
|
( // WM_ERASEBKGND | WM_PAINT
|
||||||
|
DC: HDC;
|
||||||
|
);
|
||||||
|
16:
|
||||||
|
( // WM_KILLFOCUS
|
||||||
|
FocusedWnd: HWND;
|
||||||
|
);
|
||||||
|
17:
|
||||||
|
(
|
||||||
|
NewSize: TSmallPoint; //CM_FORCESIZE wParam
|
||||||
|
);
|
||||||
|
18:
|
||||||
|
( { alternative naming for VCL CM_BUTTONPRESSED }
|
||||||
|
GroupIndex: Integer;
|
||||||
|
Button: TControl;
|
||||||
|
);
|
||||||
|
end;
|
||||||
|
{$ENDIF !CLR}
|
||||||
|
***************)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
(***************
|
||||||
|
{$IFDEF COMPILER6_UP}
|
||||||
|
constructor TJvPersistent.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
|
||||||
|
SetSubComponent(True);
|
||||||
|
Name := 'SubComponent';
|
||||||
|
end;
|
||||||
|
{$ENDIF COMPILER6_UP}
|
||||||
|
|
||||||
|
{ TJvPersistentProperty }
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.BeginUpdate;
|
||||||
|
begin
|
||||||
|
if FUpdateCount = 0 then
|
||||||
|
SetUpdateState(True);
|
||||||
|
Inc(FUpdateCount);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.Changed;
|
||||||
|
begin
|
||||||
|
if (FUpdateCount = 0) and Assigned(FOnChange) then
|
||||||
|
FOnChange(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.ChangedProperty(const PropName: string);
|
||||||
|
begin
|
||||||
|
if Assigned(FOnChangeProperty) then
|
||||||
|
FOnChangeProperty(Self, PropName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.Changing;
|
||||||
|
begin
|
||||||
|
if (FUpdateCount = 0) and Assigned(FOnChanging) then
|
||||||
|
FOnChanging(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.ChangingProperty(const PropName: string);
|
||||||
|
begin
|
||||||
|
if Assigned(FOnChangingProperty) then
|
||||||
|
FOnChangingProperty(Self, PropName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.EndUpdate;
|
||||||
|
begin
|
||||||
|
Dec(FUpdateCount);
|
||||||
|
if FUpdateCount = 0 then
|
||||||
|
SetUpdateState(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvPersistentProperty.SetUpdateState(Updating: Boolean);
|
||||||
|
begin
|
||||||
|
if Updating then
|
||||||
|
Changing
|
||||||
|
else
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
***************)
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
2336
components/jvcllaz/run/JvXPBar.pas
Normal file
2336
components/jvcllaz/run/JvXPBar.pas
Normal file
File diff suppressed because it is too large
Load Diff
913
components/jvcllaz/run/JvXPCore.pas
Normal file
913
components/jvcllaz/run/JvXPCore.pas
Normal file
@ -0,0 +1,913 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvXPCore.PAS, released on 2004-01-01.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Marc Hoffman.
|
||||||
|
Portions created by Marc Hoffman are Copyright (C) 2002 APRIORI business solutions AG.
|
||||||
|
Portions created by APRIORI business solutions AG are Copyright (C) 2002 APRIORI business solutions AG
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvXPCore.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Ported to Lazarus (no too hard after all) by Sergio Samayoa - september 2007.
|
||||||
|
// Still dont tested on linux.
|
||||||
|
|
||||||
|
unit JvXPCore;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Forms, Graphics, LCLIntf, LCLType, LMessages;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
const
|
||||||
|
{ color constants.
|
||||||
|
|
||||||
|
these constants are used as default colors for descendant controls
|
||||||
|
and may be replaced with other (common) values.
|
||||||
|
|
||||||
|
syntax: JvXPColor_[Control]_[Enabled: Enb, Dis]_[Type]_[Theme: WXP, OXP] }
|
||||||
|
|
||||||
|
{ button colors - WindowsXP }
|
||||||
|
dxColor_Btn_Enb_Border_WXP = TColor($00733800); // border line
|
||||||
|
dxColor_Btn_Dis_Border_WXP = TColor($00BDC7CE); // border line (disabled)
|
||||||
|
dxColor_Btn_Enb_Edges_WXP = TColor($00AD9E7B); // border edges
|
||||||
|
dxColor_Btn_Dis_Edges_WXP = TColor($00BDC7CE); // border edges (disabled)
|
||||||
|
dxColor_Btn_Enb_BgFrom_WXP = TColor($00FFFFFF); // background from
|
||||||
|
dxColor_Btn_Enb_BgTo_WXP = TColor($00E7EBEF); // background to
|
||||||
|
dxColor_Btn_Enb_CkFrom_WXP = TColor($00C6CFD6); // clicked from
|
||||||
|
dxColor_Btn_Enb_CkTo_WXP = TColor($00EBF3F7); // clicked to
|
||||||
|
dxColor_Btn_Enb_FcFrom_WXP = TColor($00FFE7CE); // focused from
|
||||||
|
dxColor_Btn_Enb_FcTo_WXP = TColor($00EF846D); // focused to
|
||||||
|
dxColor_Btn_Enb_HlFrom_WXP = TColor($00CEF3FF); // highlight from
|
||||||
|
dxColor_Btn_Enb_HlTo_WXP = TColor($000096E7); // highlight to
|
||||||
|
|
||||||
|
{ checkbox colors - WindowsXP }
|
||||||
|
dxColor_Chk_Enb_Border_WXP = TColor($00845118); // border line
|
||||||
|
dxColor_Chk_Enb_NmSymb_WXP = TColor($0021A621); // symbol normal
|
||||||
|
dxColor_Chk_Enb_GraSymb_WXP = TColor($0071C671); // symbol grayed
|
||||||
|
|
||||||
|
{ misc colors - WindowsXP }
|
||||||
|
dxColor_Msc_Dis_Caption_WXP = TColor($0094A6A5); // caption color (disabled)
|
||||||
|
|
||||||
|
dxColor_DotNetFrame = TColor($00F7FBFF); // $00E7EBEF;
|
||||||
|
dxColor_BorderLineOXP = TColor($00663300);
|
||||||
|
dxColor_BgOXP = TColor($00D6BEB5);
|
||||||
|
dxColor_BgCkOXP = TColor($00CC9999);
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvXPCustomStyleControl = class;
|
||||||
|
|
||||||
|
TJvXPBoundLines = set of
|
||||||
|
(
|
||||||
|
blLeft, // left line
|
||||||
|
blTop, // top line
|
||||||
|
blRight, // right line
|
||||||
|
blBottom // bottom line
|
||||||
|
);
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvXPControlStyle = set of
|
||||||
|
(
|
||||||
|
csRedrawCaptionChanged, // (default)
|
||||||
|
csRedrawBorderChanged, //
|
||||||
|
csRedrawEnabledChanged, // (default)
|
||||||
|
csRedrawFocusedChanged, // (default)
|
||||||
|
csRedrawMouseDown, // (default)
|
||||||
|
csRedrawMouseEnter, // (default)
|
||||||
|
csRedrawMouseLeave, // (default)
|
||||||
|
csRedrawMouseMove, //
|
||||||
|
csRedrawMouseUp, // (default)
|
||||||
|
csRedrawParentColorChanged, // (default)
|
||||||
|
csRedrawParentFontChanged, //
|
||||||
|
csRedrawPosChanged, //
|
||||||
|
csRedrawResized //
|
||||||
|
);
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvXPDrawState = set of
|
||||||
|
(
|
||||||
|
dsDefault, // default
|
||||||
|
dsHighlight, // highlighted
|
||||||
|
dsClicked, // clicked
|
||||||
|
dsFocused // focused
|
||||||
|
);
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
TJvXPGlyphLayout =
|
||||||
|
(
|
||||||
|
glBottom, // bottom glyph
|
||||||
|
glCenter, // centered glyph
|
||||||
|
glTop // top glyph
|
||||||
|
);
|
||||||
|
|
||||||
|
TJvXPTheme =
|
||||||
|
(
|
||||||
|
WindowsXP, // WindowsXP theme
|
||||||
|
OfficeXP // OfficeXP theme
|
||||||
|
);
|
||||||
|
|
||||||
|
{ baseclass for non-focusable component descendants. }
|
||||||
|
TJvXPCustomComponent = class(TComponent)
|
||||||
|
private
|
||||||
|
FVersion: string;
|
||||||
|
procedure SetVersion(const Value: string);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
published
|
||||||
|
property Version: string read FVersion write SetVersion stored False;
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvXPWinControl = class(TWinControl)
|
||||||
|
published
|
||||||
|
property Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ baseclass for focusable control descendants. }
|
||||||
|
|
||||||
|
TJvXPCustomControl = class(TCustomControl)
|
||||||
|
private
|
||||||
|
FClicking: Boolean;
|
||||||
|
FDrawState: TJvXPDrawState;
|
||||||
|
FIsLocked: Boolean;
|
||||||
|
FIsSibling: Boolean;
|
||||||
|
FModalResult: TModalResult;
|
||||||
|
FOnMouseLeave: TNotifyEvent;
|
||||||
|
FOnMouseEnter: TNotifyEvent;
|
||||||
|
FVersion: string;
|
||||||
|
procedure SetVersion(const Value: string);
|
||||||
|
procedure CMFocusChanged(var Msg: TLMessage); message CM_FOCUSCHANGED;
|
||||||
|
procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR;
|
||||||
|
procedure CMBorderChanged(var Msg: TLMessage); message CM_BORDERCHANGED;
|
||||||
|
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
|
||||||
|
procedure CMMouseEnter(var Msg: TLMessage); message CM_MOUSEENTER;
|
||||||
|
procedure CMMouseLeave(var Msg: TLMessage); message CM_MOUSELEAVE;
|
||||||
|
procedure CMParentColorChanged(var Msg: TLMessage); message CM_PARENTCOLORCHANGED;
|
||||||
|
|
||||||
|
//21.09.07 - SESS
|
||||||
|
//procedure CMParentFontChanged(var Msg: TLMessage); message CM_PARENTFONTCHANGED;
|
||||||
|
|
||||||
|
procedure CMTextChanged(var Msg: TLMessage); message CM_TEXTCHANGED;
|
||||||
|
procedure WMMouseMove(var Msg: TLMMouse); message LM_MOUSEMOVE;
|
||||||
|
procedure WMSize(var Msg: TLMSize); message LM_SIZE;
|
||||||
|
procedure WMWindowPosChanged(var Msg: TLMWindowPosChanged); message LM_WINDOWPOSCHANGED;
|
||||||
|
protected
|
||||||
|
ExControlStyle: TJvXPControlStyle;
|
||||||
|
procedure InternalRedraw; dynamic;
|
||||||
|
procedure HookBorderChanged; dynamic;
|
||||||
|
procedure HookEnabledChanged; dynamic;
|
||||||
|
procedure HookFocusedChanged; dynamic;
|
||||||
|
procedure HookMouseDown; dynamic;
|
||||||
|
procedure HookMouseEnter; dynamic;
|
||||||
|
procedure HookMouseLeave; dynamic;
|
||||||
|
procedure HookMouseMove(X: Integer = 0; Y: Integer = 0); dynamic;
|
||||||
|
procedure HookMouseUp; dynamic;
|
||||||
|
procedure HookParentColorChanged; dynamic;
|
||||||
|
procedure HookParentFontChanged; dynamic;
|
||||||
|
procedure HookPosChanged; dynamic;
|
||||||
|
procedure HookResized; dynamic;
|
||||||
|
procedure HookTextChanged; dynamic;
|
||||||
|
procedure BeginUpdate; dynamic;
|
||||||
|
procedure EndUpdate; dynamic;
|
||||||
|
procedure LockedInvalidate; dynamic;
|
||||||
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
procedure Click; override;
|
||||||
|
property ModalResult: TModalResult read FModalResult write FModalResult default 0;
|
||||||
|
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
|
||||||
|
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
property Canvas;
|
||||||
|
property DrawState: TJvXPDrawState read FDrawState write FDrawState;
|
||||||
|
property IsLocked: Boolean read FIsLocked write FIsLocked;
|
||||||
|
property IsSibling: Boolean read FIsSibling write FIsSibling;
|
||||||
|
published
|
||||||
|
property Version: string read FVersion write SetVersion stored False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
TJvXPUnlimitedControl = class(TJvXPCustomControl)
|
||||||
|
published
|
||||||
|
//property BevelInner;
|
||||||
|
//property BevelOuter;
|
||||||
|
//property BevelWidth;
|
||||||
|
//property BiDiMode;
|
||||||
|
//property Ctl3D;
|
||||||
|
//property DockSite;
|
||||||
|
//property ParentBiDiMode;
|
||||||
|
//property ParentCtl3D;
|
||||||
|
//property TabOrder;
|
||||||
|
//property TabStop;
|
||||||
|
//property UseDockManager default True;
|
||||||
|
property Align;
|
||||||
|
property Anchors;
|
||||||
|
//property AutoSize;
|
||||||
|
property Constraints;
|
||||||
|
property DragCursor;
|
||||||
|
property DragKind;
|
||||||
|
|
||||||
|
//21.09.07 - SESS resolver
|
||||||
|
//property OnCanResize;
|
||||||
|
|
||||||
|
property DragMode;
|
||||||
|
//property Enabled;
|
||||||
|
property Font;
|
||||||
|
property ParentFont;
|
||||||
|
property ParentShowHint;
|
||||||
|
property PopupMenu;
|
||||||
|
property ShowHint;
|
||||||
|
property Visible;
|
||||||
|
//property OnDockDrop;
|
||||||
|
//property OnDockOver;
|
||||||
|
//property OnEndDock;
|
||||||
|
//property OnGetSiteInfo;
|
||||||
|
//property OnStartDock;
|
||||||
|
//property OnUnDock;
|
||||||
|
property OnClick;
|
||||||
|
property OnConstrainedResize;
|
||||||
|
property OnContextPopup;
|
||||||
|
property OnDragDrop;
|
||||||
|
property OnDragOver;
|
||||||
|
property OnEndDrag;
|
||||||
|
property OnEnter;
|
||||||
|
property OnExit;
|
||||||
|
property OnKeyDown;
|
||||||
|
property OnKeyPress;
|
||||||
|
property OnKeyUp;
|
||||||
|
property OnMouseDown;
|
||||||
|
property OnMouseEnter;
|
||||||
|
property OnMouseLeave;
|
||||||
|
property OnMouseMove;
|
||||||
|
property OnMouseUp;
|
||||||
|
property OnStartDrag;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvXPStyle = class(TPersistent)
|
||||||
|
private
|
||||||
|
FTheme: TJvXPTheme;
|
||||||
|
FUseStyleManager: Boolean;
|
||||||
|
protected
|
||||||
|
Parent: TJvXPCustomStyleControl;
|
||||||
|
procedure SetTheme(Value: TJvXPTheme); virtual;
|
||||||
|
procedure SetUseStyleManager(Value: Boolean); virtual;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent);
|
||||||
|
function GetTheme: TJvXPTheme;
|
||||||
|
published
|
||||||
|
property Theme: TJvXPTheme read FTheme write SetTheme default WindowsXP;
|
||||||
|
property UseStyleManager: Boolean read FUseStyleManager write SetUseStyleManager default True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvXPStyleManager = class(TJvXPCustomComponent)
|
||||||
|
private
|
||||||
|
FControls: TList;
|
||||||
|
FTheme: TJvXPTheme;
|
||||||
|
FOnThemeChanged: TNotifyEvent;
|
||||||
|
procedure InvalidateControls;
|
||||||
|
protected
|
||||||
|
procedure SetTheme(Value: TJvXPTheme); virtual;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure RegisterControls(const AControls: array of TJvXPCustomControl);
|
||||||
|
procedure UnregisterControls(const AControls: array of TJvXPCustomControl);
|
||||||
|
published
|
||||||
|
property Theme: TJvXPTheme read FTheme write SetTheme default WindowsXP;
|
||||||
|
property OnThemeChanged: TNotifyEvent read FOnThemeChanged write FOnThemeChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvXPCustomStyleControl = class(TJvXPCustomControl)
|
||||||
|
private
|
||||||
|
FStyle: TJvXPStyle;
|
||||||
|
FStyleManager: TJvXPStyleManager;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
protected
|
||||||
|
procedure SetStyleManager(Value: TJvXPStyleManager); virtual;
|
||||||
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
property Style: TJvXPStyle read FStyle write FStyle;
|
||||||
|
property StyleManager: TJvXPStyleManager read FStyleManager write SetStyleManager;
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
TJvXPGradientColors = 2..255;
|
||||||
|
|
||||||
|
TJvXPGradientStyle = (gsLeft, gsTop, gsRight, gsBottom);
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
TJvXPGradient = class(TPersistent)
|
||||||
|
private
|
||||||
|
FColors: TJvXPGradientColors;
|
||||||
|
FDithered: Boolean;
|
||||||
|
FEnabled: Boolean;
|
||||||
|
FEndColor: TColor;
|
||||||
|
FStartColor: TColor;
|
||||||
|
FGradientStyle: TJvXPGradientStyle;
|
||||||
|
protected
|
||||||
|
Parent: TJvXPCustomControl;
|
||||||
|
procedure SetDithered(Value: Boolean); virtual;
|
||||||
|
procedure SetColors(Value: TJvXPGradientColors); virtual;
|
||||||
|
procedure SetEnabled(Value: Boolean); virtual;
|
||||||
|
procedure SetEndColor(Value: TColor); virtual;
|
||||||
|
procedure SetGradientStyle(Value: TJvXPGradientStyle); virtual;
|
||||||
|
procedure SetStartColor(Value: TColor); virtual;
|
||||||
|
public
|
||||||
|
Bitmap: TBitmap;
|
||||||
|
constructor Create(AOwner: TControl);
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure RecreateBands; virtual;
|
||||||
|
published
|
||||||
|
property Dithered: Boolean read FDithered write SetDithered default True;
|
||||||
|
property Colors: TJvXPGradientColors read FColors write SetColors default 16;
|
||||||
|
property Enabled: Boolean read FEnabled write SetEnabled default False;
|
||||||
|
property EndColor: TColor read FEndColor write SetEndColor default clSilver;
|
||||||
|
property StartColor: TColor read FStartColor write SetStartColor default clGray;
|
||||||
|
property Style: TJvXPGradientStyle read FGradientStyle write SetGradientStyle default gsLeft;
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - Original strings
|
||||||
|
uses
|
||||||
|
JvXPCoreUtils;
|
||||||
|
|
||||||
|
resourcestring
|
||||||
|
RsCopyright = 'Design eXperience. (c) 2002 M. Hoffmann Version ';
|
||||||
|
RsCopyright2 = 'Design eXperience II - (c) 2002 M. Hoffmann Version ';
|
||||||
|
RsVersion = '2.0.1'; // always increase version number on new releases!
|
||||||
|
*)
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
//=== { TJvXPCustomComponent } ===============================================
|
||||||
|
|
||||||
|
constructor TJvXPCustomComponent.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FVersion := RsCopyright + RsVersion;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomComponent.SetVersion(const Value: string);
|
||||||
|
begin
|
||||||
|
// do not enable overwriting this constant.
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
//=== { TJvXPCustomControl } =================================================
|
||||||
|
|
||||||
|
constructor TJvXPCustomControl.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
ControlStyle := ControlStyle + [csOpaque, csReplicatable];
|
||||||
|
DoubleBuffered := True;
|
||||||
|
ExControlStyle := [csRedrawEnabledChanged, csRedrawFocusedChanged,
|
||||||
|
csRedrawMouseDown, csRedrawMouseEnter, csRedrawMouseLeave, csRedrawMouseUp,
|
||||||
|
csRedrawParentColorChanged, csRedrawCaptionChanged];
|
||||||
|
FClicking := False;
|
||||||
|
FDrawState := [dsDefault];
|
||||||
|
FIsLocked := False;
|
||||||
|
FIsSibling := False;
|
||||||
|
FModalResult := 0;
|
||||||
|
// 23.09.2007 - SESS
|
||||||
|
// FVersion := RsCopyright2 + RsVersion;
|
||||||
|
FVersion := 'JvXP (JVCL) for Lazarus 1.0';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.SetVersion(const Value: string);
|
||||||
|
begin
|
||||||
|
// disallow changing this property.
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.BeginUpdate;
|
||||||
|
begin
|
||||||
|
FIsLocked := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.EndUpdate;
|
||||||
|
begin
|
||||||
|
FIsLocked := False;
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.LockedInvalidate;
|
||||||
|
begin
|
||||||
|
if not IsLocked then
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.InternalRedraw;
|
||||||
|
begin
|
||||||
|
if not FIsLocked then
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMDialogChar(var Msg: TCMDialogChar);
|
||||||
|
begin
|
||||||
|
with Msg do
|
||||||
|
if IsAccel(CharCode, Caption) and CanFocus and
|
||||||
|
(Focused or ((GetKeyState(VK_MENU) and $8000) <> 0)) then
|
||||||
|
begin
|
||||||
|
Click;
|
||||||
|
Result := 1;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMBorderChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "BorderChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookBorderChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMEnabledChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "EnabledChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookEnabledChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMFocusChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "FocusChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookFocusedChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMMouseEnter(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "MouseEnter" to hook.
|
||||||
|
inherited;
|
||||||
|
HookMouseEnter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMMouseLeave(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "MouseLeave" to hook.
|
||||||
|
inherited;
|
||||||
|
HookMouseLeave;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.CMParentColorChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "ParentColorChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookParentColorChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//21.09.07 - SESS resolver
|
||||||
|
(*
|
||||||
|
procedure TJvXPCustomControl.CMParentFontChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "ParentFontChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookParentFontChanged;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
procedure TJvXPCustomControl.CMTextChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
// delegate message "TextChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookTextChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.WMMouseMove(var Msg: TLMMouse);
|
||||||
|
begin
|
||||||
|
// delegate message "MouseMove" to hook.
|
||||||
|
inherited;
|
||||||
|
HookMouseMove(Msg.XPos, Msg.YPos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.WMSize(var Msg: TLMSize);
|
||||||
|
begin
|
||||||
|
// delegate message "Size" to hook.
|
||||||
|
inherited;
|
||||||
|
HookResized;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.WMWindowPosChanged(var Msg: TLMWindowPosChanged);
|
||||||
|
begin
|
||||||
|
// delegate message "WindowPosChanged" to hook.
|
||||||
|
inherited;
|
||||||
|
HookPosChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.MouseDown(Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
// delegate message "MouseDown" to hook.
|
||||||
|
inherited MouseDown(Button, Shift, X, Y);
|
||||||
|
if Button = mbLeft then
|
||||||
|
begin
|
||||||
|
FClicking := True;
|
||||||
|
HookMouseDown;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.MouseUp(Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
// delegate message "MouseUp" to hook.
|
||||||
|
inherited MouseUp(Button, Shift, X, Y);
|
||||||
|
if FClicking then
|
||||||
|
begin
|
||||||
|
FClicking := False;
|
||||||
|
HookMouseUp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.Click;
|
||||||
|
var
|
||||||
|
Form: TCustomForm;
|
||||||
|
begin
|
||||||
|
Form := GetParentForm(Self);
|
||||||
|
if Form <> nil then
|
||||||
|
Form.ModalResult := ModalResult;
|
||||||
|
inherited Click;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//
|
||||||
|
// hooks are used to interrupt default windows messages in an easier
|
||||||
|
// way - it's possible to override them in descendant classes.
|
||||||
|
// Beware of multiple redraw calls - if you know that the calling
|
||||||
|
// hooks always redraws the component, use the lock i.e. unlock methods
|
||||||
|
// (rom) or LockedInvalidate.
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookBorderChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the border property was changed.
|
||||||
|
// in that case we normaly have to redraw the control.
|
||||||
|
if csRedrawBorderChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookEnabledChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the enabled property was switched.
|
||||||
|
// in that case we normaly have to redraw the control.
|
||||||
|
if csRedrawEnabledChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookFocusedChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the currently focused control was changed.
|
||||||
|
if Focused then
|
||||||
|
Include(FDrawState, dsFocused)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Exclude(FDrawState, dsFocused);
|
||||||
|
Exclude(FDrawState, dsClicked);
|
||||||
|
end;
|
||||||
|
FIsSibling := GetParentForm(Self).ActiveControl is TJvXPCustomControl;
|
||||||
|
if csRedrawFocusedChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookMouseEnter;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the user moves (hover) the mouse over the control.
|
||||||
|
if not (csDesigning in ComponentState) then
|
||||||
|
begin
|
||||||
|
Include(FDrawState, dsHighlight);
|
||||||
|
if csRedrawMouseEnter in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
if Assigned(FOnMouseEnter) then
|
||||||
|
FOnMouseEnter(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookMouseLeave;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the user moves the mouse away (unhover) from
|
||||||
|
// the control.
|
||||||
|
if not (csDesigning in ComponentState) then
|
||||||
|
begin
|
||||||
|
Exclude(FDrawState, dsHighlight);
|
||||||
|
if csRedrawMouseLeave in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
if Assigned(FOnMouseLeave) then
|
||||||
|
FOnMouseLeave(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookMouseMove(X: Integer = 0; Y: Integer = 0);
|
||||||
|
begin
|
||||||
|
// this hook is called if the user moves the mouse inside the control.
|
||||||
|
if not (csDesigning in ComponentState) then
|
||||||
|
if csRedrawMouseMove in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookMouseDown;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the user presses the left mouse button over the
|
||||||
|
// controls.
|
||||||
|
if not Focused and CanFocus then
|
||||||
|
SetFocus;
|
||||||
|
Include(FDrawState, dsClicked);
|
||||||
|
if csRedrawMouseDown in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookMouseUp;
|
||||||
|
var
|
||||||
|
CurrentPos: TPoint;
|
||||||
|
NewControl: TWinControl;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the user releases the left mouse button.
|
||||||
|
begin
|
||||||
|
Exclude(FDrawState, dsClicked);
|
||||||
|
if csRedrawMouseUp in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
|
||||||
|
// does the cursor is over another supported control?
|
||||||
|
GetCursorPos(CurrentPos);
|
||||||
|
//21.09.2007 - SESS resolver
|
||||||
|
//NewControl := FindVCLWindow(CurrentPos);
|
||||||
|
NewControl := nil;
|
||||||
|
if (NewControl <> nil) and (NewControl <> Self) and
|
||||||
|
(NewControl.InheritsFrom(TJvXPCustomControl)) then
|
||||||
|
TJvXPCustomControl(NewControl).HookMouseEnter;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookParentColorChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called if, the parent color was changed.
|
||||||
|
if csRedrawParentColorChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookParentFontChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called if, the parent font was changed.
|
||||||
|
if csRedrawParentFontChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookPosChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the window position was changed.
|
||||||
|
if csRedrawPosChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookResized;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the control was resized.
|
||||||
|
if csRedrawResized in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomControl.HookTextChanged;
|
||||||
|
begin
|
||||||
|
// this hook is called, if the caption was changed.
|
||||||
|
if csRedrawCaptionChanged in ExControlStyle then
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
//=== { TJvXPStyle } =========================================================
|
||||||
|
|
||||||
|
constructor TJvXPStyle.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
Parent := TJvXPCustomStyleControl(AOwner);
|
||||||
|
FTheme := WindowsXP;
|
||||||
|
FUseStyleManager := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyle.SetTheme(Value: TJvXPTheme);
|
||||||
|
begin
|
||||||
|
if Value <> FTheme then
|
||||||
|
begin
|
||||||
|
FTheme := Value;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvXPStyle.GetTheme: TJvXPTheme;
|
||||||
|
begin
|
||||||
|
Result := FTheme;
|
||||||
|
if FUseStyleManager and Assigned(Parent.StyleManager) then
|
||||||
|
Result := Parent.StyleManager.Theme;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyle.SetUseStyleManager(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if Value <> FUseStyleManager then
|
||||||
|
begin
|
||||||
|
FUseStyleManager := Value;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvXPStyleManager } ==================================================
|
||||||
|
|
||||||
|
constructor TJvXPStyleManager.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FControls := TList.Create;
|
||||||
|
FTheme := WindowsXP;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvXPStyleManager.Destroy;
|
||||||
|
begin
|
||||||
|
InvalidateControls;
|
||||||
|
FControls.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyleManager.InvalidateControls;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
for I := 0 to FControls.Count - 1 do
|
||||||
|
with TJvXPCustomControl(FControls[I]) do
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyleManager.SetTheme(Value: TJvXPTheme);
|
||||||
|
begin
|
||||||
|
if Value <> FTheme then
|
||||||
|
begin
|
||||||
|
FTheme := Value;
|
||||||
|
if Assigned(FOnThemeChanged) then
|
||||||
|
FOnThemeChanged(Self);
|
||||||
|
InvalidateControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyleManager.RegisterControls(const AControls: array of TJvXPCustomControl);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
for I := Low(AControls) to High(AControls) do
|
||||||
|
if FControls.IndexOf(AControls[I]) = -1 then
|
||||||
|
FControls.Add(AControls[I]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPStyleManager.UnregisterControls(const AControls: array of TJvXPCustomControl);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
for I := Low(AControls) to High(AControls) do
|
||||||
|
if FControls.IndexOf(AControls[I]) <> -1 then
|
||||||
|
FControls.Delete(FControls.IndexOf(AControls[I]));
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvXPCustomStyleControl } ============================================
|
||||||
|
|
||||||
|
constructor TJvXPCustomStyleControl.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FStyle := TJvXPStyle.Create(Self);
|
||||||
|
FStyleManager := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvXPCustomStyleControl.Destroy;
|
||||||
|
begin
|
||||||
|
if FStyleManager <> nil then
|
||||||
|
FStyleManager.UnregisterControls([Self]);
|
||||||
|
FStyle.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomStyleControl.Notification(AComponent: TComponent;
|
||||||
|
Operation: TOperation);
|
||||||
|
begin
|
||||||
|
if (AComponent is TJvXPStyleManager) and (Operation = opRemove) then
|
||||||
|
FStyleManager := nil;
|
||||||
|
inherited Notification(AComponent, Operation);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPCustomStyleControl.SetStyleManager(Value: TJvXPStyleManager);
|
||||||
|
begin
|
||||||
|
if Value <> FStyleManager then
|
||||||
|
begin
|
||||||
|
if Value <> nil then
|
||||||
|
Value.RegisterControls([Self])
|
||||||
|
else
|
||||||
|
FStyleManager.UnregisterControls([Self]);
|
||||||
|
FStyleManager := Value;
|
||||||
|
InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvXPGradient } ======================================================
|
||||||
|
|
||||||
|
constructor TJvXPGradient.Create(AOwner: TControl);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
Parent := TJvXPCustomControl(AOwner);
|
||||||
|
Bitmap := TBitmap.Create;
|
||||||
|
FColors := 16;
|
||||||
|
FDithered := True;
|
||||||
|
FEnabled := False;
|
||||||
|
FEndColor := clSilver;
|
||||||
|
FGradientStyle := gsLeft;
|
||||||
|
FStartColor := clGray;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvXPGradient.Destroy;
|
||||||
|
begin
|
||||||
|
Bitmap.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.RecreateBands;
|
||||||
|
begin
|
||||||
|
if Assigned(Bitmap) then
|
||||||
|
JvXPCreateGradientRect(Parent.Width, Parent.Height, FStartColor, FEndColor,
|
||||||
|
FColors, FGradientStyle, FDithered, Bitmap);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetDithered(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FDithered <> Value then
|
||||||
|
begin
|
||||||
|
FDithered := Value;
|
||||||
|
RecreateBands;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetColors(Value: TJvXPGradientColors);
|
||||||
|
begin
|
||||||
|
if FColors <> Value then
|
||||||
|
begin
|
||||||
|
FColors := Value;
|
||||||
|
RecreateBands;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetEnabled(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FEnabled <> Value then
|
||||||
|
begin
|
||||||
|
FEnabled := Value;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetEndColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FEndColor <> Value then
|
||||||
|
begin
|
||||||
|
FEndColor := Value;
|
||||||
|
RecreateBands;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetGradientStyle(Value: TJvXPGradientStyle);
|
||||||
|
begin
|
||||||
|
if FGradientStyle <> Value then
|
||||||
|
begin
|
||||||
|
FGradientStyle := Value;
|
||||||
|
RecreateBands;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvXPGradient.SetStartColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FStartColor <> Value then
|
||||||
|
begin
|
||||||
|
FStartColor := Value;
|
||||||
|
RecreateBands;
|
||||||
|
Parent.InternalRedraw;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
end.
|
||||||
|
|
||||||
419
components/jvcllaz/run/JvXPCoreUtils.pas
Normal file
419
components/jvcllaz/run/JvXPCoreUtils.pas
Normal file
@ -0,0 +1,419 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvXPCoreUtils.PAS, released on 2004-01-01.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Marc Hoffman.
|
||||||
|
Portions created by Marc Hoffman are Copyright (C) 2002 APRIORI business solutions AG.
|
||||||
|
Portions created by APRIORI business solutions AG are Copyright (C) 2002 APRIORI business solutions AG
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.sourceforge.net
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id: JvXPCoreUtils.pas 11400 2007-06-28 21:24:06Z ahuser $
|
||||||
|
|
||||||
|
// Ported to Lazarus (no too hard after all) by Sergio Samayoa - september 2007.
|
||||||
|
// Still dont tested on linux.
|
||||||
|
|
||||||
|
unit JvXPCoreUtils;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, Controls, Graphics, LCLIntf, LCLType, SysUtils,
|
||||||
|
TypInfo, JvXPCore;
|
||||||
|
|
||||||
|
function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;
|
||||||
|
procedure JvXPDrawLine(const ACanvas: TCanvas; const X1, Y1, X2, Y2: Integer);
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
procedure JvXPCreateGradientRect(const AWidth, AHeight: Integer; const StartColor,
|
||||||
|
EndColor: TColor; const AColors: TJvXPGradientColors; const Style: TJvXPGradientStyle;
|
||||||
|
const Dithered: Boolean; var Bitmap: TBitmap);
|
||||||
|
procedure JvXPAdjustBoundRect(const BorderWidth: Byte;
|
||||||
|
const ShowBoundLines: Boolean; const BoundLines: TJvXPBoundLines; var Rect: TRect);
|
||||||
|
procedure JvXPDrawBoundLines(const ACanvas: TCanvas; const BoundLines: TJvXPBoundLines;
|
||||||
|
const AColor: TColor; const Rect: TRect);
|
||||||
|
|
||||||
|
//
|
||||||
|
// attic!
|
||||||
|
//
|
||||||
|
|
||||||
|
procedure JvXPConvertToGray2(Bitmap: TBitmap);
|
||||||
|
procedure JvXPRenderText(const AParent: TControl; const ACanvas: TCanvas;
|
||||||
|
ACaption: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean;
|
||||||
|
var ARect: TRect; AFlags: Integer);
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
procedure JvXPFrame3D(const ACanvas: TCanvas; const ARect: TRect;
|
||||||
|
const TopColor, BottomColor: TColor; const Swapped: Boolean = False);
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
procedure JvXPColorizeBitmap(Bitmap: TBitmap; const AColor: TColor);
|
||||||
|
procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean;
|
||||||
|
var Flags: Integer);
|
||||||
|
procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas;
|
||||||
|
const AText: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean;
|
||||||
|
const AAlignment: TAlignment; const AWordWrap: Boolean; var Rect: TRect);
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function JvXPMethodsEqual(const Method1, Method2: TMethod): Boolean;
|
||||||
|
begin
|
||||||
|
Result := (Method1.Code = Method2.Code) and (Method1.Data = Method2.Data);
|
||||||
|
end;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
procedure JvXPCreateGradientRect(const AWidth, AHeight: Integer; const StartColor,
|
||||||
|
EndColor: TColor; const AColors: TJvXPGradientColors; const Style: TJvXPGradientStyle;
|
||||||
|
const Dithered: Boolean; var Bitmap: TBitmap);
|
||||||
|
{ // Short version...
|
||||||
|
var
|
||||||
|
gd: TGradientDirection;
|
||||||
|
begin
|
||||||
|
if (AHeight <= 0) or (AWidth <= 0) then
|
||||||
|
Exit;
|
||||||
|
Bitmap.Height := AHeight;
|
||||||
|
Bitmap.Width := AWidth;
|
||||||
|
Bitmap.PixelFormat := pf24bit;
|
||||||
|
if Style in [gsLeft, gsRight] then
|
||||||
|
gd := gdHorizontal
|
||||||
|
else
|
||||||
|
gd := gdVertical;
|
||||||
|
Bitmap.Canvas.GradientFill(Rect(0, 0, AWidth, AHeight), StartColor, EndColor, gd);
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
const
|
||||||
|
PixelCountMax = 32768;
|
||||||
|
DitherDepth = 16;
|
||||||
|
type
|
||||||
|
TGradientBand = array [0..255] of TColor;
|
||||||
|
TRGBMap = packed record
|
||||||
|
case Boolean of
|
||||||
|
True:
|
||||||
|
(RGBVal: DWord);
|
||||||
|
False:
|
||||||
|
(R, G, B, D: Byte);
|
||||||
|
end;
|
||||||
|
PRGBTripleArray = ^TRGBTripleArray;
|
||||||
|
TRGBTripleArray = array [0..PixelCountMax-1] of TRGBTriple;
|
||||||
|
var
|
||||||
|
iLoop, xLoop, yLoop, XX, YY: Integer;
|
||||||
|
iBndS, iBndE: Integer;
|
||||||
|
GBand: TGradientBand;
|
||||||
|
Row: PRGBTripleArray;
|
||||||
|
|
||||||
|
procedure CalculateGradientBand;
|
||||||
|
var
|
||||||
|
rR, rG, rB: Real;
|
||||||
|
lCol, hCol: TRGBMap;
|
||||||
|
iStp: Integer;
|
||||||
|
begin
|
||||||
|
if Style in [gsLeft, gsTop] then
|
||||||
|
begin
|
||||||
|
lCol.RGBVal := ColorToRGB(StartColor);
|
||||||
|
hCol.RGBVal := ColorToRGB(EndColor);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
lCol.RGBVal := ColorToRGB(EndColor);
|
||||||
|
hCol.RGBVal := ColorToRGB(StartColor);
|
||||||
|
end;
|
||||||
|
rR := (hCol.R - lCol.R) / (AColors - 1);
|
||||||
|
rG := (hCol.G - lCol.G) / (AColors - 1);
|
||||||
|
rB := (hCol.B - lCol.B) / (AColors - 1);
|
||||||
|
for iStp := 0 to (AColors - 1) do
|
||||||
|
GBand[iStp] := RGB(
|
||||||
|
lCol.R + Round(rR * iStp),
|
||||||
|
lCol.G + Round(rG * iStp),
|
||||||
|
lCol.B + Round(rB * iStp));
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// Exit if Height or Width are not positive. If not, the calls would lead to
|
||||||
|
// GDI errors about "Invalid parameter" and/or "Out Of Resources".
|
||||||
|
if (AHeight <= 0) or (AWidth <= 0) then
|
||||||
|
Exit;
|
||||||
|
|
||||||
|
Bitmap.Height := AHeight;
|
||||||
|
Bitmap.Width := AWidth;
|
||||||
|
Bitmap.PixelFormat := pf24bit;
|
||||||
|
|
||||||
|
CalculateGradientBand;
|
||||||
|
|
||||||
|
with Bitmap.Canvas do
|
||||||
|
begin
|
||||||
|
Brush.Color := StartColor;
|
||||||
|
FillRect(Bounds(0, 0, AWidth, AHeight));
|
||||||
|
if Style in [gsLeft, gsRight] then
|
||||||
|
begin
|
||||||
|
for iLoop := 0 to AColors - 1 do
|
||||||
|
begin
|
||||||
|
iBndS := MulDiv(iLoop, AWidth, AColors);
|
||||||
|
iBndE := MulDiv(iLoop + 1, AWidth, AColors);
|
||||||
|
Brush.Color := GBand[iLoop];
|
||||||
|
PatBlt(Handle, iBndS, 0, iBndE, AHeigth, PATCOPY);
|
||||||
|
if (iLoop > 0) and Dithered then
|
||||||
|
for yLoop := 0 to DitherDepth - 1 do
|
||||||
|
if yLoop < AHeight then
|
||||||
|
begin
|
||||||
|
Row := Bitmap.ScanLine[yLoop];
|
||||||
|
for xLoop := 0 to AWidth div (AColors - 1) do
|
||||||
|
begin
|
||||||
|
XX := iBndS + Random(xLoop);
|
||||||
|
if (XX < AWidth) and (XX > -1) then
|
||||||
|
with Row[XX] do
|
||||||
|
begin
|
||||||
|
rgbtRed := GetRValue(GBand[iLoop - 1]);
|
||||||
|
rgbtGreen := GetGValue(GBand[iLoop - 1]);
|
||||||
|
rgbtBlue := GetBValue(GBand[iLoop - 1]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for yLoop := 1 to AHeight div DitherDepth do
|
||||||
|
CopyRect(Bounds(0, yLoop * DitherDepth, AWidth, DitherDepth),
|
||||||
|
Bitmap.Canvas, Bounds(0, 0, AWidth, DitherDepth));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
for iLoop := 0 to AColors - 1 do
|
||||||
|
begin
|
||||||
|
iBndS := MulDiv(iLoop, AHeight, AColors);
|
||||||
|
iBndE := MulDiv(iLoop + 1, AHeight, AColors);
|
||||||
|
Brush.Color := GBand[iLoop];
|
||||||
|
PatBlt(Handle, 0, iBndS, AWidth, iBndE, PATCOPY);
|
||||||
|
if (iLoop > 0) and Dithered then
|
||||||
|
for yLoop := 0 to AHeight div (AColors - 1) do
|
||||||
|
begin
|
||||||
|
YY := iBndS + Random(yLoop);
|
||||||
|
if (YY < AHeight) and (YY > -1) then
|
||||||
|
begin
|
||||||
|
Row := Bitmap.ScanLine[YY];
|
||||||
|
for xLoop := 0 to DitherDepth - 1 do
|
||||||
|
if xLoop < AWidth then
|
||||||
|
with Row[xLoop] do
|
||||||
|
begin
|
||||||
|
rgbtRed := GetRValue(GBand[iLoop - 1]);
|
||||||
|
rgbtGreen := GetGValue(GBand[iLoop - 1]);
|
||||||
|
rgbtBlue := GetBValue(GBand[iLoop - 1]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for xLoop := 0 to AWidth div DitherDepth do
|
||||||
|
CopyRect(Bounds(xLoop * DitherDepth, 0, DitherDepth, AHeight),
|
||||||
|
Bitmap.Canvas, Bounds(0, 0, DitherDepth, AHeight));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
procedure JvXPDrawLine(const ACanvas: TCanvas; const X1, Y1, X2, Y2: Integer);
|
||||||
|
begin
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
MoveTo(X1, Y1);
|
||||||
|
LineTo(X2, Y2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
procedure JvXPAdjustBoundRect(const BorderWidth: Byte;
|
||||||
|
const ShowBoundLines: Boolean; const BoundLines: TJvXPBoundLines;
|
||||||
|
var Rect: TRect);
|
||||||
|
begin
|
||||||
|
InflateRect(Rect, -BorderWidth, -BorderWidth);
|
||||||
|
if not ShowBoundLines then
|
||||||
|
Exit;
|
||||||
|
if blLeft in BoundLines then
|
||||||
|
Inc(Rect.Left);
|
||||||
|
if blRight in BoundLines then
|
||||||
|
Dec(Rect.Right);
|
||||||
|
if blTop in BoundLines then
|
||||||
|
Inc(Rect.Top);
|
||||||
|
if blBottom in BoundLines then
|
||||||
|
Dec(Rect.Bottom);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvXPDrawBoundLines(const ACanvas: TCanvas; const BoundLines: TJvXPBoundLines;
|
||||||
|
const AColor: TColor; const Rect: TRect);
|
||||||
|
begin
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
Pen.Color := AColor;
|
||||||
|
Pen.Style := psSolid;
|
||||||
|
if blLeft in BoundLines then
|
||||||
|
JvXPDrawLine(ACanvas, Rect.Left, Rect.Top, Rect.Left, Rect.Bottom - 1);
|
||||||
|
if blTop in BoundLines then
|
||||||
|
JvXPDrawLine(ACanvas, Rect.Left, Rect.Top, Rect.Right, Rect.Top);
|
||||||
|
if blRight in BoundLines then
|
||||||
|
JvXPDrawLine(ACanvas, Rect.Right - 1, Rect.Top, Rect.Right - 1, Rect.Bottom - 1);
|
||||||
|
if blBottom in BoundLines then
|
||||||
|
JvXPDrawLine(ACanvas, Rect.Top, Rect.Bottom - 1, Rect.Right, Rect.Bottom - 1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//
|
||||||
|
// attic
|
||||||
|
//
|
||||||
|
|
||||||
|
procedure JvXPConvertToGray2(Bitmap: TBitmap);
|
||||||
|
var
|
||||||
|
x, y, c: Integer;
|
||||||
|
PxlColor: TColor;
|
||||||
|
begin
|
||||||
|
for x := 0 to Bitmap.Width - 1 do
|
||||||
|
for y := 0 to Bitmap.Height - 1 do
|
||||||
|
begin
|
||||||
|
PxlColor := ColorToRGB(Bitmap.Canvas.Pixels[x, y]);
|
||||||
|
c := (PxlColor shr 16 + ((PxlColor shr 8) and $00FF) + PxlColor and $0000FF) div 3 + 100;
|
||||||
|
if c > 255 then
|
||||||
|
c := 255;
|
||||||
|
Bitmap.Canvas.Pixels[x, y] := RGB(c, c, c);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvXPRenderText(const AParent: TControl; const ACanvas: TCanvas;
|
||||||
|
ACaption: TCaption; const AFont: TFont; const AEnabled, AShowAccelChar: Boolean;
|
||||||
|
var ARect: TRect; AFlags: Integer);
|
||||||
|
|
||||||
|
procedure DoDrawText;
|
||||||
|
begin
|
||||||
|
// (rom) Kludge! This will probably not work for CLX
|
||||||
|
DrawText(ACanvas.Handle, PChar(ACaption), -1, ARect, AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if (AFlags and DT_CALCRECT <> 0) and ((ACaption = '') or AShowAccelChar and
|
||||||
|
(ACaption[1] = '&') and (ACaption[2] = #0)) then
|
||||||
|
ACaption := ACaption + ' ';
|
||||||
|
if not AShowAccelChar then
|
||||||
|
AFlags := AFlags or DT_NOPREFIX;
|
||||||
|
AFlags := AParent.DrawTextBiDiModeFlags(AFlags);
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
Font.Assign(AFont);
|
||||||
|
if not AEnabled then
|
||||||
|
Font.Color := dxColor_Msc_Dis_Caption_WXP;
|
||||||
|
if not AEnabled then
|
||||||
|
begin
|
||||||
|
OffsetRect(ARect, 1, 1);
|
||||||
|
Font.Color := clBtnHighlight;
|
||||||
|
DoDrawText;
|
||||||
|
OffsetRect(ARect, -1, -1);
|
||||||
|
Font.Color := clBtnShadow;
|
||||||
|
DoDrawText;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DoDrawText;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
procedure JvXPFrame3D(const ACanvas: TCanvas; const ARect: TRect;
|
||||||
|
const TopColor, BottomColor: TColor; const Swapped: Boolean = False);
|
||||||
|
var
|
||||||
|
ATopColor, ABottomColor: TColor;
|
||||||
|
begin
|
||||||
|
ATopColor := TopColor;
|
||||||
|
ABottomColor := BottomColor;
|
||||||
|
if Swapped then
|
||||||
|
begin
|
||||||
|
ATopColor := BottomColor;
|
||||||
|
ABottomColor := TopColor;
|
||||||
|
end;
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
Pen.Color := ATopColor;
|
||||||
|
// 21.09.07 - SESS
|
||||||
|
Polyline([
|
||||||
|
Classes.Point(ARect.Left, ARect.Bottom - 1),
|
||||||
|
Classes.Point(ARect.Left, ARect.Top),
|
||||||
|
Classes.Point(ARect.Right - 1, ARect.Top)]);
|
||||||
|
Pen.Color := ABottomColor;
|
||||||
|
Polyline([
|
||||||
|
Classes.Point(ARect.Right - 1, ARect.Top + 1),
|
||||||
|
Classes.Point(ARect.Right - 1 , ARect.Bottom - 1),
|
||||||
|
Classes.Point(ARect.Left, ARect.Bottom - 1)]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(* 23.09.2007 - SESS - unused
|
||||||
|
procedure JvXPColorizeBitmap(Bitmap: TBitmap; const AColor: TColor);
|
||||||
|
var
|
||||||
|
ColorMap: TBitmap;
|
||||||
|
Rect: TRect;
|
||||||
|
begin
|
||||||
|
Rect := Bounds(0, 0, Bitmap.Width, Bitmap.Height);
|
||||||
|
ColorMap := TBitmap.Create;
|
||||||
|
try
|
||||||
|
ColorMap.Assign(Bitmap);
|
||||||
|
Bitmap.FreeImage;
|
||||||
|
with ColorMap.Canvas do
|
||||||
|
begin
|
||||||
|
Brush.Color := AColor;
|
||||||
|
BrushCopy( Rect, Bitmap, Rect, clBlack);
|
||||||
|
end;
|
||||||
|
Bitmap.Assign(ColorMap);
|
||||||
|
finally
|
||||||
|
ColorMap.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvXPSetDrawFlags(const AAlignment: TAlignment; const AWordWrap: Boolean;
|
||||||
|
var Flags: Integer);
|
||||||
|
begin
|
||||||
|
Flags := DT_END_ELLIPSIS;
|
||||||
|
case AAlignment of
|
||||||
|
taLeftJustify:
|
||||||
|
Flags := Flags or DT_LEFT;
|
||||||
|
taCenter:
|
||||||
|
Flags := Flags or DT_CENTER;
|
||||||
|
taRightJustify:
|
||||||
|
Flags := Flags or DT_RIGHT;
|
||||||
|
end;
|
||||||
|
if not AWordWrap then
|
||||||
|
Flags := Flags or DT_SINGLELINE
|
||||||
|
else
|
||||||
|
Flags := Flags or DT_WORDBREAK;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvXPPlaceText(const AParent: TControl; const ACanvas: TCanvas; const AText: TCaption;
|
||||||
|
const AFont: TFont; const AEnabled, AShowAccelChar: Boolean; const AAlignment: TAlignment;
|
||||||
|
const AWordWrap: Boolean; var Rect: TRect);
|
||||||
|
var
|
||||||
|
Flags, DX, OH, OW: Integer;
|
||||||
|
begin
|
||||||
|
OH := Rect.Bottom - Rect.Top;
|
||||||
|
OW := Rect.Right - Rect.Left;
|
||||||
|
JvXPSetDrawFlags(AAlignment, AWordWrap, Flags);
|
||||||
|
JvXPRenderText(AParent, ACanvas, AText, AFont, AEnabled, AShowAccelChar, Rect,
|
||||||
|
Flags or DT_CALCRECT);
|
||||||
|
if AAlignment = taRightJustify then
|
||||||
|
DX := OW - (Rect.Right + Rect.Left)
|
||||||
|
else
|
||||||
|
if AAlignment = taCenter then
|
||||||
|
DX := (OW - Rect.Right) div 2
|
||||||
|
else
|
||||||
|
DX := 0;
|
||||||
|
OffsetRect(Rect, DX, (OH - Rect.Bottom) div 2);
|
||||||
|
JvXPRenderText(AParent, ACanvas, AText, AFont, AEnabled, AShowAccelChar, Rect, Flags);
|
||||||
|
end;
|
||||||
|
23.09.2007 - SESS - unused *)
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user