Форум: "Начинающим";
Текущий архив: 2011.12.04;
Скачать: [xml.tar.bz2];
ВнизКак вывести растр через функцию 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c