Пытаюсь использовать модуль GraphABC

Среда PascalABC.NET
#1

Вот ошибка ndow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) в System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData) в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.Run(Form mainForm) в GraphABC_implementation______.GraphABC_implementation______.InitForm0() в C:\Program Files\PascalABC.NET\LibSource\GraphABC.pas:строка 3712 в System.Threading.ThreadHelper.ThreadStart_Context(Object state) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) в System.Threading.ThreadHelper.ThreadStart()

Program Concebtric; uses graphABC; var i:integer; begin

setWindowSize(400,400); SetPenStyle(psClear);

for i:=20downto 10do begin Setbrushcolor (RGB(10i,0,0)); Circle(200,200,i10); end;

end.

программа, если надо.

Помогите

Заранее, спасибо!

#2

Какая-то у Вас с компьютером проблема. Надо попробовать установить полную версию PascalABC.NET.

#3

как понять полную?

#4

На странице Скачать она идет первой - занимает около 60 Мб

#5

Я эту и использую

#6

Необработанное исключение: System.AccessViolationException: Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена. в System.Drawing.SafeNativeMethods.Gdip.GdipDrawImageI(HandleRef graphics, HandleRef image, Int32 x, Int32 y) в System.Drawing.Graphics.DrawImage(Image image, Int32 x, Int32 y) в GraphABC.ABCControl.OnPaint(Object sender, PaintEventArgs e) в C:\Program Files\PascalABC.NET\LibSource\GraphABC.pas:строка 2171 в System.Windows.Forms.Control.OnPaint(PaintEventArgs e) в System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer) в System.Windows.Forms.Control.WmPaint(Message& m) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) в System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData) в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.Run(Form mainForm) в GraphABC_implementation______.GraphABC_implementation______.InitForm0() в C:\Program Files\PascalABC.NET\LibSource\GraphABC.pas:строка 3712 в System.Threading.ThreadHelper.ThreadStart_Context(Object state) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx) в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) в System.Threading.ThreadHelper.ThreadStart() кучу раз переустанавливал, вот новая ошибка

#7

Может винду переустановить?)

#8

Какая версия ОС?

#9

Xp

#10

SP3

#11

на вин 8.1 все работает. нормально.

#12 
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
Program Concebtric;
uses graphABC;
var i:integer;
begin
  setWindowSize(400,400);
  SetPenStyle(psClear);
  for i:=20 downto 10 do begin
    Setbrushcolor(RGB(10*i,0,0));
    Circle(200,200,i*10)
    end
end.

Все нормально работает. Операционная система WinXP.

2016-03-17_072422.jpg1135×570 101 KB