Создание адаптивного интерфейса

@Mazanton · Регистрация: 17.07.2011

Author24 — интернет-сервис помощи студентам

Доброго времени суток. Пытаюсь создать адаптивный интерфейс. Программа создается для университета. В разных аудиториях разные мониторы, соответственно - разное разрешение экрана. Программа по умолчанию разворачивается на весь экран. Никак не получается определить высоту объекта TMainMenu, площадь, занимаемая объектом TPageControl пересчитывается неправильно - TPageControl выезжает за видимую область монитора. На первом Tab'е имеется панель с именем "Holst", куда наносятся элементы логической схемы. Данная панель ограничивает область перемещения элементов схемы. Но по непонятной причине элементы схемы выезжают за область Holst'а. Как это можно исправить?

Delphi

unit Unit1;
 
 
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ComCtrls, ExtCtrls, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ElemAnd: TImage;
    ElemOr: TImage;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    PageControl1: TPageControl;
    Tools: TPanel;
    Holst: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure ElemAndClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
    procedure ElemOrClick(Sender: TObject);
    procedure _MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure _MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure _MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
 
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  tx, ty: Integer;
  Image: TImage;
  isDragging : boolean = false;
  MonitorH, MonitorW: Integer;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
    MonitorW:= Screen.Width;
    MonitorH:= Form1.Height;
    PageControl1.Top:= 70;
    PageControl1.Left:=0;
    PageControl1.Width:= Form1.ClientWidth ;
    PageControl1.Height:= Form1.ClientHeight;
 
    Tools.Left:=0;
    Tools.Top:=0;
    Tools.Width:= Form1.ClientWidth;
 
    Holst.Width:=Form1.ClientWidth;
    Holst.Height:=Form1.ClientHeight;
    Holst.Top:=0;
    Holst.Left:=0;
 
end;        // Адаптивность интерфейса
 
procedure TForm1.ElemOrClick(Sender: TObject);
begin
    Image:=TImage.Create(Form1);
  Image.Parent:=Holst;
  Image.Left:=50;
  Image.Top:=50;
  Image.Width:=48;
  Image.Height:=48;
 
  Image.Picture.LoadFromFile('img/elem_or.png');
  Image.OnMouseDown:= @_MouseDown;
  Image.OnMouseMove:= @_MouseMove;
  Image.OnMouseUp:= @_MouseUp;
end;
 
procedure TForm1.ElemAndClick(Sender: TObject);
begin
   Image:=TImage.Create(Form1);
  Image.Parent:=Holst;
  Image.Left:=50;
  Image.Top:=50;
  Image.Width:=48;
  Image.Height:=48;
 
  Image.Picture.LoadFromFile('img/elem_and.png');
  Image.OnMouseDown:= @_MouseDown;
  Image.OnMouseMove:= @_MouseMove;
  Image.OnMouseUp:= @_MouseUp;
end;
 
procedure TForm1._MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      isDragging := false;
end;
 
procedure TForm1._MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 
      tx:=X; ty:=y;
        isDragging := Shift = [ssLeft];
 
end;
 
procedure TForm1._MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 begin
        if not isDragging then Exit;
 
  Image := Sender as TImage;
  Holst := (Image.Parent) as TPanel;
 
  Image.Left := Image.Left + X - tx;
  Image.Top := Image.Top + y - ty;
 
  if Image.Left < 0 then Image.Left := 1;
  if Image.Top < 0 then Image.Top := 1;
  if Image.Left + Image.Width >= Holst.Width then
    Image.Left := Holst.Width - Image.Width;
  if Image.Top + Image.Height >= Holst.Height then
    Image.Top := Holst.Height - Image.Height - 1;
 
end;
end.

@volvo · 25.11.2014, 21:29

1) в OnCreate формы:

Pascal

    MonitorW:= Screen.Width;
    MonitorH:= Form1.Height;
    PageControl1.Top:= 70;
    PageControl1.Left:=0;
    PageControl1.Width:= Form1.ClientWidth ;
    PageControl1.Height:= Form1.ClientHeight - 70; // <--- Вот это добавь, чтобы весь PageControl был видимым на форме

2) в инспекторе объектов той панели, которая лежит на TabSheet1 (она тоже называется Holst) назначь Align = alClient, чтобы она вся была в видимой области экрана. Тогда ничего уходить с панели не будет...

@Mazanton · 25.11.2014, 22:15 **[ТС]**

Сообщение от UI

1) в OnCreate формы:

Pascal

    MonitorW:= Screen.Width;
    MonitorH:= Form1.Height;
    PageControl1.Top:= 70;
    PageControl1.Left:=0;
    PageControl1.Width:= Form1.ClientWidth ;
    PageControl1.Height:= Form1.ClientHeight - 70; // <--- Вот это добавь, чтобы весь PageControl был видимым на форме

2) в инспекторе объектов той панели, которая лежит на TabSheet1 (она тоже называется Holst) назначь Align = alClient, чтобы она вся была в видимой области экрана. Тогда ничего уходить с панели не будет...

Все равно, слева, справа и снизу остаются маленькие отступы - пару пикселей.
Tab'ы не на весь монитор по высоте.
А если добавить "PageControl1.Height:= Form1.ClientHeight - 70; // <--- Вот это добавь, чтобы весь PageControl был видимым на форме", то не весь PageControl виден на форме.
Можно что-то предпринять?

@volvo · 25.11.2014, 22:21

Я бы вообще не заморачивался с подобным изменением размеров, а дал бы возможность пользователю менять его самостоятельно: выставил бы верхней панели (где изображения изначально) Align = alTop, потом положил бы Splitter, и потом - TabControl, с Align = alClient, кому сколько надо будет - тот столько и сделает высоту верхней панели. Зато всегда всё будет на экране... Чтобы предотвратить чересчур высокую верхнюю панель, можно задать констрейнты, которые будут ограничивать возможность перемещения сплиттера.

Сообщение от Mazanton

А если добавить "PageControl1.Height:= Form1.ClientHeight - 70; // <--- Вот это добавь, чтобы весь PageControl был видимым на форме", то не весь PageControl виден на форме.

У меня - весь. Но еще раз: лучше всего выравнивать через значения, отличные от alNone...

P.S. Вот примерно так:

	25.11.2014, 22:21