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

Some drawing corrections

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@753 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
christian_u
2009-03-31 17:41:04 +00:00
parent 295f8c4625
commit a6b9a85546
3 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,7 +83,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages,LCLProc,LCLType,LCLIntf,FileUtil,
{$ELSE}
Windows,
{$ENDIF}

10
components/tvplanit/source/vpmonthview.pas
View File

@ -34,7 +34,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages,LCLProc,LCLType,LCLIntf,FileUtil,
{$ELSE}
Windows,Messages,
{$ENDIF}
@ -570,10 +570,16 @@ var
DrawBevelRect (RenderCanvas,
TPSRotateRectangle (Angle, RenderIn, HeadRect),
BevelHighlight, BevelDarkShadow);
end
else begin
HeadRect.Left := RealLeft + 1;
HeadRect.Top := RealTop + 1;
HeadRect.Right := RealRight - 1;
HeadRect.Bottom := RealTop + mvDayHeadHeight;
end;
{ Acquire startdate and end date }
HeadStr := FormatDateTime(DateLabelFormat, DisplayDate);
HeadStr := SysToUTF8(FormatDateTime(DateLabelFormat, DisplayDate));
{ draw the text }
if (DisplayOnly) and

21
components/tvplanit/source/vpweekview.pas
View File

@ -48,7 +48,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages,LCLProc,LCLType,LCLIntf,FileUtil,
{$ELSE}
Windows,Messages,
{$ENDIF}
@ -818,7 +818,7 @@ var
if FDayHeadAttributes.Bordered then
TPSRectangle (RenderCanvas, Angle, RenderIn, TextRect);
{ Fix Header String }
DayStr := FormatDateTime(FDayHeadAttributes.DateFormat, StartDate + I);
DayStr := SysToUTF8(FormatDateTime(FDayHeadAttributes.DateFormat, StartDate + I));
SL := RenderCanvas.TextWidth(DayStr);
if SL > TextRect.Right - TextRect.Left then begin
DayStr := GetDisplayString(RenderCanvas, DayStr, 0, TextRect.Right -
@ -1025,6 +1025,15 @@ var
HeadTextRect: TRect;
HeadStr: string;
HeadStrLen : Integer;
function GetWeekOfYear(Datum:TDateTime):byte;
var
AYear,dummy :word;
First :TDateTime;
begin
DecodeDate(Datum+((8-DayOfWeek(Datum)) mod 7)-3, AYear, dummy,dummy);
First :=EncodeDate(AYear, 1, 1);
Result:=(trunc(Datum-First-3+(DayOfWeek(First)+1) mod 7) div 7)+1;
end;
begin
RenderCanvas.Brush.Color := RealHeadAttrColor;
RenderCanvas.Font.Assign(TFont(FHeadAttr.Font));
@ -1049,10 +1058,16 @@ var
DrawBevelRect (RenderCanvas,
TPSRotateRectangle (Angle, RenderIn, HeadRect),
BevelHighlightColor, BevelDarkShadow);
end else begin
HeadRect.Left := RealLeft + 1;
HeadRect.Top := RealTop + 1;
HeadRect.Right := RealRight - 1;
HeadRect.Bottom := HeadRect.Top + wvHeaderHeight;
end;
{ build header caption }
HeadStr := HeadStr + RSWeekof + ' '
+ FormatDateTime(DateLabelFormat, StartDate);
+ FormatDateTime(DateLabelFormat, StartDate)+' (KW'+IntToStr(GetWeekOfYear(StartDate))+')';
{ draw the text }
if (DisplayOnly) and
(RenderCanvas.TextWidth (HeadStr) >= RenderIn.Right - RenderIn.Left) then