Главная страница
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.271 c
9-1194294204
Mr.Vlad
2007-11-05 23:23
2013.03.22
Сенсор


15-1330759602
wl
2012-03-03 11:26
2013.03.22
Хороший коньяк


3-1285141692
Сергей
2010-09-22 11:48
2013.03.22
Подсказка в DBGrid


15-1330398324
Kerk
2012-02-28 07:05
2013.03.22
Генерация PDF из Delphi


15-1338277495
Scott Storch
2012-05-29 11:44
2013.03.22
отображение имени файла