paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 17:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Colors for Local/Online packages are not visible in dark theme.

Browse Source 
git-svn-id: trunk@64867 -
This commit is contained in:
balazs 2021-03-24 20:10:27 +00:00
parent 09c43715cf
commit 4f0c4c7dea
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/addpkgdependencydlg.lfm
View File

@ -160,7 +160,6 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 60
Color = 15138790
ParentColor = False
TabOrder = 1
object cbLocalPkg: TCheckBox
@ -192,7 +191,6 @@ object AddPkgDependencyDialog: TAddPkgDependencyDialog
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 69
Color = 14017529
ParentColor = False
TabOrder = 2
object cbOnlinePkg: TCheckBox

8
packager/addpkgdependencydlg.pas
View File

@ -155,18 +155,18 @@ var
begin
with (Control as TListBox).Canvas do
begin
Pkg := TLazPackageID(DependPkgNameListBox.Items.Objects[Index]);
if odSelected In State then
begin
Pen.Color := clHighlightText;
Brush.Color := clHighlight;
if (Pkg is TPackageLink) and (TPackageLink(Pkg).Origin = ploOnline) then
Font.Style := Font.Style + [fsBold]
end
else begin
Pen.Color := (Control as TListBox).Font.Color;
Pkg := TLazPackageID(DependPkgNameListBox.Items.Objects[Index]);
if (Pkg is TPackageLink) and (TPackageLink(Pkg).Origin = ploOnline) then
Brush.Color := pnOnlinePkg.Color
else
Brush.Color := pnLocalPkg.Color
Font.Style := Font.Style + [fsBold]
end;
FillRect(ARect);
Txt := (Control as TListBox).Items[Index];