Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Вниз
Проблемма с работой с классами + GDI+ Найти похожие ветки
← →
unknowing (2008-03-13 18:33) [0]Всем привет! Вот код класса (примерно):
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 ничего не происходит..:) Где ошибка?
← →
MetalFan © (2008-03-13 20:42) [1]а что должно произойти?
← →
unknowing (2008-03-13 20:43) [2]
> MetalFan © (13.03.08 20:42) [1]
Надеялся на отрисовку элипса(окружности)...:)
← →
MetalFan © (2008-03-13 20:44) [3]возможно HDC уже не актуален, вот ничего и не рисуется
← →
unknowing (2008-03-13 20:46) [4]
> MetalFan © (13.03.08 20:44) [3]
Прошу поянить что значит
> HDC уже не актуален
.
← →
unknowing (2008-03-14 11:34) [5]При вызове Create все рисуется. Проблемы начинаются с отдельным вызовом TGyroHorizon.View(R : integer)...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
