Рисование на канве - Delphi & Builder

Здравствуйте, Tirion, Вы писали:

T>Помогите победить.

T>Как организовать отрисовку (DrawText()) смещение текста по вертикали со стилем кисти bsClear

В чем собственно проблема?

// ...
with Canvas do begin
    Brush.Style := bsClear;
    TextOut(X, Y, S);
end;
// ...

Здравствуйте, ekamaloff, Вы писали:

E>Здравствуйте, Tirion, Вы писали:

T>>Помогите победить.

T>>Как организовать отрисовку (DrawText()) смещение текста по вертикали со стилем кисти bsClear

E>В чем собственно проблема?

E>

E>// ...
E>with Canvas do begin
E>    Brush.Style := bsClear;
E>    TextOut(X, Y, S);
E>end;
E>// ...
E>

Проблема в том, что при смещении текст "размазывается" т.е. все последующие отрисовки накладываются на предидущие...

вот пример:

var i: integer;
R: TRect;
begin
for i:=100 downto 0 do
begin
sleep(10);
with Canvas do
begin
Brush.Style := bsClear;
R:=Rect(0,i,0,0);
DrawText(Canvas.Handle,'test',-1,R,DT_NOCLIP);
end;
end;
end;

Здравствуйте, Tirion, Вы писали:

T>var i: integer;
T>    R: TRect;
T>begin
T>  for i:=100 downto 0 do
T>    begin
T>      sleep(10);
T>      with Canvas do
T>        begin
T>          Brush.Style := bsClear;
T>          R:=Rect(0,i * Canvas.TextHeight('0'),0,0);
T>          DrawText(Canvas.Handle,'test',-1,R,DT_NOCLIP);
T>        end;
T>    end;
T>end;

Ну дык текст то у тебя небось не в один пиксел высотой... Что ж ты хотел...

Здравствуйте, ekamaloff, Вы писали:

E>Здравствуйте, Tirion, Вы писали:

E>

T>>var i: integer;
T>>    R: TRect;
T>>begin
T>>  for i:=100 downto 0 do
T>>    begin
T>>      sleep(10);
T>>      with Canvas do
T>>        begin
T>>          Brush.Style := bsClear;
T>>          R:=Rect(0,i * Canvas.TextHeight('0'),0,0);
T>>          DrawText(Canvas.Handle,'test',-1,R,DT_NOCLIP);
T>>        end;
T>>    end;
T>>end;
E>

E>Ну дык текст то у тебя небось не в один пиксел высотой... Что ж ты хотел...

и как победить? .. я не совсем понял...

i * Canvas.TextHeight('0')

Это не совсем выход, т.к. старая отрисовка при этом не "затирается"... к тому же слишком большой шаг получается.

Как бы то ни было... Нужно полностью перерисовывать канву, отображая на ней текст с новыми координатами.
А R:=Rect(0,i * Canvas.TextHeight('0'),0,0); позволяет лишь растянуть смазываемый текст, а это уже не что требуется.

Здравствуйте, Tirion, Вы писали:

T>Как бы то ни было... Нужно полностью перерисовывать канву, отображая на ней текст с новыми координатами.
T>А R:=Rect(0,i * Canvas.TextHeight('0'),0,0); позволяет лишь растянуть смазываемый текст, а это уже не что требуется.

Ты определись что тебе нужно... DrawText (как и другие GDI-шные функции рисования) и не должна затирать предыдущий текст, это совершенно нормальное поведение.

И не обязательно перерисовывать всю канву. Достаточно перерисовать старый участок, в котором был выведен текст.

Здравствуйте, ekamaloff, Вы писали:

E>Здравствуйте, Tirion, Вы писали:

T>>Как бы то ни было... Нужно полностью перерисовывать канву, отображая на ней текст с новыми координатами.
T>>А R:=Rect(0,i * Canvas.TextHeight('0'),0,0); позволяет лишь растянуть смазываемый текст, а это уже не что требуется.

E>Ты определись что тебе нужно... DrawText (как и другие GDI-шные функции рисования) и не должна затирать предыдущий текст, это совершенно нормальное поведение.

E>И не обязательно перерисовывать всю канву. Достаточно перерисовать старый участок, в котором был выведен текст.

Это-то меня и интересует. Как это сделать?

T>Это-то меня и интересует. Как это сделать?

