Forum Replies Created
-
Posts
-
Да, есть такое, не могу отловить момент когда это происходит, но знаю что кнопка на которой остается фокус должна вызывать popupmenu не назначенное ей а по координатам.
PopupMenu1.Popup(sBitBtn1.ClientOrigin.X, sBitBtn1.ClientOrigin.Y + sBitBtn1.Height);
И бывает на ней остается фокус.
Вот скрин, мышка не заскринилась но она не над кнопкой.
[attachment=8074:Снимок экрана от 2016-12-27 03-18-43.png]
'TCount' wrote:Привет! Все это добро можно настроить в SkinManager, в свойствах MenuSupport.
Спасибо, с размером понятно, цвет не поменять?
Как добавить полоску с надписью боку как в демке?
Эти опции меняют все меню, в демке видел что некоторые пункты жирные, с этим вроде разобрался если в самом попапе дефаулт включить, но там вроде и шрифт больше чем остальные пункты.
Что такое Экстралайн? Для чего?
И куда это добавлять? у меня кубики таскаются по форме, да вообще много чего меняется из рисунков, что же везде его цеплять?
Еще вопрос 🙁
Вот код:
procedure TForm1.sSpeedButton2Click(Sender: TObject);
var
linz:TMemoryStream;
begin
sMagnifier1.Execute();
if acMagnForm <> nil then
begin
with DataModule2 do
begin
LINZA.Open;
linz:=TMemoryStream.Create;
LINZAOVAL.SaveToStream(linz);
linz.Position:=0;
LINZA.Close;
end;
TacMagnForm(acMagnForm).MagnBmp.LoadFromStream(linz);
linz.Free;
end;
end;
В Win7 все прекрасно работает. В XP не грузит картинку, все равно чистая лупа получается 🙁
Подскажите как побороть ошибку?
procedure TForm1.sMagnifier1DblClick(Sender: TObject);
begin
sMagnifier1.Hide;
Form4.ShowModal;
end;
Все нормально, но после закрытия формы вылетает ошибка. Если не модально форму показывать то все нормально, ошибок нет.
