Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Внизправое меню Найти похожие ветки
← →
vasa777 (2012-07-19 15:59) [0]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) [1]это отсюда
http://delphiru.ru/interface/12-r--.html
может есть еще способ сдвинуть пункт со справкой вправо?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.065 c