Дизайнер
Написал наследника от
TfrxBsCustom = class(TfrxView)
переопределил метод
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
begin
BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
DrawBackground;
DrawMY(Rect(FX, FY, FX1, FY1));
DrawFrame;
end;
В Этом месте использую только
DrawMY(Rect(FX, FY, FX1, FY1));
with FCanvas, ARect do
begin
Pen.Style := psSolid;
DrawLine(Left+15, Top , Right, Top, FFrameWidth);
ExtTextOut(Handle, Left + (Right - Left - Length(Description)) div 2, i , ETO_CLIPPED, @ARect, PChar(Description), Length(Description), nil);
SetBkMode(Handle, Transparent);
Ellipse(Left, Top, Right, Bottom);
Polyline( [ Point(Left, Top+i ), Point(Left + i , Top+i *2 ),
Arc(Left, Top, Right, Bottom, Right, Top, Left, Top);
Var p : array [0..3] of TPOINT;
PolyBezier(p);
Т.е я ничего в/из памяти не выделяю.
работаю только через методы Canvas
Отчего может это происходить?
Происходит после работы встави новых объектов и тд....
TfrxBsCustom = class(TfrxView)
переопределил метод
procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
begin
BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
DrawBackground;
DrawMY(Rect(FX, FY, FX1, FY1));
DrawFrame;
end;
В Этом месте использую только
DrawMY(Rect(FX, FY, FX1, FY1));
with FCanvas, ARect do
begin
Pen.Style := psSolid;
DrawLine(Left+15, Top , Right, Top, FFrameWidth);
ExtTextOut(Handle, Left + (Right - Left - Length(Description)) div 2, i , ETO_CLIPPED, @ARect, PChar(Description), Length(Description), nil);
SetBkMode(Handle, Transparent);
Ellipse(Left, Top, Right, Bottom);
Polyline( [ Point(Left, Top+i ), Point(Left + i , Top+i *2 ),
Arc(Left, Top, Right, Bottom, Right, Top, Left, Top);
Var p : array [0..3] of TPOINT;
PolyBezier(p);
Т.е я ничего в/из памяти не выделяю.
работаю только через методы Canvas
Отчего может это происходить?
Происходит после работы встави новых объектов и тд....
Комментарии
the handle is invalid
Вот такие ошибки сыплются..
вроде как не падает больше