Как изменять масштаб текста???

← →
Dima_Delphi © (2004-08-05 16:17) [0]

На канве рисую текст, но проблема на канвеесть рисунок который ресайзится и в месте с ним мне нужно ресайзить и текст
Текст вывожу через TextOut or TextDraw

Размер рисунка изменяется автоматом при прорисовке, а текст не меняет свой размер, можно изменять
можно конечно изменять Font.Size но даже при значении 1 текст слишком велик! Мне нужен меньше:-(

procedure TForm1.FormPaint(Sender: TObject);
begin
SetMapMode(FORM1.Canvas.Handle, MM_ANISOTROPIC);
SetViewPortOrgEx(FORM1.CANVAS.Handle, ((HWidth div 2)+Sx), ((HHeight div 2)+Sy), nil);
SetWindowExtEx(FORM1.CANVAS.Handle, 200+10*Mashtab, 200+10*Mashtab, nil);
SetViewPortExtEx(FORM1.CANVAS.Handle, HWidth, -HHeight, nil);
Процедура рисования
end;

← →
WondeRu © (2004-08-05 17:29) [1]

попробуй рисовать на другой канве ("невизуальной") в масштабе 1:1 , а потом копируй это изображение на FORM1.CANVAS!

← →
Dima_Delphi © (2004-08-05 21:55) [2]

ну ващето, у меня сейчас таких обьектов с 2 сотни
а картинку можно мышкой таскать
оно у меня постояно перерисовывается, интересно как оно будет тормозить,
И раскажи по подробнее, а то я не совсем понял????????

← →
WondeRu © (2004-08-06 08:40) [3]

2Dima_Delphi ©
лучше ты расскажи, что за проект, основные функции, что надо получить и чего не получается! И "ВАААЩЕ" КОД В СТУДИЮ!

← →
Думкин © (2004-08-06 08:50) [4]

> можно конечно изменять Font.Size но даже при значении 1 текст слишком велик

С этого места можно поподробнее?

← →
WondeRu © (2004-08-06 09:14) [5]

> меня сейчас таких обьектов с 2 сотни
есть смысл уже использовать DirectDraw или OpenGL!

← →
Dima_Delphi © (2004-08-06 14:54) [6]

>есть смысл уже использовать DirectDraw или OpenGL!
ну смысл есть, конечно но я не на столько знаю DirectDraw, а опен жл там ваще не пойдёт.
Просто электрическая схема нарисована, которая ресайзится колесом миши и таскается правой кнопкой.
Но каждый элемент имеет свою надпись, вот с этим то и проблема, которую я решаю!
Схемка отрисована линиями (в смысле элементы в ней), у каждого елемента свой код.
Схема в виде списка данных об элементах лежит в памяти, а также свободно сохраняется в файл, и из него.
Данные об элементе: координаты Х, У, код, текст, цвет и т.,д.

вот тут то OpenGL и рулит! где битмапы используешь текстуры! а для проводки только векторная графика помогает. Шрифты - какие угодно! Так что присоединяйся к OpenGL-сообществу! купи книгу Краснова М. OpenGL. Графика в проектах Delphi (~90р.) или скачай в сети её электронную версию! проблемы отпадут сами собой!

ЭТА КНИГА У МЕНЯ УЖЕ ЕСТЬ!
Вопрос остаётся открытым!

я сурьезно переделка проекта у тебе не займет и месяца! начальству скажешь: "иначе нельзя"!

а если не хочешь, то все-таки рисуй все на канве размером 2000х2000, а затем с помощью StretchBlt копировать на форму!

Как изменять масштаб текста??? Найти похожие ветки