无法在X应用程序中设置字体系列

时间:2012-03-29 13:18:33

标签: linux delphi fonts xserver kylix

这个简单的CLX应用程序尝试将TMemo的font-family设置为固定宽度字体:

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

application running in local Linux box

2。使用在本地Windows框中运行的Delphi 7编译的应用程序可以正确对齐。

application running in local Windows box

第3。使用在Windows XServer的远程Linux中运行的Kylix 3编译的应用程序无法正确对齐。

application running in remote Linux with Windows XServer

4。使用在Mac Lion XServer的远程Linux中运行的Kylix 3编译的应用程序无法正确对齐。

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

0 个答案:

没有答案