GitHub-Mirror
/
unitswitcher
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed: selected item draws class name with clHighlightText, makes it visible with the silver XP theme

This commit is contained in:
Mark van Renswoude 2008-01-10 13:42:52 +00:00
parent 6fdf574708
commit 07d2233efd
4 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Lib/D7/UnitSwitcherD7.bpl
View File

Binary file not shown.

10
Packages/D7/UnitSwitcher.dof
View File

@ -137,10 +137,12 @@ Comments=
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath]
Count=1
Item0=P:\Algemeen\Components\Indy10\Core;P:\Algemeen\Components\Indy10\Protocols;P:\Algemeen\Components\Indy10\System
[HistoryLists\hlUnitOutputDirectory]
Count=1
Item0=..\..\Lib\D7
Item0=P:\algemeen\components\libd7
[HistoryLists\hlBPLOutput]
Count=2
Item0=..\..\Lib\D7
Item1=..\Lib\D7
Count=1
Item0=P:\algemeen\components\libd7

6
Source/BaseSwDialog.pas
View File

@ -117,7 +117,7 @@ type
procedure LoadSettings(); virtual;
procedure SaveSettings(); virtual;
procedure DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect); virtual;
procedure DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect; AState: TOwnerDrawState); virtual;
protected
property ActiveItem: TBaseSwItem read FActiveItem write FActiveItem;
property ItemList: TBaseSwItemList read FItemList write FItemList;
@ -548,7 +548,7 @@ begin
end;
procedure TfrmBaseSwDialog.DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect);
procedure TfrmBaseSwDialog.DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect; AState: TOwnerDrawState);
var
text: String;
@ -599,7 +599,7 @@ begin
end;
Inc(textRect.Left, ilsTypes.Width + 4);
DrawItemText(Canvas, currentItem, textRect);
DrawItemText(Canvas, currentItem, textRect, State);
end;
end;

8
Source/CmpSwDialog.pas
View File

@ -75,7 +75,7 @@ type
procedure LoadSettings(); override;
procedure SaveSettings(); override;
procedure DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect); override;
procedure DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect; AState: TOwnerDrawState); override;
procedure UpdateClassFilter();
procedure SortList();
@ -281,7 +281,7 @@ begin
end;
procedure TfrmCmpSwDialog.DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect);
procedure TfrmCmpSwDialog.DrawItemText(ACanvas: TCanvas; AItem: TBaseSwItem; ARect: TRect; AState: TOwnerDrawState);
var
text: String;
textRect: TRect;
@ -299,7 +299,9 @@ begin
textRect.Right := ARect.Right - 2;
{ Draw component class text }
ACanvas.Font.Color := clGrayText;
if not (odSelected in AState) then
ACanvas.Font.Color := clGrayText;
text := (AItem as TCmpSwComponent).ComponentClass;
DrawText(ACanvas.Handle, PChar(text), Length(text), textRect, DT_SINGLELINE or