summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-09-28 11:52:45 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-09-28 11:52:45 +0200
commitb178c4deff9bb8447408c5b469e658bc813075ae (patch)
tree3161659047977c9f72f59ece1196ce1a01353abc
parent92d78b37533d96257d1298d81c26feb8bb9834c1 (diff)
downloadfpGUI-b178c4deff9bb8447408c5b469e658bc813075ae.tar.xz
uidesigner: Fixed Object Inspector editor bounds to fit cell
* When you selected a property, the property editor did not take into account the owner component's border widths, so they overlapped by 2 pixels.
-rw-r--r--uidesigner/newformdesigner.pas6
-rw-r--r--uidesigner/uidesigner.lpi8
-rw-r--r--uidesigner/vfdprops.pas2
3 files changed, 7 insertions, 9 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas
index b974d262..c20548e5 100644
--- a/uidesigner/newformdesigner.pas
+++ b/uidesigner/newformdesigner.pas
@@ -798,7 +798,7 @@ end;
function TwgPropertyList.RowHeight: integer;
begin
- Result := 22;
+ Result := 23;
end;
procedure TwgPropertyList.OnUpdateProperty(Sender: TObject);
@@ -969,8 +969,8 @@ begin
editor := prop.CreateEditor(Self);
x := 3 + NameWidth;
- y := FMargin + (FFocusItem - FFirstItem) * RowHeight;
- editor.SetPosition(x, y - 1, Width - ScrollBarWidth - x, RowHeight);
+ y := FMargin + ((FFocusItem - FFirstItem) * RowHeight);
+ editor.SetPosition(x, y, Width - FMargin - ScrollBarWidth - x, RowHeight-1); // last -1 is so cell border lines are still visible
editor.CreateLayout;
editor.OnUpdate := @OnUpdateProperty;
editor.LoadValue(Props.Widget);
diff --git a/uidesigner/uidesigner.lpi b/uidesigner/uidesigner.lpi
index 597c7e3c..63d091e8 100644
--- a/uidesigner/uidesigner.lpi
+++ b/uidesigner/uidesigner.lpi
@@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
- <Version Value="7"/>
+ <Version Value="9"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
@@ -9,10 +9,9 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
- <TargetFileExt Value=""/>
</General>
<VersionInfo>
- <ProjectVersion Value=""/>
+ <StringTable ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
@@ -112,7 +111,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
- <Version Value="8"/>
+ <Version Value="9"/>
<SearchPaths>
<UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -120,7 +119,6 @@
<SyntaxOptions>
<AllowLabel Value="False"/>
<CPPInline Value="False"/>
- <UseAnsiStrings Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
diff --git a/uidesigner/vfdprops.pas b/uidesigner/vfdprops.pas
index 687254ea..8eb3c896 100644
--- a/uidesigner/vfdprops.pas
+++ b/uidesigner/vfdprops.pas
@@ -331,7 +331,7 @@ begin
Edit.Anchors := Anchors;
// Edit.OnChange := @UpdateProperty;
Edit.OnKeyPress := @EditKeyPressed;
- Edit.OnExit :=@EditExit;
+ Edit.OnExit := @EditExit;
Edit.Visible := True;
end;