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

IDE: correction for r37836 #c877b2f326. I copied the code to a wrong place.

Browse Source 
git-svn-id: trunk@37842 -
This commit is contained in:
juha 2012-07-01 15:26:15 +00:00
parent af616044d3
commit eb0c2952f0
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ideintf/objectinspector.pp
View File

@ -2483,6 +2483,16 @@ begin
if Layout = oilHorizontal
then begin
EditCompRect.Left := RRect.Left + SplitterX;
{$IFDEF UseOICheckBox}
{$IFDEF WINDOWS}
// Make the edit control short, it reveals redraw problems in many places
// on Windows. Normally the long control hides the problems.
// Note! This has nothing to do with CheckBox editors directly.
// CheckBox only revealed the problem originally because its caption
// does not cover all the drawing area.
EditCompRect.Right:=EditCompRect.Left+50; // This line can be removed
{$ENDIF}
{$ENDIF}
end
else begin
EditCompRect.Top := RRect.Top + GetNameRowHeight;
@ -2584,17 +2594,6 @@ begin
if Layout = oilVertical then
ValueRect.Left := NameTextRect.Left
{$IFDEF UseOICheckBox}
{$IFDEF WINDOWS}
// Make the edit control short, it reveals redraw problems in many places
// on Windows. Normally the long control hides the problems.
// Note! This has nothing to do with CheckBox editors directly.
// CheckBox only revealed the problem originally because its caption
// does not cover all the drawing area.
EditCompRect.Right:=EditCompRect.Left+50; // This line can be removed
later
{$ENDIF}
{$ENDIF}
else
begin
inc(NameIconRect.Right, 2 + Ord(ShowGutter));