10/06/11 20:52:58
>>777 続き
procedure TDSVideoWindowEx2.ClearBack;//変更2010.06.11
var
DC, MemDC: HDC;
MemBitmap, OldBitmap: HBITMAP;
BackBrush, OverlayBrush: HBrush;
begin
*
*
*
finally
SelectObject(MemDC, OldBitmap);
DeleteDC(MemDC);
DeleteObject(MemBitmap);
DeleteObject(BackBrush);
DeleteObject(OverlayBrush);
ReleaseDC(Handle, DC);
end;
上記を下記の順番に変更
finally
DeleteObject(OverlayBrush);
DeleteObject(BackBrush);
ReleaseDC(Handle, DC);
SelectObject(MemDC, OldBitmap);
DeleteDC(MemDC);
DeleteObject(MemBitmap);
end;
end;