Jak zrobić coś takiego:
w memo mam wpisany jakiś tekst np.
blebleble ble ble
Teraz zaznaczam to myszką
i jak zrobić z tego np
[code]blebleble ble ble[/code]
Oczywiściw w memo
Z góry dzięki
0
0
w memo sie nie da ale w richEdit tak
i robisz to tak
richEdit.SelAttributes.Style := [richEdit.SelAttributes.Style, fsBold]
ewentualnie
richEdit.SelAttributes.Style := [fsBold]
0
w memo sie nie da ale w richEdit tak
i robisz to takrichEdit.SelAttributes.Style := [richEdit.SelAttributes.Style, fsBold]
ewentualnie
richEdit.SelAttributes.Style := [fsBold]
hmm ale wydaje mi sie ze Koledze chodzi o umieszczenie tagow bold przed i na koncu selekcji, tyle ze forum zboldowalo tekst :). W takim wypadku z tego co pamietam trzeba sie posluzyc SelStart i SelLength.
0
procedure wezwtagi(tagstart,tagend:string);
var sel:String;
begin
if length(tsynmemo(dokumenty.ActivePage.Controls[0]).seltext)>0 then
begin
sel:= tsynmemo(dokumenty.ActivePage.Controls[0]).seltext;
with richedit do
begin
seltext:=tagstart+seltext+tagend;
selstart:=selstart-length(tagend)-length(sel);
sellength:=sellength+length(sel);
end;
end
else
begin
with richedit do
begin
seltext:=tagstart+tagend;
selstart:=selstart-length(tagend);
end;
end;
end;
procedura bierze w tagi richedit np zaznacz tekst w richedit zalozmy ze zaznaczylesz ple ple on dodaje do ple ple na początku i na końcu np i oczywiście przy wywołaniu wezwtagi(,); bierze w tagi i proste i skuteczne :-D
0
Właśnie roSzi chodziło mi o to.
No więc mam w memo tekst
1bla2bla 3bla
Zazmaczam np
1bla
klikam na button
i chcę aby w memo wpisało mi np
1bla2bla 3bla
Jak to zrobić ale w memo???
0
var temp: string;
begin
temp:=Memo1.SelText;
Memo1.SelText:=+temp+;
end;
0
Dzięki Piniol [browar]