Delphi

Roman Go · Отправлено: **08:11, 21-10-2002** | #3

Я сделал вот так, только вот одна проблема, при использовании моего шрифта сбросились все остальные настройки, например мой шрифт выводится подчеркнутым и в добавок ко всему еще и перечеркнутый.

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var shrift:tlogfont;
fontmy:hfont;
begin
shrift.lfEscapement:=900;
// shrift.lfFaceName:='Arial';
shrift.lfCharSet:=RUSSIAN_CHARSET;
fontmy:=CreateFontIndirect(shrift);
form1.canvas.font.handle:=fontmy;
form1.canvas.TextOut(50,50,'проба текста');
deleteObject(fontmy);
end;

Так вот не подскажете, как все настройки шрифта, кроме угла поворота сделать по умолчанию такими как у формы...