Jak Začít?

Máš v počítači zápisky z přednášek
nebo jiné materiály ze školy?

Nahraj je na studentino.cz a získej
4 Kč za každý materiál
a 50 Kč za registraci!






Textový editor=delphi

DOC
Stáhnout kompletní materiál zdarma (24 kB)

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.

Témata, do kterých materiál patří