Witam wszystkich.
mam mały problem.;-|
Nie wiem jak ( i czy w ogóle sie da tak zrobić) żeby w polu memo zmienić kolor lini np: żeby linia nr 7 była koloru czerwonego.
Z góry dziękuje za odpowiedź.
Witam wszystkich.
mam mały problem.;-|
Nie wiem jak ( i czy w ogóle sie da tak zrobić) żeby w polu memo zmienić kolor lini np: żeby linia nr 7 była koloru czerwonego.
Z góry dziękuje za odpowiedź.
Komponent SYnEdit daje taką możliwość.
meczylem sie ale moze cos z tego bedzie ;P
procedure TForm1.Button1Click(Sender: TObject);
var
czcionka, linijka,odstep,lol : integer;
c : tcanvas;
begin
odstep := 1;
c := tcanvas.create;
C.Handle:=GetDC(memo1.Handle);
linijka := 2;
czcionka := memo1.font.size;
c.Brush.style := bssolid;
c.brush.color := cllime;
c.pen.color := cllime;
lol := linijkaczcionka+odsteplinijka+czcionka;
c.Rectangle(0,lol,100,lol+czcionka+5);
c.Brush.style := bsclear;
c.pen.color := memo1.font.color;
c.TextOut(0,lol,memo1.lines[linijka]);
c.free;
end;
Pochwalony!
Ziomber, chyba coś takiego nie ujdzie, bo to jest Canvas, a on niestety się usuwa po zakryciu go :). Najlepiej użyj RichEdit'a. Tam zmieniasz kolor poleceniem RichEdit1.SelAttributes.Color := clRed; :)
użyj RiczEdit a o memo zapomnij w takich przypadkach...
cześć.
Dzięki za odzew.
wszystko byłoby dobrze tylko to jest w kylix-ie
a tam RichEdit niestety nie ma. A przydało by się bo pisze kompilator i podświetlałbym w ten sposób linie w której jest błąd. Ale nic prześpie się z tym problemem i może wymyśle jakiś inny sposób pokazywania błędów.
To jednak SynEdit (dla Kyliksa trzeba trochę zmodyfikować źródła i pakiety, ale to proste).