You've already forked lazarus-ccr
jvcllaz: Add TJvInstallLabel. Patch by Michal Gawrycki, issue #35604.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6930 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -0,0 +1,95 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<MainUnitHasUsesSectionForAllUnits Value="False"/>
|
||||
<MainUnitHasCreateFormStatements Value="False"/>
|
||||
<MainUnitHasTitleStatement Value="False"/>
|
||||
<MainUnitHasScaledStatement Value="False"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<Title Value="Install2LabelDemo"/>
|
||||
<UseAppBundle Value="False"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
</General>
|
||||
<BuildModes>
|
||||
<Item Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<UseFileFilters Value="True"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="0"/>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="JvCtrlsLazR"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="JvCoreLazR"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item3>
|
||||
</RequiredPackages>
|
||||
<Units>
|
||||
<Unit>
|
||||
<Filename Value="Install2LabelDemo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit>
|
||||
<Unit>
|
||||
<Filename Value="InstallLabelMainFormU.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="InstallLabelMainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\bin\Install2LabelDemo"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
<ObjectPath Value="..\..\run"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<SyntaxMode Value="Delphi"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@ -0,0 +1,15 @@
|
||||
program Install2LabelDemo;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
uses
|
||||
Forms, Interfaces,
|
||||
InstallLabelMainFormU in 'InstallLabelMainFormU.pas' {InstallLabelMainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TInstallLabelMainForm, InstallLabelMainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@ -0,0 +1,174 @@
|
||||
object InstallLabelMainForm: TInstallLabelMainForm
|
||||
Left = 339
|
||||
Height = 237
|
||||
Top = 142
|
||||
Width = 293
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Installation in progress'
|
||||
ClientHeight = 237
|
||||
ClientWidth = 293
|
||||
Color = clBtnFace
|
||||
DefaultMonitor = dmDesktop
|
||||
KeyPreview = True
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '2.1.0.0'
|
||||
Scaled = False
|
||||
object Image1: TImage
|
||||
Left = 8
|
||||
Height = 32
|
||||
Top = 8
|
||||
Width = 32
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
055449636F6EFE0200000000010001002020100001001000E802000016000000
|
||||
2800000020000000400000000100040000000000800200000000000000000000
|
||||
0000000000000000000000000000800000800000008080008000000080008000
|
||||
80800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00
|
||||
FFFF0000FFFFFF00000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000BBBBBB000000000000000000000000BBB0000B
|
||||
BB000000000000000000000BB00000000BBB0000000000000000000BB0000000
|
||||
0BBB000000000000000000BBBB0000000BBBB00000000000000000BBBB000000
|
||||
00BBBB0000000000000000BBBBB0000000BBBB0000000000000000BBBBB00000
|
||||
00BBBB0000000000000000BBBBB0000000BBBB00000000000000000BBB000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
|
||||
00BBBB00000000000000000000000000BBBBBBB00000000000000000000000BB
|
||||
BBBBBBBBBB000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000FFFFFFFFFFFFFFFFFFC0FFFFFF1E3FFFFE7F8FFFFE7F8FFF
|
||||
FC3F87FFFC3FC3FFFC1FC3FFFC1FC3FFFC1FC3FFFE3FC3FFFFFFC3FFFFFFC3FF
|
||||
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FF
|
||||
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFF01FFFFFC003F
|
||||
FFFFFFFFFFFFFFFF
|
||||
}
|
||||
Transparent = True
|
||||
end
|
||||
object Next: TButton
|
||||
Left = 121
|
||||
Height = 25
|
||||
Top = 204
|
||||
Width = 75
|
||||
Caption = '&Next >>'
|
||||
Default = True
|
||||
OnClick = NextClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 201
|
||||
Height = 25
|
||||
Top = 204
|
||||
Width = 75
|
||||
Caption = 'Close'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 1
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 8
|
||||
Height = 146
|
||||
Top = 48
|
||||
Width = 276
|
||||
BevelOuter = bvLowered
|
||||
ClientHeight = 146
|
||||
ClientWidth = 276
|
||||
TabOrder = 2
|
||||
object InstallLabel1: TJvInstallLabel
|
||||
Left = 1
|
||||
Height = 144
|
||||
Top = 1
|
||||
Width = 274
|
||||
Align = alClient
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -13
|
||||
Images = ImageList1
|
||||
Lines.Strings = (
|
||||
'Install JCL'
|
||||
'Generate JVCL resources'
|
||||
'Generate JVCL DCR files'
|
||||
'Compile JVCL packages'
|
||||
'Install JVCL into Delphi IDE'
|
||||
)
|
||||
ParentFont = False
|
||||
TextOffset = 40
|
||||
ImageOffset = 8
|
||||
end
|
||||
end
|
||||
object ImageList1: TImageList
|
||||
left = 48
|
||||
top = 8
|
||||
Bitmap = {
|
||||
4C69020000001000000010000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF000000FF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF000000FF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000FF000000FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000008484FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000008400FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000084
|
||||
00FF008484FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000008484FF0084
|
||||
00FF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000008484FF008400FF0084
|
||||
84FF000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000008400FF008400FF008400FF0000
|
||||
0000000000000000000000000000008484FF008400FF008400FF000000000000
|
||||
0000000000000000000000000000008400FF008400FF008400FF000000000000
|
||||
000000000000000000000000000000000000008400FF008400FF008400FF0000
|
||||
00000000000000000000008400FF008400FF008400FF008484FF000000000000
|
||||
000000000000000000000000000000000000008484FF008400FF008400FF0084
|
||||
00FF00000000008400FF008400FF008400FF008400FF00000000000000000000
|
||||
00000000000000000000000000000000000000000000008400FF008400FF0084
|
||||
00FF008400FF008400FF008400FF008400FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000008400FF0084
|
||||
00FF008400FF008400FF008400FF008484FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000008484FF0084
|
||||
00FF008400FF008400FF008484FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000084
|
||||
00FF008400FF008400FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000008400FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000
|
||||
}
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,89 @@
|
||||
{******************************************************************
|
||||
|
||||
JEDI-VCL Demo
|
||||
|
||||
Copyright (C) 2002 Project JEDI
|
||||
|
||||
Original author:
|
||||
|
||||
Contributor(s):
|
||||
|
||||
You may retrieve the latest version of this file at the JEDI-JVCL
|
||||
home page, located at http://jvcl.delphi-jedi.org
|
||||
|
||||
The contents of this file are used with permission, subject to
|
||||
the Mozilla Public License Version 1.1 (the "License"); you may
|
||||
not use this file except in compliance with the License. You may
|
||||
obtain a copy of the License at
|
||||
http://www.mozilla.org/MPL/MPL-1_1Final.html
|
||||
|
||||
Software distributed under the License is distributed on an
|
||||
"AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
implied. See the License for the specific language governing
|
||||
rights and limitations under the License.
|
||||
|
||||
******************************************************************}
|
||||
|
||||
unit InstallLabelMainFormU;
|
||||
|
||||
{$MODE Delphi}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ExtCtrls, ImgList, JvInstallLabel;
|
||||
|
||||
type
|
||||
TInstallLabelMainForm = class(TForm)
|
||||
ImageList1: TImageList;
|
||||
Next: TButton;
|
||||
Button1: TButton;
|
||||
Image1: TImage;
|
||||
Panel1: TPanel;
|
||||
InstallLabel1: TJvInstallLabel;
|
||||
procedure NextClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
private
|
||||
FIndex: Integer;
|
||||
end;
|
||||
|
||||
var
|
||||
InstallLabelMainForm: TInstallLabelMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
procedure TInstallLabelMainForm.NextClick(Sender: TObject);
|
||||
begin
|
||||
Next.Caption := '&Next >>';
|
||||
if FIndex = 0 then { first line, so clear all others }
|
||||
InstallLabel1.SetExclusive(FIndex, 0, [fsBold])
|
||||
else
|
||||
begin
|
||||
InstallLabel1.SetStyle(FIndex, 0, [fsBold]); { current line is an arrow }
|
||||
InstallLabel1.SetStyle(FIndex - 1, 1, []); { prev line is a check mark }
|
||||
|
||||
if FIndex = InstallLabel1.Lines.Count - 1 then { this is the last line }
|
||||
begin
|
||||
FIndex := -1; { incremented below...}
|
||||
Next.Caption := '&Again...';
|
||||
end;
|
||||
end;
|
||||
|
||||
Inc(FIndex);
|
||||
end;
|
||||
|
||||
procedure TInstallLabelMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TInstallLabelMainForm.Button1Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user