1

这个简单的 CLX 应用程序尝试将 TMemo 的字体系列设置为固定宽度字体：

1. 使用在本地 Linux 机器上运行的 Kylix 3 编译的应用程序可以正确对齐。

在本地 Linux 机器上运行的应用程序

2. 使用在本地 Windows 框中运行的 Delphi 7 编译的应用程序给出了正确的对齐方式。

在本地 Windows 框中运行的应用程序

3. 使用运行在远程 Linux 和 Windows XServer 上的 Kylix 3 编译的应用程序没有正确对齐。

使用 Windows XServer 在远程 Linux 中运行的应用程序

4. 使用运行在远程 Linux 和 Mac Lion XServer 上的 Kylix 3 编译的应用程序没有正确对齐。

使用 Mac Lion XServer 在远程 Linux 中运行的应用程序

你能帮忙评论一下如何解决这个问题吗？任何评论将不胜感激！

uMainForm.pas

unit uMainForm;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  mmo1.Font.Name := 'Console';
end;

{$R *.xfm}

end.

uMainForm.xfm

object Form1: TForm1
  Left = 373
  Top = 181
  Width = 928
  Height = 480
  VertScrollBar.Range = 185
  HorzScrollBar.Range = 305
  ActiveControl = mmo1
  Caption = 'Form1'
  Color = clBackground
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object mmo1: TMemo
    Left = 120
    Top = 96
    Width = 185
    Height = 89
    Lines.Strings = (
      'Max'
      '001'
      '202')
    TabOrder = 0
  end
end
4

0 回答 0