Ĺadny brzuch
Wklepuję kilka linijek (bez żadnych błędów) z Eksperta 4/2003 ze strony 39, uruchamiam i nic.
Zastosowałem metodę na przeglądarce grafik z Eksperta+ w Delphi 7.
Menu Pomoc jak było po lewej stronie tak jest nadal.
Co jest nie tak?
Wklepuję kilka linijek (bez żadnych błędów) z Eksperta 4/2003 ze strony 39, uruchamiam i nic.
Zastosowałem metodę na przeglądarce grafik z Eksperta+ w Delphi 7.
Menu Pomoc jak było po lewej stronie tak jest nadal.
Co jest nie tak?
Kożystam z kawiarenki, więc dla mnie każdy grosz się liczy :P
Kożystam z kawiarenki, więc dla mnie każdy grosz się liczy :P
procedure TfOkno.FormCreate(Sender: TObject); var Info: TMenuItemInfo; Buff: array[0..MAX_PATH] of Char; begin Info.cbSize := SizeOf(TMenuItemInfo); Info.fMask := MIIM_TYPE; Info.dwTypeData := Buff; Info.cch := SizeOf(Buff); GetMenuItemInfo(Menu.Handle, MNPomoc.Command, False,Info); Info.fType := Info.fType or MFT_RIGHTJUSTIFY; SetMenuItemInfo(Menu.Handle, MNPomoc.Command, False,Info); end;
Wszystko jest już tak jak należy.
Zamiast Menu wpisałem fOkno. :P
Teraz wszystko działa, ale chciałbym, żeby menu pojawiało się na lewo od prawego brzegu okna. Teraz, po wciśnięciu menu Pomoc, pojawia się i wystaje poza okno.
Czy da się coś z tym zrobić?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Zastosowałem metodę na przeglądarce grafik z Eksperta+ w Delphi 7.
Menu Pomoc jak było po lewej stronie tak jest nadal.
Co jest nie tak?
Wklepuję kilka linijek (bez żadnych błędów) z Eksperta 4/2003 ze strony 39, uruchamiam i nic.
Zastosowałem metodę na przeglądarce grafik z Eksperta+ w Delphi 7.
Menu Pomoc jak było po lewej stronie tak jest nadal.
Co jest nie tak?
Kożystam z kawiarenki, więc dla mnie każdy grosz się liczy :P
Kożystam z kawiarenki, więc dla mnie każdy grosz się liczy :P
procedure TfOkno.FormCreate(Sender: TObject); var Info: TMenuItemInfo; Buff: array[0..MAX_PATH] of Char; begin Info.cbSize := SizeOf(TMenuItemInfo); Info.fMask := MIIM_TYPE; Info.dwTypeData := Buff; Info.cch := SizeOf(Buff); GetMenuItemInfo(Menu.Handle, MNPomoc.Command, False,Info); Info.fType := Info.fType or MFT_RIGHTJUSTIFY; SetMenuItemInfo(Menu.Handle, MNPomoc.Command, False,Info); end;
Wszystko jest już tak jak należy.
Zamiast Menu wpisałem fOkno. :P
Teraz wszystko działa, ale chciałbym, żeby menu pojawiało się na lewo od prawego brzegu okna. Teraz, po wciśnięciu menu Pomoc, pojawia się i wystaje poza okno.
Czy da się coś z tym zrobić?