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

tvplanit: Less warnings in TVpTaskEditDlg.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-14 11:18:59 +00:00
parent 4a4c67106c
commit de164297ab
3 changed files with 11 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -146,11 +146,11 @@ begin
DetailsMemo.Text := Task.Details; DetailsMemo.Text := Task.Details;
CompleteCB.Checked := Task.Complete; CompleteCB.Checked := Task.Complete;
if Task.CompletedOn <> 0 then if Task.CompletedOn <> 0 then
CompletedOnLbl.Caption := RSCompletedOn + ' ' + FormatDateTime(ShortDateFormat, Task.CompletedOn) CompletedOnLbl.Caption := RSCompletedOn + ' ' + FormatDateTime(DefaultFormatSettings.ShortDateFormat, Task.CompletedOn)
else else
CompletedOnLbl.Visible := False; CompletedOnLbl.Visible := False;
CompletedOnLbl.Visible := CompleteCB.Checked; CompletedOnLbl.Visible := CompleteCB.Checked;
CreatedOnLbl.Caption := RSCreatedOn + ' ' + FormatDateTime(ShortDateFormat, Task.CreatedOn); CreatedOnLbl.Caption := RSCreatedOn + ' ' + FormatDateTime(DefaultFormatSettings.ShortDateFormat, Task.CreatedOn);
PositionControls; PositionControls;
end; end;

18
components/tvplanit/source/vptasklist.pas
View File

@ -178,7 +178,7 @@ type
procedure SetMaxVisibleTasks(Value: Word); procedure SetMaxVisibleTasks(Value: Word);
procedure SetTaskIndex(Value: Integer); procedure SetTaskIndex(Value: Integer);
procedure SetDrawingStyle(const Value: TVpDrawingStyle); procedure SetDrawingStyle(const Value: TVpDrawingStyle);
procedure SetColor(const Value: TColor); procedure SetColor(const Value: TColor); reintroduce;
procedure SetShowIcon (const v : Boolean); procedure SetShowIcon (const v : Boolean);
procedure SetShowResourceName(Value: Boolean); procedure SetShowResourceName(Value: Boolean);
{ internal methods } { internal methods }
@ -285,15 +285,15 @@ uses
constructor TVpTaskDisplayOptions.Create(Owner: TVpTaskList); constructor TVpTaskDisplayOptions.Create(Owner: TVpTaskList);
begin begin
inherited Create; inherited Create;
FTaskList := Owner; FTaskList := Owner;
FDueDateFormat := ShortDateFormat; FDueDateFormat := DefaultFormatSettings.ShortDateFormat;
FShowDueDate := true; FShowDueDate := true;
FCheckColor := cl3DDkShadow; FCheckColor := cl3DDkShadow;
FCheckBGColor := clWindow; FCheckBGColor := clWindow;
FCheckStyle := csCheck; FCheckStyle := csCheck;
FOverdueColor := clRed; FOverdueColor := clRed;
FCompletedColor := clGray; FCompletedColor := clGray;
FNormalColor := clBlack; FNormalColor := clBlack;
end; end;
{=====} {=====}

9
components/tvplanit/source/vptasklistpainter.pas
View File

@ -272,18 +272,9 @@ begin
Bmp := Graphics.TBitmap.Create; Bmp := Graphics.TBitmap.Create;
try try
Bmp.LoadFromResourceName(HINSTANCE, 'VPCHECKPAD'); //soner changed: Bmp.Handle := LoadBaseBitmap('VPCHECKPAD'); Bmp.LoadFromResourceName(HINSTANCE, 'VPCHECKPAD'); //soner changed: Bmp.Handle := LoadBaseBitmap('VPCHECKPAD');
{ load and return the handle to bitmap resource}
if Bmp.Height > 0 then begin if Bmp.Height > 0 then begin
GlyphRect := Rect(
HeadRect.Left + TextMargin,
HeadRect.Top + TextMargin,
GlyphRect.Left + Bmp.Width,
GlyphRect.Top + Bmp.Height
);
{
GlyphRect.TopLeft := Point(HeadRect.Left + TextMargin, HeadRect.Top + TextMargin); GlyphRect.TopLeft := Point(HeadRect.Left + TextMargin, HeadRect.Top + TextMargin);
GlyphRect.BottomRight := Point(GlyphRect.Left + Bmp.Width, GlyphRect.Top + Bmp.Height); GlyphRect.BottomRight := Point(GlyphRect.Left + Bmp.Width, GlyphRect.Top + Bmp.Height);
}
//TODO: RenderCanvas.BrushCopy (TPSRotateRectangle (Angle, RenderIn, GlyphRect), //TODO: RenderCanvas.BrushCopy (TPSRotateRectangle (Angle, RenderIn, GlyphRect),
// Bmp, Rect(0, 0, Bmp.Width, Bmp.Height), // Bmp, Rect(0, 0, Bmp.Width, Bmp.Height),
// Bmp.Canvas.Pixels[0, Bmp.Height - 1]); // Bmp.Canvas.Pixels[0, Bmp.Height - 1]);