From 81d84416e9cf3bef0ceaaf730ef4aba9cd072935 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 5 Oct 2015 18:53:52 +0000 Subject: [PATCH] IDEIntf: less hints git-svn-id: trunk@49942 - --- components/ideintf/propedits.pp | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/components/ideintf/propedits.pp b/components/ideintf/propedits.pp index 1f2a9ea5b6..5975dd6764 100644 --- a/components/ideintf/propedits.pp +++ b/components/ideintf/propedits.pp @@ -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;