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.)
|