diff options
| -rw-r--r-- | examples/gui/gridtest/gridtest.lpr | 2 | ||||
| -rw-r--r-- | src/gui/gui_button.pas | 2 | ||||
| -rw-r--r-- | src/gui/gui_grid.pas | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/examples/gui/gridtest/gridtest.lpr b/examples/gui/gridtest/gridtest.lpr index 6e386c3f..dac0e79a 100644 --- a/examples/gui/gridtest/gridtest.lpr +++ b/examples/gui/gridtest/gridtest.lpr @@ -67,10 +67,12 @@ begin chkShowHeader := CreateCheckBox(self, 10, 320, 'Show Header'); chkShowHeader.Checked := True; chkShowHeader.OnChange := @chkShowHeaderChange; + chkShowHeader.Anchors := [anLeft, anBottom]; chkShowGrid := CreateCheckBox(self, chkShowHeader.Right+10, 320, 'Show Grid'); chkShowGrid.Checked := True; chkShowGrid.OnChange := @chkShowGridChange; + chkShowGrid.Anchors := [anLeft, anBottom]; end; diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas index 62c2e1da..a3886923 100644 --- a/src/gui/gui_button.pas +++ b/src/gui/gui_button.pas @@ -209,7 +209,7 @@ begin begin Canvas.SetColor(clText1); Canvas.SetLineStyle(1, lsDot); - InflateRect(r, -2, -2); + InflateRect(r, -3, -3); Canvas.DrawRectangle(r); end else diff --git a/src/gui/gui_grid.pas b/src/gui/gui_grid.pas index d88003f2..bac05775 100644 --- a/src/gui/gui_grid.pas +++ b/src/gui/gui_grid.pas @@ -169,7 +169,7 @@ begin Canvas.SetTextColor(clText1); s := 'Head ' + IntToStr(ACol); - fpgStyle.DrawString(Canvas, (ARect.Width div 2) - (FHeaderFont.TextWidth(s) div 2), + fpgStyle.DrawString(Canvas, (ARect.Left + (ARect.Width div 2)) - (FHeaderFont.TextWidth(s) div 2), ARect.Top+1, s, Enabled); end; |