Текущий архив: 2011.12.04;
Скачать: CL | DM;

Вниз

Как вывести растр через функцию DrawState?   Найти похожие ветки 

← →
Псарь   (2011-08-13 16:16) [0]

Картинка в 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-13 16:37) [1]

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

---

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

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


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

---

← →
Псарь   (2011-08-14 21:58) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2011.12.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c