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

tvplanit: Draw transparent category icons in VpDayView.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6434 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-17 22:51:07 +00:00
parent 7ac9a7ca1b
commit 2e2acca4da
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1570,9 +1570,6 @@ begin
ShowCategory := False; ShowCategory := False;
ShowCustom := False; ShowCustom := False;
// FDayView.IconAttributes.AlarmBitmap.SaveToFile('d:\test.bmp');
if Event.AlarmSet then begin if Event.AlarmSet then begin
dvBmpAlarm.Assign(FDayView.IconAttributes.AlarmBitmap); dvBmpAlarm.Assign(FDayView.IconAttributes.AlarmBitmap);
ShowAlarm := (dvBmpAlarm.Width <> 0) and (dvBmpAlarm.Height <> 0); ShowAlarm := (dvBmpAlarm.Width <> 0) and (dvBmpAlarm.Height <> 0);
@ -1596,12 +1593,15 @@ begin
if Event.Category < 10 then if Event.Category < 10 then
begin begin
cat := FDayView.Datastore.CategoryColorMap.GetCategory(Event.Category); cat := FDayView.Datastore.CategoryColorMap.GetCategory(Event.Category);
dvBmpCategory.Assign(cat.Bitmap);
{
w := cat.Bitmap.Width; w := cat.Bitmap.Width;
h := cat.Bitmap.Height; h := cat.Bitmap.Height;
dvBmpCategory.Width := w; dvBmpCategory.Width := w;
dvBmpCategory.Height := h; dvBmpCategory.Height := h;
R := Rect(0, 0, w, h); R := Rect(0, 0, w, h);
dvBmpCategory.Canvas.CopyRect(R, cat.Bitmap.canvas, R); dvBmpCategory.Canvas.CopyRect(R, cat.Bitmap.canvas, R);
}
end else end else
begin begin
dvBmpCategory.Width := 0; dvBmpCategory.Width := 0;