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

tvplanit: No bevel in flat mode around a TVpWeekView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4809 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-23 08:47:09 +00:00
parent 3b7adafe73
commit 10899a4c21
2 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/examples/demo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabTasks
ActivePage = TabEvents
Align = alClient
TabIndex = 1
TabIndex = 0
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'

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

@ -240,18 +240,21 @@ begin
end;
procedure TVpWeekViewPainter.DrawBorders;
var
shadow, bright: TColor;
begin
if FWeekView.DrawingStyle = dsFlat then begin
{ draw an outer and inner bevel }
{
DrawBevelRect(RenderCanvas,
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1)),
BevelShadowColor,
BevelHighlightColor
BevelShadowColor
);
}
DrawBevelRect(RenderCanvas,
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
BevelShadowColor,
BevelHighlightColor
BevelShadowColor // use the same color --> no bevel in flat mode!
);
end else
if FWeekView.DrawingStyle = ds3d then begin
@ -262,7 +265,7 @@ begin
BevelShadowColor
);
DrawBevelRect(RenderCanvas,
TPSRotateRectangle(Angle, RenderIn, Rect (RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft + 1, RealTop + 1, RealRight - 2, RealBottom - 2)),
BevelDarkShadow,
BevelButtonFace
);
@ -531,15 +534,19 @@ begin
TPSRotateRectangle (Angle, RenderIn, HeadRect),
BevelHighlightColor, BevelShadowColor);
}
end else if FWeekView.DrawingStyle = ds3d then begin
end else
if FWeekView.DrawingStyle = ds3d then begin
{ draw a 3d bevel }
HeadRect.Left := RealLeft + 2;
HeadRect.Top := RealTop + 2;
HeadRect.Right := RealRight - 3;
HeadRect.Bottom := RealTop + TVpWeekViewOpener(FWeekView).wvHeaderHeight;
TPSFillRect(RenderCanvas, Angle, RenderIn, HeadRect);
DrawBevelRect(RenderCanvas, TPSRotateRectangle(Angle, RenderIn, HeadRect),
BevelHighlightColor, BevelDarkShadow
DrawBevelRect(
RenderCanvas,
TPSRotateRectangle(Angle, RenderIn, HeadRect),
BevelHighlightColor,
BevelDarkShadow
);
end else begin
HeadRect.Left := RealLeft + 1;