// Hide the progress bar in the IO Previews dialog (add iopreviews to uses) procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefIOPreview then TfIOPreviews(Form).ProgressBar1.Visible := False; end;
// Do not show text descriptions for shapes in the Layer Properties dialog and change color to clYellow (add iexLayerPropsForm to uses) procedure Tfmain.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefLayerProperties then begin TIELayerPropertiesDlg(Form).IELayerProps.ComboBoxShowText := False; TIELayerPropertiesDlg(Form).IELayerProps.ComboBoxShapeColor := clYellow;
// Hide the "General" tab of the Layer Properties dialog (add iexLayerPropsForm to uses) // Tabs of TIELayerPropertiesDlg: tabGeneral, tabStyle, tabShape, tabLine, tabText, tabAngle, tabAdvanced procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefLayerProperties then TIELayerPropertiesDlg(Form).IELayerProps.Frame.tabGeneral.TabVisible := False; end;
// Use a multi-line page control in the Proc Previews dialog (add previews to uses) procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefProcPreview then TfPreviews(Form).PageControl1.MultiLine := True; end;
// Prevent asymmetrical brushes by disabling the "Lock" checkbox (add iexBrushProps to uses) procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefBrushProperties then TIEBrushProps(Form).chkLink.Enabled := False; end;
// Advanced customizing of the Proc Preview dialog (add previews to uses) procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType <> iefProcPreview then exit;
with TfPreviews(wForm) do begin // Red dialog Color := clRed;
// Caption of OK button OkButton.Caption := 'Oh Yeah';
// Replace cancel button with custom control CancelButton.Visible := False; With TMyAnimatedButton.Create( PreviewForm ) do begin Parent := PreviewForm; Left := CancelButton.Left; Top := CancelButton.Top + CancelButton.Height + 8; Width := CancelButton.Width; Height := CancelButton.Height; Anchors := [akTop, akRight]; Caption := 'My Cancel'; ModalResult := 2; end; end; end;
// Hide glyphs in the Source Selection ListBox (add iexAcquireForm to uses) procedure TForm1.ImageEnView1ShowDialog(Sender: TObject; DlgType: TIEDlgType; Form: TForm); begin if DlgType = iefAcquireSource then TIEAcquireForm(Form).imlDevices.Clear(); end;