правое меню
vasa777 © (2012-07-19 15:59:00)
Procedure TForm1.RightMenu; // сдвигаем пункт со справкой
вправо
var mii: TMenuItemInfo;MainMenu: hMenu; Buffer: array[0..79]
of Char;
begin
MainMenu := Self.Menu.Handle;
mii.cbSize := SizeOf(mii) ;
mii.fMask := MIIM_TYPE;
mii.dwTypeData := Buffer;
mii.cch := SizeOf(Buffer) ;
GetMenuItemInfo(MainMenu, HelpMenuItem.Command, false,
mii) ;
mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, HelpMenuItem.Command, false,
mii) ;
end;
procedure TForm1.Metro1Click(Sender: TObject); // не работает
begin
TStyleManager.TrySetStyle('Metro Blue');
RightMenu;
end;
procedure TForm1.Windows1Click(Sender: TObject); // работает
begin
TStyleManager.TrySetStyle('Windows');
RightMenu;
end;
почему не работает при наложении скинов?
vasa777 (2012-07-19 16:00:00) [1]
это отсюда
http://delphiru.ru/interface/12-r--.html
может есть еще способ сдвинуть пункт со справкой
вправо?
Наверх 
ЧАТ |
Орешник |
|
