Главная страница
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.009 c
15-1312943870
Максон
2011-08-10 06:37
2011.12.04
Реализация полного формата даты в отчете


15-1313059279
Palladin
2011-08-11 14:41
2011.12.04
FireMonkey


2-1313652737
Fr
2011-08-18 11:32
2011.12.04
Ошибка при вызове CreateProcess


15-1313217574
coordinator-new-project
2011-08-13 10:39
2011.12.04
Приглашение для программистов поучаствовать в интересном проекте


15-1313057260
antonn (work)
2011-08-11 14:07
2011.12.04
Баннер справа