Шрифты

[ZvEr_HaCkEr]

Здравствуйте.Возможно ли использовать в Delphi внешние шрифты(лежат в папке с программой),то есть не установленные в систему.За ранние спасибо!

[mihali4]

Да запросто...

procedure TForm1.FormCreate(Sender: TObject);
begin
//объявляем свой шрифт
AddFontResource('IZHITSA.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
//применяем его
Button1.font.name := 'IZHITSA';
//Button1.font.size := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//ликвидируем
RemoveFontResource('IZHITSA.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

[ZvEr_HaCkEr]

что-то не работает

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin

label1.Caption:='hi!';
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
AddFontResource('MTCORSVA.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
label1.Font.Name:='MTCORSVA';
label1.Font.Size:=14;
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
RemoveFontResource('MTCORSVA.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;

end.

что я не правильно делаю?

[mihali4]

У меня работает... (Дельфи 7)
Приложите к ответу файл со шрифтом, я его опробую.

[ZvEr_HaCkEr]

Может проблема в том что у меня Delphi 2010?

[ex.cluz]

AddFontResource('IZHITSA.TTF') ;

Советую вместо 'IZHITSA.TTF' писать полный путь к файлу шрифта. Если в той же папке, что и прога, то:

AddFontResource(ExtractFilePath(Application.ExeName)+'\IZHITSA.TTF');

Насчет слэша не уверен, попробуйте с ним/без него.

[ZvEr_HaCkEr]

Вобще ругается на эту строку

AddFontResource(ExtractFilePath(Application.ExeName)+'MTCORSVA.TTF');

текст ошибки:
Несовместимость типов string and PWideChar
что делать?

[ex.cluz]

Тогда приведем типы:

AddFontResource(PChar(ExtractFilePath(Application.ExeName)+'MTCORSVA.TTF'));

[ZvEr_HaCkEr]

Упс забыл Только все равно не работает

[ex.cluz]

Что пишет? Или просто не загружает?