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

tvplanit/TvpGanttView: Keyboard handling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8426 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-29 21:25:03 +00:00
parent 89b96e9392
commit 3de78ed971
2 changed files with 209 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/tvplanit/source/vpganttviewpainter.pas
View File

@ -28,7 +28,7 @@ type
protected
procedure Clear;
procedure DrawActiveDay;
procedure DrawActiveDate;
procedure DrawBorders;
procedure DrawColHeader;
procedure DrawEvents;
@ -66,7 +66,7 @@ begin
RenderCanvas.FillRect(RenderIn);
end;
procedure TVpGanttViewPainter.DrawActiveDay;
procedure TVpGanttViewPainter.DrawActiveDate;
var
R: TRect;
dayRec: TVpGanttDayRec;
@ -94,10 +94,16 @@ begin
);
OffsetRect(R, -dx, -dy);
if R.Top < FGanttView.TotalColHeaderHeight then
exit;
pw := RenderCanvas.Pen.Width;
bs := RenderCanvas.Brush.Style;
RenderCanvas.Pen.Width := 3;
RenderCanvas.Pen.Color := clBlack;
if FGanttView.Focused then
RenderCanvas.Pen.Color := clBlack
else
RenderCanvas.Pen.Color := clGray;
RenderCanvas.Brush.Style := bsClear;
TPSRectangle(RenderCanvas, Angle, RenderIn, R);
RenderCanvas.Pen.Width := pw;
@ -509,7 +515,8 @@ begin
DrawEvents;
{ Draw active day rectangle }
DrawActiveDay;
if FGanttView.ShowActiveDate then
DrawActiveDate;
{ Draw the borders }
DrawBorders;