В обработчике события ondraw TPictureBox стоит процедура, которая рисует пару десятков линий и столько же надписей на нём. При перемещении какого-либо окна над picturebox возникает искажение изображения (линии рассыпаются на точки, надписи размазываются). Причём, если где-нибудь в другом месте вызвать эту процедуру, то всё рисуется нормально; при свворачивании-разворачивании окна картинка так же рисуется нормально. Пожалуйста объясните кто-нибудь из-за чего этот глюк и как его исправить. Очень нужно

TPictureBox -- это ты где нашел такой? Delphi 7?

По-моему и раньше был.

Может ТPaintBox?

или TImage ?

эт в VB вроде был PictureBox

Да, точно TPaintBox (совсем крыша поехала).

Помогите. Рисование на этом PaintBox - основная функция программы.

а у тя процедура рисование вызывается при OnPaint TPaintBox'а? TPaintBox не сохраняет сам то, что в нем нарисовано и каждый раз надо при OnPaint все перерисовывать.

Да, вызов процедуры стоит в OnPaint TPaintBox'а. А надо чтобы где стоял?

Может, с ClipRect что-то намудрил? покажи код.

Код очень простой:

Код

procedure TfrmMain.ptbGraphPaint(Sender: TObject); begin Draw(ptbGraph.Canvas); //аргумент процедуры - Canvas, на котором надо рисовать end;

Нигде ClipRect я не использовал. Остальные вызовы процедуры Draw стоят в тех местах, когда надо менять изображение. Да, и ещё - PictureBox расположен на Panel.

Дык саму Draw покажи!

Сейчас. Ничего сверхестественного в ней нет. Некоторые переменные могут быть непонятны - но думаю это не важно.

Код

width:=canvas.ClipRect.Right;  height:=canvas.ClipRect.Bottom;  with canvas do begin  pen.Width:=1; //background  Brush.Style:=bsSolid;  Brush.Color:=BackgColor;  pen.Style:=psClear;  Rectangle(ptbGraph.ClientRect); //horizontal lines  if LHVisible1 = true then begin    if LHVisible2 = true then begin      pen.Style := StrToPenstyle(LHStyle2);      pen.Color := LHColor2;      i:=my;      while i > 0 do begin        MoveTo(1,i); LineTo(Width-1,i);        i:=i-Round(stepv/2*zoom);      end;      i:=my;      while i < ptbGraph.Height do begin        MoveTo(1, i); LineTo(Width - 1, i);        i := i + Round(stepv / 2 * zoom);      end;    end;    pen.Style:=StrToPenstyle(LHStyle1);    pen.Color:=LHColor1;    i := my;    while i > 0 do begin      MoveTo(1, i); LineTo(Width - 1, i);      i := Round(i - stepv * zoom);    end;    i := my;    while i < Height do begin      MoveTo(1, i); LineTo(Width - 1, i);      i:=Round(i + stepv * zoom);    end;  end; //vertical lines  if LVVisible1=true then begin    if LVVisible2=true then begin      pen.Style:=StrToPenstyle(LVStyle2);      pen.Color:=LVColor2;      i:=mx;      while i > 0 do begin        MoveTo(i,1); LineTo(i,Height-1);        i:=i - Round(steph / 2 * zoom);      end;      i:=mx;      while i < Width do begin        MoveTo(i,1); LineTo(i,Height-1);        i:=i + Round(steph / 2 * zoom);      end;    end;    pen.Style := StrToPenstyle(LVStyle1);    pen.Color := LVColor1;    i := mx;    while i > 0 do begin      MoveTo(i, 1); LineTo(i, Height - 1);      i := Round(i - steph * zoom);    end;    i := mx;    while i < Width do begin      MoveTo(i, 1); LineTo(i, Height - 1);      i:=Round(i + steph * zoom);    end;  end; //h. axis  if AHVisible=true then begin    pen.Style:=StrToPenstyle(AHStyle);    pen.Color:=AHColor;    moveto(0,my); lineto(Width,my);  end; //v. axis  if AVVisible=true then begin    pen.Style:=StrToPenstyle(AVStyle);    pen.Color:=AVColor;    moveto(mx,0); lineto(mx,Height);  end;   //horizontal captions  if CHVisible = true then begin    font := CHFont;    i := mx;    while i < Width + 1  do begin      TextOut(i - round(textwidth(FloatToStr((i - mx) / steph / zoom)) / 2),                    my + CHSpace,                    FloatToStr((i - mx) / (steph * zoom)));      i := Round(i + steph * zoom);    end;    i := mx;    while i > 0  do begin      TextOut(i - round(textwidth(FloatToStr((i - mx) / steph / zoom)) / 2),                    my + CHSpace,                    FloatToStr((i - mx) / (steph * zoom)));      i := Round(i - steph * zoom);    end;  end; //vertical captions  if CVVisible = true then begin    font := CVFont;    i := round(my + stepv * zoom);    while i < Height do begin      TextOut(mx-textwidth(FloatToStr( - (i - my) / stepv/ zoom)) - CVSpace,                    i - round(textheight(FloatToStr((i - mx) / stepv / zoom))/2),                    FloatToStr( - (i - my) / stepv / zoom));      i := Round(i + stepv * zoom);    end;    i := round(my - stepv * zoom);    while i > 0  do begin      TextOut(mx-textwidth(FloatToStr( - (i - my) / stepv / zoom)) - CVSpace,                    i - round(textheight(FloatToStr((i - mx) / stepv / zoom)) / 2),                    FloatToStr( - (i - my) / stepv / zoom));      i := Round(i - stepv * zoom);    end;  end; //right arrow   if (AHArrow = true) and (AHVisible = true) then begin     moveto(Width-8,my-3); lineto(Width-2,my); moveto(Width-8,my+3); lineto(Width-1,my);     font:=AHFont;     textout(Width-TextWidth(AHCaption)-3,my+4,AHCaption);   end; //top arrow   if (AVArrow = true) and (AVVisible = true) then begin     moveto(mx-3,7); lineto(mx,1); moveto(mx+3,7); lineto(mx,0);     font:=AVFont;     textout(mx-TextWidth(AVCaption)-4,1,AVCaption);   end;

Дальше ещё идёт код, который никакой иформации, думаю, не прибавит - его не понять если не знать код всей программы. Я его закомментаривал, но от этого глюк не пропадал - значит он (код) не так уж важен.

Цитата(L @ 2.2.2003, 15:41)

Код  width:=canvas.ClipRect.Right;  height:=canvas.ClipRect.Bottom;

Блин! А это что Насколько я помню, ClipRect именно при отрисовке части окна из-за движения над ним какой-нибудь гадости и используется.
Но могу и ошибаться.

Остальное вроде в порядке - если переменные mx и my у тебя глобальные.

Огро-о-омное спасибо! . Всё-таки надо делать перерывы в работе - а то мой чайник совсем затуманится . И как я не заметил этот клипрект . Теперь понятно почему части изобранения, которые должнны были появлятся с краю PictureBox, появлялись сразу под передвигающимся окном .

December, ты мне правда очень помог . В такой команде я бы никогда не заподозрил виновницу глюка.

Always welcome.