Ĺadny brzuch
Witam.
1. Jak moge na canvasie, narysowac w wybranym przeze mnie miejscu jeden pixelowy punkt?
2. Czy istnieje komponent czy cus, co odbiera wcisniety klawisz? Chodzi mi o to, zeby porownac to pole komponentu z Keyem w procedurze np. on key press (np. if key=komponent.key then..)
3. jak wpisany text (np. memo1) zamienic na ten sam tekst ale zapisany kazdy znak w ascii (memo2) a pozniej ascii na dwojkowy (memo3) lub od razu text -> dwojkowy?
4. potrzebuje cos w stylu messagebox() ale zeby bylo zawsze na wierzu i jak wyskoczy nie mozna by bylo obslugiwac formy
dopiero zaczynam zabawe z delphi wiec prosze o pomoc jak dla zielonego.
1. canvas.pixels[x,y]:= clBlack;
2. nie bardzo rozumiem
RE: 2. for M.oderator ;) -> w roznych programach sa pola, ze jak sie wcisnie jakis klawisz, to wlasnie w tym polu wyswietla sie jakas dziwny text mowiace o nazwie (?) klawisza. a to pole zwykle przypomina edita.
Użytkownik delphimaniaq_newbie edytował ten post 17 styczeń 2006, 17:49
RE: 2. for M.oderator ;) -> w roznych programach sa pola, ze jak sie wcisnie jakis klawisz, to wlasnie w tym polu wyswietla sie jakas dziwny text mowiace o nazwie (?) klawisza. a to pole zwykle przypomina edita.
to moze chodzi o THotkey ? :)
Że co? jak, gdzie kiedy? gdzie dload?
ok poszukam. jak cos sie odezwe. a co z pozostalymi pytaniami? LUDZIE, PROGRAMISCI pomozcie!
function bytetobin(b: byte): string; begin result:= ''; if b and 128=128 then result:= result+'1' else result:= result+'0'; if b and 64=64 then result:= result+'1' else result:= result+'0'; if b and 32=32 then result:= result+'1' else result:= result+'0'; if b and 16=16 then result:= result+'1' else result:= result+'0'; if b and 8=8 then result:= result+'1' else result:= result+'0'; if b and 4=4 then result:= result+'1' else result:= result+'0'; if b and 2=2 then result:= result+'1' else result:= result+'0'; if b and 1=1 then result:= result+'1' else result:= result+'0'; end; begin for i:= 1 to lenght(Memo1.text) do Memo2.Text:= Memo2.text+bytetobin(ord(Memo1.Text[i])); end;
ps. pisalem funkcje z pamieci wiec nie recze za jej poprawnosc :P
4.MessageBox(handle,'costam','tytul',MB_OK+MB_TOPMOST+MB_SYSTEMMODAL+MB_ICONINFORMATION) ;;)
Użytkownik Cyrkiel edytował ten post 20 styczeń 2006, 16:23
OoO fajne. a czy ktos wie, jak text na ascii przerobic?
Użytkownik DJ_ProG edytował ten post 17 styczeń 2006, 19:53
OoO fajne. a czy ktos wie, jak text na ascii przerobic? Tzn?!
3.function b2b(x:byte):string; begin while (x<>0) do begin result:=inttostr(integer(x mod 2=1))+result; x:=x div 2; end; end;
Użytkownik Cyrkiel edytował ten post 17 styczeń 2006, 21:46
thx prog ze zapytales.
no a jak przerobic kazda z liter danego tekstu na kod ascii (np. A = 065 itd. czy jak to tak idzie...)
int = ord(char)
no wreszcie sprawdilem kodziki i od razu mowie, ze wielkie dzieki dla wszystkich.
a jednak, mailes racje Magajek - qrcze, jest cos takiego jak hotkey .. :)
Kajetanek, w twoim kodzie (dwojkowy) no rzeczywiscie pojawiaja sie cyferki, tak samo jak w kodzie Cyrkla, ale u Cyrkla jakos ich wiecej a raz mniej - jak w procedurze umiescic odwolanie do tej funkcji? - a jak moge to w druga strona? i na jakiej podstawie litery zamienia na 0/1? bo nie rozumiem zbytnio.. prosilbym lopatologicznie ;)
aha Cyrkiel, no fajny ten msg box, ale ja nie chce chowac i pokazac formy na czas msg. ja chce, zeby forma byla z tylu (za messageboxem) ale zeby nie mozna bylo na niej klikac - tak jak dziala showmessage()..
Użytkownik delphimaniaq_newbie edytował ten post 20 styczeń 2006, 11:42
Ups, już poprawiłem - teraz jest "showmodal" :P
Użytkownik Cyrkiel edytował ten post 20 styczeń 2006, 18:23
[...]
ok. sprawdze. a to w koncu jak moglbym przerobic dwojkowy na zwykly?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Jak moge na canvasie, narysowac w wybranym przeze mnie miejscu jeden pixelowy punkt?
2. Czy istnieje komponent czy cus, co odbiera wcisniety klawisz? Chodzi mi o to, zeby porownac to pole komponentu z Keyem w procedurze np. on key press (np. if key=komponent.key then..)
3. jak wpisany text (np. memo1) zamienic na ten sam tekst ale zapisany kazdy znak w ascii (memo2) a pozniej ascii na dwojkowy (memo3) lub od razu text -> dwojkowy?
4. potrzebuje cos w stylu messagebox() ale zeby bylo zawsze na wierzu i jak wyskoczy nie mozna by bylo obslugiwac formy
dopiero zaczynam zabawe z delphi wiec prosze o pomoc jak dla zielonego.
1. canvas.pixels[x,y]:= clBlack;
2. nie bardzo rozumiem
RE: 2. for M.oderator ;) -> w roznych programach sa pola, ze jak sie wcisnie jakis klawisz, to wlasnie w tym polu wyswietla sie jakas dziwny text mowiace o nazwie (?) klawisza. a to pole zwykle przypomina edita.
Użytkownik delphimaniaq_newbie edytował ten post 17 styczeń 2006, 17:49
RE: 2. for M.oderator ;) -> w roznych programach sa pola, ze jak sie wcisnie jakis klawisz, to wlasnie w tym polu wyswietla sie jakas dziwny text mowiace o nazwie (?) klawisza. a to pole zwykle przypomina edita.
to moze chodzi o THotkey ? :)
Że co? jak, gdzie kiedy? gdzie dload?
ok poszukam. jak cos sie odezwe. a co z pozostalymi pytaniami? LUDZIE, PROGRAMISCI pomozcie!
function bytetobin(b: byte): string; begin result:= ''; if b and 128=128 then result:= result+'1' else result:= result+'0'; if b and 64=64 then result:= result+'1' else result:= result+'0'; if b and 32=32 then result:= result+'1' else result:= result+'0'; if b and 16=16 then result:= result+'1' else result:= result+'0'; if b and 8=8 then result:= result+'1' else result:= result+'0'; if b and 4=4 then result:= result+'1' else result:= result+'0'; if b and 2=2 then result:= result+'1' else result:= result+'0'; if b and 1=1 then result:= result+'1' else result:= result+'0'; end; begin for i:= 1 to lenght(Memo1.text) do Memo2.Text:= Memo2.text+bytetobin(ord(Memo1.Text[i])); end;
ps. pisalem funkcje z pamieci wiec nie recze za jej poprawnosc :P
4.MessageBox(handle,'costam','tytul',MB_OK+MB_TOPMOST+MB_SYSTEMMODAL+MB_ICONINFORMATION) ;;)
Użytkownik Cyrkiel edytował ten post 20 styczeń 2006, 16:23
OoO fajne. a czy ktos wie, jak text na ascii przerobic?
Użytkownik DJ_ProG edytował ten post 17 styczeń 2006, 19:53
OoO fajne. a czy ktos wie, jak text na ascii przerobic? Tzn?!
3.function b2b(x:byte):string; begin while (x<>0) do begin result:=inttostr(integer(x mod 2=1))+result; x:=x div 2; end; end;
Użytkownik Cyrkiel edytował ten post 17 styczeń 2006, 21:46
thx prog ze zapytales.
no a jak przerobic kazda z liter danego tekstu na kod ascii (np. A = 065 itd. czy jak to tak idzie...)
int = ord(char)
no wreszcie sprawdilem kodziki i od razu mowie, ze wielkie dzieki dla wszystkich.
a jednak, mailes racje Magajek - qrcze, jest cos takiego jak hotkey .. :)
Kajetanek, w twoim kodzie (dwojkowy) no rzeczywiscie pojawiaja sie cyferki, tak samo jak w kodzie Cyrkla, ale u Cyrkla jakos ich wiecej a raz mniej - jak w procedurze umiescic odwolanie do tej funkcji? - a jak moge to w druga strona? i na jakiej podstawie litery zamienia na 0/1? bo nie rozumiem zbytnio.. prosilbym lopatologicznie ;)
aha Cyrkiel, no fajny ten msg box, ale ja nie chce chowac i pokazac formy na czas msg. ja chce, zeby forma byla z tylu (za messageboxem) ale zeby nie mozna bylo na niej klikac - tak jak dziala showmessage()..
Użytkownik delphimaniaq_newbie edytował ten post 20 styczeń 2006, 11:42
Ups, już poprawiłem - teraz jest "showmodal" :P
Użytkownik Cyrkiel edytował ten post 20 styczeń 2006, 18:23
[...]
ok. sprawdze. a to w koncu jak moglbym przerobic dwojkowy na zwykly?