procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm);
begin
if Form is TfIOPreviews then
begin
TfIOPreviews(Form).chkLockPreview.Checked := True;
end;
end;
procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm);
begin
if Form is TfIOPreviews then
begin
TfIOPreviews(Form).DefaultLockPreview := True;
end;
end;
The variable DefaultLockPreview is NEVER assigned, so per default, it is false! This is nonsensical: Why would a user choose to deactivate the Preview?
Please set the variable DefaultLockPreview to TRUE in the next update. Thank you!
• Similarly, as with OnShowDialog, there should be an event OnCloseDialog. This would allow the user to save and remember the form size when the form closes (and then restore the form size the next time the dialog shows).
• Please set a SIZE-GRIP on the form's bottom-right corner. That would make the resizing of the form a lot easier for the user!