Правильное уничтожение того, что создал

[Alex Cones]

В общем, насоздавал объектов, а что килять, что оставлять по уничтожению проги не дотюкаю - посеял исходники своего шаблона.

  CreateFont....
  CreateWindowEx...
  CreateWindow...
  DC := GetDC(...);
  DC := CreateCompatibleDC(..);
  Bitmap := CreateCompatibleBitmap(...);

[Stilet]

CreateWindowEx...
CreateWindow...

Тут DestroyWindow

DC := GetDC(...);
DC := CreateCompatibleDC(..);

ReleaseDC

А вот с Битмапом не знаю...
DeleteObject ИМХО

[Alex Cones]

О, благодарю!

[_-Re@l-_]

DeleteObject ИМХО

А FreeAndNil не прокатит?

[Stilet]

А FreeAndNil не прокатит?

А это у Алекса не Делфи, это Win API, а в нем свои методы.

[Alex Cones]

ReleaseDC требует два параметра. Кого там вторым запихнуть? (В смысле первым)

[AlDelta]

ReleaseDC Function

The ReleaseDC function releases a device context (DC), freeing it for use by other applications. The effect of the ReleaseDC function depends on the type of DC. It frees only common and window DCs. It has no effect on class or private DCs.
Syntax

int ReleaseDC(
  __in  HWND hWnd,
  __in  HDC hDC
);

hWnd
A handle to the window whose DC is to be released.

hDC
A handle to the DC to be released.

msdn......

[Alex Cones]

Не ну я понял, что хендл окна-кого-то там. А вот кого, так и не врублюсь - поэтому спросил.

[DomiNick]

My_DC:=GetDC(My_hWnd);
...
ReleaseDC(My_hWnd, My_DC);

А вот с Битмапом не знаю...
DeleteObject ИМХО

Хм... А если битмап к DC "приделали" то может и не надо уже?

[Alex Cones]

My_DC:=GetDC(My_hWnd);
...
ReleaseDC(My_hWnd, My_DC);

Спасибо!

то может и не надо уже?

Сейчас вот так:

For I := 0 To Length(DSTR_List) - 1 Do
   If DSTR_List[I] = TRUE Then
    Begin
     DeleteObject(DSTR_Form[I]^.Warehouse.Buffer.Texture.BitMap);
     For J := 0 To Length(DSTR_Form[I]^.Warehouse.Texture) - 1 Do
      DeleteObject(DSTR_Form[I]^.Warehouse.Texture[J].BitMap);
     ReleaseDC(DSTR_Form[I]^.Image.DC, DSTR_Form[I]^.Warehouse.Buffer.DC);
     ReleaseDC(DSTR_Form[I]^.Image.Handle, DSTR_Form[I]^.Image.DC);
     DestroyWindow(DSTR_Form[I]^.Image.Handle);
     DestroyWindow(DSTR_Form[I]^.Handle);
    End;

Что-то неправильно?