paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +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.Font.Color := clWindowText;
end;
S := TListBox(Control).Items[Index];
R := ARect;
dh := R.Bottom - R.Top;
ACanvas.FillRect(R);
@ -745,7 +746,6 @@ begin
if (TListBox(Control).Items.Objects[Index] is TCustomAction)
and (FActionList.Images <> nil) then begin
AAction := TListBox(Control).Items.Objects[Index] as TCustomAction;
S := TListBox(Control).Items[Index];
R.Right := R.Left + dh;
if AAction.ImageIndex <> -1 then
begin