diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-12 09:21:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-12 09:21:45 +0200 |
| commit | bbae87798575b7a5b00c8ffd99887524d3a60b6d (patch) | |
| tree | 1ba88b89b2d856945596880b4f9656d677ceb615 /extras | |
| parent | 2c71635b4d127fe427c5508ecd63159a1af7da7a (diff) | |
| download | fpGUI-bbae87798575b7a5b00c8ffd99887524d3a60b6d.tar.xz | |
tiOPF: Fix StringGrid mediator last column sizing bug
* The last column was already resized to whatever space is available
ignoring the developers preferred (minimum) size. Now the last
column in grows in size, not shrink.
Diffstat (limited to 'extras')
| -rw-r--r-- | extras/tiopf/gui/tiListMediators.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas index b2d866ca..a89e32df 100644 --- a/extras/tiopf/gui/tiListMediators.pas +++ b/extras/tiopf/gui/tiListMediators.pas @@ -481,7 +481,7 @@ begin if View.Width > (lColumnTotalWidth + lGridNonContentWidth) then begin lLastColumnWidth := View.Width - (lColumnTotalWidth + lGridNonContentWidth); - if lLastColumnWidth > 10 then + if lLastColumnWidth > FieldsInfo[i].FieldWidth then { only go bigger, not smaller } View.ColumnWidth[i] := lLastColumnWidth; end; end |