[JVCL-Checkins] CVS: jvcl/examples/ListComb ListCombDemo.dof,NONE,1.1 ListCombDemo.dpr,NONE,1.1 ListCombDemo.res,NONE,1.1 MainFrm.dfm,NONE,1.1 MainFrm.pas,NONE,1.1

[Michael B. <be...@us...>]

Update of /cvsroot/jvcl/jvcl/examples/ListComb
In directory usw-pr-cvs1:/tmp/cvs-serv2623

Added Files:
	ListCombDemo.dof ListCombDemo.dpr ListCombDemo.res MainFrm.dfm 
	MainFrm.pas 
Log Message:
Release 1.30

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

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

uses
  Forms,
  MainFrm in 'MainFrm.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

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

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

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, ImgList, JvListComb, ExtCtrls, JvColorBox, JvColorBtn,
  JvColorCombo, JvComponent, JvCtrls;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    Panel2: TPanel;
    JvListBox1: TJvListBox3;
    Splitter1: TSplitter;
    Panel3: TPanel;
    Button2: TButton;
    JvComboBox1: TJvComboBox3;
    CheckBox1: TCheckBox;
    JvColorComboBox1: TJvColorComboBox;
    JvFontComboBox1: TJvFontComboBox2;
    JvColorButton1: TJvColorButton;
    Button1: TButton;
    procedure TransparentButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure JvColorComboBox1Change(Sender: TObject);
    procedure JvFontComboBox1Change(Sender: TObject);
    procedure JvColorButton1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.TransparentButton1Click(Sender: TObject);
begin
  ShowMessage('Hej Simon!')
end;

procedure TForm1.Button1Click(Sender: TObject);
var S: TStringlist; i: integer;
begin
  with TOpenDialog.Create(nil) do
  try
    Filter := 'Text files|*.txt|All files|*.*';
    if Execute then
    begin
      S := TStringlist.Create;
      try
        S.LoadFromFile(Filename);
        JvComboBox1.Items.Assign(S);
        JvListBox1.Items.Assign(S);
        if JvComboBox1.ImageList <> nil then
          for i := 0 to JvComboBox1.Items.Count - 1 do
          begin
            JvComboBox1.Items[i].ImageIndex := i mod JvComboBox1.ImageList.Count;
            JvListBox1.Items[i].ImageIndex := JvComboBox1.Items[i].ImageIndex;
          end;
        JvComboBox1.ItemIndex := 0;
      finally
        S.Free;
      end;
    end;
  finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  case JvListBox1.TextAlign of
    taLeftJustify: JvListBox1.TextAlign := taRightJustify;
    taRightJustify: JvListBox1.TextAlign := taCenter;
    taCenter: JvListBox1.TextAlign := taLeftJustify;
  end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    JvComboBox1.ImageList := ImageList1;
    JvListBox1.ImageList := ImageList1;
  end
  else
  begin
    JvComboBox1.ImageList := nil;
    JvListBox1.ImageList := nil;
  end;
end;

procedure TForm1.JvColorComboBox1Change(Sender: TObject);
begin
  JvListBox1.Color := JvColorComboBox1.ColorValue;
  JvComboBox1.Color := JvColorComboBox1.ColorValue;
end;

procedure TForm1.JvFontComboBox1Change(Sender: TObject);
begin
  JvListBox1.Font.Name := JvFontComboBox1.FontName;
  JvComboBox1.Font.Name := JvFontComboBox1.FontName;
end;

procedure TForm1.JvColorButton1Change(Sender: TObject);
begin
  JvComboBox1.Font.Color := JvColorButton1.Color;
  JvListBox1.Font.Color := JvColorButton1.Color;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  JvFontComboBox1.FontName := JvComboBox1.Font.Name;
end;

end.