Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TextOut и Rectangle

Автор: Serebrus 30.8.2007, 08:01

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

Автор: Rennigth 30.8.2007, 09:41

Цитата(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);

Автор: Serebrus 30.8.2007, 11:56

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

Автор: ALeXandrK 30.8.2007, 21:17

Цитата

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

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

Код


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

Цитата

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

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

Автор: Rennigth 31.8.2007, 09:47

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

)

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

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