Delphi

XXXX Pro · Отправлено: **13:35, 20-10-2002** | #2

Обычными средствами Delphi (во всяком случае Delphi 3) это вроде бы нельзя. Но можно сделать так:
Создай шрифт с помощью API-функции CreateFont, указав в orientation 900 (угол поворота в десятых долях градусов), а затем затем присвой полученный handle шрифту в Canvas.
Получится примерно вот что:
YourFont:=CreateFont(......);
Form1.Canvas.Font.Handle:=YourFont;

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;

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

Roman Go · Отправлено: **14:54, 23-10-2002** | #4

Я таки разобрался, если кому будет интересно:

Цитата:

var LogRec: TLOGFONT; // Информация о шрифте

// Читаем текущюю информацию о шрифте
GetObject(Form1.Canvas.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );
// Изменяем угол
LogRec.lfEscapement := 900;
// Устанавливаем новые параметры
form1.canvas.Font.Handle := CreateFontIndirect(LogRec);
...
{тут я вывожу свой текст под углом}
...
//а тут я возвращаю параметры по умолчанию
LogRec.lfEscapement := 0;
form1.canvas.Font.Handle := CreateFontIndirect(LogRec);

Только тут вот какая проблема, эта штука поддерживает не все шрифты, а только определенные, если установлен шрифт, который это удовольствие не поддерживает, то ничего не получится, но это не проблема, думаю шрифт поменять не составит ни для кого особого труда, да хоть на тот же Times New Roman