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

Opkman: Make repository column bold, when a new version is available. Request by @lainz.

Browse Source 
git-svn-id: trunk@53704 -
This commit is contained in:
balazs 2016-12-17 08:43:01 +00:00
parent d01b3461ce
commit 834bfb69b3
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1532,17 +1532,16 @@ var
begin
Data := FVST.GetNodeData(Node);
case column of
1: begin
if Node <> Sender.FocusedNode then
2: begin
if Data^.DataType = 2 then
begin
if Data^.DataType = 1 then
begin
case Data^.InstallState of
1: TargetCanvas.Font.Color := clBlack;
2: TargetCanvas.Font.Color := clBlack;
end;
end;
end
if (Data^.InstalledVersion = '') or ((Data^.InstalledVersion <> '') and (Data^.InstalledVersion < Data^.Version)) then
TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]
else
TargetCanvas.Font.Style := TargetCanvas.Font.Style - [fsBold];
end;
if Node <> Sender.FocusedNode then
TargetCanvas.Font.Color := clBlack
else
TargetCanvas.Font.Color := clWhite;
end;