Textový editor=delphi
Níže je uveden pouze náhled materiálu. Kliknutím na tlačítko 'Stáhnout soubor' stáhnete kompletní formátovaný materiál ve formátu DOC.
textový editor=delphi;
unit Unit1;
procedure TForm1.Nov1Click(Sender: TObject);
begin
RichEdit1.Clear;
end;
procedure TForm1.Otevt1Click(Sender: TObject);
begin
if(OpenDialog1.Execute()) then RichEdit1.Lines.LoadFromFile (OpenDialog1.Filename);
end;
procedure TForm1.Uloit1Click(Sender: TObject);
begin
if(SaveDialog1.Execute()) then RichEdit1.Lines.SaveToFile (SaveDialog1.Filename);
end;
procedure TForm1.Konec1Click(Sender: TObject);
begin
Close();
end;
procedure TForm1.Psmo1Click(Sender: TObject);
begin
if(fontDialog1.Execute()) then RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;
procedure TForm1.Barvapozad1Click(Sender: TObject);
begin
if(ColorDialog1.Execute()) then RichEdit1.Color:=ColorDialog1.Color;
end;
procedure TForm1.vlevo1Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taLeftJustify;
// vlevo1.Checked:=true;
// nasted1.Checked:=false;
// vpravo1.Checked:=false;
end;
procedure TForm1.nasted1Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taCenter;
nasted1.Checked:=true;
vlevo1.Checked:=false;
vpravo1.Checked:=false;
end;
procedure TForm1.vpravo1Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=taRightJustify;
vpravo1.checked:=true;
vlevo1.Checked:=false;
nasted1.Checked:=false;
end;
procedure TForm1.Vyjmout1Click(Sender: TObject);
begin
RichEdit1.CutToClipboard();
end;
procedure TForm1.Koprovat1Click(Sender: TObject);
begin
RichEdit1.CopyToClipboard();
end;
procedure TForm1.Vloit1Click(Sender: TObject);
begin
RichEdit1.PasteFromClipboard();
end;
procedure TForm1.Vybratv3e1Click(Sender: TObject);
begin
RichEdit1.SelectAll();
end;
procedure TForm1.Smazat1Click(Sender: TObject);
begin
RichEdit1.ClearSelection();
end;
end.