How to change filter name

BIZ TMS Scripter
1

Hello,

How to change the name being show in Open Project dialog.

Please see the image for better understanding.

img
img960×600 50.1 KB

2

You can use TIDEEngine.OnSaveDialog and OnOpenDialog and launch your own dialogs for choosing files to be open or close. Here is a sample:




procedure TForm1.IDEEngine1OpenDialog(Sender: TObject;
  IDEFileType: TIDEFileType; var AFileName: string; var ResultOk,
  Handled: Boolean);
begin
  if IDEFileType <> iftProject then  Exit;
  Handled := True;
  ResultOk := MyOpenDialog.Execute;
  if ResultOk then
    AFileName := MyOpenDialog.FileName;
end;


procedure TForm1.IDEEngine1SaveDialog(Sender: TObject;
  IDEFileType: TIDEFileType; var AFileName: string; AFile: TIDEProjectFile;
  var ResultOk, Handled: Boolean);
begin
  if IDEFileType <> iftProject then  Exit;
  Handled := True;
  ResultOk := MySaveDialog.Execute;
  if ResultOk then
    AFileName := MySaveDialog.FileName;
end;
3

Hello Wagner,

Thanks for the code snippet it is really very useful.

Regards,

Yogesh

4

Hello Wagner,

I
am having one problem though: How to determine that the
file/module/form getting save is for which ScriptLanguage (slPascal or
slBasic)?

Regards,

Yogesh

5

You can use AFile.ScriptLanguage and check if it's slPascal or slBasic.