Вывод текста через API

[ctm]

Есть исходный код по дельфи, где используется WinAPI для вывода текста:
dc := Canvas.Handle;
rect.Left := 0; rect.Top := 0; rect.Right := 300; rect.Bottom := 250;
ExtTextOut(dc, 0, 0, ETO_CLIPPED, @rect, 'asddfg', 6, NIL);

при использовании этих исходников в Lazarus текст не выводится.
lclintf подключил, пробовал явно указывать
lclintf.ExtTextOut(dc, 0, 0, ETO_CLIPPED, @rect, 'asddfg', 6, NIL);

В чем может быть проблема?
Lazarus 0.9.29 QT WinXP SP3

[Mr.Smart]

Если хотите использовать WinAPI, пользуйтесь функциями из модуля Windows.

[ctm]

а как туда передавать прямые handle'ы?
те, к которым есть доступ (например, Canvas.Handle) - это не API-handle, а указатель на экземпляр какого-то класса QT

[Mr.Smart]

Бррр... Я что-то вас не понимаю. Какие вы виджеты используете? Какая ос?

[Vadim]

ctm
А при чём тут Qt?
Вы не пробовали вместо dc этот самый Canvas.Handle подставлять?

[скалогрыз]

похоже, что человек ctm не уверен в правильности переноса кода от WinAPI на (праведный) lclintf.

проверил на Win32 widgetset-е. Работает.
скорее всего ctm пытается рисовать вне OnPaint евента.

ctm, проверь у себя (на Qt) приложенный проект (если будут проблемы с открытием проекта, просто скопируй FormPaint в свой проект, и назначь обработчик у формы OnPaint).

----
рисует следующим кодом:

Код: Выделить всё

uses ...LCLType, LCLIntf;

procedure TForm1.FormPaint(Sender:TObject);
var
  dc : HDC;
  rect : TRect;
begin
  dc := Canvas.Handle;
  rect.Left := 0; rect.Top := 0; rect.Right := 300; rect.Bottom := 250;
  ExtTextOut(dc, 0, 0, ETO_CLIPPED, @rect, 'asddfg', 6, NIL);
end;


[ctm]

Спасибо за совет:)
внутри OnPaint работает как надо.
а можно как-то заставить это работать с хендлом невидимой битмапы, для которой к тому же вызван BeginUpdate()?
так изначально стоит задача
Попробую сам разобраться...

[скалогрыз]

а можно как-то заставить это работать с хендлом невидимой битмапы, для которой к тому же вызван BeginUpdate()?
так изначально стоит задача

Код: Выделить всё

var b: TBitmap;

ExtTextOut(b.Canvas.Handle, ...);


[ctm]

логично, но это же будет ВНЕ OnPaint евента?

Добавлено спустя 42 секунды:
в смысле onpaint для этой битмапы

[Vadim]

У TBitmap нет такого события - OnPaint.

[ctm]

а если я вывожу текст в компоненте (унаследован от TCustomPanel), у которой есть этот самый невидимый битмап,
то внутри чьего OnPaint'а нужно выводить текст в картинку (контрола или формы)?

и почему так происходит?
это из-за Widget.BeginPaint() / Widget.EndPaint() ?

Добавлено спустя 1 час 37 минут 30 секунд:
все, кажется разобрался.
у меня делается Bitmap.BeginUpdate(), потом вывод текста через API

[скалогрыз]

1) в битмап можно рисовать в любой момент времени

2)

и почему так происходит?

композитный движок Qt (в частности огромное желание припахать видео карту к процессу рендеринга ГУИ).
Все жалобы к бывшему TrollTech.

3)

а если я вывожу текст в компоненте (унаследован от TCustomPanel), у которой есть этот самый невидимый битмап, то внутри чьего OnPaint'а нужно выводить текст в картинку (контрола или формы)?

у TCustomPanel, как и любого другого контрола, есть protected метод Paint. этот метод занимается отрисовкой содержимого контрола. Т.е. он сам по себе что-нибудь рисует что-нибудь, и вызывает (может вызывать) event OnPaint, чтобы пользователь компонента, тоже мог в него что-нибудь нарисовать.

Вывод: рисовать в битмап можно когда угодно (например при изменении каких-нибудь свойств компонента унаследованного от TCustomPanel). А выводить битмап на этот самый компонент, следует исключительно во время Paint.

[ctm]

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

В лазарусе - можно получить адрес начального пикселя и прорисовать через RawImage.Data, но только внутри Begin/EndUpdate. Именно п
ри этом всякие TextOut'ы не работают.
Пока не нашел я способа одновременного доступа через RawImage.Data и через стандартные функции, и не понятно если он вообще:(

P.S. Опыт программирования на дельфи у меня большой, а на лазарусе практически никакого - не судите строго

[скалогрыз]

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

между BeginBitmap...EndBitmap, создаётся пиксельная копия из начального
по EndBitmap (если особых флагов не использовалось) содержимое системного bitmap-а (читай битмапа в хендле), заменяется на содержимое записанное в пиксельной копии.

Такой шаг связан с тем, что не на каждом widgetset-е, можно получить прямой доступ к пикселям изображения. Но от каждого изображения всегда можно получить пиксельную копию и скопировать содержимое. На кажущийся "тормоз" это правильно, ибо безопасность, и портируемость.
Например такая схема довольно просто ложится на отрисовку с помощью 3d карточки (directx,opengl) (опять вспоминаем гламурные движки аля Аэро или Компиз)

а есть ли причина делать Низкоуровневую отрисовку?

Добавлено спустя 36 минут 18 секунд:
вот пример использования совместно:
а) ручной отрисовки через RawImage
b) отрисовки используя разные "виды" LCL (через LCLIntf и Canvas)

так же отрисовка происходит в своём контроле (наследнике от TCustomPanel)

ctm, протестируй пожалуйста!

[ctm]

между BeginBitmap...EndBitmap, создаётся пиксельная копия из начального
по EndBitmap (если особых флагов не использовалось) содержимое системного bitmap-а (читай битмапа в хендле), заменяется на содержимое записанное в пиксельной копии

я так и понял - видно по поведению.

про портируемость тоже понятно - но у нас стоит другая задача:
нужно использовать бесплатный продукт разработки ПО, портируемость не нужна совсем, нужно максимально использовать старые наработки на delphi6.
При переносе обнаружилось множество отличий (что вполне логично)...

За ваш пример спасибо, он у меня заработал после третьего пинка - видимо особенности версии имли QT - непонятно...
менял я инкремент до следующего пикселя (4 вместо 3) и пришлось указать честный rect для текста - а то не выводил.

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