[JVCL-Checkins] CVS: dev/JVCL3/examples/JvSpecialProgress JvSpecialProgressMainFormU.dfm,NONE,1.1 JvSpecialProgressMainFormU.pas,NONE,1.1 SpecialProgressTestPrj.dof,NONE,1.1 SpecialProgressTestPrj.dpr,NONE,1.1 SpecialProgressTestPrj.res,NONE,1.1

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

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

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

--- NEW FILE: JvSpecialProgressMainFormU.dfm ---
object JvSpecialProgressMainForm: TJvSpecialProgressMainForm
  Left = 247
  Top = 109
  Width = 770
  Height = 575
  Caption = 'JvSpecialProgressMainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 762
    Height = 247
    Align = alClient
    Color = clOlive
    Constraints.MinHeight = 183
    FullRepaint = False
    TabOrder = 0
    object JvSpecialProgress1: TJvSpecialProgress
      Left = 8
      Top = 56
      Width = 744
      Height = 55
      Hint = 'TJvSpecialProgress'
      Anchors = [akLeft, akTop, akRight, akBottom]
      Color = clYellow
      EndColor = clWhite
      HintColor = clYellow
      ParentColor = False
      ShowHint = True
      StartColor = clBlack
      Step = 0
    end
    object Gauge1: TGauge
      Left = 8
      Top = 8
      Width = 744
      Height = 41
      Hint = 'TGauge'
      Anchors = [akLeft, akTop, akRight]
      ParentShowHint = False
      Progress = 0
      ShowHint = True
    end
    object TrackBar1: TTrackBar
      Left = 8
      Top = 184
      Width = 744
      Height = 45
      Anchors = [akLeft, akRight, akBottom]
      Max = 100
      Frequency = 100
      TabOrder = 0
      OnChange = TrackBar1Change
    end
    object ProgressBar1: TProgressBar
      Left = 8
      Top = 126
      Width = 744
      Height = 41
      Hint = 'TProgressBar'
      Anchors = [akLeft, akRight, akBottom]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 247
    Width = 762
    Height = 303
    Align = alBottom
    Caption = 'Panel2'
    TabOrder = 1
    object rgrStartColor: TRadioGroup
      Left = 8
      Top = 8
      Width = 137
      Height = 209
      Caption = 'Start Color: '
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'clBlack'
        'clMaroon'
        'clGreen'
        'clOlive'
        'clNavy'
        'clPurple'
        'clTeal'
        'clGray'
        'clSilver'
        'clRed'
        'clLime'
        'clYellow'
        'clBlue'
        'clFuchsia'
        'clAqua'
        'clWhite')
      TabOrder = 0
      OnClick = rgrStartColorClick
    end
    object rgrEndColor: TRadioGroup
      Left = 152
      Top = 8
      Width = 137
      Height = 209
      Caption = ' End Color: '
      Columns = 2
      ItemIndex = 15
      Items.Strings = (
        'clBlack'
        'clMaroon'
        'clGreen'
        'clOlive'
        'clNavy'
        'clPurple'
        'clTeal'
        'clGray'
        'clSilver'
        'clRed'
        'clLime'
        'clYellow'
        'clBlue'
        'clFuchsia'
        'clAqua'
        'clWhite')
      TabOrder = 1
      OnClick = rgrEndColorClick
    end
    object rgrBackground: TRadioGroup
      Left = 296
      Top = 8
      Width = 137
      Height = 209
      Caption = ' Background Color: '
      Columns = 2
      ItemIndex = 11
      Items.Strings = (
        'clBlack'
        'clMaroon'
        'clGreen'
        'clOlive'
        'clNavy'
        'clPurple'
        'clTeal'
        'clGray'
        'clSilver'
        'clRed'
        'clLime'
        'clYellow'
        'clBlue'
        'clFuchsia'
        'clAqua'
        'clWhite')
      TabOrder = 2
      OnClick = rgrBackgroundClick
    end
    object rgrPanel: TRadioGroup
      Left = 440
      Top = 8
      Width = 137
      Height = 209
      Caption = ' Panel Color: '
      Color = clBtnFace
      Columns = 2
      ItemIndex = 3
      Items.Strings = (
        'clBlack'
        'clMaroon'
        'clGreen'
        'clOlive'
        'clNavy'
        'clPurple'
        'clTeal'
        'clGray'
        'clSilver'
        'clRed'
        'clLime'
        'clYellow'
        'clBlue'
        'clFuchsia'
        'clAqua'
        'clWhite')
      ParentColor = False
      TabOrder = 3
      OnClick = rgrPanelClick
    end
    object chbSolid: TCheckBox
      Left = 584
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Solid'
      TabOrder = 4
      OnClick = chbSolidClick
    end
    object chbTextVisible: TCheckBox
      Left = 584
      Top = 56
      Width = 97
      Height = 17
      Caption = 'Text Visible'
      TabOrder = 5
      OnClick = chbTextVisibleClick
    end
    object chbTextCentered: TCheckBox
      Left = 584
      Top = 40
      Width = 97
      Height = 17
      Caption = 'Text Centered'
      TabOrder = 6
      OnClick = chbTextCenteredClick
    end
    object chbTransparent: TCheckBox
      Left = 584
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Transparent'
      TabOrder = 7
    end
    object chbGradientBlocks: TCheckBox
      Left = 584
      Top = 8
      Width = 97
      Height = 17
      Caption = 'Gradient Blocks'
      TabOrder = 8
      OnClick = chbGradientBlocksClick
    end
    object rgrFont: TRadioGroup
      Left = 8
      Top = 224
      Width = 425
      Height = 73
      Caption = ' Font: '
      Columns = 4
      Items.Strings = (
        'Font 1'
        'Font 2'
        'Font 3'
        'Font 4'
        'Font 5'
        'Font 6'
        'Font 7'
        'Font 8')
      TabOrder = 9
      OnClick = rgrFontClick
    end
    object Panel3: TPanel
      Left = 584
      Top = 136
      Width = 169
      Height = 161
      TabOrder = 10
      object lblMinimum: TLabel
        Left = 8
        Top = 8
        Width = 44
        Height = 13
        Caption = 'Minimum:'
      end
      object lblMaximum: TLabel
        Left = 8
        Top = 60
        Width = 47
        Height = 13
        Caption = 'Maximum:'
      end
      object lblStep: TLabel
        Left = 8
        Top = 108
        Width = 25
        Height = 13
        Caption = 'Step:'
      end
      object edtMinimum: TEdit
        Left = 8
        Top = 28
        Width = 65
        Height = 21
        TabOrder = 0
        Text = '0'
      end
      object edtMaximum: TEdit
        Left = 8
        Top = 76
        Width = 65
        Height = 21
        TabOrder = 1
        Text = '100'
      end
      object edtStep: TEdit
        Left = 8
        Top = 124
        Width = 65
        Height = 21
        TabOrder = 2
        Text = '10'
      end
      object btnApply: TButton
        Left = 86
        Top = 76
        Width = 75
        Height = 25
        Caption = 'Apply'
        TabOrder = 3
        OnClick = btnApplyClick
      end
      object btnStepIt: TButton
        Left = 86
        Top = 124
        Width = 75
        Height = 25
        Caption = 'StepIt'
        TabOrder = 4
        OnClick = btnStepItClick
      end
    end
    object chbPanelDoubleBuffered: TCheckBox
      Left = 584
      Top = 104
      Width = 153
      Height = 17
      Caption = 'Panel Double Buffered'
      TabOrder = 11
      OnClick = chbPanelDoubleBufferedClick
    end
  end
