Ошибка с переменной или с преобразованием? Внутри.

[Vova777]

Написал эту программу чтобы кое-что для себя протестировать. Поэтому и есть инструкции, типа: "Label10.Caption:= 'X:' + IntToStr(g + 1) + ' Y:' + IntToStr(r + 1);"

Но программа останавливается ошибкой: "Недостаточно памяти для обработки команды" .

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  dcol: longint;
begin
  begin
    dcol:= ColorToRGB(Image3.Canvas.Pixels[x,y]);  ///////вот здесь ошибка
    r:= dcol;
    g:= dcol shr 8;
    b:= dcol shr 16;
    Label10.Caption:= 'X:' + IntToStr(g + 1) + '   Y:' + IntToStr(r + 1);

    if not odd(r) then
      begin
        ig:= g * 120;
        ig:= ig - 60;

        if r = 0 then
          ir:= r * 60
        else
          begin
            ir:= r div 2;
            ir:= ir * 60;
          end;
        ir:= ir - 30;
        Label13.Caption:= 'X:' + IntToStr(ig) + '   Y:' + IntToStr(ir);
      end;
    if odd(r) then
      begin
        ig:= g * 120;
        ir:= r * 30;
        ir:= ir - 30;
        Label13.Caption:= 'X:' + IntToStr(ig) + '   Y:' + IntToStr(ir);
      end;
  end;
  
  if Image2.Canvas.Pixels[x,y] = $000000 then Label9.Caption:= 'S 0';
  if Image2.Canvas.Pixels[x,y] = $000001 then Label9.Caption:= 'S 1';
  if Image2.Canvas.Pixels[x,y] = $000002 then Label9.Caption:= 'S 2';
  if Image2.Canvas.Pixels[x,y] = $000003 then Label9.Caption:= 'S 3';
  if Image2.Canvas.Pixels[x,y] = $000004 then Label9.Caption:= 'S 4';
  if Image2.Canvas.Pixels[x,y] = $000005 then Label9.Caption:= 'S 5';
  if Image2.Canvas.Pixels[x,y] = $000006 then Label9.Caption:= 'S 6';
  if Image2.Canvas.Pixels[x,y] = $000007 then Label9.Caption:= 'S 7';
  if Image2.Canvas.Pixels[x,y] = $000008 then Label9.Caption:= 'S 8';
  if Image2.Canvas.Pixels[x,y] = $000009 then Label9.Caption:= 'S 9';
end;

Нужно это оптимизировать? В том и дело, что все эти инструкции желательно выполнять в этой процедуре.
Или нужно освобождать память?
В чем причина?

[VyachNik]

может так?:
var dcol: cardinal;
r,g,b: byte;
x,y: integer;
begin
dcol:= Image3.Canvas.Pixels[x,y];
r:=GetRValue(dcol);
g:=GetGValue(dcol);
b:=GetBValue(dcol);
........

[Vova777]

Еще вопрос, могут ли на это повлиять размеры Image ? Например 5000х5000

[Stilet]

Image3.Canvas

Как ты туда рисунок загрузил?

[Vova777]

Сообщение от Stilet

Как ты туда рисунок загрузил?

Нарисовал канвой, методом Polygon

...
begin
  Image1.Canvas.Pen.Color:= $000009;  //граница маски
  Image1.Canvas.Brush.Color:= $000009;  //заливка маски
  Image1.Canvas.Polygon([Point(ig, ir + 30), Point(ig + 60, ir + 60), Point(ig + 120, ir + 30), Point(ig + 60, ir)]);  //рисуем маску (это просто ромб)
end;
...

И это исполнялось в цикле

[VyachNik]

у меня получалось с такими размерами:
10х32748 и 32767х10 пикселей;
если меньший размер увеличить до какого-то определенного значения, то выскакивало окошко с ошибкой:
System of out (просто ресурсов компа не хватало )

[Vova777]

Значит размер 5000х5000 не может повлиять на это?

[Stilet]

Нарисовал канвой, методом Polygon

Где????

dcol:= ColorToRGB(Image3.Canvas.Pixels[x,y]); ///////вот здесь ошибка

Обрати внимание на имя компонента, и посмотри что ты мне ответил.

[Vova777]

Сообщение от Stilet

Обрати внимание на имя компонента, и посмотри что ты мне ответил.

Все верно. Основной рисунок, который видит пользователь, лежит в ScrollBox1.Image 1. В ScrollBox2.Image 2 и ScrollBox3.Image 3 созданы маски основного рисунка. Маски создаются также методом Polygon.

Когда водят мышью по Image 1, то по координатам курсора информация читается также и из масок.

...
  Image1.Canvas.Polygon([Point(ig, ir + 30), 
    Point(ig + 60, ir + 60), Point(ig + 120, ir + 30), 
      Point(ig + 60, ir)]);  //рисунок, созданный в основном Image, с помощью Polygon, исполняемого в цикле, с изменением переменных ig и ir
...
  dcol:= ColorToRGB(Image3.Canvas.Pixels[x,y]);  //здесь читается RGB-код цвета пикселя на маске 1
...
  if Image2.Canvas.Pixels[x,y] = $000000 then Label9.Caption:= 'S 0'; //здесь читается RGB-код цвета пикселя на маске 2
...

[Stilet]

Маски создаются также методом Polygon.

Вот теперь понятно. Я думал что ты загружаешь изображение из файла, в этом случае Image любит выкобениваться...
Кстати, а не попробовать ли тебе заменить Image на PaintBox раз ты все равно рисуешь программно?