diff options
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); |