end

--- NEW FILE: JvSpecialProgressMainFormU.pas ---
{$I JVCL.INC}

unit JvSpecialProgressMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges, JvSpecialProgress, ComCtrls, ExtCtrls, StdCtrls, JvPanel,
  JvSpacer;

type
  TJvSpecialProgressMainForm = class(TForm)
    Panel1: TPanel;
    TrackBar1: TTrackBar;
    JvSpecialProgress1: TJvSpecialProgress;
    Gauge1: TGauge;
    ProgressBar1: TProgressBar;
    Panel2: TPanel;
    rgrStartColor: TRadioGroup;
    rgrEndColor: TRadioGroup;
    rgrBackground: TRadioGroup;
    rgrPanel: TRadioGroup;
    chbSolid: TCheckBox;
    chbTextVisible: TCheckBox;
    chbTextCentered: TCheckBox;
    chbTransparent: TCheckBox;
    chbGradientBlocks: TCheckBox;
    rgrFont: TRadioGroup;
    Panel3: TPanel;
    lblMinimum: TLabel;
    edtMinimum: TEdit;
    lblMaximum: TLabel;
    edtMaximum: TEdit;
    lblStep: TLabel;
    edtStep: TEdit;
    btnApply: TButton;
    btnStepIt: TButton;
    chbPanelDoubleBuffered: TCheckBox;
    procedure TrackBar1Change(Sender: TObject);
    procedure chbTextVisibleClick(Sender: TObject);
    procedure chbSolidClick(Sender: TObject);
    procedure rgrStartColorClick(Sender: TObject);
    procedure rgrEndColorClick(Sender: TObject);
    procedure chbTextCenteredClick(Sender: TObject);
    procedure chbGradientBlocksClick(Sender: TObject);
    procedure btnApplyClick(Sender: TObject);
    procedure rgrBackgroundClick(Sender: TObject);
    procedure rgrPanelClick(Sender: TObject);
    procedure rgrFontClick(Sender: TObject);
    procedure btnStepItClick(Sender: TObject);
    procedure chbPanelDoubleBufferedClick(Sender: TObject);
  end;

