VPF::TextOut и Rectangle - Форум программистов

Serebrus

Дата 30.8.2007, 08:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Всем привет.
У меня такие вопросы:
1. есть компонент Image, в нем циклический рисуются Rectangle, как можно установить
Image.Width оптимальным чтобы все Rectangle поместились в Image?
2. как можно поместить TextOut в Rectangle, незная длину TextOut?
3. можноли масштабировать компонент Image?
4. как можно узнать точные координаты мышки не смотря на размеры окна
(Mouse.CursorPos.X не дает точные координаты)?

Rennigth

Дата 30.8.2007, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Цитата(Serebrus @ 30.8.2007, 08:01

)

1. есть компонент Image, в нем циклический рисуются Rectangle, как можно установить
Image.Width оптимальным чтобы все Rectangle поместились в Image?

Можно. Вычислить размер всех Rectangle, и установить нужный размер Image.

Цитата(Serebrus @ 30.8.2007, 08:01

)

2. как можно поместить TextOut в Rectangle, незная длину TextOut?

Использовать вместо TextOut функцию DrawText или DrawTextEx.

Цитата(Serebrus @ 30.8.2007, 08:01

)

3. можноли масштабировать компонент Image?

А почему нет? Смотря относительно чего тебе нужно масштабировать.

Цитата(Serebrus @ 30.8.2007, 08:01

)

4. как можно узнать точные координаты мышки не смотря на размеры окна
(Mouse.CursorPos.X не дает точные координаты)?

Как это неправильные? Тебе нужны координаты относительно рабочего стола или твоего окна?

Код


  (* относительно рабочего стола *)
  Label1.Caption := 'X: ' +IntToStr(Mouse.CursorPos.X) + ' Y: ' + IntToStr(Mouse.CursorPos.Y);
  (* относительно окна *)
  Label2.Caption := 'X: ' +IntToStr(ScreenToClient(Mouse.CursorPos).X) + ' Y: ' + IntToStr(ScreenToClient(Mouse.CursorPos).Y);

--------------------

(* Honesta mors turpi vita potior *)

Serebrus

Дата 30.8.2007, 11:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Rennigth, большое спосибо, ты выручил меня.
У меня возникли еще две вопроса:
1. можноли изменить цвет TextOut а?
2. можноли употребить WordWrap к TextOut у?
Заране спосибо. smile

ALeXandrK

Дата 30.8.2007, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 3
Всего: 6

Цитата

1. можноли изменить цвет TextOut а?

Перед выводом меняй цвет таким образом:

Код


...Canvas.Brush.Color := НУЖНЫЙ_ЦВЕТ;

Цитата

2. можноли употребить WordWrap к TextOut у?

Можно... просто тебе нужно будет самому смотреть
длину, сравнивать ее с длиной канвы... и переносить
(т.е. выводить другую часть по другим координатам).
Этот алгоритм думаю можно не выдумывать, а подсмотреть
в исходниках Delphi smile

Это сообщение отредактировал(а) ALeXandrK - 30.8.2007, 21:18

--------------------

Богат не/ни тот, у кого много, а тот, кому хватает

Rennigth

Дата 31.8.2007, 09:47 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Цитата(Serebrus @ 30.8.2007, 11:56

)

1. можноли изменить цвет TextOut а?
2. можноли употребить WordWrap к TextOut у?

Говорюже, используй DrawText. В этой фунциии есть и WordWrap и вообще почти все что душе угодно для вывода текста на DeviceContext(читай Canvas).

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »