paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-25 06:10:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Make the newly available update items bold in tree.

Browse Source 
git-svn-id: trunk@53578 -
This commit is contained in:
balazs 2016-12-06 16:18:49 +00:00
parent 2c5a46f7ff
commit 17b353b2e7
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1058,18 +1058,16 @@ begin
TargetCanvas.Brush.Color := $00E5E5E5;
end;
3:begin
TargetCanvas.Brush.Color := $00E5E5E5;
if (Data^.DataType = 2) then
begin
ParentNode := Node^.Parent;
ParentData := FVST.GetNodeData(ParentNode);
if (Data^.UpdateVersion > Data^.InstalledVersion) then
begin
TargetCanvas.Brush.Color := $00E5E5E5;
ParentData^.HasUpdate := True;
end
if (Data^.UpdateVersion > Data^.InstalledVersion) or (ParentData^.ForceUpadate) then
ParentData^.HasUpdate := True
else
ParentData^.HasUpdate := False;
end;
end
end;
end;
TargetCanvas.FillRect(CellRect);
@ -1385,17 +1383,21 @@ procedure TVisualTree.VSTPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
var
Data: PData;
Data, ParentData: PData;
begin
Data := FVST.GetNodeData(Node);
case column of
3: begin
case Data^.DataType of
1: TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold];
2: if Data^.UpdateVersion > Data^.InstalledVersion then
TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]
else
TargetCanvas.Font.Style := TargetCanvas.Font.Style - [fsBold];
2: begin
ParentData := FVST.GetNodeData(Node^.Parent);
if (Data^.UpdateVersion > Data^.InstalledVersion) or (ParentData^.HasUpdate) then
TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold]
else
TargetCanvas.Font.Style := TargetCanvas.Font.Style - [fsBold];
end;
end;
if Node <> Sender.FocusedNode then
TargetCanvas.Font.Color := clBlack