• Registered: 2023-03-07
  • Posts: 2

Topic: How to edit the File, Options, About

Is there a way to edit these windows instead of scripting their removal ? 

I have used the search function and only find the ability to remove them, and it would be great to just edit them so they are in the old standard
modal window ? 

Coming from very old Clarion, Filepro, and other active dev projects.

Thank you.

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,677

Re: How to edit the File, Options, About

Hi,
Can you create a small project that shows the issue you are trying to address?
Then others might be able to offer solutions or suggest alternative approaches to take.
To upload a project, remove the .exe file and then zip the project folder.
Regards,
Derek.

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,545

Re: How to edit the File, Options, About

Form editing example

procedure App_InitAboutForm;
// настройка формы "О программе"
var
  tmpLabel:TLabel;
  tmpLabel2:TLabel;
  tmpImage: TImage;
  tmpImageFileName :string;
begin
  frmdbCoreAbout.Caption := 'О программе';

  FindC(frmdbCoreAbout,'LinkLabel1',tmpLabel);
  tmpLabel.Caption := APP_NAME;
  tmpLabel.Font.Size := 14;
  tmpLabel.Font.Style := fsBold;

  tmpLabel2 := TLabel.Create( frmdbCoreAbout );
  tmpLabel2.Name := 'labVersion';
  tmpLabel2.Parent := tmpLabel.Parent;
  tmpLabel2.Left := tmpLabel.Left;
  tmpLabel2.Top := tmpLabel.Top + 30;
  tmpLabel2.Caption := 'Версия '+App_GetVersion;
  tmpLabel2.Font.Size := 11;

  FindC(frmdbCoreAbout,'Label2',tmpLabel);
  tmpLabel.Caption := 'Copyright '+chr($A9)+' '+APP_COPYRIGHT;
  tmpLabel.Top := tmpLabel.Top + 50;
  tmpLabel.Font.Size := 11;

  tmpLabel2 := TLabel.Create( frmdbCoreAbout );
  tmpLabel2.Name := 'labLink';
  tmpLabel2.Parent := tmpLabel.Parent;
  tmpLabel2.Left := tmpLabel.Left;
  tmpLabel2.Top := tmpLabel.Top + 24;
  tmpLabel2.Font := tmpLabel.Font;

  Label_LinkCreate( tmpLabel2, APP_SITE);

  tmpLabel2 := TLabel.Create( frmdbCoreAbout );
  tmpLabel2.Name := 'labDatabaseDate';
  tmpLabel2.Parent := tmpLabel.Parent;
  tmpLabel2.Left := tmpLabel.Left;
  tmpLabel2.Top :=  tmpLabel.Top + 224;
  tmpLabel2.Font := tmpLabel.Font;
  tmpLabel2.Hint := App_GetDBFileName(True);
  tmpLabel2.ShowHint := True;
  tmpLabel2.Caption := 'Дата обновления базы: '+DateToStr(GetFileLastWriteTime(tmpLabel2.Hint));
  //
  FindC(frmdbCoreAbout,'Image1',tmpImage);
  tmpImageFileName := ExtractFilePath(Application.ExeName)+APP_ABOUT_LOGO_FILE_NAME;
  if not FileExists(tmpImageFileName) then
    RaiseException('App_InitAboutForm() Не найден файл '+tmpImageFileName)
  else
   tmpImage.Picture.LoadFromFile(tmpImageFileName);
end;

More information: https://k245.ru/en/mvdb-en/component-explorer-2.html
https://k245.ru/en/mvdb-en/butterfly-effect.html

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2023-03-07
  • Posts: 2

Re: How to edit the File, Options, About

Thank you very much.  I haven't even started planning the whole project yet, but I am a registered user of the software, and the above code as well as the links are perfect and detail well a great reply to my question.

Thank you so much !!