var
  JvSpecialProgressMainForm: TJvSpecialProgressMainForm;

implementation

{$R *.dfm}

procedure TJvSpecialProgressMainForm.TrackBar1Change(Sender: TObject);
begin
  JvSpecialProgress1.Position := TrackBar1.Position;
  Gauge1.Progress := TrackBar1.Position;
  ProgressBar1.Position := TrackBar1.Position;
end;

procedure TJvSpecialProgressMainForm.chbTextVisibleClick(Sender: TObject);
begin
  if chbTextVisible.Checked then
    JvSpecialProgress1.TextOption := toCaption
  else
    JvSpecialProgress1.TextOption := toNoText
end;

procedure TJvSpecialProgressMainForm.chbSolidClick(Sender: TObject);
begin
  JvSpecialProgress1.Solid := chbSolid.Checked;
end;

procedure TJvSpecialProgressMainForm.rgrStartColorClick(Sender: TObject);
begin
  JvSpecialProgress1.StartColor :=
    StringToColor(rgrStartColor.Items[rgrStartColor.ItemIndex]);
end;

procedure TJvSpecialProgressMainForm.rgrEndColorClick(Sender: TObject);
begin
  JvSpecialProgress1.EndColor :=
    StringToColor(rgrEndColor.Items[rgrEndColor.ItemIndex]);
end;

procedure TJvSpecialProgressMainForm.chbTextCenteredClick(Sender: TObject);
begin
  JvSpecialProgress1.TextCentered := chbTextCentered.Checked;
end;

procedure TJvSpecialProgressMainForm.chbGradientBlocksClick(Sender: TObject);
begin
  JvSpecialProgress1.GradientBlocks := chbGradientBlocks.Checked;
end;

procedure TJvSpecialProgressMainForm.btnApplyClick(Sender: TObject);
begin
  JvSpecialProgress1.Minimum := StrToIntDef(edtMinimum.Text, 0);
  JvSpecialProgress1.Maximum := StrToIntDef(edtMaximum.Text, 100);
  JvSpecialProgress1.Step := StrToIntDef(edtStep.Text, 10);
  edtMinimum.Text := IntToStr(JvSpecialProgress1.Minimum);
  edtMaximum.Text := IntToStr(JvSpecialProgress1.Maximum);
  edtStep.Text := IntToStr(JvSpecialProgress1.Step);
end;

procedure TJvSpecialProgressMainForm.rgrBackgroundClick(Sender: TObject);
begin
  JvSpecialProgress1.Color :=
    StringToColor(rgrBackground.Items[rgrBackground.ItemIndex]);
end;

procedure TJvSpecialProgressMainForm.rgrPanelClick(Sender: TObject);
begin
  Panel1.Color :=
    StringToColor(rgrPanel.Items[rgrPanel.ItemIndex]);
end;

procedure TJvSpecialProgressMainForm.rgrFontClick(Sender: TObject);
var
  TmpFont: TFont;
begin
  TmpFont := TFont.Create;
  try
    TmpFont.Assign(Font);
    with TmpFont do
      case rgrFont.ItemIndex of
        1:
          begin
            Color := clRed;
          end;
        2:
          begin
            Name := 'Tahoma';
            Size := 20;
          end;
        3:
          begin
            Style := [fsBold];
            Color := clGreen;
            Size := 12;
          end;
        4:
          begin
            Style := [fsItalic];
            Color := clYellow;
            Size := 16;
          end;
        5:
          begin
            Style := [fsUnderLine];
            Color := clWhite;
          end;
        6:
          begin
            Style := [fsStrikeOut];
            Size := 25;
          end;
        7:
          begin
            Name := 'Roman';
            Size := 20;
            Style := [fsBold, fsItalic];
            Color := clWhite;
          end;
      else
        begin
          JvSpecialProgress1.Font.Assign(Font);
          Exit;
        end;
      end;
    JvSpecialProgress1.Font.Assign(TmpFont);
  finally
    TmpFont.Free;
  end;
end;

procedure TJvSpecialProgressMainForm.btnStepItClick(Sender: TObject);
begin
  JvSpecialProgress1.StepIt;
  TrackBar1.Position := JvSpecialProgress1.Position;
end;

procedure TJvSpecialProgressMainForm.chbPanelDoubleBufferedClick(Sender: TObject);
begin
  Panel2.DoubleBuffered := chbPanelDoubleBuffered.Checked;
end;

end.


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

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

uses
  Forms,
  JvSpecialProgressMainFormU in 'JvSpecialProgressMainFormU.pas' {JvSpecialProgressMainForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TJvSpecialProgressMainForm, JvSpecialProgressMainForm);
  Application.CreateForm(TJvSpecialProgressMainForm, JvSpecialProgressMainForm);
  Application.Run;
end.

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