Ładny brzuch
Jak zrobi aby wszystkie (albo tylko zaznaczone) wyrazy w np RichEdicie mialy pierwsz liter wiksz?
Widzialem cos takiego w Crimson Editorze. Pisalem czytalem i nic nie wydumalem :P (PS. czemu na tym forum nie ma niektrych polskich znakw?).
Jak zrobi aby wszystkie (albo tylko zaznaczone) wyrazy w np RichEdicie mialy pierwsz liter wiksz?
Widzialem cos takiego w Crimson Editorze. Pisalem czytalem i nic nie wydumalem :P (PS. czemu na tym forum nie ma niektrych polskich znakw?).
W RichEdicie takiego czego nie da sie zrobi, bo od razu powikszy si cay tekst.
UpperCase + F1
Czekaj, Delpher , wyjanij : bo widze tutaj dwa sposoby patrzenia na ten problem:
1. Bedzio podaje jak zrobic cos takiego : " To Jest Jaki Sobie Tekst"
2. Ja i inni chyba myl o "To jest jaki sobie tekst
Jak da si w Memo to i chyba w RichEdit si da.
Czekaj, Delpher , wyjanij : bo widze tutaj dwa sposoby patrzenia na ten problem:
1. Bedzio podaje jak zrobic cos takiego : " To Jest Jaki Sobie Tekst"
2. Ja i inni chyba myl o "To jest jaki sobie tekst
Wariant 2 ;)
Ej no ludzie nie widzielicie tego w crimsonie?
Menu>>Edit>>Change Case>>Capitalize
Wariant 2 ;)
Taa... prbowaem ale jako nie wyszo :( Trzeba se popisa i pogwkowa ;)
W Memo tym bardziej si nie da, gdy jak ustawisz czcionk to cay tekst sie zmieni.
var i:integer; znak:string; txt,konc:string; begin txt:=Memo1.Lines.Text; for i:=2 to length(txt)-1 do begin znak:=txt[i-1]; if (znak=' ')or(znak='.')or(znak='?')or(znak='?') then konc:=konc+uppercase(txt[i]) else konc:=konc+txt[i]; end; memo1.Lines.Text:=konc;
troche namotalem w tym kodzie, ale to przez problem inkompatybilnosci string<>char - pisalem to z glowy i nie jestem pewien czy skrocona wersja by dzialala (to powinno dzialac)
Ja to zrobibym podobnie:
var Znak, ilosc:integer; Litera:String; Tekst:AnsiString; begin Tekst:=Memo1.Text; ilosc:=Lenght(Tekst); for Znak:=1 to ilosc do begin Litera:=Tekst[znak]; if Litera=' ' then Tekst[znak+1]:=Uppercase(Tekst[znak+1]); end; Memo1.Lines:=Tekst; //nie pamitam czy ten sposob dziala end;
Tylko przestaw sobie memo z richedit.
Taa, ja robiem podobnie, ale zrobiem jeden zasadniczy bd:
znak:=txt[i-1];
Zamiast czyta liter przed to ja czytaem t aktualn :lol:
Sprawdziem sposb Migajka. Po zaznaczeniu tekstu, zostaje on wyrwnany do lewego marginesu oraz Wielka literaz nie pojawia si w pierwszym wyrazie.......
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Widzialem cos takiego w Crimson Editorze. Pisalem czytalem i nic nie wydumalem :P (PS. czemu na tym forum nie ma niektrych polskich znakw?).
Jak zrobi aby wszystkie (albo tylko zaznaczone) wyrazy w np RichEdicie mialy pierwsz liter wiksz?
Widzialem cos takiego w Crimson Editorze. Pisalem czytalem i nic nie wydumalem :P (PS. czemu na tym forum nie ma niektrych polskich znakw?).
W RichEdicie takiego czego nie da sie zrobi, bo od razu powikszy si cay tekst.
UpperCase + F1
Czekaj, Delpher , wyjanij : bo widze tutaj dwa sposoby patrzenia na ten problem:
1. Bedzio podaje jak zrobic cos takiego : " To Jest Jaki Sobie Tekst"
2. Ja i inni chyba myl o "To jest jaki sobie tekst
Jak da si w Memo to i chyba w RichEdit si da.
Czekaj, Delpher , wyjanij : bo widze tutaj dwa sposoby patrzenia na ten problem:
1. Bedzio podaje jak zrobic cos takiego : " To Jest Jaki Sobie Tekst"
2. Ja i inni chyba myl o "To jest jaki sobie tekst
Wariant 2 ;)
Ej no ludzie nie widzielicie tego w crimsonie?
Menu>>Edit>>Change Case>>Capitalize
Wariant 2 ;)
Taa... prbowaem ale jako nie wyszo :( Trzeba se popisa i pogwkowa ;)
W Memo tym bardziej si nie da, gdy jak ustawisz czcionk to cay tekst sie zmieni.
var i:integer; znak:string; txt,konc:string; begin txt:=Memo1.Lines.Text; for i:=2 to length(txt)-1 do begin znak:=txt[i-1]; if (znak=' ')or(znak='.')or(znak='?')or(znak='?') then konc:=konc+uppercase(txt[i]) else konc:=konc+txt[i]; end; memo1.Lines.Text:=konc;
troche namotalem w tym kodzie, ale to przez problem inkompatybilnosci string<>char - pisalem to z glowy i nie jestem pewien czy skrocona wersja by dzialala (to powinno dzialac)
Ja to zrobibym podobnie:
var Znak, ilosc:integer; Litera:String; Tekst:AnsiString; begin Tekst:=Memo1.Text; ilosc:=Lenght(Tekst); for Znak:=1 to ilosc do begin Litera:=Tekst[znak]; if Litera=' ' then Tekst[znak+1]:=Uppercase(Tekst[znak+1]); end; Memo1.Lines:=Tekst; //nie pamitam czy ten sposob dziala end;
Tylko przestaw sobie memo z richedit.
Taa, ja robiem podobnie, ale zrobiem jeden zasadniczy bd:
znak:=txt[i-1];
Zamiast czyta liter przed to ja czytaem t aktualn :lol:
Sprawdziem sposb Migajka. Po zaznaczeniu tekstu, zostaje on wyrwnany do lewego marginesu oraz Wielka literaz nie pojawia si w pierwszym wyrazie.......