А что ты вообще хочешь сделать? бегщую строку ? так для того и компоненты есть, используют TTimer с Win32: IvalidateRect

Здравствуйте, Arioch2, Вы писали:

T>>Это-то меня и интересует. Как это сделать?

A>А что ты вообще хочешь сделать? бегщую строку ? так для того и компоненты есть, используют TTimer с Win32: IvalidateRect

А ты не пробовал сделать бегущую строку с прозрачным фоном

SetBkMode(HDC, Transparent)

???

T>А ты не пробовал сделать бегущую строку с прозрачным фоном

SetBkMode(HDC, Transparent)

???

Извр какой. А он над несколькими компонентами ?
Нельзя как фон взять в точности то, что под строкой лежит ?

Ибо таки вся рисовка должна проходить через OnPaint /. Invalidate*

Здравствуйте, Arioch2, Вы писали:

T>>А ты не пробовал сделать бегущую строку с прозрачным фоном

SetBkMode(HDC, Transparent)

???

A>Извр какой. А он над несколькими компонентами ?
A>Нельзя как фон взять в точности то, что под строкой лежит ?

A>Ибо таки вся рисовка должна проходить через OnPaint /. Invalidate*

Ну хотя бы над TImage ...

T>>>А ты не пробовал сделать бегущую строку с прозрачным фоном

SetBkMode(HDC, Transparent)

???

A>>Извр какой. А он над несколькими компонентами ?
A>>Нельзя как фон взять в точности то, что под строкой лежит ?

A>>Ибо таки вся рисовка должна проходить через OnPaint /. Invalidate*

T>Ну хотя бы над TImage ...

???

Здравствуйте, Tirion, Вы писали:

T>Как организовать отрисовку (DrawText()) смещение текста по вертикали со стилем кисти bsClear

Алгоритмов может быть легион.

Например, заводишь Bitmap нужного размера по ширине и высоте, такой, чтобы весь твой текст поместился, в несколько строк, вычисляешь его размер в зависимости от текста, рисуешь на битмапе всё шрифтами и красиво.

Затем рисуешь фрагмент битмапа в нужном месте, ждёшь по таймеру, смещаешь на заданное количество пикселей и опять рисуешь. Рисуешь простым копированием нужного участка битмапа. Ну и т.д. В какой-то книжке по Дельфи (как бы не Пачеко с Тейксейрой) видел реализацию этого алгоритма в виде компонента.

... << RSDN@Home 1.2.0 alpha rev. 634>>

Здравствуйте, Arioch2, Вы писали:

T>>>>А ты не пробовал сделать бегущую строку с прозрачным фоном

SetBkMode(HDC, Transparent)

???

A>>>Извр какой. А он над несколькими компонентами ?
A>>>Нельзя как фон взять в точности то, что под строкой лежит ?

A>>>Ибо таки вся рисовка должна проходить через OnPaint /. Invalidate*

T>>Ну хотя бы над TImage ...

A>???

Разве это невозможно?
В TLMDTextScroll это реализовано. Я бы его использовал, если б не отсутствие выравнивания текста.

T>Разве это невозможно?

Без понятия, я не понял о чем ты говорил.

T>В TLMDTextScroll это реализовано. Я бы его использовал, если б не отсутствие выравнивания текста.
А доработать нельзя ?

Здравствуйте, akasoft, Вы писали:

A>Здравствуйте, Tirion, Вы писали:

T>>Как организовать отрисовку (DrawText()) смещение текста по вертикали со стилем кисти bsClear

A>Алгоритмов может быть легион.

A>Например, заводишь Bitmap нужного размера по ширине и высоте, такой, чтобы весь твой текст поместился, в несколько строк, вычисляешь его размер в зависимости от текста, рисуешь на битмапе всё шрифтами и красиво.

A>Затем рисуешь фрагмент битмапа в нужном месте, ждёшь по таймеру, смещаешь на заданное количество пикселей и опять рисуешь. Рисуешь простым копированием нужного участка битмапа. Ну и т.д. В какой-то книжке по Дельфи (как бы не Пачеко с Тейксейрой) видел реализацию этого алгоритма в виде компонента.

Что-то стало проясняться. Попробую реализовать.

Затем рисуешь фрагмент битмапа в нужном месте, ждёшь по таймеру, смещаешь на заданное количество пикселей и опять рисуешь

