diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 10:35:50 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-31 10:35:50 +0000 |
| commit | da055c56b37f91d7173497f001c892725f66122a (patch) | |
| tree | 6a1b893521babbccd5ec054556ca74f6ac4cedf8 /src/corelib | |
| parent | 0fdfd9d1251f47d40a4fa9fc3d4599ef713a7999 (diff) | |
| download | fpGUI-da055c56b37f91d7173497f001c892725f66122a.tar.xz | |
* Fixed painting of TfpgListBox
* Improved focus rectangle in TfpgComobBox.
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index 1cae9066..ac9615ac 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -1283,7 +1283,8 @@ begin FClipRectSet := True; FClipRect := ARect; DeleteObject(FClipRegion); - FClipRegion := CreateRectRgn(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom); + // This is a bit of a hack!!! Double check this again and compare output to X11. + FClipRegion := CreateRectRgn(ARect.Left, ARect.Top, ARect.Right+1, ARect.Bottom+1); SelectClipRgn(Fgc, FClipRegion); end; |