не вызывается Paint в borland 5

[primeplus]

даже когда компилирую и запускаю примеры с книги функция Paint не рисует ничего, изображение можно нарисовать только если вместо Paint использовать EvPaint и поместить в таблицу отклика EV_WM_PAINT

вот

[Stilet]

Код в студию.

[primeplus]

/* =========================================================== *\
**  pdemo.cpp -- Demonstrate Paint() function                  **
** =========================================================== **
**                                                             **
** =========================================================== **
**     Copyright (c) 1994 by Tom Swan. All rights reserved.    **
\* =========================================================== */

#include <owl\applicat.h>
#include <owl\framewin.h>
#include <owl\dc.h>
#pragma hdrstop
#include "pdemo.rh"

// ===========================================================
// The application's main window
// ===========================================================

class TPDemoWin: public TFrameWindow {
public:
  TPDemoWin(TWindow* parent, const char far* title);
  virtual void Paint(TDC& dc, BOOL erase, TRect& rect);
};

// Constructor
TPDemoWin::TPDemoWin(TWindow* parent, const char far* title)
  : TFrameWindow(parent, title),
    TWindow(parent, title)
{
  AssignMenu(ID_MENU);
}

// Paint or repaint shapes in the window
void
TPDemoWin::Paint(TDC& dc, BOOL /*erase*/, TRect& /*rect*/)
{
  dc.Rectangle(10, 10, 150, 175);
  dc.Ellipse(25, 25, 160, 185);
}

// ===========================================================
// The application class
// ===========================================================

class TPDemoApp: public TApplication {
public:
  TPDemoApp(const char far* name)
    : TApplication(name) {};
  void InitMainWindow();
};

// Initialize the program's main window
void
TPDemoApp::InitMainWindow()
{
  MainWindow = new TPDemoWin(0, "Paint Demo");
}

#pragma argsused

// Main program
int
OwlMain(int argc, char* argv[])
{
  TPDemoApp app("Sketch");
  return app.Run();
}

#include <owl\window.rh>
#include "pdemo.rh"

ID_MENU MENU 
BEGIN
	POPUP "&Demo"
	BEGIN
		MENUITEM "E&xit", CM_EXIT
	END
END

// pdemo.rh -- Resource header file

#define ID_MENU	100

[Stilet]

ы-ы-ы пардон, но раз это Борланд, то почему бы не использовать событие формы OnPaint, да и почему бы не воспользоваться их VCLами? Или я чего-то не допонял?

[primeplus]

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

Или я чего-то не допонял?

трохи. пример с книги, следовательно я только учусь, а долбаный пеинт не вызывался ибо вместо bool передавал BOOL

void Paint(TDC& dc, BOOL erase, TRect& rect);