[Unknowing]

Всем привет! Вот код класса (примерно):

Код:

uses
 Windows,GDIPAPI,GDIPOBJ;
type
 TGyroHorizon = class(TObject)
private
  graphics : TGPGraphics;
  Bitmap : TGpBitmap;
  MplayBack : TGPGraphics;
  cBitmap: TGPCachedBitmap;
  Pen: TGPPen;

// protected

public

 constructor Create (AOwner: TObject; Playback : HDC);
 destructor  Destroy; override;
 procedure View();

end;

implementation

constructor TGyroHorizon. Create (AOwner: TObject; Playback : HDC);
begin
  Bitmap:= TGpBitmap.Create(100 ,100 ,2498570);
  graphics := TGPGraphics.Create(Bitmap);
  graphics.Clear(aclBlack);
  MplayBack :=TGPGraphics.Create(Playback);
  Pen := TGPPen.Create(aclWhite);
  View(20);
   inherited Create;
end;

destructor  TGyroHorizon.Destroy;
begin
  Pen.Free;
  graphics.Free;
  MplayBack.Free;
  Bitmap.Free;
 inherited Destroy;
end;

procedure TGyroHorizon.View(R : integer);
begin

 cBitmap:= TGPCachedBitmap.Create(bitmap,MplayBack);
 graphics.DrawEllipse(Pen, 10, 20, R, R);
 MplayBack.DrawCachedBitmap(cBitmap, 0, 0);
 cBitmap.Free; 
end;

Читаем правила форума и не забываем об оформлении кода.

При вызове GyroHorizon.View ничего не происходит.. Где ошибка?

[Burka]

Может ... Var Playback : HDC);.. просто не хватает =)

[Unknowing]

а при чем здесь Var Playback : HDC ?? Совершенно никаго отношения к проблеме не имеет!...

[Aristarh Dark]

Конечно ничего не произойдет... У кантинок нет родителей... На ком они отрисовываться должны???