RichEdit

[abdulkadir]

Selam arkadaslar

RichEdit ile html asp php css gibi sayfaları actıgım zaman
belli kod ve functionları degişik renklenlerle göstermeye calısıyorum
Ama galiba acemilik sacma işler yaptırıyor

asagıda ki gibi yani

bu işlem nasıl yapılır kücük bir örnek rica etsem
bu saate kadar ugrastım ama olmadı

kendime özel bir editör yapmaya calısıyorum bazı componentler var ama
ben işin aslını ögrenmek istiyorum

componentteki kodlara bakıyorum cok karısık geliyor bir türlü cözemedim

-----------Nasıl olmalı----------------
procedure TForm2.FileListBox1Click(Sender: TObject);
var
a1: string[1];
a2: string[1];
islem: Integer;

begin

a1 :='<';
a2 :='>';

RichEdit.Lines.LoadFromFile(FileListBox1.FileName);
islem := compareStr(a1,a2);

if islem =0 Then
Font.Color:=ClRed
else
Font.Color :=Clblue;
end;
-------------------------------------


tesekkür eder iyi calısmalar dilerim

[mussimsek]

Merhaba,

bedava olarak dağıtılan SynEdit bileşeni işini görür. Gerekli bilgi şu başlıkta var : viewtopic.php?t=66

NOT : Forum gerçekten bir hazine oldu Forumun komplesine göz atmanızda fayda var. İlginizi çekecek birçok şey bulabilirsiniz.

Kolay gelsin.

[abdulkadir]

tesekkür ederim

ben component istemiyorum

ögrenmeye calısıyorum mümkünse örnek yazsanız sevinirim.

yukardaki mesajı yazmadan
forumda degişik baslıklar altında arama yaptım bir cok sayfayı acıp inceledim ama sonuc false sonra foruma bas vurdum

(Ayrıca forumun hepsini okumak aylar alır ufak ufak okuyorum zaten
Ama ögrenme adına gerekirse tüm formu 3 defa okurum )

Yardım bekler
iyi calısmalar dilerim

Sevgiler

[mussimsek]

Merhaba,

dediğim componenti indirip kodlarını inceleyebilirsiniz. Yardımı olacaktır.

Kolay gelsin.

[abdulkadir]

merhaba

o kodlar acemiler için bayagı karısık agır geldi dogrusu cözemedim

hala yukarda da ki islemi cözmeye calısıyorum yardım lütfen

----------------
delphi functionlarının kullanımı hakkında turkce kaynak tavsiye edebilirmisiniz

elimde ezel balkanın yazdıgı delphi7 var ama function anlatımı cok az üc bes tane

sevgiler

[abdulkadir]

Utana sıkıla yazıyorum kusura bakmayın

yukardaki işlemi hala beceremedim

yardımcı olabilecek arkadaslar lütfen bir el uzatın

editor yapıyorum herseyi tamam renklendirme yi
bir türlü yapamadım


ipucu na bile razıyım

tesekkür ederim

[mussimsek]

Merhaba,

renklendirme ile ilgili ufak bir örnek buldum, gönderiyorum. Umarım işine yarar.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
const
  numColors =10;
  colors: Array [0..NumColors-1] of TColor =
   (clAqua, clBlue, clFuchsia, clGreen,
    clLime, clMaroon, clNavy, clOlive,
    clPurple, clBlack );
  teststring =
    'Just because i''m paranoid doesn''t mean they are '+
    'NOT out to get me!';
Var
  i: Integer;
begin
  with richedit1 do begin
    selstart := gettextlen;
    for i:= 1 to length(teststring) do begin
      selattributes.color := colors[i mod 10];
      seltext := teststring[i];
    end;
    seltext := #13#10;
  end;
end;

[abdulkadir]

tesekkür ederim

sonunda richedit içinde farklı renk ler görebildim

benim renklendirmekten kastım acılan sayfa içinde
örnek
'else' yesil olsun
'then' siyah olsun gibi idi

yukardaki tüm kodlar karma sekilde renklendiriyor

ya kac haftadır sırf bununla ugrasıyorum

yokmu bi care

[mussimsek]

Merhaba,

evet hocam karışık renklendiriyor ama renklendiriyor. Sen de örnek koda bakıp, ondan örnek alarak kendi kodunu yazman lazım.

İstediğin hemen 2 dakkada yazılacak bir kod değil ki yazıp gönderelim, biraz uğraşman lazım.

Kolay gelsin.

[mepc]

eğer tamamını renklendirmek istiyorsan öncelikle
richedit1.selectall; komutu ile tamamını seç daha sonra
selattributes.color:=clred(hangi rengi istiyorsan) ile tamamını renklendir
daha sonra tümünü seçmeyi iptal için şu an aklıma gelen şu kodu kullan
selstart:=istediğin değeri ata.
seltext:=seltext;

[mepc]

sanırım senin sorunu yanlış anlamışım.
ben senin dediğin işi metin içinde arama yaptırarak yaptırıyorum.
Ör: then i arat bulduğunda kırmızı yapsın gibi...

eğer çözemez isen mesaj yaz sana kodunu göndereyim

[abdulkadir]

MEHABALAR
öncelikle ilginize tesekkür ederim

bu işlem için bayagı ugrastım hala ugrasıyorum
bu tarihten (Prş Ekm 09, 2003)
bu tarihe kadar (Cumt Ekm 25, 2003)

tek mesguliyetim bu işlem oldu (aksamları)

ben ugrasmadan bana hazır kod verin demiyorum lütfen yanlıs anlamayın
sizlerin emegine saygı duyarım
Bildiginiz işlem ise ve yardımcı olmak isterseniz sevinirim
ben zaten ugrasıyorum mutlaka becerecem kısa veya uzun zamanda
elimden kacamaz kafama taktım birkere

kodu vermeniz degil yordamı ögrensem(ögtretseniz) bile yeter

sevgiler

[abdulkadir]

sanırım senin sorunu yanlış anlamışım.
ben senin dediğin işi metin içinde arama yaptırarak yaptırıyorum.
Ör: then i arat bulduğunda kırmızı yapsın gibi...

eğer çözemez isen mesaj yaz sana kodunu göndereyim

biraz acıklma yapayım

delphi editor ü düsünün siz delphi projeleri derlerken
degişik renkler de metinler var

RichEdit1: TRichEdit; siyah
interface siyah bold
{$R *.dfm} yesil
//acıklama mavi

gibi
böyle birsey yapmaya calısıyorum
richeditte web sayfası düzenlemek için acıcam
bazı kodları renklendirmek istiyorum diger sıradan editorler gibi

farklı birsey istemiyorum mesela
acılan sayfada if degimi varsa yesil görünsün
function varsa mavi görünsün gibi

length ve pos ile bayagı ugrastım bir türlü beceremedim
hatalarımın sözdizimi hataları oldugunu sanıyorum

mesela pos ile
----------
abc:='else';
--------------
abc icin arama yaptırıyorum bulunca messages ile ekrana bulundu mesajı bulunmasa bulunmadı mesajı veriyorum ama
bir degişkene aktarıp renklendiremiyorum

yanlısmı yapmaya calısıyorum yada ne yapmalıyım

Eger kodu verirsende fikir almam ögrenmem acısından iyi olur

kafanızı agrıttıgım için üzgünüm
bu işlemi yaptıgım zaman burdaki arkadaslarla mutlaka paylasacagım

editor yapmak isteyen ler le veya ilgilenen arkadaslarla bu konuyu burda devam edelim derim

herkese basarılar iyi calısmalar dilerim