Семейство шрифтов не может быть установлено в X-приложениях - PullRequest
1 голос
/ 29 марта 2012

Это простое приложение CLX пытается установить семейство шрифтов TMemo на шрифт фиксированной ширины:

1.Приложение, скомпилированное с использованием Kylix 3, работающее в локальной системе Linux, выдает правильное выравнивание.

application running in local Linux box

2.Приложение, скомпилированное с использованием Delphi 7, работающее в локальной коробке Windows, выдает правильное выравнивание.

application running in local Windows box

3.Приложение, скомпилированное с использованием Kylix 3, работающее в удаленном Linux с Windows XServer, не дает правильного выравнивания.

application running in remote Linux with Windows XServer

4Приложение, скомпилированное с использованием Kylix 3, работающее в удаленном Linux с Mac Lion XServer, не дает правильного выравнивания.

application running in remote Linux with Mac Lion XServer

Не могли бы вы прокомментировать, как обойти эту проблему?Любой комментарий будет оценен!

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
...