Вертикальный текст
А можно ли в каком-нибудь компоненте! Сделать текст вертикально! Дайте пример!
есть какие-то нестандартные компоненты для этого, но не помню точно какие, а вообще можно это сделать через Win API - CreateFontIndirect(), вот пример:
TLogFont LFnt;
GetObject(Canvas->Font->Handle,sizeof(TLogFont),&LFnt);
LFnt.lfEscapement = 0.;
Canvas->Font->Handle = CreateFontIndirect(&LFnt);
ключевое поле - lfEscapement - обозначает угол в десятках градусов между осью x и строкой текста... погляди хелп по функции CreateFontIndirect() и структуре LOGFONT - можно и другие параметры текста менять...
TLogFont LFnt;
GetObject(Canvas->Font->Handle,sizeof(TLogFont),&LFnt);
LFnt.lfEscapement = 0.;
Canvas->Font->Handle = CreateFontIndirect(&LFnt);
ключевое поле - lfEscapement - обозначает угол в десятках градусов между осью x и строкой текста... погляди хелп по функции CreateFontIndirect() и структуре LOGFONT - можно и другие параметры текста менять...
Цитата:
Originally posted by Relax
есть какие-то нестандартные компоненты для этого, но не помню точно какие, а вообще можно это сделать через Win API - CreateFontIndirect(), вот пример:
TLogFont LFnt;
GetObject(Canvas->Font->Handle,sizeof(TLogFont),&LFnt);
LFnt.lfEscapement = 0.;
Canvas->Font->Handle = CreateFontIndirect(&LFnt);
ключевое поле - lfEscapement - обозначает угол в десятках градусов между осью x и строкой текста... погляди хелп по функции CreateFontIndirect() и структуре LOGFONT - можно и другие параметры текста менять...
есть какие-то нестандартные компоненты для этого, но не помню точно какие, а вообще можно это сделать через Win API - CreateFontIndirect(), вот пример:
TLogFont LFnt;
GetObject(Canvas->Font->Handle,sizeof(TLogFont),&LFnt);
LFnt.lfEscapement = 0.;
Canvas->Font->Handle = CreateFontIndirect(&LFnt);
ключевое поле - lfEscapement - обозначает угол в десятках градусов между осью x и строкой текста... погляди хелп по функции CreateFontIndirect() и структуре LOGFONT - можно и другие параметры текста менять...
Спасибо.