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

tvplanit: Every internal icon has three versions at 100%, 125% and 150% resolution now. (Icons from icon8.com). Old icons can be re-activated by undefining NEW_ICONS in vp.inc.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5896 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-23 17:39:54 +00:00
parent 7bfa2da31d
commit 2a4643b959
31 changed files with 355 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,7 @@ object MainForm: TMainForm
Menu = MainMenu1
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
LCLVersion = '1.6.4.0'
LCLVersion = '1.9.0.0'
object Panel1: TPanel
Left = 125
Height = 576
@ -58,7 +58,7 @@ object MainForm: TMainForm
Height = 528
Top = 48
Width = 834
PageIndex = 1
PageIndex = 0
Align = alClient
TabOrder = 1
TabStop = True

10
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -167,6 +167,7 @@ implementation
{$ENDIF}
{$ENDIF}
{$DEFINE NEW_ICONS} // The same as in vp.inc
uses
{$IFDEF WINDOWS}
@ -511,8 +512,13 @@ begin
CategoryColorMap.Category0.BackgroundColor := clSkyBlue;
CategoryColorMap.Category0.Color := clNavy;
CategoryColorMap.Category0.Description := 'Appointment';
// CategoryColorMap.Category0.Bitmap.Transparent := true; // <-- not working
CategoryColorMap.Category0.Bitmap.LoadFromResourceName(HINSTANCE, 'VPUPARROW');
//CategoryColorMap.Category0.Bitmap.Transparent := true; // <-- not working
LoadGlyphFromRCDATA(CategoryColorMap.Category0.Bitmap, 'SORTASC');
{
bmp := CreateBitmapFromRCDATA('SORTASC');
CategoryColorMap.Category0.Bitmap.Assign(bmp);
bmp.Free;
}
CategoryColorMap.Category1.BackgroundColor := 13290239;
CategoryColorMap.Category1.Color := clRed;
CategoryColorMap.Category1.Description := 'Urgent';