paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:57:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

VirtualTreeView: Improved LCL scaling.

Browse Source
This commit is contained in:
wp_xyz 2024-10-04 17:34:21 +02:00
parent e9baea68d1
commit 402cffbdfd
3 changed files with 53 additions and 114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -267,6 +267,7 @@ const
DEFAULT_MARGIN = 4; DEFAULT_MARGIN = 4;
DEFAULT_NODE_HEIGHT = 18; DEFAULT_NODE_HEIGHT = 18;
DEFAULT_SPACING = 3; DEFAULT_SPACING = 3;
DEFAULT_MINHEIGHT = 10;
LIS_NORMAL = 1; LIS_NORMAL = 1;
{$EXTERNALSYM LIS_NORMAL} {$EXTERNALSYM LIS_NORMAL}
@ -1233,7 +1234,7 @@ type
TVTHeaderStyle = ( TVTHeaderStyle = (
hsThickButtons, // TButton look and feel hsThickButtons, // TButton look and feel
hsFlatButtons, // flatter look than hsThickButton, like an always raised flat TToolButton hsFlatButtons, // flatter look than hsThickButton, like an always raised flat TToolButton
hsPlates // flat TToolButton look and feel (raise on hover etc.) hsPlates // flat TToolButton look and feel (raise on hover etc.)
); );
TVTHeaderOption = ( TVTHeaderOption = (
@ -1325,6 +1326,7 @@ type
function IsDefaultHeightStored: Boolean; function IsDefaultHeightStored: Boolean;
function IsFontStored: Boolean; function IsFontStored: Boolean;
function IsHeightStored: Boolean; function IsHeightStored: Boolean;
function IsMinHeightStored: Boolean;
procedure SetAutoSizeIndex(Value: TColumnIndex); procedure SetAutoSizeIndex(Value: TColumnIndex);
procedure SetBackground(Value: TColor); procedure SetBackground(Value: TColor);
procedure SetColumns(Value: TVirtualTreeColumns); procedure SetColumns(Value: TVirtualTreeColumns);
@ -1420,7 +1422,7 @@ type
{$IFEND} {$IFEND}
property MainColumn: TColumnIndex read GetMainColumn write SetMainColumn default 0; property MainColumn: TColumnIndex read GetMainColumn write SetMainColumn default 0;
property MaxHeight: Integer read FMaxHeight write SetMaxHeight default 10000; property MaxHeight: Integer read FMaxHeight write SetMaxHeight default 10000;
property MinHeight: Integer read FMinHeight write SetMinHeight default 10; property MinHeight: Integer read FMinHeight write SetMinHeight stored IsMinHeightStored;
property Options: TVTHeaderOptions read FOptions write SetOptions default [hoColumnResize, hoDrag, hoShowSortGlyphs]; property Options: TVTHeaderOptions read FOptions write SetOptions default [hoColumnResize, hoDrag, hoShowSortGlyphs];
property ParentFont: Boolean read FParentFont write SetParentFont default False; property ParentFont: Boolean read FParentFont write SetParentFont default False;
property PopupMenu: TPopupMenu read FPopupMenu write FPopupMenu; property PopupMenu: TPopupMenu read FPopupMenu write FPopupMenu;
@ -2174,7 +2176,6 @@ type
FCustomCheckImages: TCustomImageList; // application defined check images FCustomCheckImages: TCustomImageList; // application defined check images
FCheckImageKind: TCheckImageKind; // light or dark, cross marks or tick marks FCheckImageKind: TCheckImageKind; // light or dark, cross marks or tick marks
FCheckImages: TCustomImageList; // Reference to global image list to be used for the check images. FCheckImages: TCustomImageList; // Reference to global image list to be used for the check images.
FButtonSize: Integer; // Size of the expand/collapse buttons
FImageChangeLink, FImageChangeLink,
FStateChangeLink, FStateChangeLink,
FCustomCheckChangeLink: TChangeLink; // connections to the image lists FCustomCheckChangeLink: TChangeLink; // connections to the image lists
@ -6923,13 +6924,8 @@ begin
inherited Create(Collection); inherited Create(Collection);
{$IF LCL_FullVersion >= 1080000}
FMargin := Owner.Header.TreeView.Scale96ToFont(DEFAULT_MARGIN);
FSpacing := Owner.Header.TreeView.Scale96ToFont(DEFAULT_SPACING);
{$ELSE}
FMargin := DEFAULT_MARGIN; FMargin := DEFAULT_MARGIN;
FSpacing := DEFAULT_SPACING; FSpacing := DEFAULT_SPACING;
{$IFEND}
FWidth := Owner.FDefaultWidth; FWidth := Owner.FDefaultWidth;
FLastWidth := Owner.FDefaultWidth; FLastWidth := Owner.FDefaultWidth;
@ -7049,22 +7045,14 @@ end;
function TVirtualTreeColumn.IsMarginStored: Boolean; function TVirtualTreeColumn.IsMarginStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FMargin <> Owner.Header.TreeView.Scale96ToFont(DEFAULT_MARGIN);
{$ELSE}
Result := FMargin <> DEFAULT_MARGIN; Result := FMargin <> DEFAULT_MARGIN;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TVirtualTreeColumn.IsSpacingStored: Boolean; function TVirtualTreeColumn.IsSpacingStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FSpacing <> Owner.Header.TreeView.Scale96ToFont(DEFAULT_SPACING);
{$ELSE}
Result := FSpacing <> DEFAULT_SPACING; Result := FSpacing <> DEFAULT_SPACING;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -8101,11 +8089,7 @@ begin
FClickIndex := NoColumn; FClickIndex := NoColumn;
FDropTarget := NoColumn; FDropTarget := NoColumn;
FTrackIndex := NoColumn; FTrackIndex := NoColumn;
{$IF LCL_FullVersion >= 1080000}
FDefaultWidth := Header.TreeView.Scale96ToFont(DEFAULT_COLUMN_WIDTH);
{$ELSE}
FDefaultWidth := DEFAULT_COLUMN_WIDTH; FDefaultWidth := DEFAULT_COLUMN_WIDTH;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -8152,11 +8136,7 @@ end;
function TVirtualTreeColumns.IsDefaultWidthStored: Boolean; function TVirtualTreeColumns.IsDefaultWidthStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FDefaultWidth <> Header.TreeView.Scale96ToFont(DEFAULT_COLUMN_WIDTH);
{$ELSE}
Result := FDefaultWidth <> DEFAULT_COLUMN_WIDTH; Result := FDefaultWidth <> DEFAULT_COLUMN_WIDTH;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -9868,14 +9848,9 @@ begin
inherited Create; inherited Create;
FOwner := AOwner; FOwner := AOwner;
FColumns := GetColumnsClass.Create(Self); FColumns := GetColumnsClass.Create(Self);
{$IF LCL_FullVersion >= 1080000}
FHeight := FOwner.Scale96ToFont(DEFAULT_HEADER_HEIGHT);
FDefaultHeight := FOwner.Scale96ToFont(DEFAULT_HEADER_HEIGHT);
{$ELSE}
FHeight := DEFAULT_HEADER_HEIGHT; FHeight := DEFAULT_HEADER_HEIGHT;
FDefaultHeight := DEFAULT_HEADER_HEIGHT; FDefaultHeight := DEFAULT_HEADER_HEIGHT;
{$IFEND} FMinHeight := DEFAULT_MINHEIGHT;
FMinHeight := 10;
FMaxHeight := 10000; FMaxHeight := 10000;
FFont := TFont.Create; FFont := TFont.Create;
FFont.OnChange := FontChanged; FFont.OnChange := FontChanged;
@ -9969,11 +9944,7 @@ end;
function TVTHeader.IsDefaultHeightStored: Boolean; function TVTHeader.IsDefaultHeightStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FDefaultHeight <> FOwner.Scale96ToFont(DEFAULT_HEADER_HEIGHT);
{$ELSE}
Result := FDefaultHeight <> DEFAULT_HEADER_HEIGHT; Result := FDefaultHeight <> DEFAULT_HEADER_HEIGHT;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -9988,15 +9959,16 @@ end;
function TVTHeader.IsHeightStored: Boolean; function TVTHeader.IsHeightStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FHeight <> FOwner.Scale96ToFont(DEFAULT_HEADER_HEIGHT);
{$ELSE}
Result := FHeight <> DEFAULT_HEADER_HEIGHT; Result := FHeight <> DEFAULT_HEADER_HEIGHT;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TVTHeader.IsMinHeightStored: Boolean;
begin
Result := FMinHeight <> DEFAULT_MINHEIGHT;
end;
procedure TVTHeader.SetAutoSizeIndex(Value: TColumnIndex); procedure TVTHeader.SetAutoSizeIndex(Value: TColumnIndex);
begin begin
@ -11501,15 +11473,17 @@ var
i: Integer; i: Integer;
col: TVirtualTreeColumn; col: TVirtualTreeColumn;
begin begin
if IsDefaultHeightStored then // if not (toAutoChangeScale in Treeview.TreeOptions.AutoOptions) then
FDefaultHeight := Round(FDefaultHeight * AYProportion); // begin
{
if IsHeightStored then if IsDefaultHeightStored then
FHeight := Round(FHeight * AYProportion); FDefaultHeight := Round(FDefaultHeight * AYProportion);
}
if Columns.IsDefaultWidthStored then FMinHeight := Round(FMinHeight * AYProportion);
Columns.DefaultWidth := Round(Columns.DefaultWidth * AXProportion); {
if Columns.IsDefaultWidthStored then
Columns.DefaultWidth := Round(Columns.DefaultWidth * AXProportion);
}
for i := 0 to Columns.Count-1 do begin for i := 0 to Columns.Count-1 do begin
col := Columns[i]; col := Columns[i];
if col.IsWidthStored then if col.IsWidthStored then
@ -11519,6 +11493,10 @@ begin
if col.IsMarginStored then if col.IsMarginStored then
col.Margin := Round(col.Margin * AXProportion); col.Margin := Round(col.Margin * AXProportion);
end; end;
// FontChanged(nil);
if IsHeightStored then
FHeight := Round(FHeight * AYProportion);
end; end;
{$IFEND} {$IFEND}
@ -12372,23 +12350,13 @@ begin
FDragImageKind := diComplete; FDragImageKind := diComplete;
FLastSelectionLevel := -1; FLastSelectionLevel := -1;
FSelectionBlendFactor := 128; FSelectionBlendFactor := 128;
FButtonSize := 9;
{$IF LCL_FullVersion >= 1080000}
FDefaultNodeHeight := Scale96ToFont(DEFAULT_NODE_HEIGHT);
FIndent := Scale96ToFont(DEFAULT_INDENT);
FMargin := Scale96ToFont(DEFAULT_MARGIN);
FTextMargin := Scale96ToFont(DEFAULT_MARGIN);
FDragHeight := Scale96ToFont(DEFAULT_DRAG_HEIGHT);
FDragWidth := Scale96ToFont(DEFAULT_DRAG_WIDTH);
{$ELSE}
FDefaultNodeHeight := DEFAULT_NODE_HEIGHT; FDefaultNodeHeight := DEFAULT_NODE_HEIGHT;
FIndent := DEFAULT_INDENT; FIndent := DEFAULT_INDENT;
FMargin := DEFAULT_MARGIN; FMargin := DEFAULT_MARGIN;
FTextMargin := DEFAULT_MARGIN; FTextMargin := DEFAULT_MARGIN;
FDragHeight := DEFAULT_DRAG_HEIGHT; FDragHeight := DEFAULT_DRAG_HEIGHT;
FDragWidth := DEFAULT_DRAG_WIDTH; FDragWidth := DEFAULT_DRAG_WIDTH;
{$IFEND}
FPlusBM := TBitmap.Create; FPlusBM := TBitmap.Create;
FHotPlusBM := TBitmap.Create; FHotPlusBM := TBitmap.Create;
@ -14067,11 +14035,7 @@ end;
function TBaseVirtualTree.IsDefaultNodeHeightStored: Boolean; function TBaseVirtualTree.IsDefaultNodeHeightStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FDefaultNodeHeight <> Scale96ToFont(DEFAULT_NODE_HEIGHT);
{$ELSE}
Result := FDefaultNodeHeight <> DEFAULT_NODE_HEIGHT; Result := FDefaultNodeHeight <> DEFAULT_NODE_HEIGHT;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -14114,44 +14078,28 @@ end;
function TBaseVirtualTree.IsDragHeightStored: Boolean; function TBaseVirtualTree.IsDragHeightStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FDragHeight <> Scale96ToFont(DEFAULT_DRAG_HEIGHT);
{$ELSE}
Result := FDragHeight <> DEFAULT_DRAG_HEIGHT; Result := FDragHeight <> DEFAULT_DRAG_HEIGHT;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TBaseVirtualTree.IsDragWidthStored: Boolean; function TBaseVirtualTree.IsDragWidthStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FDragWidth <> Scale96ToFont(DEFAULT_DRAG_WIDTH);
{$ELSE}
Result := FDragWidth <> DEFAULT_DRAG_WIDTH; Result := FDragWidth <> DEFAULT_DRAG_WIDTH;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TBaseVirtualTree.IsIndentStored: Boolean; function TBaseVirtualTree.IsIndentStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FIndent <> Scale96ToFont(DEFAULT_INDENT);
{$ELSE}
Result := FIndent <> DEFAULT_INDENT; Result := FIndent <> DEFAULT_INDENT;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TBaseVirtualTree.IsMarginStored: Boolean; function TBaseVirtualTree.IsMarginStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FMargin <> Scale96ToFont(DEFAULT_MARGIN);
{$ELSE}
Result := FMargin <> DEFAULT_MARGIN; Result := FMargin <> DEFAULT_MARGIN;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -14165,11 +14113,7 @@ end;
function TBaseVirtualTree.IsTextMarginStored: Boolean; function TBaseVirtualTree.IsTextMarginStored: Boolean;
begin begin
{$IF LCL_FullVersion >= 1080000}
Result := FTextMargin <> Scale96ToFont(DEFAULT_MARGIN);
{$ELSE}
Result := FTextMargin <> DEFAULT_MARGIN; Result := FTextMargin <> DEFAULT_MARGIN;
{$IFEND}
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
@ -14396,10 +14340,11 @@ var
fmTransparent: fmTransparent:
canv.Brush.Style := bsClear; canv.Brush.Style := bsClear;
end; end;
canv.Pen.FPColor := TColorToFPColor(ColorToRGB(clWindowText)); canv.Pen.FPColor := TColorToFPColor(ColorToRGB(FColors.TreeLineColor)); //clWindowText));
m := c div 2; //FButtonSize div 2; //FButtonSize div 8; m := c div 2;
if m = 0 then m := 1; if m = 0 then m := 1;
canv.Rectangle(0, 0, img.Width, img.Height); canv.Rectangle(0, 0, img.Width, img.Height);
canv.Pen.FPColor := TColorToFPColor(ColorToRGB(clWindowText));
canv.Line(c-m, c, c+m, c); canv.Line(c-m, c, c+m, c);
if IsPlus then if IsPlus then
canv.Line(c, c-m, c, c+m); canv.Line(c, c-m, c, c+m);
@ -14444,8 +14389,9 @@ var
//--------------- end local function ---------------------------------------- //--------------- end local function ----------------------------------------
begin begin
Size.cx := FButtonSize; Size.cx := Scale96ToFont(9);
Size.cy := FButtonSize; if not odd(Size.cx) then dec(Size.cx);
Size.cy := Size.cx;
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
{$ifdef LCLWin} {$ifdef LCLWin}
@ -14903,11 +14849,7 @@ procedure TBaseVirtualTree.SetDefaultNodeHeight(Value: Cardinal);
begin begin
if Value = 0 then if Value = 0 then
{$IF LCL_FullVersion >= 2000000}
Value := Scale96ToFont(DEFAULT_NODE_HEIGHT);
{$ELSE}
Value := DEFAULT_NODE_HEIGHT; Value := DEFAULT_NODE_HEIGHT;
{$IFEND}
if FDefaultNodeHeight <> Value then if FDefaultNodeHeight <> Value then
begin begin
Inc(Integer(FRoot.TotalHeight), Integer(Value) - Integer(FDefaultNodeHeight)); Inc(Integer(FRoot.TotalHeight), Integer(Value) - Integer(FDefaultNodeHeight));
@ -24355,11 +24297,7 @@ var
begin begin
{$ifdef DEBUG_VTV}Logger.EnterMethod([lcCheck],'PaintCheckImage');{$endif} {$ifdef DEBUG_VTV}Logger.EnterMethod([lcCheck],'PaintCheckImage');{$endif}
{$if LCL_FullVersion >= 1080000}
checkSize := Scale96ToFont(DEFAULT_CHECK_WIDTH);
{$else}
checkSize := DEFAULT_CHECK_WIDTH; checkSize := DEFAULT_CHECK_WIDTH;
{$ifend}
with ImageInfo do with ImageInfo do
begin begin
@ -26934,8 +26872,7 @@ begin
if IsDragWidthStored then if IsDragWidthStored then
FDragWidth := Round(FDragWidth * AXProportion); FDragWidth := Round(FDragWidth * AXProportion);
FHeader.AutoAdjustLayout(AXProportion, AYProportion); FHeader.AutoAdjustLayout(AXProportion, AYProportion);
FButtonSize := Round(FButtonSize * AXProportion); PrepareBitmaps(true, false);
if not Odd(FButtonSize) then dec(FButtonSize);
finally finally
EnableAutoSizing; EnableAutoSizing;
end; end;

36
examples/virtualtreeview/vst_advanced/GeneralAbilitiesDemo.lfm
View File

@ -2,11 +2,11 @@ object GeneralForm: TGeneralForm
Left = 291 Left = 291
Height = 536 Height = 536
Top = 185 Top = 185
Width = 804 Width = 817
ActiveControl = TreeFontButton ActiveControl = TreeFontButton
Caption = 'GeneralForm' Caption = 'GeneralForm'
ClientHeight = 536 ClientHeight = 536
ClientWidth = 804 ClientWidth = 817
KeyPreview = True KeyPreview = True
ShowHint = True ShowHint = True
LCLVersion = '3.99.0.0' LCLVersion = '3.99.0.0'
@ -15,7 +15,7 @@ object GeneralForm: TGeneralForm
AnchorSideLeft.Control = DrawSelectionModeRadioGroup AnchorSideLeft.Control = DrawSelectionModeRadioGroup
AnchorSideTop.Control = DrawSelectionModeRadioGroup AnchorSideTop.Control = DrawSelectionModeRadioGroup
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 575 Left = 588
Height = 15 Height = 15
Top = 387 Top = 387
Width = 113 Width = 113
@ -27,7 +27,7 @@ object GeneralForm: TGeneralForm
AnchorSideLeft.Control = CheckMarkCombo AnchorSideLeft.Control = CheckMarkCombo
AnchorSideTop.Control = CheckMarkCombo AnchorSideTop.Control = CheckMarkCombo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 575 Left = 588
Height = 15 Height = 15
Top = 437 Top = 437
Width = 112 Width = 112
@ -41,7 +41,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SaveButton AnchorSideRight.Control = SaveButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 575 Left = 588
Height = 60 Height = 60
Top = 48 Top = 48
Width = 221 Width = 221
@ -53,10 +53,10 @@ object GeneralForm: TGeneralForm
end end
object VST2: TLazVirtualStringTree object VST2: TLazVirtualStringTree
AnchorSideRight.Control = Label8 AnchorSideRight.Control = Label8
Left = 5 Left = 11
Height = 523 Height = 523
Top = 8 Top = 8
Width = 562 Width = 569
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoExpandDelay = 300 AutoExpandDelay = 300
BorderSpacing.Right = 8 BorderSpacing.Right = 8
@ -67,6 +67,7 @@ object GeneralForm: TGeneralForm
'Unicode text' 'Unicode text'
'Virtual Tree Data' 'Virtual Tree Data'
) )
Color = clBtnFace
Colors.BorderColor = clScrollBar Colors.BorderColor = clScrollBar
Colors.DropTargetColor = clActiveBorder Colors.DropTargetColor = clActiveBorder
Colors.DropTargetBorderColor = clActiveCaption Colors.DropTargetBorderColor = clActiveCaption
@ -83,7 +84,6 @@ object GeneralForm: TGeneralForm
item item
ImageIndex = 10 ImageIndex = 10
Position = 1 Position = 1
Spacing = 20
Text = 'Initial main column' Text = 'Initial main column'
Width = 300 Width = 300
end end
@ -100,10 +100,10 @@ object GeneralForm: TGeneralForm
ImageIndex = 4 ImageIndex = 4
Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
Position = 2 Position = 2
Spacing = 20
Text = 'Language column' Text = 'Language column'
Width = 300 Width = 300
end> end>
Header.Height = 32
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowHint, hoVisible] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowHint, hoVisible]
Header.ParentFont = True Header.ParentFont = True
Header.Style = hsFlatButtons Header.Style = hsFlatButtons
@ -138,7 +138,7 @@ object GeneralForm: TGeneralForm
AnchorSideLeft.Control = DrawSelectionModeRadioGroup AnchorSideLeft.Control = DrawSelectionModeRadioGroup
AnchorSideTop.Control = SwitchCheckImagesLabel AnchorSideTop.Control = SwitchCheckImagesLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 575 Left = 588
Height = 23 Height = 23
Top = 404 Top = 404
Width = 211 Width = 211
@ -165,7 +165,7 @@ object GeneralForm: TGeneralForm
AnchorSideLeft.Control = SwitchMainColumnLabel AnchorSideLeft.Control = SwitchMainColumnLabel
AnchorSideTop.Control = SwitchMainColumnLabel AnchorSideTop.Control = SwitchMainColumnLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 575 Left = 588
Height = 21 Height = 21
Top = 454 Top = 454
Width = 41 Width = 41
@ -182,7 +182,7 @@ object GeneralForm: TGeneralForm
object TreeFontButton: TBitBtn object TreeFontButton: TBitBtn
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = SaveButton AnchorSideRight.Control = SaveButton
Left = 575 Left = 588
Height = 34 Height = 34
Hint = 'Pick a font to be used by this tree.' Hint = 'Pick a font to be used by this tree.'
Top = 8 Top = 8
@ -216,7 +216,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ThemeRadioGroup AnchorSideRight.Control = ThemeRadioGroup
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 575 Left = 588
Height = 93 Height = 93
Top = 204 Top = 204
Width = 221 Width = 221
@ -257,7 +257,7 @@ object GeneralForm: TGeneralForm
'transparent color' 'transparent color'
) )
Style = csDropDownList Style = csDropDownList
TabOrder = 3 TabOrder = 2
Text = 'tree''s background color' Text = 'tree''s background color'
OnChange = ButtonFillModeComboChange OnChange = ButtonFillModeComboChange
end end
@ -268,7 +268,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TreeButtonLookRadioGroup AnchorSideRight.Control = TreeButtonLookRadioGroup
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 575 Left = 588
Height = 70 Height = 70
Top = 307 Top = 307
Width = 221 Width = 221
@ -301,7 +301,7 @@ object GeneralForm: TGeneralForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SaveButton AnchorSideRight.Control = SaveButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 575 Left = 588
Height = 70 Height = 70
Top = 124 Top = 124
Width = 221 Width = 221
@ -333,7 +333,7 @@ object GeneralForm: TGeneralForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TreeFontButton AnchorSideBottom.Control = TreeFontButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 700 Left = 713
Height = 34 Height = 34
Top = 8 Top = 8
Width = 96 Width = 96
@ -349,7 +349,7 @@ object GeneralForm: TGeneralForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MainColumnUpDown AnchorSideTop.Control = MainColumnUpDown
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 624 Left = 637
Height = 15 Height = 15
Top = 457 Top = 457
Width = 98 Width = 98

