текст в PaintBox

[krikaved]

Если прорисовываешь текст в PaintBox, как сделать чтобы этот текст не затирался, когда по этому тексту проходит секундная стрелка?

procedure TF_MainForm.PaintBox_ClockPaint(Sender: TObject);
var i, k: integer;
begin
with PaintBox_Clock.Canvas do 
begin
        //вывод окружности
        Pen.Color:=clBlue;
        Pen.Width:=1;
        Brush.Color:=$008AC5FF;
        Ellipse(15, 15, 15+2*Radius, 15+2*Radius);
        //вывод рисок
        Pen.Color:=clBlue;
        Pen.Width:=2;
        for i:=0 to 11 do 
            begin
            MoveTo(CenterX+Round((Radius-9)*sin(i/6*pi)),
                   CenterY-Round((Radius-9)*cos(i/6*pi)));
            LineTo(CenterX+Round((Radius)*sin(i/6*pi)),
                   CenterY-Round((Radius)*cos(i/6*pi)));
            end;

        Pen.Color:=clBlue;
        for k:=0 to 59 do 
            begin
            MoveTo(CenterX+Round((Radius-3)*sin(k/30*pi)),
                   CenterY-Round((Radius-3)*cos(k/30*pi)));
            LineTo(CenterX+Round((Radius)*sin(k/30*pi)),
                   CenterY-Round((Radius)*cos(k/30*pi)));
            end;

//вывод цифр
Font.Height:=8;
Font.Color:=clMaroon;
Brush.Color:=$008AC5FF;
TextOut(CenterX-TextWidth('12') div 2, CenterY-3-Radius-TextHeight('12')+25, '12');
TextOut(CenterX+Radius-18, CenterY+6-TextHeight('3'), '3');
TextOut(CenterX-TextWidth('6') div 2, CenterY-26+Radius+3, '6');
TextOut(CenterX-Radius+13-TextWidth('9')+5, CenterY+6-TextHeight('9'), '9');
end;
end;

procedure TF_MainForm.PaintBox1ArrowDraw(DrawColor: TColor);
begin
// часовая и минутная стрелки
with PaintBox_Clock.Canvas do 
     begin
     Pen.Color:=DrawColor;
     Pen.Width:=3;
     MoveTo(CenterX, CenterY);
     LineTo(CenterX+Round(HourArrow*sin(HourAngle)),
            CenterY-Round(HourArrow*cos(HourAngle)));
     MoveTo(CenterX, CenterY);
     Pen.Width:=2;
     LineTo(CenterX+Round(MinArrow*sin(MinAngle)),
            CenterY-Round(MinArrow*cos(MinAngle)));
     MoveTo(CenterX, CenterY);
     end;
end;

procedure TF_MainForm.PaintBox1ArrowDraw1(DrawColor: TColor);
begin
// секундная стрелка
with PaintBox_Clock.Canvas do begin
     Pen.Color:=DrawColor;
     Pen.Width:=1;
     LineTo(CenterX+Round(SecArrow*sin(SecAngle)),
            CenterY-Round(SecArrow*cos(SecAngle)));
     end;
end;

procedure TF_MainForm.T_ClockTimer(Sender: TObject);
begin
// стереть стрелки
PaintBox1ArrowDraw($008AC5FF);
PaintBox1ArrowDraw1($008AC5FF);

// нарисовать стрелки на новом месте
DecodeTime(Time, Hour, Min, Sec, MSec);
HourAngle:=((Hour*60 + Min)/60*5-0.1) * (2*pi/60);
MinAngle:=Min / 60 * (2*Pi);
SecAngle:=Sec / 60 * (2*Pi);
PaintBox1ArrowDraw(clBlack);
PaintBox1ArrowDraw1(clred);
end;

procedure TF_MainForm.FormCreate(Sender: TObject);
begin
CenterY:=PaintBox_Clock.ClientHeight div 2;
CenterX:=CenterY;
Radius:=CenterX-15;
HourArrow:=Radius-30;
MinArrow:=Radius-14;
SecArrow:=Radius-10;

//запуск часов
DecodeTime(Time, Hour, Min, Sec, MSec);
HourAngle:=((Hour*60 + Min)/60*5-0.1) * (2*pi/60);
MinAngle:=Min / 60 * (2*Pi);
SecAngle:=Sec / 60 * (2*Pi);
PaintBox1ArrowDraw(clBlack);
PaintBox1ArrowDraw1(clRed);

T_Clock.Enabled:=true;
end;

[RAZOR3]

Просто каждый раз перерисовывай этот текст

[bitSoft]

vstavi svoi kod v onPaint na PaintBox

[krikaved]

У меня текст и так вставлен в onPaint na PaintBox!

[Kotofff]

В PainBox`е при перерисовке, т.е. в событии onPaint нужно перерисовывать все, что выводится в него.

[krikaved]

У меня появился ещё один вопрос! Почему у меня некоторые риски вышли за окружность именно для переменной k (см. for k:=0 to 59 do)?

procedure TF_MainForm.FormCreate(Sender: TObject);
begin
  CenterY:=PaintBox_Clock.ClientHeight div 2;
  CenterX:=CenterY;
  Radius:=CenterX-15;
  HourArrow:=Radius-30;
  MinArrow:=Radius-14;
  SecArrow:=Radius-10;

  //запуск часов
  DecodeTime(Time, Hour, Min, Sec, MSec);
  HourAngle:=((Hour*60 + Min)/60*5-0.1) * (2*pi/60);
  MinAngle:=Min / 60 * (2*Pi);
  SecAngle:=Sec / 60 * (2*Pi);
  PaintBox1ArrowDraw(clBlack);
  PaintBox1ArrowDraw1(clRed);
  T_Clock.Enabled:=true;
end;

procedure TF_MainForm.PaintBox_ClockPaint(Sender: TObject);
var i, k: integer;
begin
  // прорисовка циферблата
  with PaintBox_Clock.Canvas do
      begin
        //вывод окружности
        Pen.Color:=clBlue;
        Pen.Width:=1;
        Brush.Color:=$008AC5FF;
        Ellipse(15, 15, 15+2*Radius, 15+2*Radius);
        //вывод рисок
        Pen.Color:=clBlue;
        Pen.Width:=2;
        for i:=0 to 11 do
            begin
              MoveTo(CenterX+Round((Radius-9)*sin(i/6*pi)),
                      CenterY-Round((Radius-9)*cos(i/6*pi)));
              LineTo(CenterX+Round((Radius)*sin(i/6*pi)),
                      CenterY-Round((Radius)*cos(i/6*pi)));
            end;
        Pen.Color:=clBlue;
        for k:=0 to 59 do
            begin
              MoveTo(CenterX+Round((Radius-3)*sin(k/30*pi)),
                      CenterY-Round((Radius-3)*cos(k/30*pi)));
              LineTo(CenterX+Round((Radius)*sin(k/30*pi)),
                      CenterY-Round((Radius)*cos(k/30*pi)));
            end;
      end;
end;