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

callite: New component palette icon, in particular for hi res screens. Replace lrs resource by res. Fix form scaling at high res. Remove folder icons (it is in image_sources now). Version 0.3.1.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-06-17 11:44:15 +00:00
parent 13417171c5
commit d0ef324ddb
9 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/callite/README.txt
View File

@ -3,4 +3,9 @@ descendant which consequently is not dependent on any widgetset.
It is not a fixed-size component, as are most calendars, but will align
and resize as needed.
License: modified LGPL (with linking exception)
License: modified LGPL (with linking exception) (the license same as Lazarus)
The palette icon is taken from icons8.com
Download link: https://icons8.com/icon/12776/Calendar
The icons of icon8 have a "Creative Commons Attribution-NoDerivs 3.0 Unported"
license.

5
components/callite/callight_pkg.lpk
View File

@ -13,7 +13,7 @@
</CompilerOptions>
<Description Value="A lightweight calendar component"/>
<License Value="Modified LGL2 (with linking exception)"/>
<Version Minor="3"/>
<Version Minor="3" Release="1"/>
<Files Count="1">
<Item1>
<Filename Value="source/calendarlite.pas"/>
@ -32,5 +32,8 @@
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<CustomOptions Items="ExternHelp" Version="2">
<_ExternHelp Items="Count"/>
</CustomOptions>
</Package>
</CONFIG>

2
components/callite/demo1/CalLiteTest.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>

BIN
components/callite/icon/TCALENDARLITE.PNG
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 886 B

5
components/callite/icon/icon-source.txt
View File

@ -1,5 +0,0 @@
The TCalendarLite palette icon is the image
calendar-day.png
of the Fugue Icons collection (http://p.yusukekamiyamane.com/)

1
components/callite/icon/make_lrs.bat
View File

@ -1 +0,0 @@
lazres ..\source\calendarlite_icon.lrs TCALENDARLITE.PNG

12
components/callite/source/calendarlite.pas
View File

@ -397,11 +397,14 @@ procedure Register;
implementation
{$R calendarlite_icon.res}
uses
LCLType, LazUTF8, dateutils, math;
const
DBLCLICK_INTERVAL = 300; // Interval (ms) for detection of a double-click
DESIGNTIME_PPI = 96;
{ Holiday helpers }
@ -1284,8 +1287,8 @@ begin
FStartingDayOfWeek:= dowSunday;
with GetControlClassDefaultSize do
SetInitialBounds(0, 0, cx, cy);
Constraints.MinHeight := DefMinHeight;
Constraints.MinWidth := DefMinWidth;
Constraints.MinHeight := ScaleX(DefMinHeight, DESIGNTIME_PPI);
Constraints.MinWidth := ScaleY(DefMinWidth, DESIGNTIME_PPI);
Canvas.Brush.Style := bsSolid;
TabStop := true;
FDayNames := TStringList.Create;
@ -1421,8 +1424,8 @@ end;
class function TCalendarLite.GetControlClassDefaultSize: TSize;
begin
Result.cx := DefCalWidth;
Result.cy := DefCalHeight;
Result.cx := ScaleX(DefCalWidth, DESIGNTIME_PPI);
Result.cy := ScaleY(DefCalHeight, DESIGNTIME_PPI);
end;
function TCalendarLite.GetDayName(ADayOfWeek: TDayOfWeek): String;
@ -1913,7 +1916,6 @@ end;
procedure Register;
begin
{$I calendarlite_icon.lrs}
RegisterComponents('Misc', [TCalendarLite]);
end;

BIN
components/callite/source/calendarlite_icon.res Normal file
View File

Binary file not shown.

2
image_sources/ccr/components/callite/readme.txt
View File

@ -2,7 +2,7 @@ This folder contains the png images used by the callite component in the
component palette
The icon is taken from icons8.com
Download link: <a href="https://de.icons8.com/icon/12776/Calendar">
Download link: https://icons8.com/icon/12776/Calendar
Except for renaming to fit the requirements as a FPC/Lazarus resource it has
not been modified.