FreePascal.ru

не совсем то что надо, но да, Focused уже стоит на другом контроле при обработке onExit.
спасибо.

В delphi можно было узнать, куда уходит фокус в обработчике OnExit через
GetParentForm(TControl(Sender)).ActiveControl
В Lazarus это не работает.
По-видимому отличается очередность назначения свойств и вызове событий при переходе фокуса.

Как можно получить контрол, куда уходит фокус в обработчике ...

ага, вот в параметрах компиляции у проекта так и написано.
в параметрах компиляции у пакета нет ключей -d*
Ну идея понятна, спасибо

в исходниках устанавливаемого пакета дефайны не определены, а в исходниках компилируемой программы задан соответствующий дефайн.
что-то подключить нужно?

ну вот:
ExtTextOut(fBackBuf.Canvas.Handle, 0, 0, ETO_CLIPPED,
nil, // в QT если тут передать nil, то текст не выводится. нужно обязательно передать валидный PRect
PChar(fSomeText), length(fSomeText), nil);

Сорри не уточнил сразу - нужно отличить сборку под QT, GTK, Win32

Как определить сборку при написании исходного кода (т.е. директивы компилации, дефайны и т.п.)?
Поиск в инете и в исходниках не помог (может, не знаю что искать)...

На этом форуме есть тема - QT и GTK2 - посмотрите ее.
Для себя выбрал QT, т.к. нужно приложение MDI.
В сборке по умолчанию (Win32 MDI-окна не работают)

Спасибо, то что нужно, попробую.

ничего не мешает, более того - я так и делаю, но результата нет.
в этом и вопрос

Добавлено спустя 57 минут 38 секунд:
поправка - в delphi работает только с PostMessage, в Lazarus - никак:(

не покатит:(
т.к. нужна именно эмуляция нажатия кнопки.
дабл-клик и F3 - для наглядности

Аналогичная проблема:
в delphi можно написать SendMessage(Ctrl.Handle, WM_KEYDOWN, .....)

в Лазарусе lclintf.SendMessage(Ctrl.Handle, LM_KEYDOWN, ....)
и ничего не происходит.
Что я не так делаю?

Добавлено спустя 52 секунды:
WinXP SP3, QT, Laz 0.9.29

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

про портируемость тоже ...

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

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

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

Добавлено спустя 1 час 37 ...