这个简单的CLX应用程序尝试将TMemo的font-family设置为固定宽度字体:
1。使用在本地Linux机器中运行的Kylix 3编译的应用程序可以正确对齐。
2。使用在本地Windows框中运行的Delphi 7编译的应用程序可以正确对齐。
第3。使用在Windows XServer的远程Linux中运行的Kylix 3编译的应用程序无法正确对齐。
4。使用在Mac Lion XServer的远程Linux中运行的Kylix 3编译的应用程序无法正确对齐。
你能帮忙评论如何解决这个问题吗?任何评论将不胜感激!
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.
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