この単純な 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 を使用してコンパイルされたアプリケーションは、正しいアライメントを提供しません。
この問題を回避する方法をコメントしていただけませんか? どんなコメントでも大歓迎です!
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