GitHub-Mirror/G940LEDControl
1
0
Fork 0
mirror of synced 2024-06-28 15:47:40 +00:00
Code Issues Projects Releases Wiki Activity

Added: categories shown in bold

Browse Source
This commit is contained in:
Mark van Renswoude 2013-02-14 07:32:03 +00:00
parent 9929578ef0
commit b1035c6db2
2 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
G940LEDControl/Forms/ButtonFunctionFrm.dfm
View File

@ -26,9 +26,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
ExplicitLeft = 168
ExplicitTop = 232
ExplicitWidth = 185
DesignSize = (
692
41)
@ -42,7 +39,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Default = True
ModalResult = 1
TabOrder = 0
ExplicitLeft = 467
end
object btnCancel: TButton
Left = 609
@ -54,7 +50,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
ExplicitLeft = 548
end
end
object vstFunctions: TVirtualStringTree
@ -80,6 +75,7 @@ object ButtonFunctionForm: TButtonFunctionForm
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnGetText = vstFunctionsGetText
OnPaintText = vstFunctionsPaintText
Columns = <
item
Position = 0
@ -100,10 +96,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Align = alClient
BevelOuter = bvNone
TabOrder = 2
ExplicitLeft = 224
ExplicitTop = 192
ExplicitWidth = 185
ExplicitHeight = 41
object vstStates: TVirtualStringTree
Left = 0
Top = 113
@ -118,9 +110,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Header.Font.Style = []
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
TabOrder = 0
ExplicitTop = 93
ExplicitWidth = 407
ExplicitHeight = 259
Columns = <
item
Position = 0
@ -141,7 +130,6 @@ object ButtonFunctionForm: TButtonFunctionForm
Align = alTop
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 407
DesignSize = (
411
113)

18
G940LEDControl/Forms/ButtonFunctionFrm.pas
View File

@ -6,6 +6,7 @@ uses
Vcl.Controls,
Vcl.ExtCtrls,
Vcl.Forms,
Vcl.Graphics,
Vcl.StdCtrls,
VirtualTrees,
@ -30,6 +31,7 @@ type
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure vstFunctionsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
procedure vstFunctionsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
private
FButtonIndex: Integer;
FProfile: TProfile;
@ -167,10 +169,26 @@ var
begin
nodeData := Sender.GetNodeData(Node);
case nodeData^.NodeType of
ntCategory: CellText := nodeData^.LEDFunction.GetCategoryName;
ntFunction: CellText := nodeData^.LEDFunction.GetDisplayName;
end;
end;
procedure TButtonFunctionForm.vstFunctionsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
var
nodeData: PNodeData;
begin
nodeData := Sender.GetNodeData(Node);
if nodeData^.NodeType = ntCategory then
TargetCanvas.Font.Style := [fsBold]
else
TargetCanvas.Font.Style := [];
end;
end.