mirror of
https://bitbucket.org/Dennis07/lina-components.git
synced 2025-02-12 10:25:59 +02:00
Version 1.0 DEV 1.01
Signed-off-by: Dennis07 <den.goehlert@t-online.de>
This commit is contained in:
Dennis07
parent
39c0916f1c
commit
a903c5e989
14
Example/TSplashScreen/pExample.dpr
Normal file
14
Example/TSplashScreen/pExample.dpr
Normal file
@ -0,0 +1,14 @@
|
||||
program pExample;
|
||||
|
||||
uses
|
||||
Vcl.Forms,
|
||||
uMain in 'uMain.pas' {fmMain};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.CreateForm(TfmMain, fmMain);
|
||||
Application.Run;
|
||||
end.
|
||||
170
Example/TSplashScreen/pExample.dproj
Normal file
170
Example/TSplashScreen/pExample.dproj
Normal file
@ -0,0 +1,170 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{63EE7EA7-2930-42CC-AAFC-D3E98EA25373}</ProjectGuid>
|
||||
<ProjectVersion>15.3</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>pExample.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
<DCC_UsePackage>frxDB19;FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;AbbreviaVCL;vcldbx;FireDACPgDriver;FireDACODBCDriver;VampyreImagingPackage.D2009;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;frx19;TeeDB;vclib;inetdbbde;DBXInterBaseDriver;GR32_DSGN_RSXE5;DataSnapCommon;MiscrosoftScriptControls;pkCindyDERDXE5;Tee;vclFireDAC;xmlrtl;svnui;ibxpress;DbxCommonDriver;SVATimer_DXE5;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;PieLib;FireDACCommonDriver;MetropolisUILiveTile;djsonrt;bindengine;vclactnband;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;pkCindyPackDXE5;TeeUI;FMXTee;vclie;pkCindyIEDXE5;vclshlctrls;fmxFireDAC;FireDACADSDriver;vcltouch;pkCindyDBCtrlsPackDXE5;pkCindyDBXDXE5;LINA_D_XE5;CustomIPTransport;SynEdit_RXE5;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;GR32_RSXE5;IndyIPCommon;CloudService;CodeSiteExpressPkg;dsnapcon;FireDACIBDriver;DebenuPDFLibraryLite;inet;FmxTeeUI;fmxobj;DCEF_XE5;FireDACMySQLDriver;vclx;inetdbxpress;webdsnap;svn;fmxdae;frxe19;RESTComponents;bdertl;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_UsePackage>FireDACASADriver;FireDACSqliteDriver;bindcompfmx;DBXSqliteDriver;AbbreviaVCL;FireDACPgDriver;FireDACODBCDriver;fmx;rtl;dbrtl;DbxClientDriver;IndySystem;FireDACCommon;bindcomp;vclib;DBXInterBaseDriver;DataSnapCommon;vclFireDAC;xmlrtl;ibxpress;DbxCommonDriver;vclimg;IndyProtocols;dbxcds;DBXMySQLDriver;FireDACCommonDriver;MetropolisUILiveTile;bindengine;vclactnband;vcldb;soaprtl;bindcompdbx;vcldsnap;bindcompvcl;vclie;vclshlctrls;fmxFireDAC;FireDACADSDriver;vcltouch;LINA_D_XE5;CustomIPTransport;SynEdit_RXE5;vclribbon;VclSmp;FireDAC;dsnap;IndyIPServer;Intraweb;fmxase;vcl;IndyCore;VCLRESTComponents;IndyIPCommon;CloudService;dsnapcon;FireDACIBDriver;inet;fmxobj;FireDACMySQLDriver;vclx;inetdbxpress;webdsnap;fmxdae;RESTComponents;FireDACMSAccDriver;adortl;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="uMain.pas">
|
||||
<Form>fmMain</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1031</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CFBundleName"/>
|
||||
<VersionInfoKeys Name="CFBundleDisplayName"/>
|
||||
<VersionInfoKeys Name="UIDeviceFamily"/>
|
||||
<VersionInfoKeys Name="CFBundleIdentifier"/>
|
||||
<VersionInfoKeys Name="CFBundleVersion"/>
|
||||
<VersionInfoKeys Name="CFBundlePackageType"/>
|
||||
<VersionInfoKeys Name="CFBundleSignature"/>
|
||||
<VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
|
||||
<VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
|
||||
<VersionInfoKeys Name="CFBundleExecutable"/>
|
||||
<VersionInfoKeys Name="CFBundleResourceSpecification"/>
|
||||
<VersionInfoKeys Name="LSRequiresIPhoneOS"/>
|
||||
<VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
|
||||
<VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
|
||||
<VersionInfoKeys Name="package"/>
|
||||
<VersionInfoKeys Name="label"/>
|
||||
<VersionInfoKeys Name="versionCode"/>
|
||||
<VersionInfoKeys Name="versionName"/>
|
||||
<VersionInfoKeys Name="persistent"/>
|
||||
<VersionInfoKeys Name="restoreAnyVersion"/>
|
||||
<VersionInfoKeys Name="installLocation"/>
|
||||
<VersionInfoKeys Name="largeHeap"/>
|
||||
<VersionInfoKeys Name="theme"/>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">pExample.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Deployment/>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
25
Example/TSplashScreen/pExample.dproj.local
Normal file
25
Example/TSplashScreen/pExample.dproj.local
Normal file
@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899.12.30 00:00:00.000.832,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.095,C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Example\TSplashScreen\uMain.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.579,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.120,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.376,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.505,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.029,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.036,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.629,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.256,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.957,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.333,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.086,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.359,C:\Users\Dennis G\Documents\RAD Studio\Projekte\Project1.dproj=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Example\TSplashScreen\pExample.dproj</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.095,C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.dfm=C:\Users\Dennis G\Documents\RAD Studio\Projekte\LinaComponents\Example\TSplashScreen\uMain.dfm</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.356,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.028,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.963,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.065,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
<Transaction>1899.12.30 00:00:00.000.634,=C:\Users\Dennis G\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
BIN
Example/TSplashScreen/pExample.identcache
Normal file
BIN
Example/TSplashScreen/pExample.identcache
Normal file
Binary file not shown.
BIN
Example/TSplashScreen/pExample.res
Normal file
BIN
Example/TSplashScreen/pExample.res
Normal file
Binary file not shown.
185
Example/TSplashScreen/uMain.dfm
Normal file
185
Example/TSplashScreen/uMain.dfm
Normal file
@ -0,0 +1,185 @@
|
||||
object fmMain: TfmMain
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'LinaComponents "TSplashScreen" Example'
|
||||
ClientHeight = 219
|
||||
ClientWidth = 489
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object gbForm: TGroupBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 233
|
||||
Height = 161
|
||||
Caption = 'Form settings'
|
||||
TabOrder = 0
|
||||
object laWidth: TLabel
|
||||
Left = 16
|
||||
Top = 21
|
||||
Width = 105
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
Caption = 'Width:'
|
||||
Layout = tlCenter
|
||||
end
|
||||
object laHeight: TLabel
|
||||
Left = 16
|
||||
Top = 48
|
||||
Width = 105
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
Caption = 'Height:'
|
||||
Layout = tlCenter
|
||||
end
|
||||
object laCaption: TLabel
|
||||
Left = 16
|
||||
Top = 75
|
||||
Width = 105
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
Caption = 'Caption:'
|
||||
Layout = tlCenter
|
||||
end
|
||||
object laColor: TLabel
|
||||
Left = 16
|
||||
Top = 102
|
||||
Width = 105
|
||||
Height = 21
|
||||
AutoSize = False
|
||||
Caption = 'Color:'
|
||||
Layout = tlCenter
|
||||
end
|
||||
object edWidth: TEdit
|
||||
Left = 127
|
||||
Top = 21
|
||||
Width = 90
|
||||
Height = 21
|
||||
TabOrder = 0
|
||||
OnChange = edWidthChange
|
||||
end
|
||||
object edHeight: TEdit
|
||||
Left = 127
|
||||
Top = 48
|
||||
Width = 90
|
||||
Height = 21
|
||||
TabOrder = 1
|
||||
OnChange = edHeightChange
|
||||
end
|
||||
object edCaption: TEdit
|
||||
Left = 127
|
||||
Top = 75
|
||||
Width = 90
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
OnChange = edCaptionChange
|
||||
end
|
||||
object edAlpha: TEdit
|
||||
Left = 127
|
||||
Top = 129
|
||||
Width = 90
|
||||
Height = 21
|
||||
TabOrder = 3
|
||||
OnChange = edAlphaChange
|
||||
end
|
||||
object coColor: TColorBox
|
||||
Left = 127
|
||||
Top = 102
|
||||
Width = 90
|
||||
Height = 22
|
||||
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
|
||||
TabOrder = 4
|
||||
end
|
||||
object cbAlpha: TCheckBox
|
||||
Left = 16
|
||||
Top = 129
|
||||
Width = 105
|
||||
Height = 21
|
||||
Caption = 'Alpha Blend'
|
||||
TabOrder = 5
|
||||
OnClick = cbAlphaClick
|
||||
end
|
||||
end
|
||||
object gbImage: TGroupBox
|
||||
Left = 247
|
||||
Top = 8
|
||||
Width = 233
|
||||
Height = 161
|
||||
Caption = 'Image settings'
|
||||
TabOrder = 1
|
||||
object imImage: TImage
|
||||
Left = 16
|
||||
Top = 21
|
||||
Width = 201
|
||||
Height = 103
|
||||
Center = True
|
||||
end
|
||||
object edImage: TEdit
|
||||
Left = 16
|
||||
Top = 129
|
||||
Width = 169
|
||||
Height = 21
|
||||
TabOrder = 0
|
||||
end
|
||||
object btImage: TButton
|
||||
Left = 191
|
||||
Top = 129
|
||||
Width = 26
|
||||
Height = 21
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object pnButtons: TPanel
|
||||
Left = 0
|
||||
Top = 178
|
||||
Width = 489
|
||||
Height = 41
|
||||
Align = alBottom
|
||||
TabOrder = 2
|
||||
object laAnimation: TLabel
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 65
|
||||
Height = 17
|
||||
AutoSize = False
|
||||
Caption = 'Animation:'
|
||||
end
|
||||
object btShow: TButton
|
||||
Left = 405
|
||||
Top = 8
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Show...'
|
||||
TabOrder = 0
|
||||
OnClick = btShowClick
|
||||
end
|
||||
object coAnimation: TComboBox
|
||||
Left = 79
|
||||
Top = 8
|
||||
Width = 98
|
||||
Height = 21
|
||||
Style = csDropDownList
|
||||
ItemIndex = 0
|
||||
TabOrder = 1
|
||||
Text = 'None'
|
||||
Items.Strings = (
|
||||
'None'
|
||||
'Shallow')
|
||||
end
|
||||
end
|
||||
object SplashScreen: TSplashScreen
|
||||
Left = 368
|
||||
Top = 186
|
||||
end
|
||||
end
|
||||
155
Example/TSplashScreen/uMain.pas
Normal file
155
Example/TSplashScreen/uMain.pas
Normal file
@ -0,0 +1,155 @@
|
||||
unit uMain;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, uFrmCtrls, uBase, uSysTools,
|
||||
Vcl.ExtCtrls;
|
||||
|
||||
type
|
||||
TfmMain = class(TForm)
|
||||
gbForm: TGroupBox;
|
||||
gbImage: TGroupBox;
|
||||
pnButtons: TPanel;
|
||||
btShow: TButton;
|
||||
laWidth: TLabel;
|
||||
edWidth: TEdit;
|
||||
edHeight: TEdit;
|
||||
laHeight: TLabel;
|
||||
edCaption: TEdit;
|
||||
laCaption: TLabel;
|
||||
laColor: TLabel;
|
||||
edAlpha: TEdit;
|
||||
coColor: TColorBox;
|
||||
cbAlpha: TCheckBox;
|
||||
imImage: TImage;
|
||||
edImage: TEdit;
|
||||
btImage: TButton;
|
||||
laAnimation: TLabel;
|
||||
coAnimation: TComboBox;
|
||||
SplashScreen: TSplashScreen;
|
||||
procedure btShowClick(Sender: TObject);
|
||||
procedure SplashScreenTimer(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure edWidthChange(Sender: TObject);
|
||||
procedure edHeightChange(Sender: TObject);
|
||||
procedure edAlphaChange(Sender: TObject);
|
||||
procedure edCaptionChange(Sender: TObject);
|
||||
procedure cbAlphaClick(Sender: TObject);
|
||||
private
|
||||
{ Private-Deklarationen }
|
||||
public
|
||||
{ Public-Deklarationen }
|
||||
end;
|
||||
|
||||
var
|
||||
fmMain: TfmMain;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfmMain.btShowClick(Sender: TObject);
|
||||
begin
|
||||
SplashScreen.SplashForm.Width := StrToInt(edWidth.Text);
|
||||
SplashScreen.SplashForm.Height := StrToInt(edHeight.Text);
|
||||
SplashScreen.SplashForm.Caption := edCaption.Text;
|
||||
SplashScreen.SplashForm.Color := coColor.Selected;
|
||||
SplashScreen.SplashForm.AlphaBlend := cbAlpha.Checked;
|
||||
SplashScreen.SplashForm.AlphaBlendValue := StrToInt(edAlpha.Text);
|
||||
SplashScreen.SplashImage.Picture.Assign(imImage.Picture);
|
||||
if coAnimation.ItemIndex = 0 then
|
||||
begin
|
||||
SplashScreen.Animation := ssaNone;
|
||||
end else
|
||||
begin
|
||||
SplashScreen.Animation := ssaShallow;
|
||||
end;
|
||||
|
||||
if SplashScreen.Visible = True then
|
||||
begin
|
||||
SplashScreen.Hide;
|
||||
btShow.Caption := 'Show...';
|
||||
end else
|
||||
begin
|
||||
SplashScreen.Show;
|
||||
btShow.Caption := 'Hide';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.cbAlphaClick(Sender: TObject);
|
||||
begin
|
||||
edAlpha.Enabled := cbAlpha.Checked;
|
||||
end;
|
||||
|
||||
procedure TfmMain.edAlphaChange(Sender: TObject);
|
||||
begin
|
||||
if (StrIsInt(edAlpha.Text) = False) or (not (StrToInt(edAlpha.Text) in [0..255])) then
|
||||
begin
|
||||
MessageDlg('Unvalid value',mtError,[mbCancel],0);
|
||||
edAlpha.Text := IntToStr(SplashScreen.SplashForm.AlphaBlendValue);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.edCaptionChange(Sender: TObject);
|
||||
begin
|
||||
if Length(edCaption.Text) > 255 then
|
||||
begin
|
||||
MessageDlg('Unvalid value',mtError,[mbCancel],0);
|
||||
edCaption.Text := SplashScreen.SplashForm.Caption;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.edHeightChange(Sender: TObject);
|
||||
begin
|
||||
if StrIsInt(edHeight.Text) = False then
|
||||
begin
|
||||
MessageDlg('Unvalid value',mtError,[mbCancel],0);
|
||||
edHeight.Text := IntToStr(SplashScreen.SplashForm.Height);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.edWidthChange(Sender: TObject);
|
||||
begin
|
||||
if StrIsInt(edWidth.Text) = False then
|
||||
begin
|
||||
MessageDlg('Unvalid value',mtError,[mbCancel],0);
|
||||
edWidth.Text := IntToStr(SplashScreen.SplashForm.Width);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.FormShow(Sender: TObject);
|
||||
begin
|
||||
edWidth.Text := IntToStr(SplashScreen.SplashForm.Width);
|
||||
edHeight.Text := IntToStr(SplashScreen.SplashForm.Height);
|
||||
edCaption.Text := SplashScreen.SplashForm.Caption;
|
||||
coColor.Selected := SplashScreen.SplashForm.Color;
|
||||
cbAlpha.Checked := SplashScreen.SplashForm.AlphaBlend;
|
||||
edAlpha.Enabled := cbAlpha.Checked;
|
||||
edAlpha.Text := IntToStr(SplashScreen.SplashForm.AlphaBlendValue);
|
||||
imImage.Picture.Assign(SplashScreen.SplashImage.Picture);
|
||||
if SplashScreen.Animation = ssaNone then
|
||||
begin
|
||||
coAnimation.ItemIndex := 0;
|
||||
end else
|
||||
begin
|
||||
coAnimation.ItemIndex := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfmMain.SplashScreenTimer(Sender: TObject);
|
||||
begin
|
||||
if SplashScreen.SplashProgressBar.Position < SplashScreen.SplashProgressBar.Max then
|
||||
begin
|
||||
SplashScreen.SplashProgressBar.Position := SplashScreen.SplashProgressBar.Position + 10;
|
||||
end else
|
||||
begin
|
||||
SplashScreen.Hide;
|
||||
SplashScreen.SplashTimer.Enabled := False;
|
||||
SplashScreen.ApplyChanges;
|
||||
end;
|
||||
showmessage(inttostr(splashscreen.SplashProgressBar.Position));
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -39,7 +39,6 @@ type
|
||||
FTop: Integer;
|
||||
FWidth: Integer;
|
||||
FHeight: Integer;
|
||||
FVisible: Boolean;
|
||||
FAlign: TAlign;
|
||||
FAlphaBlend: Boolean;
|
||||
FAlphaBlendValue: Byte;
|
||||
@ -61,13 +60,12 @@ type
|
||||
property Top: Integer read FTop write FTop default 0;
|
||||
property Width: Integer read FWidth write FWidth default 600;
|
||||
property Height: Integer read FHeight write FHeight default 400;
|
||||
property Visible: Boolean read FVisible write FVisible default True;
|
||||
property Align: TAlign read FAlign write FAlign default alNone;
|
||||
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend default False;
|
||||
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue default 255;
|
||||
property Caption: TCaption read FCaption write FCaption;
|
||||
property Color: TColor read FColor write FColor default clBtnFace;
|
||||
property Enabled: Boolean read FEnabled write FEnabled default False;
|
||||
property Enabled: Boolean read FEnabled write FEnabled default True;
|
||||
property WindowState: TWindowState read FWindowState write FWindowState default wsNormal;
|
||||
property Position: TPosition read FPosition write FPosition default poScreenCenter;
|
||||
property Cursor: TCursor read FCursor write FCursor default crHourGlass;
|
||||
@ -168,6 +166,7 @@ type
|
||||
FAutoShow: Boolean;
|
||||
FMode: TSplashScreenMode;
|
||||
FAnimation: TSplashScreenAnimation;
|
||||
FAnimationSpeed: Byte;
|
||||
FVisible: Boolean;
|
||||
{ Ereignisse }
|
||||
FCreateEvent: TSplashCreateEvent;
|
||||
@ -211,9 +210,10 @@ type
|
||||
property SplashImage: TSplashImage read FSplashImage write FSplashImage;
|
||||
property SplashTimer: TSplashTimer read FSplashTimer write FSplashTimer;
|
||||
property DisplayTime: Cardinal read FDisplayTime write FDisplayTime default 2000;
|
||||
property AutoShow: Boolean read FAutoShow write FAutoShow default True;
|
||||
property AutoShow: Boolean read FAutoShow write FAutoShow default False;
|
||||
property Mode: TSplashScreenMode read FMode write FMode default ssmDefault;
|
||||
property Animation: TSplashScreenAnimation read FAnimation write FAnimation;
|
||||
property Animation: TSplashScreenAnimation read FAnimation write FAnimation default ssaNone;
|
||||
property AnimationSpeed: Byte read FAnimationSpeed write FAnimationSpeed default 10;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
@ -238,7 +238,7 @@ end;
|
||||
|
||||
constructor TSplashForm.Create;
|
||||
begin
|
||||
Visible := False;
|
||||
//...
|
||||
end;
|
||||
|
||||
destructor TSplashForm.Destroy;
|
||||
@ -299,11 +299,19 @@ end;
|
||||
constructor TSplashScreen.Create(AOwnder: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FDisplayTime := 2000;
|
||||
FAutoShow := False;
|
||||
FMode := ssmDefault;
|
||||
FAnimation := ssaNone;
|
||||
FAnimationSpeed := 10;
|
||||
FVisible := False;
|
||||
|
||||
FAbout := TComponentAbout.Create(SplashComponent_Name,SplashComponent_Version,SplashComponent_Copyright,SplashComponent_Author);
|
||||
FSplashForm := TSplashForm.Create;
|
||||
FSplashProgressBar := TSplashProgressBar.Create;
|
||||
FSplashImage := TSplashImage.Create;
|
||||
FSplashTimer := TSplashTimer.Create;
|
||||
|
||||
FormObject := TForm.Create(Self);
|
||||
FormObject.OnShow := FormObjectShow;
|
||||
FormObject.OnHide := FormObjectHide;
|
||||
@ -313,6 +321,7 @@ begin
|
||||
ImageObject.Parent := FormObject;
|
||||
TimerObject := TTimer.Create(Self);
|
||||
TimerObject.OnTimer := TimerObjectTimer;
|
||||
TimerObject.Enabled := False;
|
||||
|
||||
AnimationTimerShow := TTimer.Create(Self);
|
||||
AnimationTimerShow.OnTimer := AnimationTimerShowTimer;
|
||||
@ -322,13 +331,16 @@ begin
|
||||
AnimationTimerHide.OnTimer := AnimationTimerHideTimer;
|
||||
AnimationTimerHide.Enabled := False;
|
||||
AnimationTimerHide.Interval := 50;
|
||||
|
||||
Reset;
|
||||
|
||||
if Assigned(OnCreate) then
|
||||
begin
|
||||
OnCreate(Self);
|
||||
end;
|
||||
{ Erst NACHDEM fertig erstellt wurde und OnCreate-Event ausgeführt wurde... }
|
||||
if AutoShow = True then
|
||||
begin
|
||||
Show;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TSplashScreen.Destroy;
|
||||
@ -362,22 +374,24 @@ begin
|
||||
begin
|
||||
FormObject.Show;
|
||||
end;
|
||||
if Assigned(OnShow) then
|
||||
begin
|
||||
OnShow(Self);
|
||||
end;
|
||||
if Animation = ssaShallow then
|
||||
begin
|
||||
FormObject.AlphaBlend := True;
|
||||
FormObject.AlphaBlendValue := 0;
|
||||
AnimationTimerHide.Enabled := False;
|
||||
AnimationTimerShow.Enabled := True;
|
||||
end;
|
||||
FVisible := True;
|
||||
FormObject.BringToFront;
|
||||
if Assigned(OnShow) then
|
||||
begin
|
||||
OnShow(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSplashScreen.Hide;
|
||||
begin
|
||||
TimerObject.Enabled := False;
|
||||
if Animation = ssaNone then
|
||||
begin
|
||||
FormObject.Hide;
|
||||
@ -386,6 +400,7 @@ begin
|
||||
if Animation = ssaShallow then
|
||||
begin
|
||||
FormObject.AlphaBlend := True;
|
||||
AnimationTimerShow.Enabled := False;
|
||||
AnimationTimerHide.Enabled := True;
|
||||
end;
|
||||
end;
|
||||
@ -413,7 +428,6 @@ begin
|
||||
FormObject.Top := SplashForm.Top;
|
||||
FormObject.Width := SplashForm.Width;
|
||||
FormObject.Height := SplashForm.Height;
|
||||
FormObject.Visible := SplashForm.Visible;
|
||||
FormObject.Align := SplashForm.Align;
|
||||
FormObject.AlphaBlend := SplashForm.AlphaBlend;
|
||||
FormObject.AlphaBlendValue := SplashForm.AlphaBlendValue;
|
||||
@ -463,12 +477,11 @@ begin
|
||||
SplashForm.Top := 0;
|
||||
SplashForm.Width := 600;
|
||||
SplashForm.Height := 400;
|
||||
SplashForm.Visible := True;
|
||||
SplashForm.Align := alNone;
|
||||
SplashForm.AlphaBlend := False;
|
||||
SplashForm.AlphaBlendValue := 255;
|
||||
SplashForm.Color := clBtnFace;
|
||||
SplashForm.Enabled := False;
|
||||
SplashForm.Enabled := True;
|
||||
SplashForm.WindowState := wsNormal;
|
||||
SplashForm.Position := poScreenCenter;
|
||||
SplashForm.Cursor := crHourGlass;
|
||||
@ -535,14 +548,14 @@ procedure TSplashScreen.AnimationTimerShowTimer(Sender: TObject);
|
||||
begin
|
||||
if Animation = ssaShallow then
|
||||
begin
|
||||
if FormObject.AlphaBlendValue <> SplashForm.AlphaBlendValue then
|
||||
if FormObject.AlphaBlendValue < SplashForm.AlphaBlendValue then
|
||||
begin
|
||||
if SplashForm.AlphaBlendValue - FormObject.AlphaBlendValue < 10 then
|
||||
if SplashForm.AlphaBlendValue - FormObject.AlphaBlendValue < AnimationSpeed then
|
||||
begin
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue + (SplashForm.AlphaBlendValue - FormObject.AlphaBlendValue);
|
||||
end else
|
||||
begin
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue + 10;
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue + AnimationSpeed;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
@ -556,20 +569,21 @@ procedure TSplashScreen.AnimationTimerHideTimer(Sender: TObject);
|
||||
begin
|
||||
if Animation = ssaShallow then
|
||||
begin
|
||||
if FormObject.AlphaBlendValue <> 0 then
|
||||
if FormObject.AlphaBlendValue > 0 then
|
||||
begin
|
||||
if FormObject.AlphaBlendValue < 10 then
|
||||
if FormObject.AlphaBlendValue < AnimationSpeed then
|
||||
begin
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue - FormObject.AlphaBlendValue;
|
||||
end else
|
||||
begin
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue - 10;
|
||||
FormObject.AlphaBlendValue := FormObject.AlphaBlendValue - AnimationSpeed;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
AnimationTimerHide.Enabled := False;
|
||||
FormObject.AlphaBlend := SplashForm.AlphaBlend;
|
||||
FormObject.Hide;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
AnimationTimerHide.Enabled := False;
|
||||
FormObject.AlphaBlend := SplashForm.AlphaBlend;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user