paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 00:21:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: Correct handling of Default Value in TImageIndexPropertyEditor. Issue #30597, patch from Anton.

Browse Source 
git-svn-id: trunk@52962 -
This commit is contained in:
juha 2016-09-13 19:33:18 +00:00
parent cdd2334167
commit 3463c904e7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/graphpropedits.pas
View File

@ -717,7 +717,8 @@ var
Images: TCustomImageList;
I: Integer;
begin
Proc(IntToStr(GetDefaultOrdValue));
if GetDefaultOrdValue <> NoDefaultValue then
Proc(IntToStr(GetDefaultOrdValue));
Images := GetImageList;
if Assigned(Images) then
for I := 0 to Images.Count - 1 do
@ -742,7 +743,8 @@ var
R: TRect;
OldColor: TColor;
begin
Dec(Index);
if GetDefaultOrdValue <> NoDefaultValue then
Dec(Index);
Images := GetImageList;
R := ARect;
if Assigned(Images) then