Пропорциональное изменение размеров компонентов панелей в Delphi

Поэтому я использую Delphi Rad Studio версии 10.3.

Мне нужно создать форму статистики для PAT в школе (11 класс).

Я пытаюсь создать форму с двумя панелями. Один для кнопок для отображения статистики и взаимодействия, а другой для фактической статистики.

Вот проблема: я хочу иметь возможность изменять размер формы, и 2 панели должны изменять размер пропорционально. Ошибка в моем коде, которую я, кажется, не могу исправить, заключается в том, что при уменьшении формы ширина панелей не уменьшается, а увеличивается. Я использовал третью панель, чтобы определить изменение размера формы, потому что обнаружил, что ширина формы != ширине размещаемых компонентов.

Вот код функции, которую я создал для округления 2 чисел (frmHelp_Dialog.my_round):

function TFrmHelp_Dialog.My_Round(number: real): integer;
var
  Decimal_value, Integer_value, snumber: string;
begin
  try
    snumber := floattostrF(number, fffixed, 12, 8);

    Decimal_value := copy(snumber, pos('.', snumber) + 1, length(snumber));
    Integer_value := copy(snumber, 1, pos('.', snumber) - 1);

    if Decimal_value[1] >= '5' then
    begin
      result := strtoint(Integer_value) + 1;
    end
    else
    begin
      result := strtoint(Integer_value);
    end;
  except
    beep;
    messagedlg
      ('An error occured during function "Round" excecution in Help_Dialog.pas.',
      mterror, [mbok], 0);
  end;
end;

Вот мой код:

    unit Stats_u;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, VclTee.TeeGDIPlus,
  VclTee.TeEngine, Vcl.ExtCtrls, VclTee.TeeProcs, VclTee.Chart, VclTee.series,
  Help_Dialog;

type
  TStats = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
  var[enter image description here][1]
    Chart2: TChart;
    Original_Width: integer;

  const
    Panel_Ratio = 0.5;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Stats: TStats;

implementation

{$R *.dfm}

uses Unit1;

procedure TStats.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Stats.hide;
  form1.position := poscreencenter;
  form1.show;
end;

procedure TStats.FormCreate(Sender: TObject);
begin
  Stats.position := poscreencenter;
  // panels
  Original_Width := Panel3.left + Panel3.width;
  Panel2.width := Original_Width - Panel2.left;
  Panel3.SendToBack;
  Panel2.BringToFront;

end;

procedure TStats.FormResize(Sender: TObject);
var
  Current_Width: integer;
begin
  // get current width
  Current_Width := Panel3.left + Panel3.width;
  (*
    showmessage(IntToStr(Current_Width));
    showmessage(IntToStr(original_width));
  *)

  // --set anchors--
  Panel1.anchors := [aktop, akbottom, akleft];
  Panel2.anchors := [aktop, akbottom];

  // panel 1 resize:
  Panel1.width := Panel1.width + FrmHelp_Dialog.My_Round
    (0.1 * (Current_Width - Original_Width));

  Panel2.left := Panel1.width;
  Panel2.width := Panel2.width + FrmHelp_Dialog.My_Round
    (0.9 * (Current_Width - Original_Width));

  Original_Width := Current_Width;

end;

end.

Изображение во время выполнения, размер еще не изменен.

С уважением, Романы


delphi delphi-10.3-rio
person Romans    schedule 23.07.2020    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Во-первых, вы должны заметить, что ширина клиентской области элемента управления равна ClientWidth. Используйте это, а не Width, который также включает в себя любые границы. Это относится и к формам.

Теперь создайте новое приложение VCL и поместите в него два элемента управления TPanel.

Установите Align = alLeft на первом и Align = alClient на втором.

Наконец, добавьте обработчик OnResize для формы:

procedure TForm1.FormResize(Sender: TObject);
const
  Factor = 0.5;
begin
  Panel1.Width := Round(Factor * ClientWidth);
end;

Здесь Factor — это часть ширины формы, которую должен использовать Panel1. Это действительное число от 0 до 1. Доля ширины формы, которая будет использоваться Panel2, равна 1 - Factor.

Например, если Factor = 0.5, форма будет разделена на две части одинакового размера.

person Andreas Rejbrand    schedule 23.07.2020
comment
Привет. Хорошо, спасибо! Ваш ответ был именно тем, что я искал. Можно еще вопрос? Предположим, мне нужно было 4 кнопки на панели 1, чтобы изменить размер панели, как мне это сделать? - person Romans; 23.07.2020
comment
Я предполагаю, что у вас есть вертикальный столбец кнопок и вы хотите, чтобы ширина кнопок росла вместе с панелью. Если это так, просто установите Anchor каждой кнопки на [akLeft, akTop, akRight] (то есть добавьте akRight). Расположите их красиво во время разработки, и они автоматически изменят размер во время выполнения. - person Andreas Rejbrand; 23.07.2020
comment
Привет. На самом деле кнопки находятся в двух столбцах рядом друг с другом, как на представленном изображении, но не волнуйтесь. Я понял! Спасибо еще раз! - person Romans; 23.07.2020
comment
@ Андреас Рейбранд не мог бы помочь мне с другим вопросом? stackoverflow.com/questions/63086596/ - person Romans; 25.07.2020