论坛风格切换切换到宽版
  • 1784阅读
  • 2回复

屏幕高对比度情况下如何对齐2个标签文本 [复制链接]

上一主题 下一主题
离线lionlove
 

发帖
9
金钱
90
威望
9
只看楼主 倒序阅读 0 发表于: 2015-07-14
     创建了2个TNewStaticText,然后把这两个文本合并在一起,发现在高对比度时候,会散掉,如下图:
     正常的对比度(100%):
      
      设置对比度为(150%):
      
      发现accept和license字段重叠在一起了,请问这个怎么解决,代码如下:
        LicenseLabel1 := TNewStaticText.Create(WizardForm);
  with LicenseLabel1 do
  begin
    Parent := WizardForm;
    Caption := 'Installation mean accept ';
    Left := ScaleX(0);
    Top := ScaleY(285);          
    Width := ScaleX(100);
    Height := ScaleY(100);
    Font.Size := 10;
    Font.Color := clActiveBorder;
    Font.Style:= [fsBold];
  end;

   LicenseLabel2 := TNewStaticText.Create(WizardForm);
  with LicenseLabel2 do
  begin
    Parent := WizardForm;
    Caption := 'license agreement';
    Left := ScaleX(165);
    Top := ScaleY(285);          
    Height := ScaleY(100);
    Font.Size := 10;
    Font.Color := clHighlight;
    Font.Style:= [fsBold];
  end;  
      
离线gnatix

发帖
7696
金钱
-8279
威望
-828
只看该作者 1 发表于: 2015-07-14
LicenseLabel1 := TNewStaticText.Create(WizardForm);
  with LicenseLabel1 do
  begin
    Parent := WizardForm;
    Caption := 'Installation mean accept ';
    Left := ScaleX(0);
    Top := ScaleY(285);          
    AutoSize:= true;
    //Width := ScaleX(100);

    Height := ScaleY(100);
    Font.Size := 10;
    Font.Color := clActiveBorder;
    Font.Style:= [fsBold];
  end;

   LicenseLabel2 := TNewStaticText.Create(WizardForm);
  with LicenseLabel2 do
  begin
    Parent := WizardForm;
    Caption := 'license agreement';
    //Left := ScaleX(165);
    Left := LicenseLabel1.Left + LicenseLabel1.Width;

    Top := ScaleY(285);          
    Height := ScaleY(100);
    Font.Size := 10;
    Font.Color := clHighlight;
    Font.Style:= [fsBold];
  end;  
离线lionlove

发帖
9
金钱
90
威望
9
只看该作者 2 发表于: 2015-07-14
解决了,虎哥牛逼啊,非常感谢。