Как достать точку из под формы?

[ALX_2002]

Челы, вопрос по сабжу.

По скольку я технологии прорисовки окон до конца не знаю, то спрашиваю вас

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

2) Можно ли её скопировать как нибудь ?
(GetDiBits)
Знаю, что звучит бредово. Но в нашей жизни вобще трезво мыслить страшно

В общем, если можно или нельзя - то расскажите схему работы графики плииз

[GSerg]

Рассказываю схему работы графики

У ряда окон (ряд невелик, так что не обольщайтесь ) установлен общеклассовый стиль CS_SAVEBITS. Это значит, что при отображении такого окна будет сохранено во временный битмап всё, что это окно собой перекроет. А при его исчезновении эта информация будет скопирована обратно.
Этот стиль имеют окна типа тултипов и менюшек. Потому что появляются часто и места занимают немного.
Соответственно, для таких окон, наверное, теоретически можно добиться от винды того самого сохранённого битмапа (но где его искать я даже примерно не представляю, и без исходников сами знаете чего здесь не разобраться ).

А для всех остальных окон перекрытие происходит без сохранения. И когда окно исчезает, нижележащие перерисовываются.


Короче нельзя никак

[ALX_2002]

А десктоповому окну такой класс установить нельзя ?

[Amed]

SetWindowLong.

Очевидно, можно, но

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

[ALX_2002]

усёк - долбануться можно. Вот только одно понять не могу, как же тогда скринмейты Delphi - шные пашут. Каким то образом они получают изображение, накладывают на него битмапину.

Вот объясните мне - как они енто творят ???

[GSerg]

А с чего ты взял, что они его получают?

[ALX_2002]

А что ж они тогда получают ? Они же рисуют под себя, то что на экране

тот же Kamikaze Cat

По ходу не вырезание формы делают.

[GSerg]

Точно?

[ALX_2002]

После такого вопра начал сомневаться, но вспомнил, что по какому то багу я как раз понял обратное.

Сообразил - если запустить 2 штуки таких и одного повозить по другому, то видно как верхний берёт картинку нижнего, но с лагами

При вырезании форм такого не происходит.

Хотя... кто знает....

[GSerg]

Дык чё сомневаться
Поюзай GetWindowRgn, посмотри, чё возвращается

[ALX_2002]

Хм а по ходу ты прав..... ...

Тогда встречный вопр.... А можно ли всё таки хранить регион

картинки как нибудь в виде строки ? или ещё в каком нибудь другом

виде ?, так чтобы потом можно было его применить на окно ?

[GSerg]

Блин, чел, ты меня прикалываешь
Я ж тебе ответил в другом топике
Насоздавай регионов, засунь хэндлы в массив. Перед применением региона вызывай CombineRgn с флагом RGN_COPY для получения клона Это самый простой и быстрый способ

[ALX_2002]

Ну дык ГЛЮЧИТ по ЖУТКОМУ ... ответ зранее знаю - из-за корявых лапок...

[GSerg]

Дык КАК, КАК глючит?

[ALX_2002]

1) Сначала мучался с именами регионов, кое как сделал
у меня рисунки в ресурс файле хранятся под именами типа

RUN0,RUN1,RUN2, а потом JUMP0,JUMP1,JUMP2

Парился долго, т.к почему то в Collection нельзя писать вместо индексов набор символов. Но вроде всё таки перебрал все и регионы сделал.


2) Память засирает, хотя DeleteObject использую.

3) Тормозит ещё больше


Короче - нииикак не получается.

[GSerg]

1. Можно имена давать любые. Хоть с точками с запятой.
2. Мдя? Уж на что 98 чувствительна к ресурсам GDI, и то не заметила
3. Гы Только что проверил: 100000 вызывов CreateRoundRectRgn с одними и теми же параметрами занимают примерно 2400 мс, а 100000 вызовов на копирование одного такого же региона, заранее созданного, занимают 50 мс.

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

Option Explicit

Private Declare Function CombineRgn Lib "gdi32.dll" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Const RGN_COPY As Long = 5

Private Sub Form_Load()
  Dim r As Long, rcopy As Long, i As Long, t As Long
 
  t = GetTickCount
  For i = 1 To 100000
    r = CreateRoundRectRgn(10, 10, 50, 50, 20, 20) 'например
    DeleteObject r
  Next
  t = GetTickCount - t
  Debug.Print t
 
 
  rcopy = CreateRoundRectRgn(10, 10, 50, 50, 20, 20)
  r = CreateRoundRectRgn(100, 100, 150, 150, 120, 120)
  t = GetTickCount
  For i = 1 To 100000
    CombineRgn rcopy, r, 0, RGN_COPY
  Next
  DeleteObject rcopy
  DeleteObject r
 
  t = GetTickCount - t
  Debug.Print t
End Sub

[ALX_2002]

Уф.... Запарился... Никогда бы не подумал, что написание скринмейта может так напрячь

С регионами всё класно получается.

+ Скорость работы возросла
+ Нагрузка на проц упала

Запарился с загрузкой регионов.

Т.к скринмейт должен ходить как вправо так и влево, то мне приходится хранить регионы как на движение вправо так и влево.

Т.е я сначала поочереди гружу картинки на форму, где чел идёт вправо, и сохраняю регионы, потом рисую с помощью STRETCHBLT картинку в обратную сторону и снова сохраняю регионы.

Уфф.. Коряво....

Думаю как упростить....