[JVCL-Checkins] CVS: dev/JVCL3/examples/JvInstallLabel Install2LabelDemo.dof,NONE,1.1 Install2LabelDemo.dpr,NONE,1.1 Install2LabelDemo.res,NONE,1.1 InstallLabelMainFormU.dfm,NONE,1.1 InstallLabelMainFormU.pas,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvInstallLabel
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvInstallLabel

Added Files:
	Install2LabelDemo.dof Install2LabelDemo.dpr 
	Install2LabelDemo.res InstallLabelMainFormU.dfm 
	InstallLabelMainFormU.pas 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: Install2LabelDemo.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common

--- NEW FILE: Install2LabelDemo.dpr ---
program Install2LabelDemo;

uses
  Forms,
  InstallLabelMainFormU in 'InstallLabelMainFormU.pas' {InstallLabelMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TInstallLabelMainForm, InstallLabelMainForm);
  Application.CreateForm(TInstallLabelMainForm, InstallLabelMainForm);
  Application.Run;
end.

--- NEW FILE: Install2LabelDemo.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: InstallLabelMainFormU.dfm ---
object InstallLabelMainForm: TInstallLabelMainForm
  Left = 339
  Top = 142
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Installation in progress'
  ClientHeight = 237
  ClientWidth = 293
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 8
    Top = 8
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {
      07544269746D617076020000424D760200000000000076000000280000002000
      0000200000000100040000000000000200000000000000000000100000001000
      0000000000000000BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00DD0000000DDDDDDD0000000000DDDDDDDD87777780DDDDDDD87778F7880D
      DDDDDD8FFFFF880DDDDDDD8777887780DDDDDD8FFFFF8780DDDDDDD8FBFBFBFB
      0DDDDD8FFFFF87780DDDDDDD8888888880DDDD8FFFFF877780DDDDDDDDDDDDDD
      DDDDDD8FFFFF877780DDDDDDDDDDDDDDDDDDDD8FFFFF87778000000000000000
      DDDDDD4CCCCC47778080BFBFBFB888880DDDDD4CCCCC44778088088888808888
      80DDDD4CCCCC444780887087F7880878880DDD4CCCCC44448088000000000078
      8880DD4CCCCC044440887777777777788880DD8FFFFF00444077FFFFFFFFFFF8
      8880D88FFFFF0704408888888888888788808878888877F04000000000000088
      7880878777887FFF008877777777780887808F78777088888077FFFFFFFF7880
      888DD8F78708FFFF70088888888F7880DDDDDD8F70D8FFFF704CCCCCCC8F7880
      DDDDDDD8F0DD88888CCCCCCCCC8F7880DDDDDDDD80DD8F80CCCCCCCCCC8F7880
      DDDDDDDDDDDD8F80CCCCCCCCCC8F7880DDDDDDDDDDDD8F80CECCCCCCCC8F7880
      DDDDDDDDDDDD8F80CECCCCCCCC8F7880DDDDDDDDDDDD8F80CCCCCCCCCC8F7880
      DDDDDDDDDDDD8F8000000000008F7880DDDDDDDDDDDD8F8888888888888F7880
      DDDDDDDDDDDD8F777777777777777880DDDDDDDDDDDDD8FFFFFFFFFFFFFFF880
      DDDDDDDDDDDDDD877777777777777F80DDDDDDDDDDDDDDD8888888888888888D
      DDDD}
    Transparent = True
  end
  object Next: TButton
    Left = 121
    Top = 204
    Width = 75
    Height = 25
    Caption = '&Next >>'
    Default = True
    TabOrder = 0
    OnClick = NextClick
  end
  object Button1: TButton
    Left = 201
    Top = 204
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 8
    Top = 48
    Width = 276
    Height = 146
    BevelOuter = bvLowered
    TabOrder = 2
    object InstallLabel1: TJvInstallLabel
      Left = 1
      Top = 1
      Width = 274
      Height = 144
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageList = ImageList1
      Lines.Strings = (
        'Internet Explorer 4.0'
        'Communication Components'
        'Multimedia Components'
        'Web Authoring Components'
        'Additional ActiveX Controls')
      ParentFont = False
      TextOffset = 40
      ImageOffset = 8
    end
  end
  object ImageList1: TImageList
    Left = 48
    Top = 8
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000020000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000200020002
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000042000200020002
      0042000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000002000200020002
      0002004200000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000020002000200020002
      0002000200000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000004200020002000200000002
      0002000200020000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000200020002000000000000
      0002000200020042000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000042000200020000000000000000
      0000000200020002000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000020002000200000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000042000200420000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000004200020000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000020042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000002000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000004200000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFF00000000FFFFFBFF00000000
      FFFFF1FF00000000FE7FE0FF00000000FE3FE07F00000000FE1FC07F00000000
      FE0F843F00000000FE078E1F00000000FE071F1F00000000FE0FFF8F00000000
      FE1FFFC700000000FE3FFFE700000000FE7FFFF300000000FFFFFFFB00000000
      FFFFFFFD00000000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
end

--- NEW FILE: InstallLabelMainFormU.pas ---
unit InstallLabelMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ImgList, JvInstallLabel, JvComponent;

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
    { Private declarations }
    FIndex:integer;
  end;

var
  InstallLabelMainForm: TInstallLabelMainForm;

implementation

{$R *.DFM}

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.