| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вывести растр через функцию DrawState? [D7, XP]

Псарь ©   (2011-08-13 16:16:00) 

Картинка в Image1 (который брошен на форму) - исчезает.
GetLastError пишет, мол неверный дескриптор.

В чем дело?



function DrawStateProc(hdc: HDC; lData : LPARAM; wData: WPARAM; cx, cy: LongInt): BOOL;
begin
 Result:= True;
end;

function Drawing(DC: HDC; X, Y: LongInt; Bmp: TBitmap): boolean;
begin
 Result:= DrawState(DC,
                    Bmp.Canvas.Brush.Handle,
                    @DrawStateProc,
                    Bmp.Handle,
                    0,
                    X,
                    Y,
                    Bmp.Width,
                    Bmp.Height,
                    DST_BITMAP or DSS_UNION);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Drawing(Canvas.Handle, 0, 0, Image1.Picture.Bitmap);
end;


---

Псарь   (2011-08-14 21:58:00) [1]

Вот те на, я оказывается ДЖЕПЕГ загрузил. ;D

---

Псарь   (2011-08-13 16:43:00) [2]

> Юрий Зотов ©   (13.08.11 16:37) [1]


При флаге DST_BITMAP все равно кэлл-бэк не вызывается.

---

Юрий Зотов   (2011-08-13 16:37:00) [3]

function DrawStateProc(...): BOOL; stdcall;

---

Наверх