pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix the access violation on exit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@608 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2008-11-22 20:13:51 +00:00
parent e2fa74cb39
commit 69a8145509
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpdayview.pas
View File

@ -758,11 +758,13 @@ begin
dvDayUpBtn.Transparent := true; dvDayUpBtn.Transparent := true;
dvWeekUpBtn.Transparent := true; dvWeekUpBtn.Transparent := true;
{ load their images } { load their images }
{$IFNDEF UNIX}
dvDayUpBtn.Glyph.Handle := LoadBaseBitmap('VPRIGHTARROW'); dvDayUpBtn.Glyph.Handle := LoadBaseBitmap('VPRIGHTARROW');
dvDayDownBtn.Glyph.Handle := LoadBaseBitmap('VPLEFTARROW'); dvDayDownBtn.Glyph.Handle := LoadBaseBitmap('VPLEFTARROW');
dvTodayBtn.Glyph.Handle := LoadBaseBitmap('VPTODAY'); dvTodayBtn.Glyph.Handle := LoadBaseBitmap('VPTODAY');
dvWeekUpBtn.Glyph.Handle := LoadBaseBitmap('VPRIGHTARROWS'); dvWeekUpBtn.Glyph.Handle := LoadBaseBitmap('VPRIGHTARROWS');
dvWeekDownBtn.Glyph.Handle := LoadBaseBitmap('VPLEFTARROWS'); dvWeekDownBtn.Glyph.Handle := LoadBaseBitmap('VPLEFTARROWS');
{$ENDIF}
{ set their OnClick handler } { set their OnClick handler }
dvDayUpBtn.OnClick := dvNavButtonsClick; dvDayUpBtn.OnClick := dvNavButtonsClick;
dvDayDownBtn.OnClick := dvNavButtonsClick; dvDayDownBtn.OnClick := dvNavButtonsClick;