Вверх ↑
Ответов: 1761
Рейтинг: 604
#1: 2019-05-30 02:37:56 ЛС | профиль | цитата
fox-video, если есть желание протестируйте следующие.
В папке HiAsm в файле \Elements\delphi\code\Win.pas измените 428 и 429 строку. Сохраните файл.
Сейчас этот участок выглядит так:
procedure THIWin._work_doCenterPos;
begin
if Assigned(FParent) then
begin
Control.Left := max((FParent.Left + (FParent.Width - Control.Width) div 2), 0);
Control.Top := max((FParent.Top + (FParent.Height - Control.Height) div 2), 0);
end
else
begin
Control.Left := (ScreenWidth - Control.Width) div 2;
Control.Top := (ScreenHeight - Control.Height) div 2;
end;
end;
Нужно сделать так:
procedure THIWin._work_doCenterPos;
begin
if Assigned(FParent) then
begin
Control.Left := (FParent.Width - Control.Width) div 2;//тестирование!!!
Control.Top := (FParent.Height - Control.Height) div 2;//тестирование!!!
end
else
begin
Control.Left := (ScreenWidth - Control.Width) div 2;
Control.Top := (ScreenHeight - Control.Height) div 2;
end;
end;

Схема

Add(MainForm,15464483,315,175)
{
Width=188
Height=189
Point(onResize)
Point(onMove)
link(onCreate,15832730:doWork2,[])
link(onResize,1584626:doWork2,[])
link(onMove,1584626:doWork3,[(363,209)])
}
Add(ChildGroupBox,3090827,378,175)
{
}
BEGIN_SDK
Add(EditMulti,4145507,21,21)
{
WorkCount=1
Width=608
Height=417
link(doWork1,7970121:doEvent1,[(105,27)(105,69)])
}
Add(GroupBox,10199545,189,63)
{
Left=10
Top=5
Width=228
Height=213
Point(doCenterPos)
}
Add(ChildPanel,13219045,189,126)
{
}
BEGIN_SDK
Add(EditMulti,6041293,21,21)
{
WorkCount=1
link(doWork1,8499161:doCenterPos,[(101,27)(101,125)])
}
Add(Panel,8499161,182,112)
{
Left=35
Top=105
Point(doCenterPos)
}
END_SDK
Add(Hub,7970121,126,63)
{
link(onEvent1,10199545:doCenterPos,[])
link(onEvent2,13219045:doWork1,[(168,76)(168,132)])
}
END_SDK
Add(HubEx,15832730,359,189)
{
Angle=3
link(onEvent,3090827:doWork1,[(363,181)])
}
Add(HubEx,1584626,359,196)
{
Angle=3
link(onEvent,15832730:doWork3,[])
}

Если что не понятно спрашивайте. После тестирования верните файл Win.pas в предыдущее состояние.

Леонид, halt, вот ТС создал тему в соответствующем разделе, подробно описал суть проблемы, выложил и схему и гифку. И вот не понятно зачем вы решение этой проблемы предлагаете решить таким способом.
карма: 7

0
Редактировалось 2 раз(а), последний 2019-05-30 03:12:41