Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вертикальный текст, на канве 
:(
    Опции темы
ksili
Дата 30.3.2006, 04:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: 1
Всего: 17
Как на канве отрисовать вертикальный текст? Чтобы как обычное слово, но повёрнутое на 90 градусов. В стандартных средствах обнаружил только возможность писать справа налево


--------------------
Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)
PM MAIL   Вверх
sexton
Дата 30.3.2006, 08:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 5
Всего: 9
Если текст на канве, то вот тебе цитата из бессмертного drkb (на билдер вроде не проблема перегнать):
Цитата

var
  Hfont: Thandle;
  logfont: TLogFont;
  font: Thandle;
  count: integer;
begin
  LogFont.lfheight := 30;
  logfont.lfwidth := 10;
  logfont.lfweight := 900;
  LogFont.lfEscapement := -200;
  logfont.lfcharset := 1;
  logfont.lfoutprecision := out_tt_precis;
  logfont.lfquality := draft_quality;
  logfont.lfpitchandfamily := FF_Modern;
  font := createfontindirect(logfont);
  Selectobject(Form1.canvas.handle, font);
  SetTextColor(Form1.canvas.handle, rgb(0, 0, 200));
  SetBKmode(Form1.canvas.handle, transparent);
  {textout(form1.canvas.handle,10,10,'Повернутый',7);}
  for count := 1 to 100 do
  begin
    canvas.textout(Random(form1.width), Random(form1.height), 'Повернутый');
    SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255),
      Random(255)));
  end;
  deleteobject(font);
end;




--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
Evgesha
Дата 17.5.2006, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
Цитата(sexton @  30.3.2006,  08:49 Найти цитируемый пост)
на билдер вроде не проблема перегнать


 smile 
Как раз и проблема может кто поможет? 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
_hunter
Дата 18.5.2006, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98
с чем именно проблема? функуии не меняются; вместо ":=" пиши "="; все из var' а позаноси в {}; все.
 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
sexton
Дата 18.5.2006, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: 5
Всего: 9
еще кое-где поменять . на -> 


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
Evgesha
Дата 18.5.2006, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
 smile 
Не получается у меня хоть лопни 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
_hunter
Дата 18.5.2006, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98
что именно не получается? 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Evgesha
Дата 18.5.2006, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
Половину кода перевел а начиная со строки   font = CreateFontIndirect(logfont); не могу

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{

  THandle  Hfont;
  TLogFont logfont ;
  THandle font;
  int count;
  logfont.lfHeight = 30;
  logfont.lfWidth = 10;
  logfont.lfWeight = 900;
  logfont.lfEscapement = -200;
  logfont.lfCharSet = 1;
  logfont.lfOutPrecision = OUT_TT_PRECIS;
  logfont.lfQuality = DRAFT_QUALITY;
  logfont.lfPitchAndFamily = FF_MODERN;

  font = CreateFontIndirect(logfont);
  SelectObject(Form1->Canvas->Handle, font);
  SetTextColor(Form1->Canvas->Handle, RGB(0, 0, 200));
  SetBKmode(Form1->Canvas->Handle, Transparent);
  {textout(Form1->canvas->handle,10,10,"Text",7);}
  for count = 1 to 100 do
  {
    canvas.textout(Random(Form1->width), Random(Form1->height), "Perevernutij");
    SetTextColor(Form1->Canvas->handle, rgb(Random(255), Random(255),
      Random(255)));
  };
  deleteobject(font);
};
}
 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Romikgy
Дата 18.5.2006, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 11
Всего: 146
font = CreateFontIndirect(&logfont);
а так? 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Evgesha
Дата 18.5.2006, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
Ты будешь смеяться но я только что в хелбе тоже самое нашел все равно ошибка 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 18.5.2006, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
 smile  smile  smile  smile  smile  
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Evgesha
Дата 18.5.2006, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
 smile  Все проблему решил  smile  Вот код кому надо:
Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  LOGFONT n;

    Canvas->Brush->Style = bsClear;
    ZeroMemory(&n, sizeof(LOGFONT));

    n.lfHeight = 20;
    n.lfEscapement = 10 * 90; //------------------- A zdes gradusi stavit
    n.lfOrientation = 10 * 45;
    n.lfCharSet = DEFAULT_CHARSET;
    strcpy(n.lfFaceName, "Tahoma");

    Canvas->Font->Handle = CreateFontIndirect(&n);
    Canvas->TextOut(100, 100, "Rotated text");
}
 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Romikgy
Дата 18.5.2006, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 11
Всего: 146
А что за ошибку пишет? 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Evgesha
Дата 18.5.2006, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 2.7.2005
Где: Германия

Репутация: нет
Всего: нет
Где 
--------------------
Все это хорошо, а как дальше жить!!!
PM MAIL   Вверх
Romikgy
Дата 19.5.2006, 08:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 11
Всего: 146
Evgesha, уже проехали, эта мессагу надо вставить до твоей 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0614 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.