Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

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

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


 
WondeRu ©   (2004-08-06 15:49) [7]

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


 
Dima_Delphi ©   (2004-08-06 16:06) [8]

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


 
WondeRu ©   (2004-08-06 16:17) [9]

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

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



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.045 c
4-1096537587
kaZaNoVa
2004-09-30 13:46
2004.11.07
Хук, Dll и права System


1-1098627558
LAndreyV
2004-10-24 18:19
2004.11.07
Вопрос по компоненту EDIT


1-1098580172
rerty
2004-10-24 05:09
2004.11.07
Win 98 -> XP, 2000(2003)


4-1096456968
Сергей Ю.
2004-09-29 15:22
2004.11.07
Работа со сканером штрих-кодов


8-1091957143
Delphi5.01
2004-08-08 13:25
2004.11.07
... края силуэта ... плавно переходили в фон





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский