Ĺadny brzuch
Wie ktoś może, jak mogę pobrać szerokość paska zadań windows?
chodzi ci o pasek menu?
on ma taką samą szerokośc jak ekran, czyli:
Screen.Width;
Źle mnie zrozumiałeś. Chodzi mi o tę wartość:
KLIK
Ten standardowy (czyt. pojedyńczy) ma ok. 30px,ale nie wiem jak to się liczyło.
Poszukaj jak znaleźć rozmiar pulpitu (bez paska) i odejmij od Screen.Height ;)
Sproboj tak:
szerokosc := Screen.DesktopHeight - Screen.WorkAreaHeight;
czychacz: o tą wartość mi chodziło, dobrze liczyłem, że 30 px :D
Wielkie dzięki. Właśnie o to mi chodziło
IMHO powinno być tak, ponieważ jak jest włączone autoukrywanie, to pulpit ma rozmiar całego ekranu, nie wspominając już, że ktoś może używać innego shella:
procedure wymiaryPaskaZadan(var szerokosc,wysokosc:integer); var r:trect; h:hwnd; begin h:=findwindow('Shell_TrayWnd',nil); if h<>0 then begin getwindowrect(h,r); szerokosc:=r.right-r.left; wysokosc:=r.bottom-r.top; end else begin szerokosc:=0; wysokosc:=0; end; end;
Użytkownik Panthera edytował ten post 29 kwiecień 2008, 10:22
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
chodzi ci o pasek menu?
on ma taką samą szerokośc jak ekran, czyli:
Screen.Width;
Źle mnie zrozumiałeś. Chodzi mi o tę wartość:
KLIK
Ten standardowy (czyt. pojedyńczy) ma ok. 30px,ale nie wiem jak to się liczyło.
Poszukaj jak znaleźć rozmiar pulpitu (bez paska) i odejmij od Screen.Height ;)
Sproboj tak:
szerokosc := Screen.DesktopHeight - Screen.WorkAreaHeight;
czychacz: o tą wartość mi chodziło, dobrze liczyłem, że 30 px :D
Wielkie dzięki. Właśnie o to mi chodziło
IMHO powinno być tak, ponieważ jak jest włączone autoukrywanie, to pulpit ma rozmiar całego ekranu, nie wspominając już, że ktoś może używać innego shella:
procedure wymiaryPaskaZadan(var szerokosc,wysokosc:integer); var r:trect; h:hwnd; begin h:=findwindow('Shell_TrayWnd',nil); if h<>0 then begin getwindowrect(h,r); szerokosc:=r.right-r.left; wysokosc:=r.bottom-r.top; end else begin szerokosc:=0; wysokosc:=0; end; end;
Użytkownik Panthera edytował ten post 29 kwiecień 2008, 10:22