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

IDEIntf: less hints

Browse Source 
git-svn-id: trunk@49942 -
This commit is contained in:
mattias 2015-10-05 18:53:52 +00:00
parent 236c3e9509
commit 81d84416e9
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/ideintf/propedits.pp
View File

@ -3466,13 +3466,21 @@ end;
procedure TBoolPropertyEditor.PropDrawValue(ACanvas: TCanvas; const ARect: TRect;
AState: TPropEditDrawState);
var
{$IFDEF UseOINormalCheckBox}
TxtRect: TRect;
{$IFnDEF UseOINormalCheckBox}
{$ELSE}
str: string;
stat: TCheckBoxState;
{$ENDIF}
begin
{$IFnDEF UseOINormalCheckBox}
{$IFDEF UseOINormalCheckBox}
if FPropertyHook.GetCheckboxForBoolean then
TxtRect := DrawCheckbox(ACanvas, ARect, GetOrdValue<>0)
else
TxtRect := ARect;
inherited PropDrawValue(ACanvas, TxtRect, AState);
{$ELSE}
if aState=[] then ;
if FPropertyHook.GetCheckboxForBoolean then begin
if GetOrdValue<>0 then begin
stat := cbChecked;
@ -3483,12 +3491,6 @@ begin
end;
TCheckBoxThemed.PaintSelf(ACanvas, str, ARect, stat, False, False, False, False, taRightJustify);
end;
{$ELSE}
if FPropertyHook.GetCheckboxForBoolean then
TxtRect := DrawCheckbox(ACanvas, ARect, GetOrdValue<>0)
else
TxtRect := ARect;
inherited PropDrawValue(ACanvas, TxtRect, AState);
{$ENDIF}
end;