diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-05 08:16:40 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-11-05 08:16:40 +0000 |
commit | 2da5c00abfea780c0f375d6f1646f4d15ca98256 (patch) | |
tree | f29063627b9491416dcf0e4ac6fdf35a001d0785 /src/gui/gui_popupcalendar.pas | |
parent | 224b0b1f552725154b4f86dd56d1962d000e83c3 (diff) | |
download | fpGUI-2da5c00abfea780c0f375d6f1646f4d15ca98256.tar.xz |
* Implemented BeginUpdate and EndUpdate for BaseGrid.
* Modified StringGrid to rather use BeginUpdate/EndUpdate instead of calling RePaint directly.
* Calendar component now also uses the BeginUpdate/EndUpdate calls to drasticly improve the grid painting speed.
Diffstat (limited to 'src/gui/gui_popupcalendar.pas')
-rw-r--r-- | src/gui/gui_popupcalendar.pas | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas index e9bc41c8..0be547df 100644 --- a/src/gui/gui_popupcalendar.pas +++ b/src/gui/gui_popupcalendar.pas @@ -96,6 +96,7 @@ var lCellText: string; begin lCellText := ''; + grdName1.BeginUpdate; for r := 0 to 6 do for c := 1 to 7 do begin @@ -110,10 +111,7 @@ begin grdName1.Cells[c, r] := IntToStr(lCellDay); end; end; -// drawtext(canvas, -// msestring(inttostr(dayof(incday(ffirstdate,cell.row*7+cell.col)))), -// rect,flags1); - + grdName1.EndUpdate; end; procedure TfpgPopupCalendar.grdName1DoubleClick(Sender: TObject; |