diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-28 11:52:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-28 11:52:45 +0200 |
| commit | b178c4deff9bb8447408c5b469e658bc813075ae (patch) | |
| tree | 3161659047977c9f72f59ece1196ce1a01353abc | |
| parent | 92d78b37533d96257d1298d81c26feb8bb9834c1 (diff) | |
| download | fpGUI-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.pas | 6 | ||||
| -rw-r--r-- | uidesigner/uidesigner.lpi | 8 | ||||
| -rw-r--r-- | uidesigner/vfdprops.pas | 2 |
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; |