Главная страница
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
2-1312985507
Kalten
2011-08-10 18:11
2011.12.04
непонятки в создании меню в проекте delphi7


15-1313170131
Leon-Z
2011-08-12 21:28
2011.12.04
Delphi 2007.


2-1313607461
Фотошопп2017
2011-08-17 22:57
2011.12.04
Фотошоп+Делфи???


2-1313155354
qow
2011-08-12 17:22
2011.12.04
работа с формой


2-1313232602
КирилКА
2011-08-13 14:50
2011.12.04
Combobox