forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

custom tools, enhance entry appearence when a custom color is associated

This commit is contained in:
Basile Burg 2021-10-09 09:12:29 +02:00
parent 791fd84685
commit cbe9b39337
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/u_toolseditor.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
ExtCtrls, Menus, Buttons, StdCtrls, Types, LCLType, ExtCtrls, Menus, Buttons, StdCtrls, Types, LCLType, GraphUtil,
u_widget, u_tools, u_sharedres, u_dsgncontrols, u_common, u_processes; u_widget, u_tools, u_sharedres, u_dsgncontrols, u_common, u_processes;
type type
@ -220,23 +220,45 @@ procedure TToolsEditorWidget.lstToolsDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState); Index: Integer; ARect: TRect; State: TOwnerDrawState);
var var
c0: TColor; c0: TColor;
c1: TColor;
c2: TColor;
rc: TRect;
xo: integer = 0;
begin begin
c0 := CustomTools.tool[Index].backgroundColor; c0 := CustomTools.tool[Index].backgroundColor;
rc := ARect;
if odSelected in State then if odSelected in State then
begin begin
if c0 = clDefault then if c0 = clDefault then
begin
c0 := clHighlight; c0 := clHighlight;
lstTools.Canvas.Brush.Color := c0; c1 := c0;
lstTools.Canvas.FillRect(ARect); c2 := c0;
lstTools.Canvas.Pen.Color := clHighlightText; end
lstTools.Canvas.Rectangle(Arect); else
begin
c1 := GetShadowColor(c0,-70);
c2 := GetShadowColor(c0,-30);
xo := 6;
end;
lstTools.Canvas.Brush.Color := c1;
lstTools.Canvas.FillRect(rc);
lstTools.Canvas.Brush.Color := c2;
lstTools.Canvas.Pen.Color := c0;
lstTools.Canvas.Pen.Width := 1;
lstTools.Canvas.Font.Style := [fsBold];
rc.Left:= rc.Left + ScaleX(xo, 96);
lstTools.Canvas.FillRect(rc);
end end
else else
begin begin
lstTools.Canvas.Font.Style := [];
lstTools.Canvas.Brush.Color := c0; lstTools.Canvas.Brush.Color := c0;
lstTools.Canvas.FillRect(ARect); lstTools.Canvas.FillRect(rc);
end; end;
lstTools.Canvas.TextOut(Arect.Left+1, ARect.Top+1, CustomTools.tool[Index].toolAlias);
rc.Left:= rc.Left + ScaleX(4, 96);
lstTools.Canvas.TextOut(rc.Left, rc.Top , CustomTools.tool[Index].toolAlias);
end; end;
end. end.