Главная страница
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.051 c
15-1333744203
Юрий
2012-04-07 00:30
2013.03.22
С днем рождения ! 7 апреля 2012 суббота


2-1339314251
СветаНеМогуСделать
2012-06-10 11:44
2013.03.22
Массивы и символьные строки


15-1338898180
Owner111
2012-06-05 16:09
2013.03.22
LPVOID & LPCVOID


6-1261335712
Vladimir
2009-12-20 22:01
2013.03.22
Передача записи по сети через сокеты


15-1332516369
Хаус
2012-03-23 19:26
2013.03.22
Архитектура. Как правильно ее построить?