paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spktoolbar: Set version no to 0.1.2 for OPM. Check all demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5986 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2017-07-09 22:53:56 +00:00
parent f07535e014
commit 0b17d047d6
5 changed files with 442 additions and 437 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/spktoolbar/SpkToolbar/spkt_Const.pas
View File

@ -17,6 +17,13 @@ interface
uses
Graphics, LCLVersion;
const
{$IF lcl_fullversion < 1080000}
DPI_AWARE = true;
{$ELSE}
DPI_AWARE = false; // use lcl scaling instead
{$ENDIF}
procedure SpkInitLayoutConsts(FromDPI: Integer; ToDPI: Integer = 0);
function SpkScaleX(Size: Integer; FromDPI: Integer; ToDPI: Integer = 0): integer;
function SpkScaleY(Size: Integer; FromDPI: Integer; ToDPI: Integer = 0): integer;
@ -258,14 +265,6 @@ var
ToolbarHeight: Integer;
const
{$IF lcl_fullversion < 1080000}
DPI_AWARE = true;
{$ELSE}
DPI_AWARE = false; // use lcl scaling instead
{$ENDIF}
implementation
uses

2
components/spktoolbar/demos/basic/Project1.lpr
View File

@ -10,7 +10,7 @@ uses
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
// Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

BIN
components/spktoolbar/demos/basic/Project1.res
View File

Binary file not shown.

856
components/spktoolbar/demos/basic/Unit1.lfm
View File

File diff suppressed because it is too large Load Diff

6
components/spktoolbar/spktoolbarpackage.lpk
View File

@ -4,7 +4,7 @@
<PathDelim Value="\"/>
<Name Value="SpkToolbarPackage"/>
<Type Value="RunAndDesignTime"/>
<Author Value="Spook. Ported to Lazarus/LCL by Luiz Américo"/>
<Author Value="Spook. Ported to Lazarus/LCL by Luiz Américo and Werner Pamler"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
@ -15,8 +15,8 @@
</SearchPaths>
</CompilerOptions>
<Description Value="Ribbon-like toolbar"/>
<License Value="Modified LGPL"/>
<Version Minor="1" Release="1"/>
<License Value="Modified LGPL (like Lazarus)"/>
<Version Minor="1" Release="2"/>
<Files Count="26">
<Item1>
<Filename Value="SpkToolbar\spkt_Appearance.pas"/>