Это простое приложение CLX пытается установить семейство шрифтов TMemo на шрифт фиксированной ширины:
1.Приложение, скомпилированное с использованием Kylix 3, работающее в локальной системе Linux, выдает правильное выравнивание.
2.Приложение, скомпилированное с использованием Delphi 7, работающее в локальной коробке Windows, выдает правильное выравнивание.
3.Приложение, скомпилированное с использованием Kylix 3, работающее в удаленном Linux с Windows XServer, не дает правильного выравнивания.
4Приложение, скомпилированное с использованием Kylix 3, работающее в удаленном Linux с 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