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

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

View File

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

View File

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

File diff suppressed because it is too large Load Diff

View File

@@ -4,7 +4,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="SpkToolbarPackage"/> <Name Value="SpkToolbarPackage"/>
<Type Value="RunAndDesignTime"/> <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> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
@@ -15,8 +15,8 @@
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Ribbon-like toolbar"/> <Description Value="Ribbon-like toolbar"/>
<License Value="Modified LGPL"/> <License Value="Modified LGPL (like Lazarus)"/>
<Version Minor="1" Release="1"/> <Version Minor="1" Release="2"/>
<Files Count="26"> <Files Count="26">
<Item1> <Item1>
<Filename Value="SpkToolbar\spkt_Appearance.pas"/> <Filename Value="SpkToolbar\spkt_Appearance.pas"/>