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

CalLite: Fix streaming of TCalColors

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5341 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-11 21:19:03 +00:00
parent 6fec96e71d
commit a7f21d2f4c
1 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/callite/source/calendarlite.pas
View File

@ -203,7 +203,7 @@ type
procedure GotoToday; procedure GotoToday;
procedure GotoYear(AYear: word); procedure GotoYear(AYear: word);
procedure LeftClick(Shift: TShiftState); procedure LeftClick(Shift: TShiftState);
procedure RightClick(Shift: TShiftState); procedure RightClick;
public public
constructor Create(ACanvas: TCanvas); constructor Create(ACanvas: TCanvas);
procedure Draw; procedure Draw;
@ -239,7 +239,6 @@ type
{ TCalendarLite } { TCalendarLite }
// TCalendarLite = class(TGraphicControl)
TCalendarLite = class(TCustomControl) TCalendarLite = class(TCustomControl)
private private
FCalDrawer: TCalDrawer; FCalDrawer: TCalDrawer;
@ -360,7 +359,7 @@ type
property OnMouseWheelUp; property OnMouseWheelUp;
// new properties // new properties
property Colors: TCalColors read FColors; property Colors: TCalColors read FColors write FColors;
property Date: TDateTime read FDate write SetDate; property Date: TDateTime read FDate write SetDate;
property DayNames: String read GetDayNames write SetDayNames; property DayNames: String read GetDayNames write SetDayNames;
property DisplayTexts: String read GetDisplaytexts write SetDisplayTexts; property DisplayTexts: String read GetDisplaytexts write SetDisplayTexts;
@ -1221,7 +1220,7 @@ begin
end; end;
end; end;
procedure TCalDrawer.RightClick(Shift: TShiftState); procedure TCalDrawer.RightClick;
begin begin
if Assigned(FOwner.FOnGetHolidays) then if Assigned(FOwner.FOnGetHolidays) then
begin begin
@ -1473,7 +1472,7 @@ begin
case Button of case Button of
mbLeft : FCalDrawer.LeftClick(Shift); mbLeft : FCalDrawer.LeftClick(Shift);
mbRight : FCalDrawer.RightClick(Shift); mbRight : FCalDrawer.RightClick;
end; end;
end; end;
@ -1752,8 +1751,6 @@ begin
end; end;
procedure TCalendarLite.SetMultiSelect(AValue: Boolean); procedure TCalendarLite.SetMultiSelect(AValue: Boolean);
var
d: TDate;
begin begin
if AValue = FMultiSelect then if AValue = FMultiSelect then
exit; exit;
@ -1798,12 +1795,9 @@ end;
{ Hints } { Hints }
procedure TCalendarLite.ShowHintWindow(APoint: TPoint; ADate: TDate); procedure TCalendarLite.ShowHintWindow(APoint: TPoint; ADate: TDate);
const
MAX_HINT_WIDTH = 300;
var var
txt: String; txt: String;
y, m, d: Word; y, m, d: Word;
R: TRect;
begin begin
if Assigned(FOnHint) then begin if Assigned(FOnHint) then begin
DecodeDate(ADate, y, m, d); DecodeDate(ADate, y, m, d);