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

Fixed my own error in r32355 #ae9dead608. The original patch from Andrew G. Khodotov was correct.

Browse Source 
git-svn-id: trunk@32371 -
This commit is contained in:
juha 2011-09-16 20:04:02 +00:00
parent 6ddc1c8152
commit 9c295a44e2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/actionseditor.pas
View File

@ -738,6 +738,7 @@ begin
ACanvas.Brush.Color := clWindow; ACanvas.Brush.Color := clWindow;
ACanvas.Font.Color := clWindowText; ACanvas.Font.Color := clWindowText;
end; end;
S := TListBox(Control).Items[Index];
R := ARect; R := ARect;
dh := R.Bottom - R.Top; dh := R.Bottom - R.Top;
ACanvas.FillRect(R); ACanvas.FillRect(R);
@ -745,7 +746,6 @@ begin
if (TListBox(Control).Items.Objects[Index] is TCustomAction) if (TListBox(Control).Items.Objects[Index] is TCustomAction)
and (FActionList.Images <> nil) then begin and (FActionList.Images <> nil) then begin
AAction := TListBox(Control).Items.Objects[Index] as TCustomAction; AAction := TListBox(Control).Items.Objects[Index] as TCustomAction;
S := TListBox(Control).Items[Index];
R.Right := R.Left + dh; R.Right := R.Left + dh;
if AAction.ImageIndex <> -1 then if AAction.ImageIndex <> -1 then
begin begin