You've already forked lazarus-ccr
jvcllaz: Add new component TJvWizard. Issue #35624, patch by Michal Gawrycki.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6934 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
BIN
components/jvcllaz/design/JvMM/images/tjvanimatedimage.bmp
Normal file
BIN
components/jvcllaz/design/JvMM/images/tjvanimatedimage.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
4
components/jvcllaz/design/JvWizard/images/images.txt
Normal file
4
components/jvcllaz/design/JvWizard/images/images.txt
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
tjvwizard.bmp
|
||||||
|
tjvwizardroutemaplist.bmp
|
||||||
|
tjvwizardroutemapnodes.bmp
|
||||||
|
tjvwizardroutemapsteps.bmp
|
||||||
1
components/jvcllaz/design/JvWizard/images/make_res.bat
Normal file
1
components/jvcllaz/design/JvWizard/images/make_res.bat
Normal file
@ -0,0 +1 @@
|
|||||||
|
lazres ../../../resource/jvwizardsreg.res @images.txt
|
||||||
BIN
components/jvcllaz/design/JvWizard/images/tjvwizard.bmp
Normal file
BIN
components/jvcllaz/design/JvWizard/images/tjvwizard.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
260
components/jvcllaz/design/JvWizard/jvwizardeditorform.lfm
Normal file
260
components/jvcllaz/design/JvWizard/jvwizardeditorform.lfm
Normal file
@ -0,0 +1,260 @@
|
|||||||
|
object JvWizardPageListEditor: TJvWizardPageListEditor
|
||||||
|
Left = 192
|
||||||
|
Height = 304
|
||||||
|
Top = 107
|
||||||
|
Width = 192
|
||||||
|
Caption = 'K Wizard Page Editor'
|
||||||
|
ClientHeight = 304
|
||||||
|
ClientWidth = 192
|
||||||
|
Color = clBtnFace
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '2.1.0.0'
|
||||||
|
object tbrWizardPages: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Height = 23
|
||||||
|
Top = 0
|
||||||
|
Width = 192
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 23
|
||||||
|
ButtonWidth = 23
|
||||||
|
Caption = 'tbrWizardPages'
|
||||||
|
EdgeInner = esNone
|
||||||
|
EdgeOuter = esNone
|
||||||
|
Images = imgWizardPages
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
object btnAddWelcomePage: TToolButton
|
||||||
|
Left = 1
|
||||||
|
Top = 0
|
||||||
|
Action = actAddInteriorPage
|
||||||
|
DropdownMenu = popWizard
|
||||||
|
Style = tbsDropDown
|
||||||
|
end
|
||||||
|
object btnDeletePages: TToolButton
|
||||||
|
Left = 36
|
||||||
|
Top = 0
|
||||||
|
Action = actDeletePages
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 59
|
||||||
|
Height = 23
|
||||||
|
Top = 0
|
||||||
|
Caption = 'ToolButton1'
|
||||||
|
ImageIndex = 3
|
||||||
|
Style = tbsSeparator
|
||||||
|
end
|
||||||
|
object tbMoveUp: TToolButton
|
||||||
|
Left = 67
|
||||||
|
Top = 0
|
||||||
|
Action = acMoveUp
|
||||||
|
end
|
||||||
|
object tbMoveDown: TToolButton
|
||||||
|
Left = 90
|
||||||
|
Top = 0
|
||||||
|
Action = acMoveDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object lbxWizardPages: TListBox
|
||||||
|
Left = 0
|
||||||
|
Height = 281
|
||||||
|
Top = 23
|
||||||
|
Width = 192
|
||||||
|
Align = alClient
|
||||||
|
ItemHeight = 0
|
||||||
|
OnClick = lbxWizardPagesClick
|
||||||
|
OnDragDrop = lbxWizardPagesDragDrop
|
||||||
|
OnDragOver = lbxWizardPagesDragOver
|
||||||
|
OnMouseDown = lbxWizardPagesMouseDown
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object imgWizardPages: TImageList
|
||||||
|
Left = 20
|
||||||
|
Top = 30
|
||||||
|
Bitmap = {
|
||||||
|
4C69040000001000000010000000000000000000000000000000848484FFFFFF
|
||||||
|
FFFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000FFFFFF0000000000000000848484FF00FF
|
||||||
|
FFFF0000000000000000848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000848484FF00FFFFFF00000000848484FFFFFF
|
||||||
|
FFFF00000000848484FF00FFFFFF000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000848484FF00FFFFFF848484FF00FF
|
||||||
|
FFFF848484FF00FFFFFF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFF00FFFFFF848484FF00FFFFFFFFFF
|
||||||
|
FFFF848484FF848484FF848484FF848484FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF00000000848484FF848484FF848484FFFFFFFFFF8484
|
||||||
|
84FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF00000000848484FFFFFFFFFF848484FF00FF
|
||||||
|
FFFF848484FF00FFFFFFFFFFFFFF00FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF848484FF00FFFFFF00FFFFFF848484FFFFFF
|
||||||
|
FFFF00FFFFFF848484FF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FFFFFFFFFF000000FFFFFFFFFF848484FF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF00FFFFFFC6C6
|
||||||
|
C6FF000000FF000000FF848484FF00000000000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FFC6C6C6FF0000
|
||||||
|
00FFFFFFFFFF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF0000000000000000848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000084FF000084FF848484FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000084FF000084FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000084FF000084FF848484FF000000000000
|
||||||
|
84FF000084FF848484FF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000848484FF000084FF000084FF000084FF0000
|
||||||
|
84FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF0000000000000000848484FF000084FF000084FF0000
|
||||||
|
84FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF00000000848484FF000084FF000084FF0000
|
||||||
|
84FF000084FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000084FF000084FF848484FF00FF
|
||||||
|
FFFF000084FF000084FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF000000FF848484FF848484FF000084FF848484FF00FFFFFFFFFF
|
||||||
|
FFFF848484FF000084FF848484FFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF000084FF000084FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF848484FF000084FF00FFFFFFFFFFFFFF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF000084FF000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF00FFFFFFC6C6
|
||||||
|
C6FF000000FF000000FF848484FF848484FF000000FF00FFFFFFFFFFFFFF00FF
|
||||||
|
FFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF000000FFC6C6C6FF0000
|
||||||
|
00FFFFFFFFFF000000FF848484FF00000000000000FFFFFFFFFF00FFFFFFFFFF
|
||||||
|
FFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFF000000FF000000FFFFFF
|
||||||
|
FFFF00FFFFFF000000FF848484FF00000000000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000FF000000FF848484FF0000000000000000848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF848484FF848484FF848484FF848484FF8484
|
||||||
|
84FF848484FF848484FF848484FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000FF848400FF000000FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF000000FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000FF8484
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF848400FF000000FF0000
|
||||||
|
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||||
|
00FF000000FF848400FF848400FF848400FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000FF000000FF0000
|
||||||
|
00FF000000FF848400FF848400FF848400FF000000FF000000FF000000FF0000
|
||||||
|
00FF000000000000000000000000000000000000000000000000000000FF8484
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF848400FF000000FF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00FF848400FF848400FF848400FF848400FF848400FF000000FF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000FF848400FF848400FF848400FF000000FF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000FF848400FF000000FF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000FF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object actWizardPages: TActionList
|
||||||
|
Images = imgWizardPages
|
||||||
|
OnUpdate = actWizardPagesUpdate
|
||||||
|
Left = 86
|
||||||
|
Top = 34
|
||||||
|
object actAddWelcomePage: TAction
|
||||||
|
Caption = 'Add Welcome Page'
|
||||||
|
Hint = 'Add Welcome page'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actAddWelcomePageExecute
|
||||||
|
ShortCut = 16429
|
||||||
|
end
|
||||||
|
object actAddInteriorPage: TAction
|
||||||
|
Caption = 'Add Interior Page'
|
||||||
|
Hint = 'Add Interior page'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actAddInteriorPageExecute
|
||||||
|
ShortCut = 45
|
||||||
|
end
|
||||||
|
object actDeletePages: TAction
|
||||||
|
Caption = 'actDeletePages'
|
||||||
|
Hint = 'Delete selected page(s)'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = actDeletePagesExecute
|
||||||
|
OnUpdate = actDeletePagesUpdate
|
||||||
|
end
|
||||||
|
object acMoveUp: TAction
|
||||||
|
Caption = 'Move Up'
|
||||||
|
Hint = 'Move Up'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = acMoveUpExecute
|
||||||
|
ShortCut = 16422
|
||||||
|
end
|
||||||
|
object acMoveDown: TAction
|
||||||
|
Caption = 'Move Down'
|
||||||
|
Hint = 'Move Down'
|
||||||
|
ImageIndex = 3
|
||||||
|
OnExecute = acMoveDownExecute
|
||||||
|
ShortCut = 16424
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object popWizard: TPopupMenu
|
||||||
|
Images = imgWizardPages
|
||||||
|
Left = 66
|
||||||
|
Top = 78
|
||||||
|
object AddInteriorPage1: TMenuItem
|
||||||
|
Action = actAddInteriorPage
|
||||||
|
Default = True
|
||||||
|
end
|
||||||
|
object AddWelcomePage1: TMenuItem
|
||||||
|
Action = actAddWelcomePage
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
636
components/jvcllaz/design/JvWizard/jvwizardeditorform.pas
Normal file
636
components/jvcllaz/design/JvWizard/jvwizardeditorform.pas
Normal file
@ -0,0 +1,636 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
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: JvWizardEditorForm.PAS, released on 2002-01-29.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is William Yu Wei.
|
||||||
|
Portions created by William Yu Wei are Copyright (C) 2002 William Yu Wei.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
Peter Th�rnqvist - converted to JVCL naming conventions on 2003-07-11
|
||||||
|
Micha� Gawrycki - Lazarus port (2019)
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
Purpose: Jv Wizard Component Editor
|
||||||
|
|
||||||
|
History:
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
Date(mm/dd/yy) Comments
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
01/29/2002 Initial create
|
||||||
|
1) Move TJvWizardActivePageProperty, TJvWizardEditor
|
||||||
|
class from JvWizardReg to here
|
||||||
|
2) TJvWizardPageListProperty added
|
||||||
|
TJvWizardPageList dialog form added
|
||||||
|
******************************************************************************}
|
||||||
|
|
||||||
|
unit JvWizardEditorForm;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes,
|
||||||
|
Graphics, Controls, Forms, Dialogs, ActnList, ImgList, ComCtrls, StdCtrls,
|
||||||
|
ToolWin, Menus, PropEdits, ComponentEditors, FormEditingIntf,
|
||||||
|
JvWizard;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvWizardActivePageProperty = class(TComponentPropertyEditor)
|
||||||
|
public
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
procedure GetValues(Proc: TGetStrProc); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// JvWizard Component Local Menu Editor
|
||||||
|
|
||||||
|
{ TJvWizardEditor }
|
||||||
|
|
||||||
|
TJvWizardEditor = class(TComponentEditor)
|
||||||
|
protected
|
||||||
|
function GetWizard: TJvWizard; virtual;
|
||||||
|
function GetPageOwner: TComponent;
|
||||||
|
procedure AddPage(Page: TJvWizardCustomPage);
|
||||||
|
procedure AddWelcomePage;
|
||||||
|
procedure AddInteriorPage;
|
||||||
|
procedure NextPage(Step: Integer);
|
||||||
|
property Wizard: TJvWizard read GetWizard;
|
||||||
|
public
|
||||||
|
constructor Create(AComponent: TComponent;
|
||||||
|
ADesigner: TComponentEditorDesigner); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure ExecuteVerb(Index: Integer); override;
|
||||||
|
function GetVerb(Index: Integer): string; override;
|
||||||
|
function GetVerbCount: Integer; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvWizardPageListProperty = class(TPropertyEditor)
|
||||||
|
function GetAttributes: TPropertyAttributes; override;
|
||||||
|
function GetValue: string; override;
|
||||||
|
procedure Edit; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TJvWizardLazIDEHelper }
|
||||||
|
|
||||||
|
TJvWizardLazIDEHelper = class
|
||||||
|
private
|
||||||
|
procedure SetSelection(const ASelection: TPersistentSelectionList);
|
||||||
|
public
|
||||||
|
constructor Create;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TJvWizardPageListEditor }
|
||||||
|
|
||||||
|
TJvWizardPageListEditor = class({TDesignWindow}TForm)
|
||||||
|
tbrWizardPages: TToolBar;
|
||||||
|
lbxWizardPages: TListBox;
|
||||||
|
btnAddWelcomePage: TToolButton;
|
||||||
|
btnDeletePages: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
imgWizardPages: TImageList;
|
||||||
|
actWizardPages: TActionList;
|
||||||
|
actAddWelcomePage: TAction;
|
||||||
|
actAddInteriorPage: TAction;
|
||||||
|
actDeletePages: TAction;
|
||||||
|
popWizard: TPopupMenu;
|
||||||
|
AddWelcomePage1: TMenuItem;
|
||||||
|
AddInteriorPage1: TMenuItem;
|
||||||
|
tbMoveUp: TToolButton;
|
||||||
|
tbMoveDown: TToolButton;
|
||||||
|
acMoveUp: TAction;
|
||||||
|
acMoveDown: TAction;
|
||||||
|
procedure FormClose(Sender: TObject; var AAction: TCloseAction);
|
||||||
|
procedure actAddWelcomePageExecute(Sender: TObject);
|
||||||
|
procedure actAddInteriorPageExecute(Sender: TObject);
|
||||||
|
procedure actDeletePagesExecute(Sender: TObject);
|
||||||
|
procedure actDeletePagesUpdate(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure lbxWizardPagesClick(Sender: TObject);
|
||||||
|
procedure lbxWizardPagesMouseDown(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure lbxWizardPagesDragOver(Sender, Source: TObject; X, Y: Integer;
|
||||||
|
State: TDragState; var Accept: Boolean);
|
||||||
|
procedure lbxWizardPagesDragDrop(Sender, Source: TObject; X, Y: Integer);
|
||||||
|
procedure actWizardPagesUpdate(AAction: TBasicAction;
|
||||||
|
var Handled: Boolean);
|
||||||
|
procedure acMoveUpExecute(Sender: TObject);
|
||||||
|
procedure acMoveDownExecute(Sender: TObject);
|
||||||
|
private
|
||||||
|
FDesigner: TComponentEditorDesigner;
|
||||||
|
FWizard: TJvWizard;
|
||||||
|
procedure SetWizard(const Value: TJvWizard);
|
||||||
|
procedure UpdatePageList(const CurrItemIndex: Integer);
|
||||||
|
procedure SelectWizardPage(const Index: Integer);
|
||||||
|
function GetPageOwner: TComponent;
|
||||||
|
|
||||||
|
procedure DeletePersist(APersistent: TPersistent);
|
||||||
|
procedure ItemModified(Sender: TObject);
|
||||||
|
protected
|
||||||
|
procedure AddPage(Page: TJvWizardCustomPage);
|
||||||
|
procedure AddWelcomePage;
|
||||||
|
procedure AddInteriorPage;
|
||||||
|
property Wizard: TJvWizard read FWizard write SetWizard;
|
||||||
|
public
|
||||||
|
property CompDesigner: TComponentEditorDesigner read FDesigner write FDesigner;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvDsgnConsts;
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
procedure ShowWizardPageListEditor(Designer: TComponentEditorDesigner; AWizard: TJvWizard);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
AWizardPageListEditor: TJvWizardPageListEditor;
|
||||||
|
begin
|
||||||
|
// because the page list editor is not show modal, so
|
||||||
|
// we need to find it rather than create a new instance.
|
||||||
|
AWizardPageListEditor := nil;
|
||||||
|
for I := 0 to Screen.FormCount - 1 do
|
||||||
|
if Screen.Forms[I] is TJvWizardPageListEditor then
|
||||||
|
if TJvWizardPageListEditor(Screen.Forms[I]).Wizard = AWizard then
|
||||||
|
begin
|
||||||
|
AWizardPageListEditor := TJvWizardPageListEditor(Screen.Forms[I]);
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
// Show the wizard editor
|
||||||
|
if Assigned(AWizardPageListEditor) then
|
||||||
|
begin
|
||||||
|
AWizardPageListEditor.Show;
|
||||||
|
if AWizardPageListEditor.WindowState = wsMinimized then
|
||||||
|
AWizardPageListEditor.WindowState := wsNormal;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
AWizardPageListEditor := TJvWizardPageListEditor.Create(Application);
|
||||||
|
try
|
||||||
|
AWizardPageListEditor.CompDesigner := Designer;
|
||||||
|
AWizardPageListEditor.Wizard := AWizard;
|
||||||
|
AWizardPageListEditor.Show;
|
||||||
|
except
|
||||||
|
AWizardPageListEditor.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TJvWizardLazIDEHelper }
|
||||||
|
|
||||||
|
procedure TJvWizardLazIDEHelper.SetSelection(
|
||||||
|
const ASelection: TPersistentSelectionList);
|
||||||
|
begin
|
||||||
|
if (ASelection.Count = 1) and (ASelection.Items[0] is TJvWizardCustomPage) and
|
||||||
|
Assigned(TJvWizardCustomPage(ASelection.Items[0]).Wizard) then
|
||||||
|
TJvWizardCustomPage(ASelection.Items[0]).Wizard.ActivePage := TJvWizardCustomPage(ASelection.Items[0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TJvWizardLazIDEHelper.Create;
|
||||||
|
begin
|
||||||
|
if GlobalDesignHook <> nil then
|
||||||
|
GlobalDesignHook.AddHandlerSetSelection(@SetSelection);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvWizardLazIDEHelper.Destroy;
|
||||||
|
begin
|
||||||
|
if GlobalDesignHook <> nil then
|
||||||
|
GlobalDesignHook.RemoveAllHandlersForObject(Self);
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvWizardActivePageProperty } ========================================
|
||||||
|
|
||||||
|
function TJvWizardActivePageProperty.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
Result := [paValueList];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardActivePageProperty.GetValues(Proc: TGetStrProc);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
Component: TComponent;
|
||||||
|
Root: TPersistent;
|
||||||
|
begin
|
||||||
|
Root := PropertyHook.LookupRoot;
|
||||||
|
if not (Root is TComponent) then
|
||||||
|
Root := GetComponent(0);
|
||||||
|
for I := 0 to TComponent(Root).ComponentCount - 1 do
|
||||||
|
begin
|
||||||
|
Component := TComponent(Root).Components[I];
|
||||||
|
if (Component.Name <> '') and (Component is TJvWizardCustomPage) and
|
||||||
|
(TJvWizardCustomPage(Component).Wizard = GetComponent(0)) then
|
||||||
|
Proc(Component.Name);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvWizardEditor } ====================================================
|
||||||
|
|
||||||
|
procedure TJvWizardEditor.AddPage(Page: TJvWizardCustomPage);
|
||||||
|
begin
|
||||||
|
Page.Parent := Wizard;
|
||||||
|
Page.Wizard := Wizard;
|
||||||
|
Wizard.ActivePage := Page;
|
||||||
|
Designer.PropertyEditorHook.PersistentAdded(Page, True);
|
||||||
|
Designer.PropertyEditorHook.RefreshPropertyValues;
|
||||||
|
Designer.Modified;
|
||||||
|
if GlobalDesignHook <> nil then
|
||||||
|
GlobalDesignHook.Modified(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardEditor.AddInteriorPage;
|
||||||
|
var
|
||||||
|
Page: TJvWizardInteriorPage;
|
||||||
|
begin
|
||||||
|
Page := TJvWizardInteriorPage.Create(GetPageOwner);
|
||||||
|
try
|
||||||
|
Page.Name := Designer.UniqueName(TJvWizardInteriorPage.ClassName);
|
||||||
|
AddPage(Page);
|
||||||
|
except
|
||||||
|
Page.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardEditor.AddWelcomePage;
|
||||||
|
var
|
||||||
|
Page: TJvWizardWelcomePage;
|
||||||
|
begin
|
||||||
|
Page := TJvWizardWelcomePage.Create(GetPageOwner);
|
||||||
|
try
|
||||||
|
Page.Name := Designer.UniqueName(TJvWizardWelcomePage.ClassName);
|
||||||
|
AddPage(Page);
|
||||||
|
except
|
||||||
|
Page.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardEditor.ExecuteVerb(Index: Integer);
|
||||||
|
var
|
||||||
|
Page: TPersistent;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0:
|
||||||
|
ShowWizardPageListEditor(Designer, GetWizard);
|
||||||
|
1:
|
||||||
|
AddWelcomePage;
|
||||||
|
2:
|
||||||
|
AddInteriorPage;
|
||||||
|
3:
|
||||||
|
NextPage(1);
|
||||||
|
4:
|
||||||
|
NextPage(-1);
|
||||||
|
5:
|
||||||
|
if Assigned(Wizard.ActivePage) then
|
||||||
|
begin
|
||||||
|
GlobalDesignHook.SelectOnlyThis(Wizard);
|
||||||
|
Page := Wizard.ActivePage;
|
||||||
|
GlobalDesignHook.DeletePersistent(Page);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardEditor.GetWizard: TJvWizard;
|
||||||
|
begin
|
||||||
|
if Component is TJvWizard then
|
||||||
|
Result := TJvWizard(Component)
|
||||||
|
else
|
||||||
|
Result := TJvWizard(TJvWizardCustomPage(Component).Wizard);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardEditor.GetPageOwner: TComponent;
|
||||||
|
begin
|
||||||
|
if Wizard <> nil then
|
||||||
|
begin
|
||||||
|
Result := Wizard.Owner;
|
||||||
|
if Result = nil then
|
||||||
|
Result := Wizard;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardEditor.GetVerb(Index: Integer): string;
|
||||||
|
begin
|
||||||
|
case Index of
|
||||||
|
0:
|
||||||
|
Result := RsPageListEllipsis;
|
||||||
|
1:
|
||||||
|
Result := RsNewWelcomePage;
|
||||||
|
2:
|
||||||
|
Result := RsNewInteriorPage;
|
||||||
|
3:
|
||||||
|
Result := RsNextPage;
|
||||||
|
4:
|
||||||
|
Result := RsPreviousPage;
|
||||||
|
5:
|
||||||
|
Result := RsDeletePage;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardEditor.GetVerbCount: Integer;
|
||||||
|
begin
|
||||||
|
Result := 6;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardEditor.NextPage(Step: Integer);
|
||||||
|
var
|
||||||
|
Page: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
Page := Wizard.FindNextPage(Wizard.ActivePageIndex, Step, False);
|
||||||
|
if Assigned(Page) and (Page <> Wizard.ActivePage) then
|
||||||
|
begin
|
||||||
|
if Component is TJvWizardCustomPage then
|
||||||
|
Designer.SelectOnlyThisComponent(Page);
|
||||||
|
Wizard.ActivePage := Page;
|
||||||
|
Designer.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TJvWizardEditor.Create(AComponent: TComponent;
|
||||||
|
ADesigner: TComponentEditorDesigner);
|
||||||
|
begin
|
||||||
|
inherited Create(AComponent, ADesigner);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvWizardEditor.Destroy;
|
||||||
|
begin
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvWizardPageListEditor } ============================================
|
||||||
|
|
||||||
|
procedure TJvWizardPageListProperty.Edit;
|
||||||
|
begin
|
||||||
|
//ShowWizardPageListEditor(Designer, TJvWizard(GetComponent(0)));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardPageListProperty.GetAttributes: TPropertyAttributes;
|
||||||
|
begin
|
||||||
|
Result := [paDialog, paReadOnly];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardPageListProperty.GetValue: string;
|
||||||
|
var
|
||||||
|
APageList: TList;
|
||||||
|
begin
|
||||||
|
APageList := TList(GetObjectValue);
|
||||||
|
if not Assigned(APageList) or (APageList.Count <= 0) then
|
||||||
|
Result := RsNone
|
||||||
|
else
|
||||||
|
Result := Format('(%s)', [GetPropType^.Name]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvWizardPageList Dialog Form } ======================================
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.UpdatePageList(const CurrItemIndex: Integer);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if Assigned(FWizard) then
|
||||||
|
begin
|
||||||
|
lbxWizardPages.Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
lbxWizardPages.Items.Clear;
|
||||||
|
for I := 0 to FWizard.PageCount - 1 do
|
||||||
|
lbxWizardPages.Items.Add(TJvWizardCustomPage(FWizard.Pages[I]).Name);
|
||||||
|
if (CurrItemIndex >= 0) and (CurrItemIndex < lbxWizardPages.Items.Count) then
|
||||||
|
lbxWizardPages.ItemIndex := CurrItemIndex
|
||||||
|
else
|
||||||
|
lbxWizardPages.ItemIndex := -1;
|
||||||
|
finally
|
||||||
|
lbxWizardPages.Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.SelectWizardPage(const Index: Integer);
|
||||||
|
var
|
||||||
|
Page: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
if Assigned(FWizard) and Active then
|
||||||
|
begin
|
||||||
|
Page := nil;
|
||||||
|
if (Index >= 0) and (Index < FWizard.PageCount) then
|
||||||
|
Page := TJvWizardCustomPage(FWizard.Pages[Index]);
|
||||||
|
if Assigned(Page) then
|
||||||
|
CompDesigner.SelectOnlyThisComponent(Page)
|
||||||
|
else
|
||||||
|
if Assigned(Wizard) then
|
||||||
|
CompDesigner.SelectOnlyThisComponent(Wizard);
|
||||||
|
Wizard.ActivePage := Page;
|
||||||
|
CompDesigner.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardPageListEditor.GetPageOwner: TComponent;
|
||||||
|
begin
|
||||||
|
if Wizard <> nil then
|
||||||
|
begin
|
||||||
|
Result := Wizard.Owner;
|
||||||
|
if Result = nil then
|
||||||
|
Result := Wizard;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.DeletePersist(APersistent: TPersistent);
|
||||||
|
begin
|
||||||
|
if APersistent = FWizard then
|
||||||
|
begin
|
||||||
|
FWizard := nil;
|
||||||
|
Close;
|
||||||
|
end
|
||||||
|
else if APersistent is TJvWizardCustomPage then
|
||||||
|
ItemModified(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.ItemModified(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if not (csDestroying in ComponentState) then
|
||||||
|
UpdatePageList(lbxWizardPages.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.SetWizard(const Value: TJvWizard);
|
||||||
|
begin
|
||||||
|
if FWizard <> Value then
|
||||||
|
begin
|
||||||
|
FWizard := Value;
|
||||||
|
UpdatePageList(0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.AddPage(Page: TJvWizardCustomPage);
|
||||||
|
begin
|
||||||
|
Page.Parent := Wizard;
|
||||||
|
Page.Wizard := Wizard;
|
||||||
|
Wizard.ActivePage := Page;
|
||||||
|
//list box will show twice when adding either welcome page or interior page.
|
||||||
|
lbxWizardPages.ItemIndex := lbxWizardPages.Items.Add(Page.Name);
|
||||||
|
CompDesigner.PropertyEditorHook.PersistentAdded(Page, True);
|
||||||
|
CompDesigner.PropertyEditorHook.RefreshPropertyValues;
|
||||||
|
CompDesigner.PropertyEditorHook.Modified(Self);
|
||||||
|
if GlobalDesignHook <> nil then
|
||||||
|
GlobalDesignHook.Modified(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.AddInteriorPage;
|
||||||
|
var
|
||||||
|
APage: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
APage := TJvWizardInteriorPage.Create(GetPageOwner);
|
||||||
|
try
|
||||||
|
APage.Name := CompDesigner.UniqueName(APage.ClassName);
|
||||||
|
AddPage(APage);
|
||||||
|
except
|
||||||
|
APage.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.AddWelcomePage;
|
||||||
|
var
|
||||||
|
APage: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
APage := TJvWizardWelcomePage.Create(GetPageOwner);
|
||||||
|
try
|
||||||
|
APage.Name := CompDesigner.UniqueName(APage.ClassName);
|
||||||
|
AddPage(APage);
|
||||||
|
except
|
||||||
|
APage.Free;
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.FormClose(Sender: TObject; var AAction: TCloseAction);
|
||||||
|
begin
|
||||||
|
AAction := caFree;
|
||||||
|
GlobalDesignHook.RemoveAllHandlersForObject(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.actAddWelcomePageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AddWelcomePage;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.actAddInteriorPageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AddInteriorPage;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.actDeletePagesExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(Wizard.ActivePage) then
|
||||||
|
begin
|
||||||
|
if lbxWizardPages.ItemIndex >= 0 then
|
||||||
|
lbxWizardPages.Items.Delete(Wizard.ActivePage.PageIndex);
|
||||||
|
CompDesigner.SelectOnlyThisComponent(Wizard);
|
||||||
|
Wizard.ActivePage.Free;
|
||||||
|
CompDesigner.Modified;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.actDeletePagesUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
(Sender as TAction).Enabled :=
|
||||||
|
(lbxWizardPages.Items.Count > 0) and (lbxWizardPages.ItemIndex >= 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
GlobalDesignHook.AddHandlerPersistentDeleting(@DeletePersist);
|
||||||
|
GlobalDesignHook.AddHandlerModified(@ItemModified);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.lbxWizardPagesClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelectWizardPage(lbxWizardPages.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.lbxWizardPagesMouseDown(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
lbxWizardPages.BeginDrag(False);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.lbxWizardPagesDragOver(Sender, Source: TObject;
|
||||||
|
X, Y: Integer; State: TDragState; var Accept: Boolean);
|
||||||
|
begin
|
||||||
|
Accept :=
|
||||||
|
(Source is TListBox) and
|
||||||
|
(lbxWizardPages.ItemAtPos(Point(X, Y), True) <> -1) and
|
||||||
|
(lbxWizardPages.ItemAtPos(Point(X, Y), True) <> lbxWizardPages.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.lbxWizardPagesDragDrop(Sender, Source: TObject;
|
||||||
|
X, Y: Integer);
|
||||||
|
var
|
||||||
|
OldIndex, NewIndex: Integer;
|
||||||
|
begin
|
||||||
|
OldIndex := lbxWizardPages.ItemIndex;
|
||||||
|
NewIndex := lbxWizardPages.ItemAtPos(Point(X,Y), True);
|
||||||
|
lbxWizardPages.Items.Move(OldIndex, NewIndex);
|
||||||
|
if Assigned(FWizard) then
|
||||||
|
begin
|
||||||
|
TJvWizardCustomPage(FWizard.Pages[OldIndex]).PageIndex := NewIndex;
|
||||||
|
lbxWizardPages.ItemIndex := NewIndex;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.actWizardPagesUpdate(AAction: TBasicAction;
|
||||||
|
var Handled: Boolean);
|
||||||
|
begin
|
||||||
|
acMoveUp.Enabled := lbxWizardPages.ItemIndex > 0;
|
||||||
|
acMoveDown.Enabled :=
|
||||||
|
(lbxWizardPages.ItemIndex <> -1) and
|
||||||
|
(lbxWizardPages.ItemIndex < lbxWizardPages.Items.Count - 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.acMoveUpExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
I := lbxWizardPages.ItemIndex;
|
||||||
|
lbxWizardPages.Items.Move(I, I-1);
|
||||||
|
if Assigned(FWizard) then
|
||||||
|
begin
|
||||||
|
TJvWizardCustomPage(FWizard.Pages[I]).PageIndex := I - 1;
|
||||||
|
lbxWizardPages.ItemIndex := I - 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardPageListEditor.acMoveDownExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
I := lbxWizardPages.ItemIndex;
|
||||||
|
lbxWizardPages.Items.Move(I, I+1);
|
||||||
|
if Assigned(FWizard) then
|
||||||
|
begin
|
||||||
|
TJvWizardCustomPage(FWizard.Pages[I]).PageIndex := I + 1;
|
||||||
|
lbxWizardPages.ItemIndex := I + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
55
components/jvcllaz/design/JvWizard/jvwizardreg.pas
Normal file
55
components/jvcllaz/design/JvWizard/jvwizardreg.pas
Normal file
@ -0,0 +1,55 @@
|
|||||||
|
unit JvWizardReg;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvWizard, JvWizardRouteMapNodes, JvWizardRouteMapSteps, JvWizardRouteMapList,
|
||||||
|
JvWizardEditorForm, JvDsgnConsts, PropEdits, ComponentEditors, FormEditingIntf;
|
||||||
|
|
||||||
|
{$R ../../resource/jvwizardsreg.res}
|
||||||
|
|
||||||
|
var
|
||||||
|
JvWizardIdeHelper: TJvWizardLazIDEHelper = nil;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
const
|
||||||
|
cActivePage = 'ActivePage';
|
||||||
|
cPages = 'Pages';
|
||||||
|
begin
|
||||||
|
RegisterComponents({RsPaletteWizard}RsPaletteJvcl, [TJvWizard, TJvWizardRouteMapSteps,
|
||||||
|
TJvWizardRouteMapNodes, TJvWizardRouteMapList]);
|
||||||
|
RegisterNoIcon([TJvWizardCustomPage, TJvWizardWelcomePage,
|
||||||
|
TJvWizardInteriorPage]);
|
||||||
|
RegisterComponentEditor(TJvWizard, TJvWizardEditor);
|
||||||
|
RegisterComponentEditor(TJvWizardCustomPage, TJvWizardEditor);
|
||||||
|
RegisterComponentEditor(TJvWizardWelcomePage, TJvWizardEditor);
|
||||||
|
RegisterComponentEditor(TJvWizardInteriorPage, TJvWizardEditor);
|
||||||
|
RegisterPropertyEditor(TypeInfo(TJvWizardCustomPage), TJvWizard, cActivePage,
|
||||||
|
TJvWizardActivePageProperty);
|
||||||
|
RegisterPropertyEditor(TypeInfo(TJvWizardWelcomePage), TJvWizard, cActivePage,
|
||||||
|
TJvWizardActivePageProperty);
|
||||||
|
RegisterPropertyEditor(TypeInfo(TJvWizardInteriorPage), TJvWizard, cActivePage,
|
||||||
|
TJvWizardActivePageProperty);
|
||||||
|
// JvWizard Page List Editor
|
||||||
|
RegisterPropertyEditor(TypeInfo(TJvWizardPageList), TJvWizard, cPages,
|
||||||
|
TJvWizardPageListProperty);
|
||||||
|
|
||||||
|
if Assigned(GlobalDesignHook) and (not Assigned(JvWizardIdeHelper)) then
|
||||||
|
JvWizardIdeHelper := TJvWizardLazIDEHelper.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finalization
|
||||||
|
if Assigned(JvWizardIdeHelper) then
|
||||||
|
JvWizardIdeHelper.Free;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
82
components/jvcllaz/examples/JvWizard/JvWizardDemo.lpi
Normal file
82
components/jvcllaz/examples/JvWizard/JvWizardDemo.lpi
Normal file
@ -0,0 +1,82 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="JvWizardDemo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
<Modes Count="0"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvWizardLazR"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="JvWizardDemo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="uformmain.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="uFormMain"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="..\..\bin\JvWizardDemo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
22
components/jvcllaz/examples/JvWizard/JvWizardDemo.lpr
Normal file
22
components/jvcllaz/examples/JvWizard/JvWizardDemo.lpr
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
program JvWizardDemo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, uFormMain
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource := True;
|
||||||
|
Application.Scaled := True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
3703
components/jvcllaz/examples/JvWizard/uformmain.lfm
Normal file
3703
components/jvcllaz/examples/JvWizard/uformmain.lfm
Normal file
File diff suppressed because it is too large
Load Diff
66
components/jvcllaz/examples/JvWizard/uformmain.pas
Normal file
66
components/jvcllaz/examples/JvWizard/uformmain.pas
Normal file
@ -0,0 +1,66 @@
|
|||||||
|
unit uFormMain;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
|
||||||
|
JvWizard, JvWizardRouteMapNodes;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
CheckBox1: TCheckBox;
|
||||||
|
Edit1: TEdit;
|
||||||
|
ImageList1: TImageList;
|
||||||
|
JvWizard1: TJvWizard;
|
||||||
|
JvWizardInteriorPage1: TJvWizardInteriorPage;
|
||||||
|
JvWizardInteriorPage2: TJvWizardInteriorPage;
|
||||||
|
JvWizardInteriorPage3: TJvWizardInteriorPage;
|
||||||
|
JvWizardInteriorPage4: TJvWizardInteriorPage;
|
||||||
|
JvWizardRouteMapNodes1: TJvWizardRouteMapNodes;
|
||||||
|
JvWizardWelcomePage1: TJvWizardWelcomePage;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
ListBox1: TListBox;
|
||||||
|
RadioButton1: TRadioButton;
|
||||||
|
procedure JvWizard1ActivePageChanged(Sender: TObject);
|
||||||
|
procedure JvWizard1CancelButtonClick(Sender: TObject);
|
||||||
|
procedure JvWizard1FinishButtonClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.JvWizard1CancelButtonClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if MessageDlg('Are you sure?', mtConfirmation, mbYesNo, 0) = mrYes then
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.JvWizard1FinishButtonClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.JvWizard1ActivePageChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
JvWizardRouteMapNodes1.Visible := JvWizard1.ActivePage <> JvWizardWelcomePage1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
45
components/jvcllaz/packages/jvwizardlazd.lpk
Normal file
45
components/jvcllaz/packages/jvwizardlazd.lpk
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="4">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="JvWizardLazD"/>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\design\JvWizard"/>
|
||||||
|
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)\design\JvWizard"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Files Count="2">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="..\design\JvWizard\jvwizardeditorform.pas"/>
|
||||||
|
<UnitName Value="JvWizardEditorForm"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="..\design\JvWizard\jvwizardreg.pas"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="JvWizardReg"/>
|
||||||
|
</Item2>
|
||||||
|
</Files>
|
||||||
|
<RequiredPkgs Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvWizardLazR"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="JvCoreLazD"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="IDEIntf"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
50
components/jvcllaz/packages/jvwizardlazr.lpk
Normal file
50
components/jvcllaz/packages/jvwizardlazr.lpk
Normal file
@ -0,0 +1,50 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="4">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="JvWizardLazR"/>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="..\run\JvWizard"/>
|
||||||
|
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)\run\JvWizard"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Files Count="5">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="..\run\JvWizard\jvwizard.pas"/>
|
||||||
|
<UnitName Value="JvWizard"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="..\run\JvWizard\jvwizardcommon.pas"/>
|
||||||
|
<UnitName Value="JvWizardCommon"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Filename Value="..\run\JvWizard\jvwizardroutemaplist.pas"/>
|
||||||
|
<UnitName Value="JvWizardRouteMapList"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Filename Value="..\run\JvWizard\jvwizardroutemapnodes.pas"/>
|
||||||
|
<UnitName Value="JvWizardRouteMapNodes"/>
|
||||||
|
</Item4>
|
||||||
|
<Item5>
|
||||||
|
<Filename Value="..\run\JvWizard\jvwizardroutemapsteps.pas"/>
|
||||||
|
<UnitName Value="JvWizardRouteMapSteps"/>
|
||||||
|
</Item5>
|
||||||
|
</Files>
|
||||||
|
<RequiredPkgs Count="1">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="JvCoreLazR"/>
|
||||||
|
</Item1>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
BIN
components/jvcllaz/resource/jvwizardsreg.res
Normal file
BIN
components/jvcllaz/resource/jvwizardsreg.res
Normal file
Binary file not shown.
@ -688,6 +688,8 @@ function JvMessageBox(const Text: string; Flags: DWORD): Integer; overload;
|
|||||||
********************)
|
********************)
|
||||||
|
|
||||||
procedure UpdateTrackFont(TrackFont, Font: TFont; TrackOptions: TJvTrackFontOptions);
|
procedure UpdateTrackFont(TrackFont, Font: TFont; TrackOptions: TJvTrackFontOptions);
|
||||||
|
function IsHotTrackFontDfmStored(TrackFont, Font: TFont; TrackOptions: TJvTrackFontOptions): Boolean;
|
||||||
|
|
||||||
(********************
|
(********************
|
||||||
// Returns the size of the image
|
// Returns the size of the image
|
||||||
// used for checkboxes and radiobuttons.
|
// used for checkboxes and radiobuttons.
|
||||||
@ -6449,6 +6451,30 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function IsHotTrackFontDfmStored(TrackFont, Font: TFont; TrackOptions: TJvTrackFontOptions): Boolean;
|
||||||
|
var
|
||||||
|
DefFont: TFont;
|
||||||
|
begin
|
||||||
|
if hoFollowFont in TrackOptions then
|
||||||
|
DefFont := nil
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
DefFont := TFont.Create;
|
||||||
|
Font := DefFont;
|
||||||
|
TrackOptions := []; // compare all
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
Result := ((hoPreserveCharSet in TrackOptions) and (TrackFont.Charset <> Font.Charset)) or
|
||||||
|
((hoPreserveColor in TrackOptions) and (TrackFont.Color <> Font.Color)) or
|
||||||
|
((hoPreserveHeight in TrackOptions) and (TrackFont.Height <> Font.Height)) or
|
||||||
|
((hoPreservePitch in TrackOptions) and (TrackFont.Pitch <> Font.Pitch)) or
|
||||||
|
((hoPreserveStyle in TrackOptions) and (TrackFont.Style <> Font.Style)) or
|
||||||
|
((hoPreserveName in TrackOptions) and (TrackFont.Name <> Font.Name));
|
||||||
|
finally
|
||||||
|
DefFont.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
(********************
|
(********************
|
||||||
|
|
||||||
{ end JvCtrlUtils }
|
{ end JvCtrlUtils }
|
||||||
|
|||||||
3177
components/jvcllaz/run/JvWizard/jvwizard.pas
Normal file
3177
components/jvcllaz/run/JvWizard/jvwizard.pas
Normal file
File diff suppressed because it is too large
Load Diff
270
components/jvcllaz/run/JvWizard/jvwizardcommon.pas
Normal file
270
components/jvcllaz/run/JvWizard/jvwizardcommon.pas
Normal file
@ -0,0 +1,270 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
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: JvWizardCommom.PAS, released on 2001-12-23.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is William Yu Wei.
|
||||||
|
Portions created by William Yu Wei are Copyright (C) 2001 William Yu Wei.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
Peter Th�rnqvist - converted to JVCL naming conventions on 2003-07-11
|
||||||
|
Micha� Gawrycki - Lazarus port (2019)
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Purpose:
|
||||||
|
All common functions and procedures which used by all components
|
||||||
|
|
||||||
|
History:
|
||||||
|
12/23/2001 First Create, introduce TKSide, TKSides, TJvWizardFrameStyle,
|
||||||
|
beAllSides, TKDeleteItemEvent
|
||||||
|
function KDrawSides, KDrawBevel, KDrawFrame
|
||||||
|
12/25/2001 introduced TKMessageLevel
|
||||||
|
01/04/2001 Add function KDrawBorderSides
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvWizardCommon;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Controls, Graphics, Types, Classes, SysUtils, LCLIntf, LCLType,
|
||||||
|
JvResources;
|
||||||
|
|
||||||
|
type
|
||||||
|
TBevelEdge = (beLeft, beTop, beRight, beBottom);
|
||||||
|
TBevelEdges = set of TBevelEdge;
|
||||||
|
|
||||||
|
const
|
||||||
|
beAllEdges = [beLeft, beTop, beRight, beBottom];
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvWizardFrameStyle =
|
||||||
|
(fsWindows, fsNone, fsFlat, fsGroove, fsBump, fsLowered, fsRaised);
|
||||||
|
TJvWizardImageAlignment = (iaLeft, iaRight, iaCenter, iaStretch);
|
||||||
|
TJvWizardImageLeftRight = iaLeft..iaRight;
|
||||||
|
TJvWizardImageLayout = (ilTop, ilBottom, ilCenter, ilStretch, ilTile);
|
||||||
|
EJvWizardError = class(Exception);
|
||||||
|
|
||||||
|
function JvWizardDrawEdges(ACanvas: TCanvas; ABounds: TRect;
|
||||||
|
ULColor, LRColor: TColor; AEdges: TBevelEdges): TRect;
|
||||||
|
|
||||||
|
function JvWizardDrawBorderEdges(ACanvas: TCanvas; ABounds: TRect;
|
||||||
|
AStyle: TJvWizardFrameStyle; AEdges: TBevelEdges): TRect;
|
||||||
|
|
||||||
|
procedure JvWizardDrawImage(ACanvas: TCanvas; AGraphic: TGraphic; ARect: TRect;
|
||||||
|
Align: TJvWizardImageAlignment; ALayout: TJvWizardImageLayout);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
const
|
||||||
|
{ Frame Style Color constant arrays }
|
||||||
|
KULFrameColor: array [TJvWizardFrameStyle] of TColor = (clNone, clWindow,
|
||||||
|
clWindowFrame, clBtnShadow, clBtnHighlight, clBtnShadow, clBlack);
|
||||||
|
|
||||||
|
KLRFrameColor: array [TJvWizardFrameStyle] of TColor = (clNone, clBtnFace,
|
||||||
|
clWindowFrame, clBtnHighlight, clBtnShadow, clBtnHighlight, clBtnFace);
|
||||||
|
|
||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
Procedure: JvWizardDrawEdges
|
||||||
|
Author: yuwei
|
||||||
|
Date: December 23, 2001
|
||||||
|
Time: 17:22:42
|
||||||
|
Purpose: Draw a frame with specified the borders on the specified bounds
|
||||||
|
of the canvas.
|
||||||
|
Arguments:
|
||||||
|
ACanvas: TCanvas;
|
||||||
|
the canvas where it draws the sides.
|
||||||
|
ABounds: TRect;
|
||||||
|
the bounds of the canvas for drawing.
|
||||||
|
ULColor: TColor;
|
||||||
|
the left and top side color.
|
||||||
|
LRColor: TColor;
|
||||||
|
the right and bottom side color.
|
||||||
|
ASides: TBevelEdges;
|
||||||
|
which sides it can draw on the canvas.
|
||||||
|
Result:
|
||||||
|
TRect:
|
||||||
|
The bounds within the sides after drawing.
|
||||||
|
See also:
|
||||||
|
|
||||||
|
History:
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
Date(mm/dd/yy) Comments
|
||||||
|
---------------------------------------------------------------------------
|
||||||
|
12/23/2001 First Release
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
function JvWizardDrawEdges(ACanvas: TCanvas; ABounds: TRect;
|
||||||
|
ULColor, LRColor: TColor; AEdges: TBevelEdges): TRect;
|
||||||
|
begin
|
||||||
|
with ACanvas do
|
||||||
|
begin
|
||||||
|
Pen.Style := psSolid;
|
||||||
|
Pen.Mode := pmCopy;
|
||||||
|
Pen.Color := ULColor;
|
||||||
|
if beLeft in AEdges then
|
||||||
|
begin
|
||||||
|
MoveTo(ABounds.Left, ABounds.Top);
|
||||||
|
LineTo(ABounds.Left, ABounds.Bottom);
|
||||||
|
end;
|
||||||
|
if beTop in AEdges then
|
||||||
|
begin
|
||||||
|
MoveTo(ABounds.Left, ABounds.Top);
|
||||||
|
LineTo(ABounds.Right, ABounds.Top);
|
||||||
|
end;
|
||||||
|
Pen.Color := LRColor;
|
||||||
|
if beRight in AEdges then
|
||||||
|
begin
|
||||||
|
MoveTo(ABounds.Right - 1, ABounds.Top);
|
||||||
|
LineTo(ABounds.Right - 1, ABounds.Bottom);
|
||||||
|
end;
|
||||||
|
if beBottom in AEdges then
|
||||||
|
begin
|
||||||
|
MoveTo(ABounds.Left, ABounds.Bottom - 1);
|
||||||
|
LineTo(ABounds.Right, ABounds.Bottom - 1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if beLeft in AEdges then
|
||||||
|
Inc(ABounds.Left);
|
||||||
|
if beTop in AEdges then
|
||||||
|
Inc(ABounds.Top);
|
||||||
|
if beRight in AEdges then
|
||||||
|
Dec(ABounds.Right);
|
||||||
|
if beBottom in AEdges then
|
||||||
|
Dec(ABounds.Bottom);
|
||||||
|
Result := ABounds;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function JvWizardDrawBorderEdges(ACanvas: TCanvas; ABounds: TRect;
|
||||||
|
AStyle: TJvWizardFrameStyle; AEdges: TBevelEdges): TRect;
|
||||||
|
var
|
||||||
|
ULColor, LRColor: TColor;
|
||||||
|
R: TRect;
|
||||||
|
begin
|
||||||
|
{ Draw the Frame }
|
||||||
|
if not (AStyle in [fsNone, fsWindows]) then
|
||||||
|
begin
|
||||||
|
ULColor := KULFrameColor[AStyle];
|
||||||
|
LRColor := KLRFrameColor[AStyle];
|
||||||
|
if AStyle in [fsFlat] then
|
||||||
|
ABounds := JvWizardDrawEdges(ACanvas, ABounds, ULColor, LRColor, AEdges)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
R := ABounds;
|
||||||
|
Inc(R.Left);
|
||||||
|
Inc(R.Top);
|
||||||
|
JvWizardDrawEdges(ACanvas, R, LRColor, LRColor, AEdges);
|
||||||
|
OffsetRect(R, -1, -1);
|
||||||
|
JvWizardDrawEdges(ACanvas, R, ULColor, ULColor, AEdges);
|
||||||
|
if beLeft in AEdges then
|
||||||
|
Inc(ABounds.Left, 2);
|
||||||
|
if beTop in AEdges then
|
||||||
|
Inc(ABounds.Top, 2);
|
||||||
|
if beRight in AEdges then
|
||||||
|
Dec(ABounds.Right, 2);
|
||||||
|
if beBottom in AEdges then
|
||||||
|
Dec(ABounds.Bottom, 2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result := ABounds;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvWizardDrawTiled(ACanvas: TCanvas; AGraphic: TGraphic; ARect: TRect);
|
||||||
|
var
|
||||||
|
AWidth, AHeight: Integer;
|
||||||
|
Bmp: Graphics.TBitmap;
|
||||||
|
begin
|
||||||
|
|
||||||
|
if not Assigned(AGraphic) or (AGraphic.Width = 0) or (AGraphic.Height = 0) then
|
||||||
|
raise EJvWizardError.CreateRes(@RsETilingError);
|
||||||
|
// Create a temporary bitmap to draw into. This is both to speed things up a bit
|
||||||
|
// and also to clip the image to the ARect param (using Draw doesn't clip the image,
|
||||||
|
// but it does support auto-detecting transparency)
|
||||||
|
Bmp := {Graphics.}TBitmap.Create;
|
||||||
|
try
|
||||||
|
Bmp.Width := ARect.Right - ARect.Left;
|
||||||
|
Bmp.Height := ARect.Bottom - ARect.Top;
|
||||||
|
Bmp.Canvas.Brush.Color := ACanvas.Brush.Color;
|
||||||
|
Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);
|
||||||
|
AWidth := 0;
|
||||||
|
while AWidth <= Bmp.Width do
|
||||||
|
begin
|
||||||
|
AHeight := 0;
|
||||||
|
while AHeight <= Bmp.Height do
|
||||||
|
begin
|
||||||
|
Bmp.Canvas.Draw(AWidth, AHeight, AGraphic);
|
||||||
|
Inc(AHeight, AGraphic.Height);
|
||||||
|
end;
|
||||||
|
Inc(AWidth, AGraphic.Width);
|
||||||
|
end;
|
||||||
|
BitBlt(ACanvas.Handle, ARect.Left, ARect.Top, Bmp.Width, Bmp.Height,
|
||||||
|
Bmp.Canvas.Handle, 0, 0, SRCCOPY);
|
||||||
|
finally
|
||||||
|
Bmp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure JvWizardDrawImage(ACanvas: TCanvas; AGraphic: TGraphic; ARect: TRect;
|
||||||
|
Align: TJvWizardImageAlignment; ALayout: TJvWizardImageLayout);
|
||||||
|
var
|
||||||
|
Offset: TPoint;
|
||||||
|
AWidth, AHeight: Integer;
|
||||||
|
begin
|
||||||
|
if Assigned(AGraphic) then
|
||||||
|
begin
|
||||||
|
if ALayout = ilTile then
|
||||||
|
begin
|
||||||
|
JvWizardDrawTiled(ACanvas, AGraphic, ARect);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
Offset := Point(0, 0);
|
||||||
|
AWidth := ARect.Right - ARect.Left;
|
||||||
|
AHeight := ARect.Bottom - ARect.Top;
|
||||||
|
if (Align in [iaCenter, iaRight]) and (AWidth > AGraphic.Width) then
|
||||||
|
begin
|
||||||
|
Offset.X := AWidth - AGraphic.Width;
|
||||||
|
if Align = iaCenter then
|
||||||
|
begin
|
||||||
|
Offset.X := Offset.X div 2;
|
||||||
|
ARect.Right := ARect.Right - Offset.X;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if (ALayout in [ilCenter, ilBottom]) and (AHeight > AGraphic.Height) then
|
||||||
|
begin
|
||||||
|
Offset.Y := AHeight - AGraphic.Height;
|
||||||
|
if ALayout = ilCenter then
|
||||||
|
begin
|
||||||
|
Offset.Y := Offset.Y div 2;
|
||||||
|
ARect.Bottom := ARect.Bottom - Offset.Y;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if (ALayout = ilTop) and (AHeight > AGraphic.Height) then
|
||||||
|
ARect.Bottom := ARect.Top + AGraphic.Height;
|
||||||
|
if (Align = iaLeft) and (AWidth > AGraphic.Width) then
|
||||||
|
ARect.Right := ARect.Left + AGraphic.Width;
|
||||||
|
ARect.Left := ARect.Left + Offset.X;
|
||||||
|
ARect.Top := ARect.Top + Offset.Y;
|
||||||
|
if (Align = iaStretch) or (ALayout = ilStretch) then
|
||||||
|
ACanvas.StretchDraw(ARect, AGraphic)
|
||||||
|
else
|
||||||
|
ACanvas.Draw(ARect.Left, ARect.Top, AGraphic);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
564
components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas
Normal file
564
components/jvcllaz/run/JvWizard/jvwizardroutemaplist.pas
Normal file
@ -0,0 +1,564 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
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: JvWizardRouteMapList.PAS, released on 2004-02-14.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Peter Thornqvist.
|
||||||
|
Portions created by Peter Thornqvist are Copyright (C) 2004 Peter Thornqvist
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
Michał Gawrycki - Lazarus port (2019)
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Purpose:
|
||||||
|
Route map that displays pages as a list
|
||||||
|
|
||||||
|
History:
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvWizardRouteMapList;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Types, SysUtils, Classes, Graphics, Controls, Forms, LMessages, LCLIntf, LCLType,
|
||||||
|
JvTypes, JvJVCLUtils, JvWizard;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvWizardDrawRouteMapListItem = procedure(Sender: TObject; ACanvas: TCanvas;
|
||||||
|
ARect: TRect; MousePos: TPoint; PageIndex: Integer; var DefaultDraw: Boolean) of object;
|
||||||
|
TRouteMapListItemText = (itNone, itCaption, itTitle, itSubtitle);
|
||||||
|
|
||||||
|
TJvWizardRouteMapList = class(TJvWizardRouteMapControl)
|
||||||
|
private
|
||||||
|
FItemHeight: Integer;
|
||||||
|
FVertOffset: Integer;
|
||||||
|
FHorzOffset: Integer;
|
||||||
|
FClickable: Boolean;
|
||||||
|
FIncludeDisabled: Boolean;
|
||||||
|
FHotTrackFont: TFont;
|
||||||
|
FActiveFont: TFont;
|
||||||
|
FHotTrackCursor, FOldCursor: TCursor;
|
||||||
|
FOnDrawItem: TJvWizardDrawRouteMapListItem;
|
||||||
|
FAlignment: TAlignment;
|
||||||
|
FTextOffset: Integer;
|
||||||
|
FShowImages: Boolean;
|
||||||
|
FItemColor: TColor;
|
||||||
|
FRounded: Boolean;
|
||||||
|
FItemText: TRouteMapListItemText;
|
||||||
|
FHotTrack: Boolean;
|
||||||
|
FCurvature: Integer;
|
||||||
|
FHotTrackBorder: Integer;
|
||||||
|
FBorderColor: TColor;
|
||||||
|
FTextOnly: Boolean;
|
||||||
|
FHotTrackFontOptions: TJvTrackFontOptions;
|
||||||
|
FActiveFontOptions: TJvTrackFontOptions;
|
||||||
|
procedure SetItemHeight(const Value: Integer);
|
||||||
|
procedure SetHorzOffset(const Value: Integer);
|
||||||
|
procedure SetVertOffset(const Value: Integer);
|
||||||
|
procedure SetIncludeDisabled(const Value: Boolean);
|
||||||
|
procedure SetActiveFont(const Value: TFont);
|
||||||
|
procedure SetHotTrackFont(const Value: TFont);
|
||||||
|
procedure DoFontChange(Sender: TObject);
|
||||||
|
procedure SetAlignment(const Value: TAlignment);
|
||||||
|
procedure SetTextOffset(const Value: Integer);
|
||||||
|
procedure SetShowImages(const Value: Boolean);
|
||||||
|
procedure SetItemColor(const Value: TColor);
|
||||||
|
procedure SetRounded(const Value: Boolean);
|
||||||
|
procedure SetItemText(const Value: TRouteMapListItemText);
|
||||||
|
procedure SetCurvature(const Value: Integer);
|
||||||
|
procedure SetTextOnly(const Value: Boolean);
|
||||||
|
procedure SetBorderColor(Value: TColor);
|
||||||
|
procedure SetActiveFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
procedure SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
function IsHotTrackFontStored: Boolean;
|
||||||
|
protected
|
||||||
|
procedure DrawPageItem(ACanvas: TCanvas; ARect: TRect; MousePos: TPoint; APageIndex: Integer); virtual;
|
||||||
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
function PageAtPos(Pt: TPoint): TJvWizardCustomPage; override;
|
||||||
|
procedure Paint; override;
|
||||||
|
procedure Loaded; override;
|
||||||
|
procedure CMCursorChanged(var Msg: TLMessage); message CM_CURSORCHANGED;
|
||||||
|
procedure CMFontChanged(var Msg: TLMessage); message CM_FONTCHANGED;
|
||||||
|
procedure CursorChanged;
|
||||||
|
procedure FontChanged;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
published
|
||||||
|
property ActiveFont: TFont read FActiveFont write SetActiveFont;
|
||||||
|
property ActiveFontOptions: TJvTrackFontOptions read FActiveFontOptions write SetActiveFontOptions default
|
||||||
|
DefaultTrackFontOptions;
|
||||||
|
property Alignment: TAlignment read FAlignment write SetAlignment default taCenter;
|
||||||
|
property Clickable: Boolean read FClickable write FClickable default True;
|
||||||
|
property Color default $00C08000;
|
||||||
|
property Curvature: Integer read FCurvature write SetCurvature default 9;
|
||||||
|
property Font;
|
||||||
|
property HorzOffset: Integer read FHorzOffset write SetHorzOffset default 8;
|
||||||
|
property HotTrackBorder: Integer read FHotTrackBorder write FHotTrackBorder default 2;
|
||||||
|
property HotTrackCursor: TCursor read FHotTrackCursor write FHotTrackCursor default crHandPoint;
|
||||||
|
property HotTrack: Boolean read FHotTrack write FHotTrack default True;
|
||||||
|
|
||||||
|
property HotTrackFont: TFont read FHotTrackFont write SetHotTrackFont stored IsHotTrackFontStored;
|
||||||
|
property HotTrackFontOptions: TJvTrackFontOptions read FHotTrackFontOptions write SetHotTrackFontOptions default
|
||||||
|
DefaultTrackFontOptions;
|
||||||
|
property Image;
|
||||||
|
property TextOnly: Boolean read FTextOnly write SetTextOnly default False;
|
||||||
|
property IncludeDisabled: Boolean read FIncludeDisabled write SetIncludeDisabled default False;
|
||||||
|
property BorderColor: TColor read FBorderColor write SetBorderColor default clNavy;
|
||||||
|
property ItemColor: TColor read FItemColor write SetItemColor default clCream;
|
||||||
|
property ItemHeight: Integer read FItemHeight write SetItemHeight default 25;
|
||||||
|
property ItemText: TRouteMapListItemText read FItemText write SetItemText default itCaption;
|
||||||
|
property Rounded: Boolean read FRounded write SetRounded default False;
|
||||||
|
property ShowImages: Boolean read FShowImages write SetShowImages default False;
|
||||||
|
property TextOffset: Integer read FTextOffset write SetTextOffset default 8;
|
||||||
|
property VertOffset: Integer read FVertOffset write SetVertOffset default 8;
|
||||||
|
property OnDrawItem: TJvWizardDrawRouteMapListItem read FOnDrawItem write FOnDrawItem;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
constructor TJvWizardRouteMapList.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FActiveFont := TFont.Create;
|
||||||
|
FActiveFont.Style := [fsBold];
|
||||||
|
FActiveFont.OnChange := @DoFontChange;
|
||||||
|
FHotTrackFont := TFont.Create;
|
||||||
|
FHotTrackFont.Color := clNavy;
|
||||||
|
FHotTrackFont.Style := [fsUnderline];
|
||||||
|
FHotTrackFont.OnChange := @DoFontChange;
|
||||||
|
FActiveFontOptions := DefaultTrackFontOptions;
|
||||||
|
FHotTrackFontOptions := DefaultTrackFontOptions;
|
||||||
|
Color := $00C08000;
|
||||||
|
FHotTrackCursor := crHandPoint;
|
||||||
|
FVertOffset := 8;
|
||||||
|
FHorzOffset := 8;
|
||||||
|
FItemHeight := 25;
|
||||||
|
FClickable := True;
|
||||||
|
FAlignment := taCenter;
|
||||||
|
FTextOffset := 8;
|
||||||
|
FBorderColor := clNavy;
|
||||||
|
FItemColor := clCream;
|
||||||
|
FItemText := itCaption;
|
||||||
|
FHotTrack := True;
|
||||||
|
FCurvature := 9;
|
||||||
|
FHotTrackBorder := 2;
|
||||||
|
FTextOnly := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvWizardRouteMapList.Destroy;
|
||||||
|
begin
|
||||||
|
FHotTrackFont.Free;
|
||||||
|
FActiveFont.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.Loaded;
|
||||||
|
begin
|
||||||
|
inherited Loaded;
|
||||||
|
FOldCursor := Cursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.MouseMove(Shift: TShiftState;
|
||||||
|
X, Y: Integer);
|
||||||
|
var
|
||||||
|
P: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
inherited MouseMove(Shift, X, Y);
|
||||||
|
if Clickable and HotTrack then
|
||||||
|
begin
|
||||||
|
P := PageAtPos(Point(X, Y));
|
||||||
|
if (P <> nil) and P.Enabled then
|
||||||
|
begin
|
||||||
|
if Cursor <> FHotTrackCursor then
|
||||||
|
FOldCursor := Cursor;
|
||||||
|
Cursor := FHotTrackCursor;
|
||||||
|
Refresh;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if Cursor <> FOldCursor then
|
||||||
|
begin
|
||||||
|
Cursor := FOldCursor;
|
||||||
|
Refresh;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapList.PageAtPos(Pt: TPoint): TJvWizardCustomPage;
|
||||||
|
var
|
||||||
|
R: TRect;
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
if not Clickable then
|
||||||
|
Exit;
|
||||||
|
R := ClientRect;
|
||||||
|
InflateRect(R, -HorzOffset, -VertOffset);
|
||||||
|
R.Bottom := R.Top + ItemHeight;
|
||||||
|
for I := 0 to PageCount - 1 do
|
||||||
|
begin
|
||||||
|
if Pages[I].Enabled or IncludeDisabled then
|
||||||
|
begin
|
||||||
|
if PtInRect(R, Pt) then
|
||||||
|
begin
|
||||||
|
Result := Pages[I];
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
OffsetRect(R, 0, ItemHeight);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.Paint;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
R: TRect;
|
||||||
|
P: TPoint;
|
||||||
|
begin
|
||||||
|
Canvas.Brush.Style := bsSolid;
|
||||||
|
Canvas.Brush.Color := Color;
|
||||||
|
if BorderColor = clNone then
|
||||||
|
Canvas.Pen.Color := Color
|
||||||
|
else
|
||||||
|
Canvas.Pen.Color := BorderColor;
|
||||||
|
GetCursorPos(P);
|
||||||
|
P := ScreenToClient(P);
|
||||||
|
R := ClientRect;
|
||||||
|
if not HasPicture then
|
||||||
|
Canvas.Rectangle(R)
|
||||||
|
else
|
||||||
|
Image.PaintTo(Canvas, R);
|
||||||
|
if ItemHeight <= 0 then
|
||||||
|
Exit;
|
||||||
|
InflateRect(R, -HorzOffset, -VertOffset);
|
||||||
|
R.Bottom := R.Top + ItemHeight;
|
||||||
|
for I := 0 to PageCount - 1 do
|
||||||
|
if Pages[I].Enabled or IncludeDisabled then
|
||||||
|
begin
|
||||||
|
DrawPageItem(Canvas, R, P, I);
|
||||||
|
OffsetRect(R, 0, ItemHeight);
|
||||||
|
if R.Bottom >= ClientHeight - 2 then
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.DrawPageItem(ACanvas: TCanvas; ARect: TRect; MousePos: TPoint; APageIndex: Integer);
|
||||||
|
const
|
||||||
|
cAlignment: array [TAlignment] of Cardinal = (DT_LEFT, DT_RIGHT, DT_CENTER);
|
||||||
|
cWordWrap: array [Boolean] of Cardinal = (DT_SINGLELINE, DT_WORDBREAK);
|
||||||
|
var
|
||||||
|
DefaultDraw: Boolean;
|
||||||
|
ATop, ALeft: Integer;
|
||||||
|
AOrigRect: TRect;
|
||||||
|
BkColor: TColor;
|
||||||
|
S: string;
|
||||||
|
begin
|
||||||
|
ACanvas.Lock;
|
||||||
|
try
|
||||||
|
AOrigRect := ARect;
|
||||||
|
ACanvas.Font := Font;
|
||||||
|
if Assigned(Wizard) and (Pages[APageIndex] = Wizard.ActivePage) then
|
||||||
|
ACanvas.Font := ActiveFont
|
||||||
|
else
|
||||||
|
if PtInRect(ARect, MousePos) and Pages[APageIndex].Enabled and HotTrack and Clickable then
|
||||||
|
ACanvas.Font := HotTrackFont
|
||||||
|
else
|
||||||
|
if not Pages[APageIndex].Enabled then
|
||||||
|
ACanvas.Font.Color := clGrayText;
|
||||||
|
|
||||||
|
ACanvas.Brush.Color := ItemColor;
|
||||||
|
ACanvas.Pen.Color := Color;
|
||||||
|
DefaultDraw := True;
|
||||||
|
if Assigned(FOnDrawItem) then
|
||||||
|
FOnDrawItem(Self, ACanvas, ARect, MousePos, APageIndex, DefaultDraw);
|
||||||
|
if DefaultDraw then
|
||||||
|
begin
|
||||||
|
case ItemText of
|
||||||
|
itCaption:
|
||||||
|
S := Pages[APageIndex].Caption;
|
||||||
|
itTitle:
|
||||||
|
S := Pages[APageIndex].Title.Text;
|
||||||
|
itSubtitle:
|
||||||
|
S := Pages[APageIndex].Subtitle.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not TextOnly then
|
||||||
|
begin
|
||||||
|
if ItemColor = clNone then
|
||||||
|
ACanvas.Brush.Style := bsClear;
|
||||||
|
if Rounded then
|
||||||
|
ACanvas.RoundRect(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom, Curvature, Curvature)
|
||||||
|
else
|
||||||
|
ACanvas.Rectangle(ARect);
|
||||||
|
if ShowImages and Assigned(Wizard) and Assigned(Wizard.HeaderImages) then
|
||||||
|
begin
|
||||||
|
ATop := ((ARect.Bottom - ARect.Top) - Wizard.HeaderImages.Height) div 2;
|
||||||
|
BkColor := ACanvas.Brush.Color;
|
||||||
|
case Alignment of
|
||||||
|
taLeftJustify:
|
||||||
|
begin
|
||||||
|
Wizard.HeaderImages.Draw(ACanvas, ARect.Left + 4, ARect.Top + ATop, Pages[APageIndex].Header.ImageIndex, Pages[APageIndex].Enabled);
|
||||||
|
Inc(ARect.Left, Wizard.HeaderImages.Width + 4);
|
||||||
|
end;
|
||||||
|
taRightJustify:
|
||||||
|
begin
|
||||||
|
Wizard.HeaderImages.Draw(ACanvas, ARect.Right - Wizard.HeaderImages.Width - 4, ARect.Top + ATop,
|
||||||
|
Pages[APageIndex].Header.ImageIndex, Pages[APageIndex].Enabled);
|
||||||
|
Dec(ARect.Right, Wizard.HeaderImages.Width + 4);
|
||||||
|
end;
|
||||||
|
taCenter:
|
||||||
|
begin
|
||||||
|
ALeft := ((ARect.Right - ARect.Left) - Wizard.HeaderImages.Width) div 2;
|
||||||
|
Inc(ARect.Top, 4);
|
||||||
|
Wizard.HeaderImages.Draw(ACanvas, ARect.Left + ALeft, ARect.Top + 8,
|
||||||
|
Pages[APageIndex].Header.ImageIndex, Pages[APageIndex].Enabled);
|
||||||
|
Inc(ARect.Top, Wizard.HeaderImages.Height);
|
||||||
|
// if ItemText = itSubtitle then
|
||||||
|
// Inc(ARect.Top, 16);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not Pages[APageIndex].Enabled then
|
||||||
|
begin
|
||||||
|
// (p3) TImageList changes the canvas colors when drawing disabled images, so we reset them explicitly
|
||||||
|
SetBkColor(ACanvas.Handle, BkColor);
|
||||||
|
SetTextColor(ACanvas.Handle, ColorToRGB(clGrayText));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ACanvas.Brush.Style := bsClear;
|
||||||
|
|
||||||
|
case Alignment of
|
||||||
|
taLeftJustify:
|
||||||
|
Inc(ARect.Left, TextOffset);
|
||||||
|
taRightJustify:
|
||||||
|
Dec(ARect.Right, TextOffset);
|
||||||
|
taCenter:
|
||||||
|
InflateRect(ARect, -TextOffset div 2, -TextOffset div 2);
|
||||||
|
end;
|
||||||
|
if ItemText = itSubtitle then
|
||||||
|
begin
|
||||||
|
Inc(ARect.Top, TextOffset);
|
||||||
|
InflateRect(ARect, -TextOffset, 0);
|
||||||
|
end;
|
||||||
|
if (ItemText <> itNone) and ((ARect.Bottom - ARect.Top) > abs(ACanvas.Font.Height)) then
|
||||||
|
DrawText(ACanvas.Handle, PChar(S), Length(S), ARect,
|
||||||
|
cAlignment[Alignment] or cWordWrap[ItemText = itSubtitle] or DT_VCENTER or DT_EDITCONTROL or {DT_EXTERNALLEADING or} DT_END_ELLIPSIS);
|
||||||
|
if not TextOnly and HotTrack and (HotTrackBorder > 0) and PtInRect(AOrigRect, MousePos) then
|
||||||
|
begin
|
||||||
|
ACanvas.Brush.Style := bsClear;
|
||||||
|
ACanvas.Pen.Color := HotTrackFont.Color;
|
||||||
|
ACanvas.Pen.Width := HotTrackBorder;
|
||||||
|
if Rounded then
|
||||||
|
ACanvas.RoundRect(AOrigRect.Left, AOrigRect.Top, AOrigRect.Right, AOrigRect.Bottom, Curvature, Curvature)
|
||||||
|
else
|
||||||
|
ACanvas.Rectangle(AOrigRect);
|
||||||
|
ACanvas.Brush.Style := bsSolid;
|
||||||
|
ACanvas.Pen.Width := 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ACanvas.Unlock;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetHorzOffset(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FHorzOffset <> Value then
|
||||||
|
begin
|
||||||
|
FHorzOffset := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetItemHeight(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FItemHeight <> Value then
|
||||||
|
begin
|
||||||
|
FItemHeight := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetVertOffset(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FVertOffset <> Value then
|
||||||
|
begin
|
||||||
|
FVertOffset := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetIncludeDisabled(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FIncludeDisabled <> Value then
|
||||||
|
begin
|
||||||
|
FIncludeDisabled := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetActiveFont(const Value: TFont);
|
||||||
|
begin
|
||||||
|
FActiveFont.Assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetHotTrackFont(const Value: TFont);
|
||||||
|
begin
|
||||||
|
FHotTrackFont.Assign(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.DoFontChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.CMCursorChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
CursorChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.CMFontChanged(var Msg: TLMessage);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FontChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetAlignment(const Value: TAlignment);
|
||||||
|
begin
|
||||||
|
if FAlignment <> Value then
|
||||||
|
begin
|
||||||
|
FAlignment := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetTextOffset(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FTextOffset <> Value then
|
||||||
|
begin
|
||||||
|
FTextOffset := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetShowImages(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FShowImages <> Value then
|
||||||
|
begin
|
||||||
|
FShowImages := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetItemColor(const Value: TColor);
|
||||||
|
begin
|
||||||
|
if FItemColor <> Value then
|
||||||
|
begin
|
||||||
|
FItemColor := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetRounded(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FRounded <> Value then
|
||||||
|
begin
|
||||||
|
FRounded := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetItemText(const Value: TRouteMapListItemText);
|
||||||
|
begin
|
||||||
|
if FItemText <> Value then
|
||||||
|
begin
|
||||||
|
FItemText := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetCurvature(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FCurvature <> Value then
|
||||||
|
begin
|
||||||
|
FCurvature := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetActiveFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
begin
|
||||||
|
if FActiveFontOptions <> Value then
|
||||||
|
begin
|
||||||
|
FActiveFontOptions := Value;
|
||||||
|
UpdateTrackFont(ActiveFont, Font, FActiveFontOptions);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetHotTrackFontOptions(const Value: TJvTrackFontOptions);
|
||||||
|
begin
|
||||||
|
if FHotTrackFontOptions <> Value then
|
||||||
|
begin
|
||||||
|
FHotTrackFontOptions := Value;
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, FHotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetBorderColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
if Value <> FBorderColor then
|
||||||
|
begin
|
||||||
|
FBorderColor := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.SetTextOnly(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if Value <> FTextOnly then
|
||||||
|
begin
|
||||||
|
FTextOnly := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.CursorChanged;
|
||||||
|
begin
|
||||||
|
if (Cursor <> FHotTrackCursor) and (Cursor <> FOldCursor) then
|
||||||
|
FOldCursor := Cursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapList.FontChanged;
|
||||||
|
begin
|
||||||
|
UpdateTrackFont(HotTrackFont, Font, FHotTrackFontOptions);
|
||||||
|
UpdateTrackFont(ActiveFont, Font, FActiveFontOptions);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapList.IsHotTrackFontStored: Boolean;
|
||||||
|
begin
|
||||||
|
Result := IsHotTrackFontDfmStored(HotTrackFont, Font, HotTrackFontOptions);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
397
components/jvcllaz/run/JvWizard/jvwizardroutemapnodes.pas
Normal file
397
components/jvcllaz/run/JvWizard/jvwizardroutemapnodes.pas
Normal file
@ -0,0 +1,397 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
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: JvWizardRouteMapNodes.PAS, released on 2002-02-05.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Steve Forbes.
|
||||||
|
Portions created by Steve Forbes are Copyright (C) 2002 Steve Forbes.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
Peter Th�rnqvist - converted to JVCL naming conventions on 2003-07-11
|
||||||
|
S Steed. - added AllowClickableNodes property
|
||||||
|
Micha� Gawrycki - Lazarus port (2019)
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Description:
|
||||||
|
Nodes style route map for TJvWizardRouteMap
|
||||||
|
|
||||||
|
History:
|
||||||
|
10/14/2003
|
||||||
|
Added option to allow user to turn off the clicking of the nodes
|
||||||
|
during runtime. S Steed.
|
||||||
|
05/02/2002
|
||||||
|
Initial create
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvWizardRouteMapNodes;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Graphics, Classes, LCLIntf, LCLType,
|
||||||
|
JvWizard;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvWizardRouteMapNodes = class;
|
||||||
|
|
||||||
|
TJvWizardRouteMapNodeColors = class(TPersistent)
|
||||||
|
private
|
||||||
|
FSelected: TColor;
|
||||||
|
FUnselected: TColor;
|
||||||
|
FDisabled: TColor;
|
||||||
|
FLine: TColor;
|
||||||
|
FRouteMap: TJvWizardRouteMapNodes;
|
||||||
|
protected
|
||||||
|
procedure SetLine(Value: TColor);
|
||||||
|
procedure SetSelected(Value: TColor);
|
||||||
|
procedure SetUnselected(Value: TColor);
|
||||||
|
procedure SetDisabled(Value: TColor);
|
||||||
|
procedure Changed;
|
||||||
|
public
|
||||||
|
constructor Create(ARouteMap: TJvWizardRouteMapNodes);
|
||||||
|
published
|
||||||
|
property Selected: TColor read FSelected write SetSelected default clLime;
|
||||||
|
property Unselected: TColor read FUnselected write SetUnselected default clWhite;
|
||||||
|
property Line: TColor read FLine write SetLine default clBtnShadow;
|
||||||
|
property Disabled: TColor read FDisabled write SetDisabled default clBtnFace;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TJvWizardRouteMapNodes = class(TJvWizardRouteMapControl)
|
||||||
|
private
|
||||||
|
FItemHeight: Integer;
|
||||||
|
FUsePageTitle: Boolean;
|
||||||
|
FNodeColors: TJvWizardRouteMapNodeColors;
|
||||||
|
FIndent: Integer;
|
||||||
|
FAllowClickableNodes: Boolean;
|
||||||
|
procedure SetItemHeight(Value: Integer);
|
||||||
|
procedure SetUsePageTitle(Value: Boolean);
|
||||||
|
procedure SetIndent(Value: Integer);
|
||||||
|
procedure SetAllowClickableNodes(const Value: Boolean);
|
||||||
|
protected
|
||||||
|
function PageAtPos(Pt: TPoint): TJvWizardCustomPage; override;
|
||||||
|
procedure Paint; override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
published
|
||||||
|
property ItemHeight: Integer read FItemHeight write SetItemHeight default 20;
|
||||||
|
property AllowClickableNodes: Boolean read FAllowClickableNodes write SetAllowClickableNodes default True; // ss 10/14/2003
|
||||||
|
property Align;
|
||||||
|
property Color default clBackground;
|
||||||
|
property Font;
|
||||||
|
property Image;
|
||||||
|
property Indent: Integer read FIndent write SetIndent default 8;
|
||||||
|
property NodeColors: TJvWizardRouteMapNodeColors read FNodeColors write FNodeColors;
|
||||||
|
property UsePageTitle: Boolean read FUsePageTitle write SetUsePageTitle default True;
|
||||||
|
property OnDisplaying;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
//=== { TJvWizardRouteMapNodeColors } ========================================
|
||||||
|
|
||||||
|
constructor TJvWizardRouteMapNodeColors.Create(ARouteMap: TJvWizardRouteMapNodes);
|
||||||
|
begin
|
||||||
|
inherited Create;
|
||||||
|
FRouteMap := ARouteMap;
|
||||||
|
FSelected := clLime;
|
||||||
|
FUnselected := clWhite;
|
||||||
|
FLine := clBtnShadow;
|
||||||
|
FDisabled := clBtnFace;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodeColors.Changed;
|
||||||
|
begin
|
||||||
|
if Assigned(FRouteMap) then
|
||||||
|
FRouteMap.Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodeColors.SetDisabled(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FDisabled <> Value then
|
||||||
|
begin
|
||||||
|
FDisabled := Value;
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodeColors.SetLine(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FLine <> Value then
|
||||||
|
begin
|
||||||
|
FLine := Value;
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodeColors.SetSelected(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FSelected <> Value then
|
||||||
|
begin
|
||||||
|
FSelected := Value;
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodeColors.SetUnselected(Value: TColor);
|
||||||
|
begin
|
||||||
|
if FUnselected <> Value then
|
||||||
|
begin
|
||||||
|
FUnselected := Value;
|
||||||
|
Changed;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//=== { TJvWizardRouteMapNodes } =============================================
|
||||||
|
|
||||||
|
constructor TJvWizardRouteMapNodes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FItemHeight := 20;
|
||||||
|
Color := clBackground;
|
||||||
|
Font.Color := clWhite;
|
||||||
|
FUsePageTitle := True;
|
||||||
|
FIndent := 8;
|
||||||
|
FAllowClickableNodes := True; // ss 10/14/2003
|
||||||
|
FNodeColors := TJvWizardRouteMapNodeColors.Create(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvWizardRouteMapNodes.Destroy;
|
||||||
|
begin
|
||||||
|
FNodeColors.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapNodes.PageAtPos(Pt: TPoint): TJvWizardCustomPage;
|
||||||
|
var
|
||||||
|
I, Count: Integer;
|
||||||
|
ARect: TRect;
|
||||||
|
begin
|
||||||
|
if AllowClickableNodes then // ss 10/14/2003
|
||||||
|
begin
|
||||||
|
ARect := ClientRect;
|
||||||
|
InflateRect(ARect, -1, -1);
|
||||||
|
if PtInRect(ARect, Pt) then
|
||||||
|
begin
|
||||||
|
Count := PageCount;
|
||||||
|
ARect := Bounds(ARect.Left, ARect.Top + Trunc((FItemHeight - 12) / 2),
|
||||||
|
ARect.Right - ARect.Left, FItemHeight);
|
||||||
|
I := 0;
|
||||||
|
while I < Count do
|
||||||
|
begin
|
||||||
|
if CanDisplay(Pages[I]) then
|
||||||
|
begin
|
||||||
|
if PtInRect(ARect, Pt) then
|
||||||
|
begin
|
||||||
|
Result := Pages[I];
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
OffsetRect(ARect, 0, FItemHeight);
|
||||||
|
end;
|
||||||
|
Inc(I);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodes.Paint;
|
||||||
|
var
|
||||||
|
ARect, ATextRect, NodeRect: TRect;
|
||||||
|
I: Integer;
|
||||||
|
AColor: TColor;
|
||||||
|
AFont: TFont;
|
||||||
|
IsFirstPage, IsLastPage: Boolean;
|
||||||
|
begin
|
||||||
|
ARect := ClientRect;
|
||||||
|
with Canvas do
|
||||||
|
begin
|
||||||
|
Brush.Color := Color;
|
||||||
|
Brush.Style := bsSolid;
|
||||||
|
Pen.Color := clBtnShadow;
|
||||||
|
Pen.Width := 1;
|
||||||
|
Pen.Style := psSolid;
|
||||||
|
if not HasPicture then
|
||||||
|
Rectangle(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom)
|
||||||
|
else
|
||||||
|
Image.PaintTo(Canvas, ARect);
|
||||||
|
InflateRect(ARect, -1, -1);
|
||||||
|
AFont := TFont.Create;
|
||||||
|
try
|
||||||
|
AFont.Assign(Self.Font);
|
||||||
|
ARect := Bounds(ARect.Left + FIndent, ARect.Top + FIndent,
|
||||||
|
ARect.Right - ARect.Left - FIndent, FItemHeight);
|
||||||
|
for I := 0 to PageCount - 1 do
|
||||||
|
begin
|
||||||
|
IsFirstPage := Wizard.IsFirstPage(Pages[I], not (csDesigning in ComponentState));
|
||||||
|
IsLastPage := Wizard.IsLastPage(Pages[I], not (csDesigning in ComponentState));
|
||||||
|
if CanDisplay(Pages[I]) then
|
||||||
|
begin
|
||||||
|
AColor := Color;
|
||||||
|
if I = PageIndex then
|
||||||
|
begin
|
||||||
|
AFont.Color := Self.Font.Color;
|
||||||
|
AFont.Style := AFont.Style + [fsBold]
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if not Pages[I].Enabled then
|
||||||
|
begin
|
||||||
|
AFont.Color := clBtnShadow;
|
||||||
|
AFont.Style := AFont.Style - [fsBold];
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if not Pages[I].EnableJumpToPage then // Nonn...
|
||||||
|
begin
|
||||||
|
AFont.Color := NodeColors.Disabled;
|
||||||
|
AFont.Style := AFont.Style - [fsBold]; // ... Nonn
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
AFont.Color := Self.Font.Color;
|
||||||
|
AFont.Style := AFont.Style - [fsBold]
|
||||||
|
end;
|
||||||
|
|
||||||
|
ATextRect := ARect;
|
||||||
|
if not (IsFirstPage or IsLastPage) then
|
||||||
|
ATextRect.Left := ATextRect.Left + 18;
|
||||||
|
|
||||||
|
NodeRect := ATextRect;
|
||||||
|
NodeRect.Right := NodeRect.Left + 12;
|
||||||
|
NodeRect.Top := NodeRect.Top + Trunc((FItemHeight - 12) / 2);
|
||||||
|
NodeRect.Bottom := NodeRect.Top + 12;
|
||||||
|
|
||||||
|
if not (IsFirstPage or IsLastPage) then
|
||||||
|
ATextRect.Left := ATextRect.Left + 20
|
||||||
|
else
|
||||||
|
ATextRect.Left := ATextRect.Left + 18 + 20;
|
||||||
|
|
||||||
|
try
|
||||||
|
Pen.Color := FNodeColors.Line;
|
||||||
|
if I = PageIndex then
|
||||||
|
Brush.Color := FNodeColors.Selected
|
||||||
|
else
|
||||||
|
if not Pages[I].EnableJumpToPage then // Nonn
|
||||||
|
Brush.Color := FNodeColors.Disabled // Nonn
|
||||||
|
else
|
||||||
|
if Pages[I].Enabled then
|
||||||
|
Brush.Color := FNodeColors.Unselected
|
||||||
|
else
|
||||||
|
Brush.Color := FNodeColors.Disabled;
|
||||||
|
Rectangle(NodeRect.Left, NodeRect.Top, NodeRect.Right,
|
||||||
|
NodeRect.Bottom);
|
||||||
|
|
||||||
|
Brush.Color := FNodeColors.Line;
|
||||||
|
if IsFirstPage or IsLastPage then
|
||||||
|
begin
|
||||||
|
MoveTo(NodeRect.Right, NodeRect.Top + 5);
|
||||||
|
LineTo(NodeRect.Right + 13, NodeRect.Top + 5);
|
||||||
|
MoveTo(NodeRect.Right, NodeRect.Top + 6);
|
||||||
|
LineTo(NodeRect.Right + 13, NodeRect.Top + 6);
|
||||||
|
if IsFirstPage then
|
||||||
|
begin
|
||||||
|
MoveTo(NodeRect.Right + 11, NodeRect.Top + 6);
|
||||||
|
LineTo(NodeRect.Right + 11, ATextRect.Bottom);
|
||||||
|
MoveTo(NodeRect.Right + 12, NodeRect.Top + 6);
|
||||||
|
LineTo(NodeRect.Right + 12, ATextRect.Bottom);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
MoveTo(NodeRect.Right + 11, NodeRect.Top + 5);
|
||||||
|
LineTo(NodeRect.Right + 11, ATextRect.Top);
|
||||||
|
MoveTo(NodeRect.Right + 12, NodeRect.Top + 5);
|
||||||
|
LineTo(NodeRect.Right + 12, ATextRect.Top);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
MoveTo(NodeRect.Left + 5, NodeRect.Top);
|
||||||
|
LineTo(NodeRect.Left + 5, ATextRect.Top - 1);
|
||||||
|
MoveTo(NodeRect.Left + 6, NodeRect.Top);
|
||||||
|
LineTo(NodeRect.Left + 6, ATextRect.Top - 1);
|
||||||
|
MoveTo(NodeRect.Left + 5, NodeRect.Bottom);
|
||||||
|
LineTo(NodeRect.Left + 5, ATextRect.Bottom + 1);
|
||||||
|
MoveTo(NodeRect.Left + 6, NodeRect.Bottom);
|
||||||
|
LineTo(NodeRect.Left + 6, ATextRect.Bottom + 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Brush.Color := AColor;
|
||||||
|
if not HasPicture then
|
||||||
|
FillRect(ATextRect)
|
||||||
|
else
|
||||||
|
SetBkMode(Canvas.Handle, TRANSPARENT);
|
||||||
|
Brush.Style := bsClear;
|
||||||
|
Font.Assign(AFont);
|
||||||
|
|
||||||
|
if FUsePageTitle then
|
||||||
|
DrawText(Canvas.Handle,
|
||||||
|
PChar((Pages[I] as TJvWizardCustomPage).Header.Title.Text), -1,
|
||||||
|
ATextRect, DT_LEFT or DT_SINGLELINE or DT_VCENTER)
|
||||||
|
else
|
||||||
|
DrawText(Canvas.Handle, PChar(Pages[I].Caption), -1, ATextRect,
|
||||||
|
DT_LEFT or DT_SINGLELINE or DT_VCENTER);
|
||||||
|
|
||||||
|
finally
|
||||||
|
OffsetRect(ARect, 0, FItemHeight);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AFont.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodes.SetItemHeight(Value: Integer);
|
||||||
|
begin
|
||||||
|
if FItemHeight <> Value then
|
||||||
|
begin
|
||||||
|
FItemHeight := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodes.SetUsePageTitle(Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FUsePageTitle <> Value then
|
||||||
|
begin
|
||||||
|
FUsePageTitle := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodes.SetIndent(Value: Integer);
|
||||||
|
begin
|
||||||
|
if FIndent <> Value then
|
||||||
|
begin
|
||||||
|
FIndent := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapNodes.SetAllowClickableNodes(
|
||||||
|
const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FAllowClickableNodes <> Value then
|
||||||
|
begin
|
||||||
|
FAllowClickableNodes := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
459
components/jvcllaz/run/JvWizard/jvwizardroutemapsteps.pas
Normal file
459
components/jvcllaz/run/JvWizard/jvwizardroutemapsteps.pas
Normal file
@ -0,0 +1,459 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
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: JvWizardRouteMapSteps.PAS, released on 2002-02-11.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is Max Evans.
|
||||||
|
Portions created by Max Evans are Copyright (C) 2002 Max Evans
|
||||||
|
|
||||||
|
Contributor(s):
|
||||||
|
Michał Gawrycki - Lazarus port (2019)
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Purpose:
|
||||||
|
Step style route map for TJvWizardRouteMap
|
||||||
|
|
||||||
|
History:
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvWizardRouteMapSteps;
|
||||||
|
|
||||||
|
{$mode objfpc}
|
||||||
|
{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Types, SysUtils, Classes, Graphics, Controls, Forms, LCLIntf, LCLType,
|
||||||
|
JvWizard;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvWizardRouteMapSteps = class(TJvWizardRouteMapControl)
|
||||||
|
private
|
||||||
|
FIndent: Integer;
|
||||||
|
FNextStepText: string;
|
||||||
|
FActiveStepFormat: string;
|
||||||
|
FPreviousStepText: string;
|
||||||
|
FShowDivider: Boolean;
|
||||||
|
FShowNavigators: Boolean;
|
||||||
|
FShowNavigation: Boolean;
|
||||||
|
FMultiline: Boolean;
|
||||||
|
function GetActiveStepRect: TRect;
|
||||||
|
function GetPreviousStepRect: TRect;
|
||||||
|
function GetNextStepRect: TRect;
|
||||||
|
function GetPreviousArrowRect: TRect;
|
||||||
|
function GetNextArrowRect: TRect;
|
||||||
|
procedure SetIndent(const Value: Integer);
|
||||||
|
procedure SetNextStepText(const Value: string);
|
||||||
|
procedure SetActiveStepFormat(const Value: string);
|
||||||
|
procedure SetPreviousStepText(const Value: string);
|
||||||
|
procedure SetShowDivider(const Value: Boolean);
|
||||||
|
procedure SetShowNavigators(const Value: Boolean);
|
||||||
|
function DetectPageCount(var ActivePageIndex: Integer): Integer; // Add by Yu Wei
|
||||||
|
function DetectPage(const Pt: TPoint): TJvWizardCustomPage; // Add by Yu Wei
|
||||||
|
function StoreActiveStepFormat: Boolean;
|
||||||
|
function StoreNextStepText: Boolean;
|
||||||
|
function StorePreviousStepText: Boolean;
|
||||||
|
procedure SetShowNavigation(const Value: Boolean);
|
||||||
|
procedure SetMultiline(const Value: Boolean);
|
||||||
|
protected
|
||||||
|
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
|
||||||
|
function PageAtPos(Pt: TPoint): TJvWizardCustomPage; override;
|
||||||
|
procedure Paint; override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
published
|
||||||
|
property Color default clBackground;
|
||||||
|
property Font;
|
||||||
|
property Image;
|
||||||
|
property Indent: Integer read FIndent write SetIndent default 5;
|
||||||
|
property PreviousStepText: string read FPreviousStepText write SetPreviousStepText stored StorePreviousStepText;
|
||||||
|
property ActiveStepFormat: string read FActiveStepFormat write SetActiveStepFormat stored StoreActiveStepFormat;
|
||||||
|
property Multiline: Boolean read FMultiline write SetMultiline default False;
|
||||||
|
property NextStepText: string read FNextStepText write SetNextStepText stored StoreNextStepText;
|
||||||
|
property ShowDivider: Boolean read FShowDivider write SetShowDivider default True;
|
||||||
|
property ShowNavigators: Boolean read FShowNavigators write SetShowNavigators default True;
|
||||||
|
property ShowNavigation: Boolean read FShowNavigation write SetShowNavigation default True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvResources;
|
||||||
|
|
||||||
|
constructor TJvWizardRouteMapSteps.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
FIndent := 5;
|
||||||
|
Color := clBackground;
|
||||||
|
Font.Color := clWhite;
|
||||||
|
FPreviousStepText := RsBackTo;
|
||||||
|
FActiveStepFormat := RsActiveStepFormat;
|
||||||
|
FNextStepText := RsNextStep;
|
||||||
|
FShowDivider := True;
|
||||||
|
FShowNavigators := True;
|
||||||
|
FShowNavigation := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.DetectPage(const Pt: TPoint): TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
if FShowNavigators then
|
||||||
|
begin
|
||||||
|
// Ignore all disabled pages at run time.
|
||||||
|
if PtInRect(GetPreviousArrowRect, Pt) then
|
||||||
|
begin
|
||||||
|
if (PageIndex < Wizard.PageCount) and (PageIndex > 0) and
|
||||||
|
not ((csDesigning in ComponentState) or (bkBack in Wizard.WizardPages[PageIndex].EnabledButtons)) then
|
||||||
|
Result := nil
|
||||||
|
else
|
||||||
|
Result := Wizard.FindNextPage(PageIndex, -1, not (csDesigning in ComponentState));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if PtInRect(GetNextArrowRect, Pt) then
|
||||||
|
begin
|
||||||
|
if (PageIndex < Wizard.PageCount) and (PageIndex > 0) and
|
||||||
|
not ((csDesigning in ComponentState) or (bkNext in Wizard.WizardPages[PageIndex].EnabledButtons)) then
|
||||||
|
Result := nil
|
||||||
|
else
|
||||||
|
Result := Wizard.FindNextPage(PageIndex, 1, not (csDesigning in ComponentState));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Result := nil;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.GetActiveStepRect: TRect;
|
||||||
|
begin
|
||||||
|
Result := Rect(Left + FIndent, (ClientHeight div 2 - Canvas.TextHeight('Wq')),
|
||||||
|
Width, ClientHeight div 2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.GetNextArrowRect: TRect;
|
||||||
|
begin
|
||||||
|
Result := Rect(Left + FIndent, Height - Indent - 32, Left + FIndent + 16,
|
||||||
|
(Height - FIndent) - 16);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.GetNextStepRect: TRect;
|
||||||
|
begin
|
||||||
|
Result := Rect(Left + FIndent, Height - FIndent - 32, Width,
|
||||||
|
Height - FIndent - 32 + Canvas.TextHeight('Wq'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.DetectPageCount(var ActivePageIndex: Integer): Integer;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
// Ignore all disabled pages at run time.
|
||||||
|
ActivePageIndex := 0;
|
||||||
|
Result := 0;
|
||||||
|
for I := 0 to PageCount - 1 do
|
||||||
|
begin
|
||||||
|
if (csDesigning in ComponentState) or Pages[I].Enabled then
|
||||||
|
begin
|
||||||
|
if I <= PageIndex then
|
||||||
|
Inc(ActivePageIndex);
|
||||||
|
Inc(Result);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.GetPreviousArrowRect: TRect;
|
||||||
|
begin
|
||||||
|
Result := Rect(Left + FIndent, Top + FIndent, Left + FIndent + 16,
|
||||||
|
Top + FIndent + 16);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.GetPreviousStepRect: TRect;
|
||||||
|
begin
|
||||||
|
Result := Rect(Left + FIndent, Top + FIndent, Width,
|
||||||
|
Top + FIndent + Canvas.TextHeight('Wq'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.MouseMove(Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
Pt: TPoint;
|
||||||
|
APage: TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
inherited MouseMove(Shift, X, Y);
|
||||||
|
if ShowNavigators and not (csDesigning in ComponentState) then
|
||||||
|
begin
|
||||||
|
Pt := Point(X, Y);
|
||||||
|
if PtInRect(ClientRect, Pt) then
|
||||||
|
begin
|
||||||
|
APage := DetectPage(Pt);
|
||||||
|
if Assigned(APage) then
|
||||||
|
Screen.Cursor := crHandPoint
|
||||||
|
else
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if Screen.Cursor = crHandPoint then
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.PageAtPos(Pt: TPoint): TJvWizardCustomPage;
|
||||||
|
begin
|
||||||
|
Result := DetectPage(Pt);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.Paint;
|
||||||
|
var
|
||||||
|
LRect, TextRect, ArrowRect, DividerRect: TRect;
|
||||||
|
ActivePageIndex, TotalPageCount: Integer;
|
||||||
|
StepHeight: Integer;
|
||||||
|
APage: TJvWizardCustomPage;
|
||||||
|
S: string;
|
||||||
|
LDrawProperties: Cardinal;
|
||||||
|
begin
|
||||||
|
LRect := ClientRect;
|
||||||
|
TotalPageCount := DetectPageCount(ActivePageIndex);
|
||||||
|
Canvas.Brush.Color := Color;
|
||||||
|
if HasPicture then
|
||||||
|
Image.PaintTo(Canvas, LRect);
|
||||||
|
|
||||||
|
TextRect := GetActiveStepRect;
|
||||||
|
LRect := TextRect; //Rect(TextRect.TopLeft, TextRect.BottomRight);
|
||||||
|
Canvas.Font.Assign(Font);
|
||||||
|
Canvas.Font.Style := [fsBold];
|
||||||
|
Canvas.Brush.Style := bsClear;
|
||||||
|
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
S := Pages[PageIndex].Caption;
|
||||||
|
Canvas.Font.Style := [];
|
||||||
|
StepHeight := DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_CALCRECT or DT_LEFT or DT_WORDBREAK);
|
||||||
|
TextRect.Right := LRect.Right;
|
||||||
|
OffsetRect(TextRect, 0, Round((-0.5) * StepHeight + Canvas.TextHeight('Wq')));
|
||||||
|
end;
|
||||||
|
|
||||||
|
Canvas.Font.Style := [fsBold];
|
||||||
|
S := Format(ActiveStepFormat, [ActivePageIndex, TotalPageCount]);
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_LEFT or DT_WORDBREAK;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_LEFT or DT_SINGLELINE or DT_END_ELLIPSIS or DT_VCENTER;
|
||||||
|
end;
|
||||||
|
StepHeight := DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
LDrawProperties);
|
||||||
|
|
||||||
|
// Display Active Page Description
|
||||||
|
Canvas.Font.Style := [];
|
||||||
|
OffsetRect(TextRect, 0, StepHeight);
|
||||||
|
S := Pages[PageIndex].Caption;
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_LEFT or DT_WORDBREAK;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_LEFT or DT_SINGLELINE or DT_END_ELLIPSIS or DT_VCENTER;
|
||||||
|
end;
|
||||||
|
DrawText(Canvas.Handle, PChar(S), Length(S), TextRect, LDrawProperties);
|
||||||
|
|
||||||
|
Canvas.Font.Style := [];
|
||||||
|
if Self.ShowDivider then
|
||||||
|
begin
|
||||||
|
SetRect(DividerRect, Left + Indent, TextRect.Bottom + 5, Width - Indent,
|
||||||
|
TextRect.Bottom + 6);
|
||||||
|
DrawEdge(Canvas.Handle, DividerRect, EDGE_RAISED, BF_FLAT or BF_BOTTOM);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ do the previous step }
|
||||||
|
|
||||||
|
// YW - Ignore all disabled pages at run time
|
||||||
|
APage := Wizard.FindNextPage(PageIndex, -1, not (csDesigning in ComponentState));
|
||||||
|
if Assigned(APage) and (PageIndex <> -1) and ShowNavigation then
|
||||||
|
begin
|
||||||
|
TextRect := GetPreviousStepRect;
|
||||||
|
ArrowRect := GetPreviousArrowRect;
|
||||||
|
Canvas.Font.Style := [];
|
||||||
|
if ShowNavigators then
|
||||||
|
begin
|
||||||
|
if TextRect.Left + Indent + ArrowRect.Right - ArrowRect.Left < Width then
|
||||||
|
OffsetRect(TextRect, ArrowRect.Right, 0);
|
||||||
|
if (csDesigning in ComponentState) or (bkBack in Wizard.WizardPages[PageIndex].EnabledButtons) then
|
||||||
|
DrawFrameControl(Canvas.Handle, ArrowRect, DFC_SCROLL,
|
||||||
|
DFCS_SCROLLLEFT or DFCS_FLAT);
|
||||||
|
end;
|
||||||
|
|
||||||
|
S := PreviousStepText;
|
||||||
|
StepHeight := DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_LEFT or DT_WORDBREAK or DT_END_ELLIPSIS);
|
||||||
|
|
||||||
|
OffsetRect(TextRect, 0, StepHeight);
|
||||||
|
S := APage.Caption;
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_CALCRECT or DT_LEFT or DT_WORDBREAK);
|
||||||
|
TextRect.Right := LRect.Right;
|
||||||
|
|
||||||
|
LDrawProperties := DT_LEFT or DT_WORDBREAK;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_SINGLELINE or DT_LEFT or DT_END_ELLIPSIS or DT_VCENTER;
|
||||||
|
end;
|
||||||
|
DrawText(Canvas.Handle, PChar(S), Length(S), TextRect, LDrawProperties);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ do the next step }
|
||||||
|
|
||||||
|
// YW - Ignore all disabled pages at run time
|
||||||
|
APage := Wizard.FindNextPage(PageIndex, 1, not (csDesigning in ComponentState));
|
||||||
|
if Assigned(APage) and (PageIndex <> -1) and ShowNavigation then
|
||||||
|
begin
|
||||||
|
TextRect := GetNextStepRect;
|
||||||
|
ArrowRect := GetNextArrowRect;
|
||||||
|
Canvas.Font.Style := [];
|
||||||
|
if ShowNavigators then
|
||||||
|
begin
|
||||||
|
OffsetRect(TextRect, ArrowRect.Right, 0);
|
||||||
|
if (csDesigning in ComponentState) or (bkNext in Wizard.WizardPages[PageIndex].EnabledButtons) then
|
||||||
|
DrawFrameControl(Canvas.Handle, ArrowRect, DFC_SCROLL,
|
||||||
|
DFCS_SCROLLRIGHT or DFCS_FLAT);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
S := APage.Caption;
|
||||||
|
StepHeight := DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_CALCRECT or DT_LEFT or DT_WORDBREAK);
|
||||||
|
TextRect.Right := LRect.Right;
|
||||||
|
OffsetRect(TextRect, 0, (-1) * StepHeight + Canvas.TextHeight('Wq'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
S := NextStepText;
|
||||||
|
StepHeight := DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_LEFT or DT_WORDBREAK);
|
||||||
|
|
||||||
|
OffsetRect(TextRect, 0, StepHeight);
|
||||||
|
S := APage.Caption;
|
||||||
|
if Multiline then
|
||||||
|
begin
|
||||||
|
DrawText(Canvas.Handle, PChar(S), Length(S), TextRect,
|
||||||
|
DT_CALCRECT or DT_LEFT or DT_WORDBREAK);
|
||||||
|
TextRect.Right := LRect.Right;
|
||||||
|
|
||||||
|
LDrawProperties := DT_LEFT or DT_WORDBREAK;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
LDrawProperties := DT_SINGLELINE or DT_LEFT or DT_END_ELLIPSIS or DT_VCENTER;
|
||||||
|
end;
|
||||||
|
DrawText(Canvas.Handle, PChar(S), Length(S), TextRect, LDrawProperties);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetShowDivider(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FShowDivider <> Value then
|
||||||
|
begin
|
||||||
|
FShowDivider := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetIndent(const Value: Integer);
|
||||||
|
begin
|
||||||
|
if FIndent <> Value then
|
||||||
|
begin
|
||||||
|
FIndent := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetMultiline(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FMultiline <> Value then
|
||||||
|
begin
|
||||||
|
FMultiline := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetNextStepText(const Value: string);
|
||||||
|
begin
|
||||||
|
if FNextStepText <> Value then
|
||||||
|
begin
|
||||||
|
FNextStepText := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetActiveStepFormat(const Value: string);
|
||||||
|
begin
|
||||||
|
if FActiveStepFormat <> Value then
|
||||||
|
begin
|
||||||
|
FActiveStepFormat := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetPreviousStepText(const Value: string);
|
||||||
|
begin
|
||||||
|
if FPreviousStepText <> Value then
|
||||||
|
begin
|
||||||
|
FPreviousStepText := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetShowNavigators(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if FShowNavigators <> Value then
|
||||||
|
begin
|
||||||
|
if Screen.Cursor = crHandPoint then
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
FShowNavigators := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvWizardRouteMapSteps.SetShowNavigation(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
if Value <> FShowNavigation then
|
||||||
|
begin
|
||||||
|
FShowNavigation := Value;
|
||||||
|
Invalidate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.StoreActiveStepFormat: Boolean;
|
||||||
|
begin
|
||||||
|
Result := ActiveStepFormat <> RsActiveStepFormat;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.StoreNextStepText: Boolean;
|
||||||
|
begin
|
||||||
|
Result := NextStepText <> RsNextStep;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvWizardRouteMapSteps.StorePreviousStepText: Boolean;
|
||||||
|
begin
|
||||||
|
Result := PreviousStepText <> RsBackTo;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Reference in New Issue
Block a user