Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как изменять масштаб текста??? [D6, D7, Win2k]


Dima_Delphi ©   (2004-08-05 16:17:00) 

На канве рисую текст, но проблема на канвеесть рисунок который ресайзится и в месте с ним мне нужно ресайзить и текст
Текст вывожу через 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-06 16:17:00) [1]

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

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


Dima_Delphi   (2004-08-06 16:06:00) [2]

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


WondeRu   (2004-08-06 15:49:00) [3]

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


Dima_Delphi   (2004-08-06 14:54:00) [4]

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


WondeRu   (2004-08-06 09:14:00) [5]

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


Думкин   (2004-08-06 08:50:00) [6]

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

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


WondeRu   (2004-08-06 08:40:00) [7]

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


Dima_Delphi   (2004-08-05 21:55:00) [8]

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


WondeRu   (2004-08-05 17:29:00) [9]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо