procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FontDialoglApply(Sender: TObject;
Wnd: HWND);
procedure APanelsExecute(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

TFileOld = class(TMenuItem)

Procedure Click();
override;
end;

function StrAmp(S: string): string; var

Forml: TForml;
NFiles: integer = 5;
NFileMen: integer = 12;

implementation

uses UMSetup, UPSetup, Grids, UOptions; {$R *.DFM}

procedure TFileOld.Click(); begin

Forml.RichEditl.Lines.LoadFromFile(Caption);
end;
function StrAmp(S: string): string;
var i: integer;

begin

Result := S;
i := Pos('&', S);

if i > 0

then Delete(Result, i, 1);
end;

procedure TForml.AMenuExecute(Sender: TObject); begin

FMSetup.ShowModal;
end;
procedure TForml.ACallHelpExecute(Sender: TObject);

begin

Application.HelpContext(1) ;
end;

procedure TForml.AAboutExecute(Sender: TObject); begin

ShowMessage('О программе...');
end;

procedure TForml.AFindExecute(Sender: TObject); begin

ShowMessage('Найти');
end;

procedure TForml.AReplaceExecute(Sender: TObject); begin

ShowMessage('Заменить');
end;

procedure TForml.AOptionsExecute(Sender: TObject); begin

FOptions.ShowModal;
end;

procedure TForml.APalettExecute(Sender: TObject); begin

ShowMessage('Настройка панели');
end;

procedure TForml.ActionListlChange(Sender: TObject); begin

ShowMessage('О программе 1);
end;

procedure TForml.ANewExecute(Sender: TObject); begin

ShowMessage('Создать');
end;
procedure TForml.AOpenExecute(Sender: TObject);
var Tmpltem: TFileOld;

begin

if(OpenDialogl.Execute) then begin Tmpltem := TFileOld.Create(MainMenul); Tmpltem.Caption := OpenDialogl.FileName; MainMenul.Items[0].Insert(NFileMen,Tmpltem); if(MainMenul.Items[0].Count > NFileMen+NFiles)

then MainMenul.Items[0].Items[NFileMen+NFiles].Free;
RichEditl.Lines.LoadFromFile(OpenDialogl.FileName);
end;
end;

procedure TForml.ASaveExecute(Sender: TObject); begin

ShowMessage('Сохранить...');
end;

procedure TForml.ASaveAsExecute(Sender: TObject); begin

ShowMessage('Сохранить как...');
end;

procedure TForml.APrintExecute(Sender: TObject); begin

ShowMessage('Печать' ) ;
end;

procedure TForml.APrinterSetupExecute(Sender: TObject); begin

ShowMessage(1 Установка принтера');
end;

procedure TForml.APreviewExecute(Sender: TObject); begin

ShowMessage('Предварительный просмотр');
end;

procedure TForml.AFontExecute(Sender: TObject); begin

if FontDialogl.Execute then begin RichEditl.SelAttributes.Assign(FontDialogl.Font); ComboBoxl.Itemlndex := ComboBoxl.Items.IndexOf(

RichEditl.SelAttributes.Name);
if (fsBold in RichEditl.SelAttributes.Style) then ABold.Checked := true else ABold.Checked := false;
if (fsltalic in RichEditl.SelAttributes.Style) then Altalic.Checked := true else Altalic.Checked := false;
if (fsUnderline in RichEditl.SelAttributes.Style) then A_.Checked := true else A_.Checked := false;
end end;

procedure TForml.FontDialoglApply(Sender: TObject; Wnd: HWND); begin

RichEditl.SelAttributes.Assign(FontDialogl.Font);
end;

procedure TForml.ABoldExecute(Sender: TObject); begin


⇐ Предыдущая страница| |Следующая страница ⇒

Приемы программирования в Delphi на основе VCL



Новости за месяц

  • Март
    2020
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс