TCanvas и освобождение дескрипторов

TCanvas автоматически ReleaseDC не вызывает. При создании холста с WindowDC в качестве дескриптора, лучшей идеей будет создание потомка TCanvas (моделированного с TControlCanvas):

type

  TWindowCanvas = class
(TCanvas)
  private

    FWinControl: TWinControl;
    FDeviceContext: HDC;
    procedure
 SetWinControl(AControl: TWinControl);
  protected

    procedure
 CreateHandle; override
;
  public

    destructor
 Destroy; override
;
    procedure
 FreeHandle;
    property
 WinControl: TWinControl read
 FWinControl write
 SetWinControl;
  end
;

implementation


destructor
 TWindowCanvas.Destroy;
begin

  FreeHandle;
  inherited
 Destroy;
end
;

procedure
 TWindowCanvas.CreateHandle;
begin

  if
 FControl = nil
 then

    inherited
 CreateHandle
  else

  begin

    if
 FDeviceContext = 0 then

      FDeviceContext := GetWindowDC(WinControl.Handle);
    Handle := FDeviceContext;
  end
;
end
;

procedure
 TControlCanvas.FreeHandle;
begin

  if
 FDeviceContext <> 0 then

  begin

    Handle := 0;
    ReleaseDC(WinControl.Handle, FDeviceContext);
    FDeviceContext := 0;
  end
;
end
;

procedure
 TControlCanvas.SetWinControl(AControl: TWinControl);
begin

  if
 FWinControl <> AControl then

  begin

    FreeHandle;
    FWinControl := AControl;
  end
;
end
;

Очевидно, вы должны должны следить за ситуацией, и разрушать TWindowCanvas (или освобождать дескриптор) перед тем, как уничтожить элемент управления, связанный с ним. Также, имейте в виду, что дескриптор DeviceContext не освобождается автоматически после обработки каждого сообщения (как это происходит с дескрипторами TControlCanvas); для освобождения дескриптора вы должны явно вызвать FreeHandle (или разрушить Canvas). И, наконец, имейте в виду, что "WindowCanvas.Handle:= 0" не освобождает десктиптор, для его освобождения вы должны вызывать FreeHandle.

Другое по теме:

• Алгоритм градиентной заливки
• Вертикальный текст
• Вывести полупрозрачный текст