richedit kontrolu

[sr1111]

s.a
formuma 2 adet richedit ekledim. bunlari tek bir tane font isim kutusu, size, open , save, paragraf kullanarak control etmek istiyorum nasil yaparim.

her bir richedit icin ikinci bir font chance, paragraph style, save, open kullanmak istemiyorum.
hangi richedit o anda aktif ise uzerinde isem onda islem yapmasini istiyorum..
neler yapmaliyim. bu konuda örnek var mı.

[CiTiZEN]

Kod: Tümünü seç

C:\Program Files\Borland\Delphi7\Demos\RichEdit
klasöründe örnek var hangi richedit seçiliyse onda işlem yapsın derseniz onuda bi döngü ile halledebilirsiniz

[sr1111]

zaten o döngüyü istiyorum nasil yaparim diye.

[CiTiZEN]

Kod: Tümünü seç

global değişken
var
b:boolean;  veya string de olur
Richedit1.onclick;
begin
b:=true;
end;

richedit2.onclick;
begin
b:=false;
end;
istediğin yerde de kontrol edersin örneğin bi timer
timer1.timer;
begin
if b=true then
napacaksan
if b=false then
yine napacaksan
end;

[sr1111]

tam anlayamadim.
mesela
richedit1 ve richedit2 nin font ismini font kutucugundan nasil sececegim.
yani richedit1 de iken onun font ismini degistirme yapacagim. richedit2 de iken onun font ismini degistirme yapacagim.
ayni fontcombobox dan
son satirda mesela RichEdit1.SetFocus; diyorum. ayni anda RichEdit2.SetFocus; nasil diyecegim.
buna bir ornek verebilirmisiniz.

[CiTiZEN]

bir string tanımla global olsun daha sonra hangi richedit e tıklanır ve içerisindeki metin değiştirilirse veya eventlerden herhangi istediğini seçebilirsin kullanıcı bir hamle yaptığında string tipi değişkenin "editor1" değeri kazansın ve sen fontbox dan değeri değiştirdiğin zaman if döngüsü ile kontrol etsin ve hangi koşul uyarsa font ve ayarları ona göre değiştirsin aşağıda örnek

Kod: Tümünü seç

var
  MainForm: TMainForm;
seteditor:string;
implementation
(Global değişken seçildi 'seteditor')

daha sonra richedit1 e bir hamle yapılsın örneğin onchange eventi

procedure TForm1.RichEditChange(Sender: TObject);
begin
  seteditor:=editor1;
end;

ve richedit2 ye bir hamle yapıldığında

procedure TMainForm.RichEdit1Change(Sender: TObject);
begin
seteditor:=editor2;
end;

daha sonrada sen font u değiştireceksin diyelim
(Bu örnek kos C:\Program Files\Borland\Delphi7\Demos\RichEdit\  içerisindeki örnekten alınmıştır,editor=richedit,forntname=combobox (Fornt kutusu))

function TMainForm.CurrText: TTextAttributes;
begin
  if Editor.SelLength > 0 then Result := Editor.SelAttributes
  else Result := Editor.DefAttributes;
end;

function TMainForm.CurrText2: TTextAttributes;
begin
  if Editor2.SelLength > 0 then Result := Editor2.SelAttributes
  else Result := Editor2.DefAttributes;
end;

procedure TMainForm.FontNameChange(Sender: TObject);
begin
if seteditor='Editor1' then
begin
  if FUpdating then Exit;
  CurrText.Name := FontName.Items[FontName.ItemIndex];
end;
begin
if seteditor='Editor2' then
begin
  if FUpdating then Exit;
  CurrText2.Name := FontName.Items[FontName.ItemIndex];
end;
end;

sanırım bu şekilde halledebilirsin diğer ayarlar içinde aynı mantık ve kodlarıda borlan içerisindeki demos klasorunden richedit örneğini inceleyerek bulabilirsin yukarda yazmıştım.
kolay gelsin.

[sr1111]

tesekkur ederim. cok isime yaradi.

[ikutluay]

tesekkur ederim. cok isime yaradi.

eğer delphi ye yeni başladınız ise marco cantunun kitabını edinin. o daha da çok işinize yarar.bir çok konuyu oldukça iyi anlatmıştır.

[CiTiZEN]

sayın @ikutluay yeri burası değildir belki ama bulmuşken sormak istedim bu kitabın Pdf versiyonu mevcumudur?

[ikutluay]

sayın @ikutluay yeri burası değildir belki ama bulmuşken sormak istedim bu kitabın Pdf versiyonu mevcumudur?

tsbiki mevcuttur.. ebook sitelerini deneyebilirsin.... kendi sitesindede bazı kısımları var.