david
78ab77cd4c
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@19 7f62d464-2af8-f54e-996c-e91b33f51cbe
277 lines
8.8 KiB
ObjectPascal
277 lines
8.8 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
The Original Code is: Main.pas, released on 2004-05-19.
|
|
|
|
The Initial Developer of the Original Code is Andreas Hausladen
|
|
(Andreas dott Hausladen att gmx dott de)
|
|
Portions created by Andreas Hausladen are Copyright (C) 2004 Andreas Hausladen.
|
|
All Rights Reserved.
|
|
|
|
Contributor(s): -
|
|
|
|
You may retrieve the latest version of this file at the Project JEDI's JVCL
|
|
home page, located at http://jvcl.delphi-jedi.org
|
|
|
|
Known Issues:
|
|
-----------------------------------------------------------------------------}
|
|
// $Id: Main.pas 12461 2009-08-14 17:21:33Z obones $
|
|
|
|
unit Main;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ComCtrls, Mask, JvExMask, JvToolEdit, ExtCtrls, StrUtils;
|
|
|
|
type
|
|
TFormMain = class(TForm)
|
|
BtnExecute: TButton;
|
|
ProgressBar: TProgressBar;
|
|
LblProgress: TLabel;
|
|
EditOutDir: TJvDirectoryEdit;
|
|
EditSingleFile: TJvFilenameEdit;
|
|
RBtnSingleFile: TRadioButton;
|
|
RBtnDir: TRadioButton;
|
|
BtnQuit: TButton;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
EditJVCLDir: TJvDirectoryEdit;
|
|
Bevel1: TBevel;
|
|
CheckBoxReduceConditions: TCheckBox;
|
|
CheckBoxKeepLines: TCheckBox;
|
|
CheckBoxUnixLineBreaks: TCheckBox;
|
|
CheckBoxForceOverwrite: TCheckBox;
|
|
ListBox1: TListBox;
|
|
RBtnAll: TRadioButton;
|
|
EditDirectory: TJvDirectoryEdit;
|
|
CheckBoxRecursiveDir: TCheckBox;
|
|
CheckBoxUnixPathDelim: TCheckBox;
|
|
procedure BtnExecuteClick(Sender: TObject);
|
|
procedure BtnQuitClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure EditSingleFileButtonClick(Sender: TObject);
|
|
procedure EditDirectoryButtonClick(Sender: TObject);
|
|
procedure EditJVCLDirButtonClick(Sender: TObject);
|
|
private
|
|
{ Private-Deklarationen }
|
|
function GetQName(const Filename: string): string;
|
|
public
|
|
{ Public-Deklarationen }
|
|
procedure DoProgress(Sender: TObject; const Text: string; Position, Max: Integer);
|
|
end;
|
|
|
|
var
|
|
FormMain: TFormMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
JvclVclClxCvt;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure CollectFiles(const Dir: string; Recursive: Boolean; Files: TStrings);
|
|
var
|
|
sr: TSearchRec;
|
|
begin
|
|
if FindFirst(Dir + PathDelim + '*.*', faAnyFile or faDirectory, sr) = 0 then
|
|
try
|
|
repeat
|
|
if sr.Attr and faDirectory <> 0 then
|
|
begin
|
|
if Recursive and (sr.Name <> '.') and (sr.Name <> '..') then
|
|
CollectFiles(Dir + PathDelim + sr.Name, Recursive, Files);
|
|
end
|
|
else
|
|
Files.Add(Dir + PathDelim + sr.Name);
|
|
until FindNext(sr) <> 0;
|
|
finally
|
|
FindClose(sr);
|
|
end;
|
|
end;
|
|
|
|
procedure TFormMain.BtnExecuteClick(Sender: TObject);
|
|
var
|
|
Converter: TConverter;
|
|
JVCLConverter: TJVCLConverter;
|
|
dof, kof: TStrings;
|
|
Dir, FName, RelFilename, InDir, OutDir: string;
|
|
Files: TStringList;
|
|
i: Integer;
|
|
begin
|
|
ListBox1.Items.Clear;
|
|
dof := TStringList.Create;
|
|
kof := TStringList.Create;
|
|
Converter := TConverter.Create(EditJVCLDir.Text);
|
|
try
|
|
BtnExecute.Enabled := False;
|
|
if RBtnSingleFile.Checked or RBtnDir.Checked then
|
|
begin
|
|
JVCLConverter := TJVCLConverter.Create(ExtractFilePath(ParamStr(0)) + 'VclClxData',
|
|
Converter.Model);
|
|
try
|
|
Dir := ExtractFileDir(ParamStr(0)) + PathDelim + 'VclClxData'+ PathDelim;
|
|
if FileExists(Dir + 'qexamples.dof') then
|
|
dof.loadfromfile(Dir + 'qexamples.dof');
|
|
if FileExists(Dir + 'qexamples.kof') then
|
|
kof.loadfromfile(Dir + 'qexamples.kof');
|
|
// JVCLConverter.OnProgress := DoProgress;
|
|
OutDir := EditOutDir.Text;
|
|
JVCLConverter.OutDirectory := OutDir;
|
|
JVCLConverter.ReduceConditions := CheckBoxReduceConditions.Checked;
|
|
JVCLConverter.KeepLines := CheckBoxKeepLines.Checked;
|
|
JVCLConverter.UnixLineBreak := CheckBoxUnixLineBreaks.Checked;
|
|
JVCLConverter.ForceOverwrite := CheckBoxForceOverwrite.Checked;
|
|
JVCLConverter.UnixPathDelim := CheckBoxUnixPathDelim.Checked;
|
|
ForceDirectories(EditOutDir.Text);
|
|
if RBtnDir.Checked then
|
|
begin
|
|
Files := TStringList.Create;
|
|
try
|
|
InDir := EditDirectory.Text;
|
|
CollectFiles(InDir, CheckBoxRecursiveDir.Checked, Files);
|
|
ProgressBar.Position := 0;
|
|
ProgressBar.Max := Files.Count;
|
|
for i := 0 to Files.Count - 1 do
|
|
begin
|
|
ProgressBar.Position := i;
|
|
with JVCLConverter do
|
|
begin
|
|
FName := ExtractFileName(Files[i]);
|
|
RelFilename := ExtractRelativePath(InDir + PathDelim, Files[i]);
|
|
OutDirectory := OutDir + PathDelim + ExtractFileDir(RelFilename);
|
|
if CompareText(ExtractFileExt(FName), '.pas') = 0 then
|
|
begin
|
|
ForceDirectories(OutDirectory);
|
|
Listbox1.Items.Add(RelFilename);
|
|
ParsePasFile(Files[i]);
|
|
end
|
|
else if CompareText(ExtractFileExt(FName), '.dfm') = 0 then
|
|
begin
|
|
if not FileExists(OutDirectory + PathDelim + RelFilename) then
|
|
begin
|
|
ForceDirectories(OutDirectory);
|
|
Listbox1.Items.Add(RelFilename);
|
|
ParseDfmFile(Files[i]);
|
|
end;
|
|
end
|
|
else if CompareText(ExtractFileExt(FName), '.dpr') = 0 then
|
|
begin
|
|
ForceDirectories(OutDirectory);
|
|
Listbox1.Items.Add(RelFilename);
|
|
ParsePasFile(Files[i]);
|
|
dof.SaveToFile(OutDirectory + PathDelim +
|
|
ChangeFileExt(GetQName(FName), '.dof'));
|
|
kof.SaveToFile(OutDirectory + PathDelim +
|
|
ChangeFileExt(GetQName(FName), '.kof'));
|
|
end;
|
|
end;
|
|
end;
|
|
finally
|
|
Files.Free;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
if CompareText(ExtractFileExt(EditSingleFile.Text), '.dfm') = 0 then
|
|
JVCLConverter.ParseDfmFile(EditSingleFile.Text)
|
|
else
|
|
JVCLConverter.ParsePasFile(EditSingleFile.Text);
|
|
end;
|
|
ShowMessage('Finished.');
|
|
finally
|
|
JVCLConverter.Free;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
Converter.OnProgress := DoProgress;
|
|
Converter.Cvt.ReduceConditions := CheckBoxReduceConditions.Checked;
|
|
Converter.Cvt.KeepLines := CheckBoxKeepLines.Checked;
|
|
Converter.Cvt.UnixLineBreak := CheckBoxUnixLineBreaks.Checked;
|
|
Converter.Cvt.ForceOverwrite := CheckBoxForceOverwrite.Checked;
|
|
|
|
Converter.CreateClxFiles;
|
|
end;
|
|
finally
|
|
BtnExecute.Enabled := True;
|
|
Converter.Free;
|
|
dof.Free;
|
|
kof.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TFormMain.DoProgress(Sender: TObject; const Text: string; Position,
|
|
Max: Integer);
|
|
begin
|
|
LblProgress.Caption := Text;
|
|
ProgressBar.Max := Max;
|
|
ProgressBar.Position := Position;
|
|
ListBox1.Items.Add(Text);
|
|
Application.ProcessMessages;
|
|
end;
|
|
|
|
procedure TFormMain.BtnQuitClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TFormMain.FormCreate(Sender: TObject);
|
|
var
|
|
Dir, LastDir: string;
|
|
begin
|
|
LblProgress.Caption := '';
|
|
|
|
Dir := ExtractFileDir(ParamStr(0));
|
|
repeat
|
|
if DirectoryExists(Dir + PathDelim + 'packages' + PathDelim + 'd7clx') then
|
|
Break;
|
|
LastDir := Dir;
|
|
Dir := ExtractFileDir(Dir);
|
|
if Dir = LastDir then
|
|
Dir := '';
|
|
until Dir = '';
|
|
if Dir = '' then
|
|
Dir := ExtractFileDir(ParamStr(0));
|
|
EditJVCLDir.Text := Dir;
|
|
end;
|
|
|
|
function TFormMain.GetQName(const Filename: string): string;
|
|
var
|
|
Fn: string;
|
|
begin
|
|
Result := ExtractFilePath(Filename);
|
|
Fn := ExtractFileName(Filename);
|
|
if AnsiStartsText('Jv', Fn) then
|
|
Insert('Q', Fn, 3)
|
|
else
|
|
Fn := 'Q' + Fn;
|
|
Result := Result + Fn;
|
|
end;
|
|
|
|
|
|
procedure TFormMain.EditSingleFileButtonClick(Sender: TObject);
|
|
begin
|
|
RBtnSingleFile.Checked := True;
|
|
end;
|
|
|
|
procedure TFormMain.EditDirectoryButtonClick(Sender: TObject);
|
|
begin
|
|
RBtnDir.Checked := True;
|
|
end;
|
|
|
|
procedure TFormMain.EditJVCLDirButtonClick(Sender: TObject);
|
|
begin
|
|
RBtnAll.Checked := True;
|
|
end;
|
|
|
|
end. |