4
examples/virtualtreeview/vst_advanced/GeneralAbilitiesDemo.pas
View File

@ -21,7 +21,7 @@ interface
uses uses
LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Laz.VTHeaderPopup, Laz.VirtualTrees, ComCtrls, ExtCtrls, Menus, StdCtrls, Buttons, Laz.VTHeaderPopup, Laz.VirtualTrees, ComCtrls, ExtCtrls, Menus,
ActnList, LResources, ImgList; ActnList, LResources, ImgList;
type type
TGeneralForm = class(TForm) TGeneralForm = class(TForm)
@ -426,11 +426,13 @@ begin
begin begin
VST2.TreeOptions.PaintOptions := VST2.TreeOptions.PaintOptions + [toShowTreeLines]; VST2.TreeOptions.PaintOptions := VST2.TreeOptions.PaintOptions + [toShowTreeLines];
VST2.ButtonStyle := bsRectangle; VST2.ButtonStyle := bsRectangle;
ButtonFillModeCombo.Enabled := (Sender as TRadioGroup).Enabled;
end end
else else
begin begin
VST2.TreeOptions.PaintOptions := VST2.TreeOptions.PaintOptions - [toShowTreeLines]; VST2.TreeOptions.PaintOptions := VST2.TreeOptions.PaintOptions - [toShowTreeLines];
VST2.ButtonStyle := bsTriangle; VST2.ButtonStyle := bsTriangle;
ButtonFillModeCombo.Enabled := false;
end; end;
end; end;