KOOLPA

[MasterSlawe] · 28-02-2007, 23:10

procedure TForm1.bold1Click(Sender: TObject);
begin
bold1.Checked:=not bold1.Checked;
if bold1.Checked then
memo1.Font.Style:=memo1.font.Style+[fsbold]
else
memo1.Font.Style:=memo1.font.Style-[fsbold]
end;

procedure TForm1.italic1Click(Sender: TObject);
begin
italic1.Checked:=not italic1.Checked;
if italic1.Checked then
memo1.Font.Style:=memo1.font.Style+[fsitalic]
else
memo1.Font.Style:=memo1.font.Style-[fsitalic]
end;

procedure TForm1.altizili1Click(Sender: TObject);
begin
altizili1.Checked:=not altizili1.Checked;
if altizili1.Checked then
memo1.Font.Style:=memo1.font.Style+[fsunderline]
else
memo1.Font.Style:=memo1.font.Style-[fsunderline]
end;

procedure TForm1.sa1Click(Sender: TObject);
begin
sa1.Checked:=not sa1.Checked;
memo1.Alignment:=tarightjustify;
end;

procedure TForm1.sol1Click(Sender: TObject);
begin
sol1.Checked:=not sol1.Checked;
memo1.Alignment:=taleftjustify;
end;

procedure TForm1.orta1Click(Sender: TObject);
begin
orta1.Checked:=not orta1.Checked;
memo1.Alignment:=tacenter;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if speedbutton1.Down then
memo1.Font.Style:=memo1.Font.Style+[fsbold]
else
memo1.Font.Style:=memo1.Font.Style-[fsbold];

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if speedbutton2.Down then
memo1.Font.Style:=memo1.Font.Style+[fsitalic]
else
memo1.Font.Style:=memo1.Font.Style-[fsitalic];

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if speedbutton3.Down then
memo1.Font.Style:=memo1.Font.Style+[fsunderline]
else
memo1.Font.Style:=memo1.Font.Style-[fsunderline];

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
memo1.Alignment:=tarightjustify;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
memo1.Alignment:=tacenter;

end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
memo1.Alignment:=taleftjustify;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:byte;
begin
combobox1.Items:=screen.Fonts;
for i:=8 to 30 do
combobox2.Items.Add(inttostr(i));

combobox1.Text:=memo1.Font.Name;
combobox2.Text:=inttostr(memo1.Font.size);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
memo1.Font.Name:=combobox1.Text;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
memo1.Font.Size:=strtoint(combobox2.text);
end;
end.

28-02-2007, 23:10	#1 (permalink)
[MasterSlawe] KoooLpa Üyelik tarihi: Dec 2006 Nerden: Aklımın Odaları Mesajlar: 771 Tecrübe Puanı: 4	Basit bir Word örneği procedure TForm1.bold1Click(Sender: TObject); begin bold1.Checked:=not bold1.Checked; if bold1.Checked then memo1.Font.Style:=memo1.font.Style+[fsbold] else memo1.Font.Style:=memo1.font.Style-[fsbold] end; procedure TForm1.italic1Click(Sender: TObject); begin italic1.Checked:=not italic1.Checked; if italic1.Checked then memo1.Font.Style:=memo1.font.Style+[fsitalic] else memo1.Font.Style:=memo1.font.Style-[fsitalic] end; procedure TForm1.altizili1Click(Sender: TObject); begin altizili1.Checked:=not altizili1.Checked; if altizili1.Checked then memo1.Font.Style:=memo1.font.Style+[fsunderline] else memo1.Font.Style:=memo1.font.Style-[fsunderline] end; procedure TForm1.sa1Click(Sender: TObject); begin sa1.Checked:=not sa1.Checked; memo1.Alignment:=tarightjustify; end; procedure TForm1.sol1Click(Sender: TObject); begin sol1.Checked:=not sol1.Checked; memo1.Alignment:=taleftjustify; end; procedure TForm1.orta1Click(Sender: TObject); begin orta1.Checked:=not orta1.Checked; memo1.Alignment:=tacenter; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin if speedbutton1.Down then memo1.Font.Style:=memo1.Font.Style+[fsbold] else memo1.Font.Style:=memo1.Font.Style-[fsbold]; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin if speedbutton2.Down then memo1.Font.Style:=memo1.Font.Style+[fsitalic] else memo1.Font.Style:=memo1.Font.Style-[fsitalic]; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin if speedbutton3.Down then memo1.Font.Style:=memo1.Font.Style+[fsunderline] else memo1.Font.Style:=memo1.Font.Style-[fsunderline]; end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin memo1.Alignment:=tarightjustify; end; procedure TForm1.SpeedButton5Click(Sender: TObject); begin memo1.Alignment:=tacenter; end; procedure TForm1.SpeedButton6Click(Sender: TObject); begin memo1.Alignment:=taleftjustify; end; procedure TForm1.FormCreate(Sender: TObject); var i:byte; begin combobox1.Items:=screen.Fonts; for i:=8 to 30 do combobox2.Items.Add(inttostr(i)); combobox1.Text:=memo1.Font.Name; combobox2.Text:=inttostr(memo1.Font.size); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin memo1.Font.Name:=combobox1.Text; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin memo1.Font.Size:=strtoint(combobox2.text); end; end.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Word Belgelerini PDF'e Dönüştürmek	elifsu	Ms Office	2	27-08-2007 18:08
word ile neler yapabilir?	KöTü KeDi ŞeRaFeTTiN	Komik Yazılar	0	28-05-2007 22:01
Word Excell	lonelywolf_61	Photoshop / Flash	1	13-03-2007 23:08
İlginç WORD OLAYI	elifsu	Off-Topic	1	23-02-2007 14:10
Word ile 10 Dakikada Web Sitesi Hazırlayın	metallica	Webmaster Genel	0	07-12-2006 22:09

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Sponsor Linkler

KOOLPA

Basit bir Word örneği

Basit bir Word örneği

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Benzer Konular