Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

правое меню   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.065 c
15-1336654854
alexdn
2012-05-10 17:00
2013.03.22
Контакт


15-1342873269
wl
2012-07-21 16:21
2013.03.22
подключение внешнего монитора к ноутбуку


15-1338451685
TUser
2012-05-31 12:08
2013.03.22
Дошкольное программирование


15-1354200038
Паскаль
2012-11-29 18:40
2013.03.22
3 не сложных задания по ПАСКАЛЮ / заплачу пару баксов за них


15-1330983917
osoed
2012-03-06 01:45
2013.03.22
Из DLL Visual Studio в DLL Delphi7