Главная страница
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.095 c
4-1261045077
Гном11
2009-12-17 13:17
2013.03.22
Что вместо WinSingt в Delphi 2006


15-1348831991
dmi3
2012-09-28 15:33
2013.03.22
for..in..do


15-1353484275
RWolf
2012-11-21 11:51
2013.03.22
TVirtualStringTree, баг отрисовки


2-1343717574
AV
2012-07-31 10:52
2013.03.22
Поток, организация проверки раз в секунду PostThreadMessage


15-1338304541
Bluejohn
2012-05-29 19:15
2013.03.22
Объясните.