afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
421 lines
16 KiB
ObjectPascal
421 lines
16 KiB
ObjectPascal
unit IFSIR_Dialogs.pas;
|
|
{
|
|
This file has been generated by UnitParser v0.5, written by M. Knight
|
|
and updated by NP. v/d Spek.
|
|
Source Code from Carlo Kok has been used to implement various sections of
|
|
UnitParser. Components of ifps3 are used in the construction of UnitParser,
|
|
code implementing the class wrapper is taken from Carlo Kok''s conv unility
|
|
|
|
}
|
|
{$I ifps3_def.inc}
|
|
interface
|
|
Uses ifps3;
|
|
|
|
procedure RIRegister_Dialogs_Routines(S: TIFPSExec);
|
|
procedure RIRegister_TReplaceDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TFindDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TPrintDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TPrinterSetupDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TFontDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TColorDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TSaveDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TOpenDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_TCommonDialog(CL: TIFPSRuntimeClassImporter);
|
|
procedure RIRegister_Dialogs(CL: TIFPSRuntimeClassImporter);
|
|
|
|
implementation
|
|
Uses Windows, Messages, SysUtils, CommDlg, Classes, Graphics, Controls, Forms, StdCtrls, Dialogs
|
|
;
|
|
procedure TFindDialogOnFind_W(Self: TFindDialog; const T: TNotifyEvent);
|
|
begin Self.OnFind := T; end;
|
|
|
|
procedure TFindDialogOnFind_R(Self: TFindDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnFind; end;
|
|
|
|
procedure TFindDialogOptions_W(Self: TFindDialog; const T: TFindOptions);
|
|
begin Self.Options := T; end;
|
|
|
|
procedure TFindDialogOptions_R(Self: TFindDialog; var T: TFindOptions);
|
|
begin T := Self.Options; end;
|
|
|
|
procedure TFindDialogFindText_W(Self: TFindDialog; const T: string);
|
|
begin Self.FindText := T; end;
|
|
|
|
procedure TFindDialogFindText_R(Self: TFindDialog; var T: string);
|
|
begin T := Self.FindText; end;
|
|
|
|
procedure TFindDialogTop_W(Self: TFindDialog; const T: Integer);
|
|
begin Self.Top := T; end;
|
|
|
|
procedure TFindDialogTop_R(Self: TFindDialog; var T: Integer);
|
|
begin T := Self.Top; end;
|
|
|
|
procedure TFindDialogPosition_W(Self: TFindDialog; const T: TPoint);
|
|
begin Self.Position := T; end;
|
|
|
|
procedure TFindDialogPosition_R(Self: TFindDialog; var T: TPoint);
|
|
begin T := Self.Position; end;
|
|
|
|
procedure TFindDialogLeft_W(Self: TFindDialog; const T: Integer);
|
|
begin Self.Left := T; end;
|
|
|
|
procedure TFindDialogLeft_R(Self: TFindDialog; var T: Integer);
|
|
begin T := Self.Left; end;
|
|
|
|
procedure TPrintDialogToPage_W(Self: TPrintDialog; const T: Integer);
|
|
begin Self.ToPage := T; end;
|
|
|
|
procedure TPrintDialogToPage_R(Self: TPrintDialog; var T: Integer);
|
|
begin T := Self.ToPage; end;
|
|
|
|
procedure TPrintDialogPrintRange_W(Self: TPrintDialog; const T: TPrintRange);
|
|
begin Self.PrintRange := T; end;
|
|
|
|
procedure TPrintDialogPrintRange_R(Self: TPrintDialog; var T: TPrintRange);
|
|
begin T := Self.PrintRange; end;
|
|
|
|
procedure TPrintDialogPrintToFile_W(Self: TPrintDialog; const T: Boolean);
|
|
begin Self.PrintToFile := T; end;
|
|
|
|
procedure TPrintDialogPrintToFile_R(Self: TPrintDialog; var T: Boolean);
|
|
begin T := Self.PrintToFile; end;
|
|
|
|
procedure TPrintDialogOptions_W(Self: TPrintDialog; const T: TPrintDialogOptions);
|
|
begin Self.Options := T; end;
|
|
|
|
procedure TPrintDialogOptions_R(Self: TPrintDialog; var T: TPrintDialogOptions);
|
|
begin T := Self.Options; end;
|
|
|
|
procedure TPrintDialogMaxPage_W(Self: TPrintDialog; const T: Integer);
|
|
begin Self.MaxPage := T; end;
|
|
|
|
procedure TPrintDialogMaxPage_R(Self: TPrintDialog; var T: Integer);
|
|
begin T := Self.MaxPage; end;
|
|
|
|
procedure TPrintDialogMinPage_W(Self: TPrintDialog; const T: Integer);
|
|
begin Self.MinPage := T; end;
|
|
|
|
procedure TPrintDialogMinPage_R(Self: TPrintDialog; var T: Integer);
|
|
begin T := Self.MinPage; end;
|
|
|
|
procedure TPrintDialogFromPage_W(Self: TPrintDialog; const T: Integer);
|
|
begin Self.FromPage := T; end;
|
|
|
|
procedure TPrintDialogFromPage_R(Self: TPrintDialog; var T: Integer);
|
|
begin T := Self.FromPage; end;
|
|
|
|
procedure TPrintDialogCopies_W(Self: TPrintDialog; const T: Integer);
|
|
begin Self.Copies := T; end;
|
|
|
|
procedure TPrintDialogCopies_R(Self: TPrintDialog; var T: Integer);
|
|
begin T := Self.Copies; end;
|
|
|
|
procedure TPrintDialogCollate_W(Self: TPrintDialog; const T: Boolean);
|
|
begin Self.Collate := T; end;
|
|
|
|
procedure TPrintDialogCollate_R(Self: TPrintDialog; var T: Boolean);
|
|
begin T := Self.Collate; end;
|
|
|
|
procedure TFontDialogOnApply_W(Self: TFontDialog; const T: TFDApplyEvent);
|
|
begin Self.OnApply := T; end;
|
|
|
|
procedure TFontDialogOnApply_R(Self: TFontDialog; var T: TFDApplyEvent);
|
|
begin T := Self.OnApply; end;
|
|
|
|
procedure TFontDialogOptions_W(Self: TFontDialog; const T: TFontDialogOptions);
|
|
begin Self.Options := T; end;
|
|
|
|
procedure TFontDialogOptions_R(Self: TFontDialog; var T: TFontDialogOptions);
|
|
begin T := Self.Options; end;
|
|
|
|
procedure TFontDialogMaxFontSize_W(Self: TFontDialog; const T: Integer);
|
|
begin Self.MaxFontSize := T; end;
|
|
|
|
procedure TFontDialogMaxFontSize_R(Self: TFontDialog; var T: Integer);
|
|
begin T := Self.MaxFontSize; end;
|
|
|
|
procedure TFontDialogMinFontSize_W(Self: TFontDialog; const T: Integer);
|
|
begin Self.MinFontSize := T; end;
|
|
|
|
procedure TFontDialogMinFontSize_R(Self: TFontDialog; var T: Integer);
|
|
begin T := Self.MinFontSize; end;
|
|
|
|
procedure TFontDialogDevice_W(Self: TFontDialog; const T: TFontDialogDevice);
|
|
begin Self.Device := T; end;
|
|
|
|
procedure TFontDialogDevice_R(Self: TFontDialog; var T: TFontDialogDevice);
|
|
begin T := Self.Device; end;
|
|
|
|
procedure TFontDialogFont_W(Self: TFontDialog; const T: TFont);
|
|
begin Self.Font := T; end;
|
|
|
|
procedure TFontDialogFont_R(Self: TFontDialog; var T: TFont);
|
|
begin T := Self.Font; end;
|
|
|
|
procedure TColorDialogOptions_W(Self: TColorDialog; const T: TColorDialogOptions);
|
|
begin Self.Options := T; end;
|
|
|
|
procedure TColorDialogOptions_R(Self: TColorDialog; var T: TColorDialogOptions);
|
|
begin T := Self.Options; end;
|
|
|
|
procedure TColorDialogCustomColors_W(Self: TColorDialog; const T: TStrings);
|
|
begin Self.CustomColors := T; end;
|
|
|
|
procedure TColorDialogCustomColors_R(Self: TColorDialog; var T: TStrings);
|
|
begin T := Self.CustomColors; end;
|
|
|
|
procedure TColorDialogColor_W(Self: TColorDialog; const T: TColor);
|
|
begin Self.Color := T; end;
|
|
|
|
procedure TColorDialogColor_R(Self: TColorDialog; var T: TColor);
|
|
begin T := Self.Color; end;
|
|
|
|
procedure TOpenDialogOnIncludeItem_W(Self: TOpenDialog; const T: TIncludeItemEvent);
|
|
begin Self.OnIncludeItem := T; end;
|
|
|
|
procedure TOpenDialogOnIncludeItem_R(Self: TOpenDialog; var T: TIncludeItemEvent);
|
|
begin T := Self.OnIncludeItem; end;
|
|
|
|
procedure TOpenDialogOnTypeChange_W(Self: TOpenDialog; const T: TNotifyEvent);
|
|
begin Self.OnTypeChange := T; end;
|
|
|
|
procedure TOpenDialogOnTypeChange_R(Self: TOpenDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnTypeChange; end;
|
|
|
|
procedure TOpenDialogOnSelectionChange_W(Self: TOpenDialog; const T: TNotifyEvent);
|
|
begin Self.OnSelectionChange := T; end;
|
|
|
|
procedure TOpenDialogOnSelectionChange_R(Self: TOpenDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnSelectionChange; end;
|
|
|
|
procedure TOpenDialogOnFolderChange_W(Self: TOpenDialog; const T: TNotifyEvent);
|
|
begin Self.OnFolderChange := T; end;
|
|
|
|
procedure TOpenDialogOnFolderChange_R(Self: TOpenDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnFolderChange; end;
|
|
|
|
procedure TOpenDialogOnCanClose_W(Self: TOpenDialog; const T: TCloseQueryEvent);
|
|
begin Self.OnCanClose := T; end;
|
|
|
|
procedure TOpenDialogOnCanClose_R(Self: TOpenDialog; var T: TCloseQueryEvent);
|
|
begin T := Self.OnCanClose; end;
|
|
|
|
procedure TOpenDialogTitle_W(Self: TOpenDialog; const T: string);
|
|
begin Self.Title := T; end;
|
|
|
|
procedure TOpenDialogTitle_R(Self: TOpenDialog; var T: string);
|
|
begin T := Self.Title; end;
|
|
|
|
procedure TOpenDialogOptions_W(Self: TOpenDialog; const T: TOpenOptions);
|
|
begin Self.Options := T; end;
|
|
|
|
procedure TOpenDialogOptions_R(Self: TOpenDialog; var T: TOpenOptions);
|
|
begin T := Self.Options; end;
|
|
|
|
procedure TOpenDialogInitialDir_W(Self: TOpenDialog; const T: string);
|
|
begin Self.InitialDir := T; end;
|
|
|
|
procedure TOpenDialogInitialDir_R(Self: TOpenDialog; var T: string);
|
|
begin T := Self.InitialDir; end;
|
|
|
|
procedure TOpenDialogFilterIndex_W(Self: TOpenDialog; const T: Integer);
|
|
begin Self.FilterIndex := T; end;
|
|
|
|
procedure TOpenDialogFilterIndex_R(Self: TOpenDialog; var T: Integer);
|
|
begin T := Self.FilterIndex; end;
|
|
|
|
procedure TOpenDialogFilter_W(Self: TOpenDialog; const T: string);
|
|
begin Self.Filter := T; end;
|
|
|
|
procedure TOpenDialogFilter_R(Self: TOpenDialog; var T: string);
|
|
begin T := Self.Filter; end;
|
|
|
|
procedure TOpenDialogFileName_W(Self: TOpenDialog; const T: TFileName);
|
|
begin Self.FileName := T; end;
|
|
|
|
procedure TOpenDialogFileName_R(Self: TOpenDialog; var T: TFileName);
|
|
begin T := Self.FileName; end;
|
|
|
|
procedure TOpenDialogDefaultExt_W(Self: TOpenDialog; const T: string);
|
|
begin Self.DefaultExt := T; end;
|
|
|
|
procedure TOpenDialogDefaultExt_R(Self: TOpenDialog; var T: string);
|
|
begin T := Self.DefaultExt; end;
|
|
|
|
procedure TOpenDialogHistoryList_W(Self: TOpenDialog; const T: TStrings);
|
|
begin Self.HistoryList := T; end;
|
|
|
|
procedure TOpenDialogHistoryList_R(Self: TOpenDialog; var T: TStrings);
|
|
begin T := Self.HistoryList; end;
|
|
|
|
procedure TOpenDialogFiles_R(Self: TOpenDialog; var T: TStrings);
|
|
begin T := Self.Files; end;
|
|
|
|
procedure TOpenDialogFileEditStyle_W(Self: TOpenDialog; const T: TFileEditStyle);
|
|
begin Self.FileEditStyle := T; end;
|
|
|
|
procedure TOpenDialogFileEditStyle_R(Self: TOpenDialog; var T: TFileEditStyle);
|
|
begin T := Self.FileEditStyle; end;
|
|
|
|
procedure TCommonDialogOnShow_W(Self: TCommonDialog; const T: TNotifyEvent);
|
|
begin Self.OnShow := T; end;
|
|
|
|
procedure TCommonDialogOnShow_R(Self: TCommonDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnShow; end;
|
|
|
|
procedure TCommonDialogOnClose_W(Self: TCommonDialog; const T: TNotifyEvent);
|
|
begin Self.OnClose := T; end;
|
|
|
|
procedure TCommonDialogOnClose_R(Self: TCommonDialog; var T: TNotifyEvent);
|
|
begin T := Self.OnClose; end;
|
|
|
|
procedure TCommonDialogHelpContext_W(Self: TCommonDialog; const T: THelpContext);
|
|
begin Self.HelpContext := T; end;
|
|
|
|
procedure TCommonDialogHelpContext_R(Self: TCommonDialog; var T: THelpContext);
|
|
begin T := Self.HelpContext; end;
|
|
|
|
procedure TCommonDialogCtl3D_W(Self: TCommonDialog; const T: Boolean);
|
|
begin Self.Ctl3D := T; end;
|
|
|
|
procedure TCommonDialogCtl3D_R(Self: TCommonDialog; var T: Boolean);
|
|
begin T := Self.Ctl3D; end;
|
|
|
|
procedure TCommonDialogHandle_R(Self: TCommonDialog; var T: HWnd);
|
|
begin T := Self.Handle; end;
|
|
|
|
procedure RIRegister_Dialogs_Routines(S: TIFPSExec);
|
|
begin
|
|
S.RegisterDelphiFunction(@CreateMessageDialog, 'CreateMessageDialog', cdRegister);
|
|
S.RegisterDelphiFunction(@MessageDlg, 'MessageDlg', cdRegister);
|
|
S.RegisterDelphiFunction(@MessageDlgPos, 'MessageDlgPos', cdRegister);
|
|
S.RegisterDelphiFunction(@MessageDlgPosHelp, 'MessageDlgPosHelp', cdRegister);
|
|
S.RegisterDelphiFunction(@ShowMessage, 'ShowMessage', cdRegister);
|
|
S.RegisterDelphiFunction(@ShowMessagePos, 'ShowMessagePos', cdRegister);
|
|
S.RegisterDelphiFunction(@InputBox, 'InputBox', cdRegister);
|
|
S.RegisterDelphiFunction(@InputQuery, 'InputQuery', cdRegister);
|
|
end;
|
|
|
|
procedure RIRegister_TReplaceDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TReplaceDialog) do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TFindDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TFindDialog) do
|
|
begin
|
|
RegisterMethod(@TFindDialog.CloseDialog, 'CloseDialog');
|
|
RegisterPropertyHelper(@TFindDialogLeft_R,@TFindDialogLeft_W,'Left');
|
|
RegisterPropertyHelper(@TFindDialogPosition_R,@TFindDialogPosition_W,'Position');
|
|
RegisterPropertyHelper(@TFindDialogTop_R,@TFindDialogTop_W,'Top');
|
|
RegisterPropertyHelper(@TFindDialogFindText_R,@TFindDialogFindText_W,'FindText');
|
|
RegisterPropertyHelper(@TFindDialogOptions_R,@TFindDialogOptions_W,'Options');
|
|
RegisterPropertyHelper(@TFindDialogOnFind_R,@TFindDialogOnFind_W,'OnFind');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TPrintDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TPrintDialog) do
|
|
begin
|
|
RegisterPropertyHelper(@TPrintDialogCollate_R,@TPrintDialogCollate_W,'Collate');
|
|
RegisterPropertyHelper(@TPrintDialogCopies_R,@TPrintDialogCopies_W,'Copies');
|
|
RegisterPropertyHelper(@TPrintDialogFromPage_R,@TPrintDialogFromPage_W,'FromPage');
|
|
RegisterPropertyHelper(@TPrintDialogMinPage_R,@TPrintDialogMinPage_W,'MinPage');
|
|
RegisterPropertyHelper(@TPrintDialogMaxPage_R,@TPrintDialogMaxPage_W,'MaxPage');
|
|
RegisterPropertyHelper(@TPrintDialogOptions_R,@TPrintDialogOptions_W,'Options');
|
|
RegisterPropertyHelper(@TPrintDialogPrintToFile_R,@TPrintDialogPrintToFile_W,'PrintToFile');
|
|
RegisterPropertyHelper(@TPrintDialogPrintRange_R,@TPrintDialogPrintRange_W,'PrintRange');
|
|
RegisterPropertyHelper(@TPrintDialogToPage_R,@TPrintDialogToPage_W,'ToPage');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TPrinterSetupDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TPrinterSetupDialog) do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TFontDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TFontDialog) do
|
|
begin
|
|
RegisterPropertyHelper(@TFontDialogFont_R,@TFontDialogFont_W,'Font');
|
|
RegisterPropertyHelper(@TFontDialogDevice_R,@TFontDialogDevice_W,'Device');
|
|
RegisterPropertyHelper(@TFontDialogMinFontSize_R,@TFontDialogMinFontSize_W,'MinFontSize');
|
|
RegisterPropertyHelper(@TFontDialogMaxFontSize_R,@TFontDialogMaxFontSize_W,'MaxFontSize');
|
|
RegisterPropertyHelper(@TFontDialogOptions_R,@TFontDialogOptions_W,'Options');
|
|
RegisterPropertyHelper(@TFontDialogOnApply_R,@TFontDialogOnApply_W,'OnApply');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TColorDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TColorDialog) do
|
|
begin
|
|
RegisterPropertyHelper(@TColorDialogColor_R,@TColorDialogColor_W,'Color');
|
|
RegisterPropertyHelper(@TColorDialogCustomColors_R,@TColorDialogCustomColors_W,'CustomColors');
|
|
RegisterPropertyHelper(@TColorDialogOptions_R,@TColorDialogOptions_W,'Options');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TSaveDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TSaveDialog) do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TOpenDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TOpenDialog) do
|
|
begin
|
|
RegisterPropertyHelper(@TOpenDialogFileEditStyle_R,@TOpenDialogFileEditStyle_W,'FileEditStyle');
|
|
RegisterPropertyHelper(@TOpenDialogFiles_R,nil,'Files');
|
|
RegisterPropertyHelper(@TOpenDialogHistoryList_R,@TOpenDialogHistoryList_W,'HistoryList');
|
|
RegisterPropertyHelper(@TOpenDialogDefaultExt_R,@TOpenDialogDefaultExt_W,'DefaultExt');
|
|
RegisterPropertyHelper(@TOpenDialogFileName_R,@TOpenDialogFileName_W,'FileName');
|
|
RegisterPropertyHelper(@TOpenDialogFilter_R,@TOpenDialogFilter_W,'Filter');
|
|
RegisterPropertyHelper(@TOpenDialogFilterIndex_R,@TOpenDialogFilterIndex_W,'FilterIndex');
|
|
RegisterPropertyHelper(@TOpenDialogInitialDir_R,@TOpenDialogInitialDir_W,'InitialDir');
|
|
RegisterPropertyHelper(@TOpenDialogOptions_R,@TOpenDialogOptions_W,'Options');
|
|
RegisterPropertyHelper(@TOpenDialogTitle_R,@TOpenDialogTitle_W,'Title');
|
|
RegisterPropertyHelper(@TOpenDialogOnCanClose_R,@TOpenDialogOnCanClose_W,'OnCanClose');
|
|
RegisterPropertyHelper(@TOpenDialogOnFolderChange_R,@TOpenDialogOnFolderChange_W,'OnFolderChange');
|
|
RegisterPropertyHelper(@TOpenDialogOnSelectionChange_R,@TOpenDialogOnSelectionChange_W,'OnSelectionChange');
|
|
RegisterPropertyHelper(@TOpenDialogOnTypeChange_R,@TOpenDialogOnTypeChange_W,'OnTypeChange');
|
|
RegisterPropertyHelper(@TOpenDialogOnIncludeItem_R,@TOpenDialogOnIncludeItem_W,'OnIncludeItem');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_TCommonDialog(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TCommonDialog) do
|
|
begin
|
|
RegisterPropertyHelper(@TCommonDialogHandle_R,nil,'Handle');
|
|
RegisterPropertyHelper(@TCommonDialogCtl3D_R,@TCommonDialogCtl3D_W,'Ctl3D');
|
|
RegisterPropertyHelper(@TCommonDialogHelpContext_R,@TCommonDialogHelpContext_W,'HelpContext');
|
|
RegisterPropertyHelper(@TCommonDialogOnClose_R,@TCommonDialogOnClose_W,'OnClose');
|
|
RegisterPropertyHelper(@TCommonDialogOnShow_R,@TCommonDialogOnShow_W,'OnShow');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegister_Dialogs(CL: TIFPSRuntimeClassImporter);
|
|
begin
|
|
RIRegister_TCommonDialog(CL);
|
|
RIRegister_TOpenDialog(CL);
|
|
RIRegister_TSaveDialog(CL);
|
|
RIRegister_TColorDialog(CL);
|
|
RIRegister_TFontDialog(CL);
|
|
RIRegister_TPrinterSetupDialog(CL);
|
|
RIRegister_TPrintDialog(CL);
|
|
RIRegister_TFindDialog(CL);
|
|
RIRegister_TReplaceDialog(CL);
|
|
end;
|
|
|
|
end.
|