diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-02-07 21:59:39 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2007-02-07 21:59:39 +0000 |
| commit | 835b1aaa20d62437be9f2d552d0e2eebc9256286 (patch) | |
| tree | 9f0e8ea219cc20c522692ecc20d1982b78f5884a /gui | |
| parent | 6cd80192beb08f404a6ee226b3b8997657df3442 (diff) | |
| download | fpGUI-835b1aaa20d62437be9f2d552d0e2eebc9256286.tar.xz | |
* Major improvements to Xft (anti-alias) font support under X11. I now
have a new class that seperates the Xlib font and Xft font support, so I
don't have to have that many IFDEFs in the code.
* Positioning of the Xft fonts now work.
Issues with Xft fonts:
* Repeated redrawing of text causes strange artifacts.
* Application crash when any window is closed. A font freeing issue.
Diffstat (limited to 'gui')
| -rw-r--r-- | gui/listbox.inc | 8 | ||||
| -rw-r--r-- | gui/widget.inc | 3 |
2 files changed, 7 insertions, 4 deletions
diff --git a/gui/listbox.inc b/gui/listbox.inc index 07a29c97..febcf140 100644 --- a/gui/listbox.inc +++ b/gui/listbox.inc @@ -137,7 +137,7 @@ begin inherited Paint(Canvas); if not Canvas.IntersectClipRect(ScrollingSupport.ClientRect) then - exit; + exit; //==> Style.SetUIColor(Canvas, clWindow); // Style.DrawWindowBackground(Canvas, ScrollingSupport.ClientRect); @@ -231,7 +231,7 @@ var i, ItemWidth: Integer; begin if (not Assigned(FindForm)) or (not Assigned(FindForm.Wnd)) then - exit; + exit; //==> FMaxItemWidth := 0; for i := 0 to Items.Count - 1 do @@ -246,7 +246,7 @@ end; procedure TCustomListBox.UpdateScrollBars; begin ScrollingSupport.SetVirtualSize( - gfxBase.Size(FMaxItemWidth, Items.Count * ItemHeight - 1)); + Size(FMaxItemWidth, Items.Count * ItemHeight - 1)); end; procedure TCustomListBox.RedrawItem(AIndex: Integer); @@ -254,7 +254,7 @@ var ItemRect: TRect; begin if AIndex < 0 then - exit; + exit; //==> ItemRect := ScrollingSupport.ClientRect; Inc(ItemRect.Top, AIndex * ItemHeight - ScrollingSupport.VertScrollBar.Position); diff --git a/gui/widget.inc b/gui/widget.inc index e277bcf9..df671640 100644 --- a/gui/widget.inc +++ b/gui/widget.inc @@ -646,6 +646,9 @@ end; procedure TWidget.Redraw; begin Redraw(Rect(0, 0, BoundsSize.cx, BoundsSize.cy)); + {$IFDEF DEBUG} + writeln(ClassName + '.Redraw'); + {$ENDIF} end; procedure TWidget.Redraw(const ARect: TRect); |