Font

ehmn.. det gør den ikke her. Hvilken font bruger du?

Hvis du bruger en truetype skrifttype ser det ok ud

Det er Times New Roman

Hos mig er der ingen forskel på en RichEdit og Word

heller ikke her.

Prøv det her:
Højre klik på skærmen->Egenskaber->Effekter->Udjævn kanter på skærmskrifttyper ;)

Jeg har set det... Det var fordi at den brugte standart skriften... og den er ujævn.

Hvilken standskrift?!?

Han mener vel RichEdits standard font MS Sans Serif - den er i hvert fald ujævn

Arh, det løser vi da bare lige let og elefant! :)

uses
  Dialogs, Registry;

private
  DelphiVersion: Byte;

procedure TForm1.FormCreate(Sender: TObject);
begin
{$ifdef VER80}
  DelphiVersion := 1;
{$endif}
{$ifdef VER90}
  DelphiVersion := 2;
{$endif}
{$ifdef VER100}
  DelphiVersion := 3;
{$endif}
{$ifdef VER120}
  DelphiVersion := 4;
{$endif}
{$ifdef VER130}
  DelphiVersion := 5;
{$endif}

  //Er der nogen der kan fortælle mig hvilket tal der stå ved siden af VER for at få Delphi 6?
end;

procedure SetDelphiFont(Version: Byte = 5);
var
  FontDlg: TFontDialog;
  Reg: TRegistry;
  S: String;
begin
  FontDlg := TFontDialog.Create(nil);
  if not FontDlg.Execute then
  begin
    FontDlg.Free;
    Exit;
  end;

  with FontDlg.Font do
  begin
    S := Name + ',' + IntToStr(Size);
    if fsBold      in Style then S := S + ', bold';
    if fsItalic    in Style then S := S + ', italic';
    if fsUnderline in Style then S := S + ', underline';
    if fsStrikeOut in Style then S := S + ', strikeout';
  end;

  FontDlg.Free;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\Borland\Delphi\' + IntToStr(Version) + '.0\Form Design\', True);
    Reg.WriteString('DefaultFont', S);
  finally
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetDelphiFont(DelphiVersion);
end;

{$ifdef VER140}
  DelphiVersion := 6;
{$endif}

Men ændrer du så ikke også caption på knapper etc.?

Hmmm... Det kan der være noget om... Jeg kan bare huske at da jeg lavede procedure'n så var det til spørgsmålet:
http://www.eksperten.dk/spm/221760

Det var egentlig bare ment som sjov den gang, men er da meget rar at ha'! :)

Takker for Delphi-version forresten! ;)