обновление рисунка в PaintBox

[HelenSecuriter]

Доброго времени суток!

Не подскажите, почему, когда рисуешь что-нибудь на PaintBox'e, и затем скрываешь окно, то рисунок исчезает:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image1->Canvas->FillRect(Image1->ClientRect);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (ColorDialog1->Execute())Image1->Canvas->Pen->Color=ColorDialog1->Color;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))Image1->Canvas->LineTo(X,Y);
else Image1->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------

В коде везде вместо Image1 должно быть PaintBox1

[Dogmat]

Потому что происходит перерисовка по событию WM_PAINT, а обработчик OnPaint пуст. Обрабатывайте событие OnPaint.

По нажатию на кнопку рисуем, например, в TBitmap, во время OnPaint узнаем какой регион требуется перерисовать и копируем регион аналогичных размеров из TBitmap в bitmap PaintBox-а.

На основе вашего примера:

class TForm1 : public TForm
{
//_______________________Unit1.h_______________________//
__published:	// IDE-managed Components
    TPaintBox *PaintBox;
    void __fastcall PaintBoxMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PaintBoxPaint(TObject *Sender);

public:	
    __fastcall TForm1(TComponent* Owner);

protected:

private:
    Graphics::TBitmap *paintBitmap;
};

//_______________________Unit1.cpp_______________________//
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
    TRect paintRect;
    paintRect.Left = 0;
    paintRect.Top = 0;
    paintRect.Right = PaintBox->ClientWidth;
    paintRect.Bottom = PaintBox->ClientHeight;

    paintBitmap = new Graphics::TBitmap;
    paintBitmap->Width = PaintBox->Width;
    paintBitmap->Height = PaintBox->Height;
    paintBitmap->Canvas->Brush->Color = this->Color;
    paintBitmap->Canvas->FillRect(paintRect);
}

void __fastcall TForm1::PaintBoxMouseMove(TObject *Sender,
                                                              TShiftState Shift, int X, int Y)
{
    if (Shift.Contains(ssLeft))
    {
        paintBitmap->Canvas->LineTo(X,Y);
        PaintBox->Repaint();
    }
    else
    {
        paintBitmap->Canvas->MoveTo(X,Y);
    }
}

void __fastcall TForm1::PaintBoxPaint(TObject *Sender)
{
    TRect clipRect = PaintBox->Canvas->ClipRect;

    PaintBox->Canvas->CopyRect(clipRect, paintBitmap->Canvas, clipRect);
}

А это уже из справки:

virtual void __fastcall Paint(void);

Description

Paint responds to WM_PAINT messages from Windows by initializing the canvas and calling the OnPaint event handler if it is assigned.

[HelenSecuriter]

Спасибо, буду разбираться!