くだすれDelphi(超初心者用)その51

くだすれDelphi(超初心者用)その51 at TECH

778:デフォルトの名無しさん
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;

次ページ

続きを表示

1を表示