1

この単純な CLX アプリケーションは、TMemo の font-family を固定幅フォントに設定しようとします。

1. ローカルの Linux ボックスで実行されている Kylix 3 を使用してコンパイルされたアプリケーションは、正しいアライメントを提供します。

ローカルの Linux ボックスで実行されているアプリケーション

2. ローカルの Windows ボックスで実行されている Delphi 7 を使用してコンパイルされたアプリケーションは、正しいアライメントを提供します。

ローカルの Windows ボックスで実行されているアプリケーション

3. Windows XServer を備えたリモート Linux で実行されている Kylix 3 を使用してコンパイルされたアプリケーションは、正しいアライメントを提供しません。

Windows XServer を使用してリモート Linux で実行されるアプリケーション

4. Mac Lion XServer を搭載したリモート Linux で実行されている 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