Ĺadny brzuch
SynEdit1.SelText:='<HTML></HTML>'
Jak zrobić żeby kursor auromatycznie przeniusł się między <HTML> a </HTML> ??
Użytkownik NowyGracz edytował ten post 15 luty 2006, 18:49
SynEdit1.SelText:='<HTML></HTML>'; SynEdit1.SelStart := 6;
Gdzie 6 to liczba znaków od lewej, po których ma znaleźć się kursor :)
Użytkownik Coldpeer edytował ten post 15 luty 2006, 19:01
SynEdit1.SelText:='<HTML></HTML>'; SynEdit1.SelStart := 6;
Gdzie 6 to liczba znaków od lewej, po których ma znaleźć się kursor :)
Zgadza się tylko wtedy kiedy SynEdit jest puste, a co gdy jest pełne ?? Jak napisać pętlę która policzy liczbę znaków??
Zgadza się tylko wtedy kiedy SynEdit jest puste, a co gdy jest pełne ?? Jak napisać pętlę która policzy liczbę znaków??
Mam jeszcze inny pomysł :)
Stwórz w private taką funkcję Insert(blok1, blok2 : string) : string;. Wjedź na nią kursorem, Ctrl+Sgift+C, uzupełnij funkcją tak:
function Tfrm_main.Insert(blok1, blok2 : string) : string; var Start: Integer; begin with SynEdit1 do begin SetFocus; SelText := blok1; Start := SelStart; SelText := blok2; SelStart := Start; end; end;
I jeszcze sposób użycia:
Insert('<html>','</html');
;)
Dobra napisze jeszcze raz jaśniej. Jak wygląda procedura która mi policzy wszystkie znaki, aż do pozycji kursora??
Dobra napisze jeszcze raz jaśniej. Jak wygląda procedura która mi policzy wszystkie znaki, aż do pozycji kursora??
nie latwiej
function Tfrm_main.Insert(blok1, blok2 : string) : string; begin with SynEdit1 do begin SetFocus; SelText:= blok1+ blok2; SelStart:= SelStart - length(blok2); end; end;? ;)
Dzięki nie wiem czemu sam na to nie wpadłem. Temat do zamknięcia.
Użytkownik NowyGracz edytował ten post 16 luty 2006, 16:40
Sorry, że odświeżam ;)
nie latwiej
function Tfrm_main.Insert(blok1, blok2 : string) : string; begin with SynEdit1 do begin SetFocus; SelText:= blok1+ blok2; SelStart:= SelStart - length(blok2); end; end;? ;)
W ogóle nie trzeba nic kombnować, wystarczy zamiast SelStart w poprzednim przykładzie dać CaretX i już! Aha, i nie przypisać wartosć x , tylko dodać do tego wartość x.
I już! :P
//EDIT
"w poprzednim", tzn. w tym zaraz na początku :)
Użytkownik miszczu49 edytował ten post 22 luty 2006, 16:42
W ogóle nie trzeba nic kombnować, wystarczy zamiast SelStart w poprzednim przykładzie dać CaretX i już! Aha, i nie przypisać wartosć x , tylko dodać do tego wartość x.
I już! :P
//EDIT
"w poprzednim", tzn. w tym zaraz na początku :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak zrobić żeby kursor auromatycznie przeniusł się między <HTML> a </HTML> ??
Użytkownik NowyGracz edytował ten post 15 luty 2006, 18:49
SynEdit1.SelText:='<HTML></HTML>'; SynEdit1.SelStart := 6;
Gdzie 6 to liczba znaków od lewej, po których ma znaleźć się kursor :)
Użytkownik Coldpeer edytował ten post 15 luty 2006, 19:01
SynEdit1.SelText:='<HTML></HTML>'; SynEdit1.SelStart := 6;
Gdzie 6 to liczba znaków od lewej, po których ma znaleźć się kursor :)
Zgadza się tylko wtedy kiedy SynEdit jest puste, a co gdy jest pełne ?? Jak napisać pętlę która policzy liczbę znaków??
Zgadza się tylko wtedy kiedy SynEdit jest puste, a co gdy jest pełne ?? Jak napisać pętlę która policzy liczbę znaków??
Mam jeszcze inny pomysł :)
Stwórz w private taką funkcję Insert(blok1, blok2 : string) : string;. Wjedź na nią kursorem, Ctrl+Sgift+C, uzupełnij funkcją tak:
function Tfrm_main.Insert(blok1, blok2 : string) : string; var Start: Integer; begin with SynEdit1 do begin SetFocus; SelText := blok1; Start := SelStart; SelText := blok2; SelStart := Start; end; end;
I jeszcze sposób użycia:
Insert('<html>','</html');
;)
Dobra napisze jeszcze raz jaśniej. Jak wygląda procedura która mi policzy wszystkie znaki, aż do pozycji kursora??
Dobra napisze jeszcze raz jaśniej. Jak wygląda procedura która mi policzy wszystkie znaki, aż do pozycji kursora??
nie latwiej
function Tfrm_main.Insert(blok1, blok2 : string) : string; begin with SynEdit1 do begin SetFocus; SelText:= blok1+ blok2; SelStart:= SelStart - length(blok2); end; end;? ;)
Dzięki nie wiem czemu sam na to nie wpadłem. Temat do zamknięcia.
Użytkownik NowyGracz edytował ten post 16 luty 2006, 16:40
Sorry, że odświeżam ;)
nie latwiej
function Tfrm_main.Insert(blok1, blok2 : string) : string; begin with SynEdit1 do begin SetFocus; SelText:= blok1+ blok2; SelStart:= SelStart - length(blok2); end; end;? ;)
W ogóle nie trzeba nic kombnować, wystarczy zamiast SelStart w poprzednim przykładzie dać CaretX i już! Aha, i nie przypisać wartosć x , tylko dodać do tego wartość x.
I już! :P
//EDIT
"w poprzednim", tzn. w tym zaraz na początku :)
Użytkownik miszczu49 edytował ten post 22 luty 2006, 16:42
W ogóle nie trzeba nic kombnować, wystarczy zamiast SelStart w poprzednim przykładzie dać CaretX i już! Aha, i nie przypisać wartosć x , tylko dodać do tego wartość x.
I już! :P
//EDIT
"w poprzednim", tzn. w tym zaraz na początku :)