Введение в Delphi. Рудалев В.Г - 19 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

19
begin
with SaveDialog1 do
if Execute then
begin
Memo1.lines.SaveToFile(FileName);
&DSWLRQ ¶;ehdghl
-’+ ExtractFileName(File Name);
end;
end;
procedure TForm1.AboutClick(Sender: TObject);
begin
0HVVDJH'OJµ;ehdghlY¶PW,QIRUPDWLRQ>PE2.@
end;
 AZimklbl_ >baZcg_j ^ey \kieu\Zxs_]h f_gx s_edgm\ ^\Z jZaZ ih
agZqdmPopUpMenu<>baZcg_j_f_gx\\_^bl_imgdluRjbnlbP\_lkbf_
gZfbFont1bColor1khhl\_lkl\_gghbkh[jZ[hlqbdZfbkh[ulby\u[hjZimgdlZ
f_gx
procedure TForm1.Font1Click(Sender: TObject);
begin
If FontDialog1.Execute then <u[hjrjbnlZ^eyl_dklZ
begin
Memo1.Font.Name:=FontDialog1.Font.Name;
Memo1.Font.Size:=FontDialog1.Font.Size;
Memo1.Font.Style:=FontDialog1.Font.Style;
end;
end;
procedure TForm1.Color1Click(Sender: TObject);
begin <u[hjp\_lZnhgZj_^ZdlhjZ
if ColorDialog1.Execute then Memo1.Color:=ColorDialog1.Color;
end;
procedure TForm1.ExitClick(Sender: TObject);
begin
Close;
end;
<kieu\Zxs__f_gx\hlebqb_hl]eZ\gh]hf_gxihy\ey_lkyijbs_eqd_
ijZ\hc dghidhc furb ih we_f_glm d dhlhjhfm hgh ijb\yaZgh >ey ijb\yadb
_]hddhfihg_glmMemo1 mklZgh\bl_k\hckl\hPopUpMenu^eyMemo1jZ\gh_
PopUpMenu1 (PopUpMenu1 -bfykha^Zggh]hdhfihg_glZPopUpMenu).
 H[jZ[hlqbdb kh[ulbc ^ey dghihd [ukljh]h ^hklmiZ k^_eZcl_ lZdbfb
`_dZdb\]eZ\ghff_gxih^klZ\b\\bgki_dlhj_h[t_dlh\\dZq_kl\_OnClick
^eyi_j\hcdghidb- OpenClick^ey\lhjhc- SaveClick^eylj_lv_c- ExitClick.
EZ[hjZlhjgZyjZ[hlZ7
L_fZLZ[ebqguc\\h^-\u\h^
>eyij_^klZ\e_gby\oh^guobeb\uoh^guo^Zgguo\\b^_lZ[ebp\Delphi
fh`_lbkihevah\Zlvkydhfihg_glTStringGrid -lZ[ebpZkhklhysZybai_j_f_g
guolbiZStringHkgh\gufbk\hckl\Zfby\eyxlkyColCount -qbkehklhe[ph\\
lZ[ebp_bRowCount -qbkehkljhd>ey^hklmiZdyq_cdZflZ[ebpuij_^gZagZ
                                       19

     begin
       with SaveDialog1 do
       if Execute then
       begin
          Memo1.lines.SaveToFile(FileName);
     &DSWLRQ ¶;ehdghl-’+ ExtractFileName(File Name);
       end;
     end;
     procedure TForm1.AboutClick(Sender: TObject);
     begin
     0HVVDJH'OJ µ;ehdghlY¶PW,QIRUPDWLRQ>PE2.@ 
     end;
      AZimklbl_ >baZcg_j ^ey \kieu\Zxs_]h f_gx s_edgm\ ^\Z jZaZ ih
agZqdmPopUpMenu<>baZcg_j_f_gx\\_^bl_imgdluRjbnlbP\_lkbf_
gZfbFont1bColor1khhl\_lkl\_gghbkh[jZ[hlqbdZfbkh[ulby\u[hjZimgdlZ
f_gx
     procedure TForm1.Font1Click(Sender: TObject);
     begin
       If FontDialog1.Execute then ey ijb\yadb
_]hddhfihg_glmMemo1 mklZgh\bl_k\hckl\hPopUpMenu^eyMemo1jZ\gh_
PopUpMenu1 (PopUpMenu1 -bfykha^Zggh]hdhfihg_glZPopUpMenu).
       H[jZ[hlqbdb kh[ulbc ^ey dghihd [ukljh]h ^hklmiZ k^_eZcl_ lZdbfb
`_dZdb\]eZ\ghff_gxih^klZ\b\\bgki_dlhj_h[t_dlh\\dZq_kl\_OnClick
^eyi_j\hcdghidb- OpenClick^ey\lhjhc- SaveClick^eylj_lv_c- ExitClick.

     EZ[hjZlhjgZyjZ[hlZ‹7
     L_fZLZ[ebqguc\\h^-\u\h^

     >eyij_^klZ\e_gby\oh^guobeb\uoh^guo^Zgguo\\b^_lZ[ebp\Delphi
fh`_lbkihevah\Zlvkydhfihg_glTStringGrid -lZ[ebpZkhklhysZybai_j_f_g
guolbiZStringHkgh\gufbk\hckl\Zfby\eyxlkyColCount -qbkehklhe[ph\\
lZ[ebp_bRowCount -qbkehkljhd>ey^hklmiZdyq_cdZflZ[ebpuij_^gZagZ

Страницы