[JVCL-Checkins] CVS: dev/JVCL3/examples/JvWindowsTitle JvWindowsTitleMainFomU.dfm,NONE,1.1 JvWindowsTitleMainFomU.pas,NONE,1.1 JvWindowsTitleProj.dof,NONE,1.1 JvWindowsTitleProj.dpr,NONE,1.1 JvWindowsTitleProj.res,NONE,1.1

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

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

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

--- NEW FILE: JvWindowsTitleMainFomU.dfm ---
object JvWindowsTitleMainForm: TJvWindowsTitleMainForm
  Left = 336
  Top = 211
  BorderStyle = bsDialog
  Caption = 'Lister Demo'
  ClientHeight = 283
  ClientWidth = 368
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 124
    Top = 16
    Width = 75
    Height = 25
    Caption = '&Refresh'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 12
    Top = 50
    Width = 341
    Height = 227
    ItemHeight = 13
    TabOrder = 1
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TJvWindowsTitleMainForm = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  end;

var
  JvWindowsTitleMainForm: TJvWindowsTitleMainForm;

implementation
uses
  JvFunctions;

{$R *.DFM}

procedure TJvWindowsTitleMainForm.Button1Click(Sender: TObject);
var
  S : TStringlist;
  i : integer;
begin
  S := TStringlist.Create;
  ListBox1.Items.BeginUpdate;
  try
    ListBox1.Items.Clear;
    GetVisibleWindows(S);
    for i := 0 to S.Count - 1 do
      ListBox1.Items.Add(Format('%s (%d)',[S[i],integer(S.Objects[i])]));
  finally
    ListBox1.Items.EndUpdate;
    S.Free;
  end;
end;

end.

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

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

uses
  Forms,
  JvWindowsTitleMainFomU in 'JvWindowsTitleMainFomU.pas' {JvWindowsTitleMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvWindowsTitleMainForm, JvWindowsTitleMainForm);
  Application.CreateForm(TJvWindowsTitleMainForm, JvWindowsTitleMainForm);
  Application.Run;
end.

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