pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix JvXPBar demo crashing. Add inherited std LCL properties to TXPButton.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6329 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-20 14:19:26 +00:00
parent 1c2a502b58
commit 96d16e9e75
4 changed files with 88 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
components/jvcllaz/examples/JvXPBar/MainFrm.lfm
View File

@ -548,10 +548,19 @@ object frmMain: TfrmMain
ParentColor = False
Align = alClient
object lbWelcome: TLabel
Left = 8
AnchorSideLeft.Control = cntDetails
AnchorSideTop.Control = cntDetails
AnchorSideRight.Control = cntDetails
AnchorSideRight.Side = asrBottom
Left = 9
Height = 13
Top = 16
Width = 230
Top = 9
Width = 280
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 24
Caption = 'Welcome to the JVCL XP Controls Demo...'
Font.Color = clWindowText
Font.Height = -11
@ -561,45 +570,69 @@ object frmMain: TfrmMain
ParentFont = False
end
object btnCollapseAll: TJvXPButton
Left = 8
AnchorSideLeft.Control = lbWelcome
AnchorSideTop.Control = lbWelcome
AnchorSideTop.Side = asrBottom
Left = 9
Height = 25
Top = 48
Top = 46
Width = 75
Caption = 'Collapse All'
TabOrder = 0
OnClick = btnCollapseAllClick
end
object btnExpandAll: TJvXPButton
Left = 88
AnchorSideLeft.Control = btnCollapseAll
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnCollapseAll
Left = 92
Height = 25
Top = 48
Top = 46
Width = 75
Caption = 'Expand All'
TabOrder = 1
BorderSpacing.Left = 8
OnClick = btnExpandAllClick
end
object btnToogleEnableMode: TJvXPButton
Left = 8
AnchorSideLeft.Control = btnCollapseAll
AnchorSideTop.Control = btnCollapseAll
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnExpandAll
AnchorSideRight.Side = asrBottom
Left = 9
Height = 25
Top = 80
Width = 153
Top = 79
Width = 158
Caption = 'Toggle Enable Mode'
TabOrder = 2
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
OnClick = btnToogleEnableModeClick
end
object btnToggleVisibleMode: TJvXPButton
Left = 8
AnchorSideLeft.Control = btnToogleEnableMode
AnchorSideTop.Control = btnToogleEnableMode
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnToogleEnableMode
AnchorSideRight.Side = asrBottom
Left = 9
Height = 25
Top = 112
Width = 153
Width = 158
Caption = 'Toggle Visible Mode'
TabOrder = 3
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
OnClick = btnToggleVisibleModeClick
end
object chkGrouped: TJvXPCheckbox
Left = 24
AnchorSideLeft.Control = btnToogleEnableMode
AnchorSideTop.Control = btnToggleVisibleMode
AnchorSideTop.Side = asrBottom
Left = 9
Height = 17
Top = 152
Top = 161
Width = 97
Caption = 'Grouped'
TabOrder = 4
@ -618,7 +651,7 @@ object frmMain: TfrmMain
SimplePanel = False
end
object imlWinXPBar: TImageList
left = 288
left = 312
top = 280
Bitmap = {
4C69190000001000000010000000000000000000000000000000000000006858
@ -1426,7 +1459,7 @@ object frmMain: TfrmMain
end
object aclWinXPBar: TActionList
Images = imlWinXPBar
left = 220
left = 80
top = 280
object acConnectRemoteServer: TAction
Category = 'Connect'
@ -1514,8 +1547,8 @@ object frmMain: TfrmMain
BkColor = clFuchsia
Height = 19
Width = 19
left = 332
top = 198
left = 432
top = 112
Bitmap = {
4C69020000001300000013000000F800F800F800F800F800F800F800F800F800
F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800
@ -2021,8 +2054,8 @@ object frmMain: TfrmMain
object ilMSN: TImageList
Height = 15
Width = 15
left = 392
top = 198
left = 432
top = 216
Bitmap = {
4C69020000000F0000000F00000000000000000000000000000000000000E098
78FFE0A080FFE0A088FFE0A088FFE09880FFE09070FFD88868FF000000000000
@ -2086,8 +2119,8 @@ object frmMain: TfrmMain
object ilMSN2: TImageList
Height = 15
Width = 15
left = 434
top = 198
left = 432
top = 272
Bitmap = {
4C69020000000F0000000F00000000000000B06858FFB06858FFB06858FFB068
58FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB068
@ -2152,8 +2185,8 @@ object frmMain: TfrmMain
BkColor = clFuchsia
Height = 15
Width = 15
left = 364
top = 198
left = 432
top = 160
Bitmap = {
4C69020000000F0000000F000000F800F800F800F800F800F800F800F800F0C8
A8FFE8B898FFE8B898FFE8B898FFE8B898FFE8B898FFF0C0A8FFF800F800F800

20
components/jvcllaz/examples/JvXPBar/MainFrm.pas
View File

@ -59,12 +59,12 @@ type
ilMSN2: TImageList;
ilFB: TImageList;
procedure acConnectRemoteServerExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnCollapseAllClick(Sender: TObject);
procedure btnExpandAllClick(Sender: TObject);
procedure btnToogleEnableModeClick(Sender: TObject);
procedure btnToggleVisibleModeClick(Sender: TObject);
procedure chkGroupedClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure DoGrouped(Control:TControl);
@ -93,8 +93,10 @@ end;
procedure TfrmMain.acConnectRemoteServerExecute(Sender: TObject);
begin
with TAction(Sender) do
StatusBar1.Panels[0].Text := Format(SClickEvent, [Name]);
if Sender is TAction then
StatusBar1.Panels[0].Text := Format(SClickEvent, [TAction(Sender).Caption]);
if Sender is TJvXPBarItem then
StatusBar1.Panels[0].Text := Format(SClickEvent, [TJvXPBarItem(Sender).Caption]);
end;
procedure TfrmMain.btnCollapseAllClick(Sender: TObject);
@ -180,12 +182,12 @@ begin
ABar := TJvXPBar(Components[i]);
Parent := tvSelfView.Items.AddChild(nil,ABar.Caption);
if ABar.ControlCount = 0 then
for j := 0 to ABar.Items.Count - 1 do
begin
Child := tvSelfView.Items.AddChild(Parent,ABar.Items[j].Caption);
Child.ImageIndex := ABar.Items[j].ImageIndex;
Child.SelectedIndex := Child.ImageIndex;
end;
for j := 0 to ABar.Items.Count - 1 do
begin
Child := tvSelfView.Items.AddChild(Parent,ABar.Items[j].Caption);
Child.ImageIndex := ABar.Items[j].ImageIndex;
Child.SelectedIndex := Child.ImageIndex;
end;
end;
tvSelfView.FullExpand;
end;

3
components/jvcllaz/examples/JvXPBar/XPBarDemo.lpr
View File

@ -3,6 +3,9 @@ program XPBarDemo;
{$MODE DELPHI}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
Forms, Interfaces,
MainFrm in 'MainFrm.pas' {frmMain};

33
components/jvcllaz/run/JvXPCtrls/JvXPButtons.pas
View File

@ -121,16 +121,33 @@ type
property Width default 73;
// advanced properties.
property Align;
property Anchors;
//property AutoSize;
property BorderSpacing;
property AutoGray;
property Cancel;
property Constraints;
property Default;
property DragCursor;
property DragKind;
property DragMode;
property Font;
property Glyph;
property Layout;
property ModalResult;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowAccelChar;
property ShowFocusRect;
property SmoothEdges;
property ShowHint;
property Spacing;
property Style;
property StyleManager;
property UseDockManager default True;
property Visible;
property WordWrap;
//property BevelInner;
@ -143,24 +160,8 @@ type
//property ParentCtl3D;
//property TabOrder;
//property TabStop;
property UseDockManager default True;
property Align;
property Anchors;
//property AutoSize;
property Constraints;
property DragCursor;
property DragKind;
// property OnCanResize;
property DragMode;
// property Enabled;
property Font;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Style;
property StyleManager;
property Visible;
//property OnDockDrop;
//property OnDockOver;
//property OnEndDock;