【结帖】界面显示问题**

lity

我做的系统界面跟25版本的界面相似,在普通电脑和笔记本上都显示正常,可是,界面在宽屏上显示的时候，界面没拉伸与屏幕一样宽度,而是原来大小，请问下这种情况该这样修改界面?
25版本相应的代码在什么位置呢?
谢谢先!!

Akon

楼主,这有可能跟你的那些align属性设置有关系,因为我的显示器也是宽屏的没有问题,版本是2619,至于你的25系列我没测试过,你可以检查一下,你的align属性.

lity

我们的版本是2827的,界面是模仿25版本做的,窗体上放个panel,align是client,上面放着6个panel的align是alnone,位置是代码控制的.如下:
//初始化
procedure TMAINFORM.InitPanels;
var
  I: Integer;
begin
  SetLength(FPanels, 2);
  for I := Low(FPanels) to High(FPanels) do
    SetLength(FPanels[I], 2);

  FPanels[0][0] := pnlLeft1;
  FPanels[0][1] := pnlRight1;
  FPanels[1][0] := pnlLeft2;
  FPanels[1][1] := pnlRight2;
end;


//位置
procedure TMAINFORM.pnlClientResize(Sender: TObject);
const
  cSpaceWidth = 8;
var
  I, J: Integer;
  lWidth: Integer;
  lHeight: Integer;
  lColCount, lRowCount, lRowOffs, lColOffs: Integer;
begin
  lRowCount := High(FPanels) - Low(FPanels) + 1;
  lColCount := High(FPanels[0]) - Low(FPanels[0]) + 1;
  lWidth := pnlClient.Width div lColCount;
  lHeight := pnlClient.Height div lRowCount;

  for I := Low(FPanels) to High(FPanels) do
  begin
    if I > 0 then
      lRowOffs := cSpaceWidth div 2
    else
      lRowOffs := 0;
    // TODO: 需要考虑一行中列没有值的情况，列没值时融合可能会比较好
    for J := Low(FPanels[I]) to High(FPanels[I]) do
    begin
      if J > 0 then
        lColOffs := cSpaceWidth div 2
      else
        lColOffs := 0;
      FPanels[I][J].BoundsRect := Classes.Bounds(
        lWidth * J + cSpaceWidth - lColOffs,
        lHeight * I + cSpaceWidth - lRowOffs,
        lWidth - (cSpaceWidth + cSpaceWidth div 2),
        lHeight - (cSpaceWidth + cSpaceWidth div 2));
    end;
  end;
end;

lity

图片暂时提供不出来，我们用的都是普通的显示器，只有老总用的是宽屏的,所以取图片不是很方便

Akon

楼主，3楼的代码是您自己写的吗？

lity

不是我自己写的,是参考25版本主界面的.

Akon

建议楼主,不要去参照那部分代码了,那部分代码比较复杂,建议您设置他的align属性.

jiahaiminghr

楼主，还有问题吗？
没有就结帖了。