HiAsm

Форумы Ошибки в компонентах Центрирование относительно родительского элемента работает не корректно ← Ctrl123 4Ctrl →

Ответов: 2265

Рейтинг: 676

#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, вот ТС создал тему в соответствующем разделе, подробно описал суть проблемы, выложил и схему и гифку. И вот не понятно зачем вы решение этой проблемы предлагаете решить таким способом.

карма: 11

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