С рисованием понятно, а как сместить на заданное количество пикселей?

Здравствуйте, Tirion, Вы писали:

T>

T>Затем рисуешь фрагмент битмапа в нужном месте, ждёшь по таймеру, смещаешь на заданное количество пикселей и опять рисуешь

T>С рисованием понятно, а как сместить на заданное количество пикселей?

Рисовать в другом месте.
Или, если на всю форму, рисовать другой (чуть сдвинутый) кусок Image

Здравствуйте, Tirion, Вы писали:

E>>И не обязательно перерисовывать всю канву. Достаточно перерисовать старый участок, в котором был выведен текст.

T>Это-то меня и интересует. Как это сделать?

http://groups.google.com/group/borland.public.delphi.winapi/msg/a7049e581fe4c9dc

Здравствуйте, akasoft, Вы писали:

A>Здравствуйте, Tirion, Вы писали:

T>>Как организовать отрисовку (DrawText()) смещение текста по вертикали со стилем кисти bsClear

A>Алгоритмов может быть легион.

A>Например, заводишь Bitmap нужного размера по ширине и высоте, такой, чтобы весь твой текст поместился, в несколько строк, вычисляешь его размер в зависимости от текста, рисуешь на битмапе всё шрифтами и красиво.

A>Затем рисуешь фрагмент битмапа в нужном месте, ждёшь по таймеру, смещаешь на заданное количество пикселей и опять рисуешь. Рисуешь простым копированием нужного участка битмапа. Ну и т.д. В какой-то книжке по Дельфи (как бы не Пачеко с Тейксейрой) видел реализацию этого алгоритма в виде компонента.

В принципе нашел вариант реализации, только при смещении слегка мерцает:

var i: integer;
    R1,R:TRect;
    bm2,bm: TBitmap;
    h,w: integer;
begin
  cl:=false;
  repeat
    bm:=TBitmap.Create;
    bm2:=TBitmap.Create;
    h:=Canvas.TextHeight('Текст');
    w:=Canvas.TextWidth('Текст')+length('Текст');
    bm.Height:=h;
    bm.Width:=w;
    bm2.Height:=h;
    bm2.Width:=w;
    bm.Canvas.Font.Color:=clWindow;
    bm.Canvas.Font.Style:=[fsBold];
    R:=Rect(0,0,w,h);
    for i:=0 to Image1.Height-h do
      begin
        Application.ProcessMessages;
        R1:=Rect(Image1.Left,Image1.Top+((Image1.Height-i)-h),Image1.Left+w,Image1.Top+(Image1.Height-i));
        bm.Canvas.CopyRect(R,Canvas,R1);
        bm2.Canvas.CopyRect(R,Canvas,R1);
        setbkmode(bm.Canvas.Handle, Transparent);
        DrawText(bm.Canvas.Handle,'Текст',-1,R,DT_NOCLIP);
        Canvas.CopyRect(R1,bm.Canvas,R);
        sleep(10);
        Canvas.CopyRect(R1,bm2.Canvas,R);
      end;
    bm.Free;
    bm2.Free;
  until cl;
  Application.Terminate;

Кстати, посмотрел "Руководство разработчика" (Пачеко с Тейксейра), и правда там есть пример реализации.

Здравствуйте, Leonid Troyanovsky, Вы писали:

LT>Здравствуйте, Tirion, Вы писали:

E>>>И не обязательно перерисовывать всю канву. Достаточно перерисовать старый участок, в котором был выведен текст.

T>>Это-то меня и интересует. Как это сделать?

LT>http://groups.google.com/group/borland.public.delphi.winapi/msg/a7049e581fe4c9dc

Спасибо за ссылку. Очень помогло. Как раз то, что нужно.

	От:	Tirion
	Дата:	21.01.06 01:38
	Оценка:

	От:	ekamaloff
	Дата:	23.01.06 04:42
	Оценка:

	От:	Tirion
	Дата:	23.01.06 06:27
	Оценка:

	От:	Tirion
	Дата:	23.01.06 06:35
	Оценка:

	От:	ekamaloff
	Дата:	23.01.06 06:42
	Оценка:

	От:	Leonid Troyanovsky
	Дата:	25.01.06 06:41
	Оценка:

	От:	Arioch2
	Дата:	24.01.06 12:41
	Оценка: