47 lines
916 B
Plaintext
47 lines
916 B
Plaintext
unit MergeDialog;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ComCtrls;
|
|
|
|
type
|
|
TfrmMergeDialog = class(TForm)
|
|
GroupBox1: TGroupBox;
|
|
ListBox1: TListBox;
|
|
GroupBox2: TGroupBox;
|
|
TrackBar1: TTrackBar;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
procedure TrackBar1Change(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Main;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmMergeDialog.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
GroupBox2.caption := ' Merge ' + inttostr(100 - TrackBar1.position) + '%';
|
|
end;
|
|
|
|
procedure TfrmMergeDialog.FormActivate(Sender: TObject);
|
|
var
|
|
q: integer;
|
|
begin
|
|
ListBox1.Clear;
|
|
for q := 0 to MainForm.MDIChildCount - 1 do
|
|
ListBox1.Items.Add(extractfilename(MainForm.MDIChildren[q].Caption));
|
|
end;
|
|
|
|
end.
|