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

IDE: Restore a small dot symbol in ViewUnit dialog, the big one is not included in Windows fonts. See 7a6a7a85.

Browse Source
This commit is contained in:
Juha 2025-04-10 13:37:41 +03:00
parent e528bb32f5
commit b213e8a294
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/viewunit_dlg.pp
View File

@ -420,7 +420,7 @@ begin
aTop, Items[Index]); aTop, Items[Index]);
UEntry := TViewUnitsEntry(Items.Objects[Index]); UEntry := TViewUnitsEntry(Items.Objects[Index]);
if vufOpen in UEntry.Flags then // already open indicator if vufOpen in UEntry.Flags then // already open indicator
Canvas.TextRect(ARect, ARect.Right - Scale96ToFont(18), aTop, '🟢'); // • ● 🟢 Canvas.TextRect(ARect, ARect.Right - Scale96ToFont(8), aTop, '•'); // • ● 🟢
// Update the initial Selected state here. // Update the initial Selected state here.
if FFirstDraw then begin if FFirstDraw then begin
if vufSelected in UEntry.Flags then if vufSelected in UEntry.Flags then