keyspyxp - polskie znaki i duże litery

keyspyxp - polskie znaki i duże litery
TSPablos
TS
TSPablos
TS
  • Rejestracja:ponad 17 lat
  • Ostatnio:ponad 15 lat
0
Kopiuj
begin
                if ((stan_old[16]<-32760)or(stan_old[20]<-32760))and(i>=65)and(i<=90) then
                key:=ansiuppercase(key);

                  if (stan_old[165]<-32760) then
                begin
                 if Odd(integer(i=65)) then key:='ą';
                 if Odd(integer(i=67)) then key:='ć';
                 if Odd(integer(i=69)) then key:='ę';
                 if Odd(integer(i=76)) then key:='ł';
                 if Odd(integer(i=78)) then key:='ń';
                 if Odd(integer(i=79)) then key:='ó';
                 if Odd(integer(i=83)) then key:='ś';
                 if Odd(integer(i=88)) then key:='ź';
                 if Odd(integer(i=90)) then key:='ż';
                 if ((stan_old[16]<-32760)or(stan_old[20]<-32760))and(i>=65)and(i<=90) then
                 begin
                 if Odd(integer(i=65)) then key:='Ą';
                 if Odd(integer(i=67)) then key:='Ć';
                 if Odd(integer(i=69)) then key:='Ę';
                 if Odd(integer(i=76)) then key:='Ł';
                 if Odd(integer(i=78)) then key:='Ń';
                 if Odd(integer(i=79)) then key:='Ó';
                 if Odd(integer(i=83)) then key:='Ś';
                 if Odd(integer(i=88)) then key:='Ź';
                 if Odd(integer(i=90)) then key:='Ż';
                end;
                end;

Zmieniłem trochę kod, żeby po wciśnięciu shifta były duże litery, po wciśnięciu ALR GR- polskie znaki, no i po wciśnięciu shift+alt+znak= duży polski znak.
Wszystko działa poprawnie, tylko da się skrócić jakoś ten kod?

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
lukaszguzik
LU
lukaszguzik
LU
  • Rejestracja:prawie 18 lat
  • Ostatnio:ponad 13 lat
0

chyba nie

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj
rotten
rotten
rotten
rotten
  • Rejestracja:około 17 lat
  • Ostatnio:około 14 lat
0

Jaki Ci przeszkadza to napisz wszystko w jednej linii, albo ewentualnie napisz warunek "case":

Kopiuj
case jakaś_zmienna of
wartość_np_liczba :          funkcja_wykonywana_jeśli_zmienna_ma_taką_wartość ;
inna_wartość_też_liczba :        funkcja_wykonywana_jeśli_zmienna_ma_taką_wartość ;
kolejna_wartość_koniecznie_liczba :    funkcja_wykonywana_jeśli_zmienna_ma_taką_wartość ;
else         funkcja_wykonywana_jeśli_zmienna_ma_inną_wartość_od_podanych_wyżej;
end;
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
Komentuj

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto