Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
15-1309448004
R_R
2011-06-30 19:33
2011.12.04
Фундаментальные шахматы...


2-1313196605
Gu
2011-08-13 04:50
2011.12.04
Запущена ли Delphi IDE


2-1312979784
Onyx2012
2011-08-10 16:36
2011.12.04
Сортировка в TOraQuery


15-1313471235
Xmen
2011-08-16 09:07
2011.12.04
Интерфейс не поддерживается.


8-1220951683
Konung
2008-09-09 13:14
2011.12.04
Рисовать на pf32bit битмапе