Программирование для Windows на Borland C++

       

Исходный текст программы


#include <owl\applicat.h>

#include <owl\framewin.h>

class TMyApp: public TApplication

{

public:

TMyApp():TApplication("Hello Windows !"){};

void InitMainWindow()

{

MainWindow=new TFrameWindow(0,"Hello, hello!!");

}

};

int OwlMain(int, char* [])

{

return TMyApp().Run();

}


#include <owl\applicat.h>

#include <owl\framewin.h>

#include <owl\dc.h>

class TMyWindow : public TFrameWindow

{

public:

TMyWindow(char *title):TFrameWindow(0,title)

{}

protected:

void EvLButtonDown(UINT,TPoint&);

DECLARE_RESPONSE_TABLE(TMyWindow);

};

DEFINE_RESPONSE_TABLE1(TMyWindow,TFrameWindow)

EV_WM_LBUTTONDOWN,

END_RESPONSE_TABLE;

void TMyWindow::EvLButtonDown(UINT,TPoint &point)

{

TClientDC dc(HWindow);

TColor forecolor(TColor::LtCyan);

dc.SetTextColor(forecolor);

char buf[20];

wsprintf(buf,"[%d,%d]",point.x,point.y);

dc.TextOut(point.x,point.y,buf);

}

class TMyApp : public TApplication

{

public:

TMyApp():TApplication()

{}

void InitMainWindow()

{

MainWindow=new TMyWindow("Use the left mouse button");

}

};

int OwlMain(int, char *[])

{

TMyApp app;

return app.Run();

}




#include <owl\applicat.h>

#include <owl\framewin.h>

#include <owl\dc.h>

#include <owl\scrollba.h>

class TMyWin : public TFrameWindow

{

public:

TPoint pn,pk;

TScrollBar *sb;

TMyWin() : TFrameWindow(0,"The Paint function")

{

sb=new TScrollBar(this,1,350,100,20,125,FALSE);

pn.x=100;

pn.y=40;

pk.x=300;

pk.y=pn.y;

}

protected:

void Paint(TDC&,BOOL,TRect&);

void EvVScroll(UINT, UINT, HWND);

DECLARE_RESPONSE_TABLE(TMyWin);

};

DEFINE_RESPONSE_TABLE1(TMyWin,TFrameWindow)

EV_WM_VSCROLL,

END_RESPONSE_TABLE;

void TMyWin::Paint(TDC &dc,BOOL,TRect&)

{

TColor color(TColor::LtBlue);

TPen pen1(color);

dc.SelectObject(pen1);

dc.Rectangle(pn,pk);

TPen pen2(TColor::LtGreen);

dc.SelectObject(pen2);

dc.Ellipse(pn,pk);

}

void TMyWin::EvVScroll(UINT scrollcode, UINT thumbPos, HWND hwnd)

{

TFrameWindow::EvVScroll(scrollcode,thumbPos,hwnd);

InvalidateRect(TRect(pn,pk));

pk.y=pn.y+sb->GetPosition()*2;

UpdateWindow();

}

class TMyApp : public TApplication

{

public:

TMyApp():TApplication()

{}

void InitMainWindow()

{

MainWindow=new TMyWin();

}

};

int OwlMain(int, char *[])

{

TMyApp app;

return app.Run();

}




#include <owl\applicat.h>

#include <owl\framewin.h>

#include <owl\button.h>

#include <owl\dc.h>

#define CM_BUTTON1 100

#define CM_BUTTON2 200

class TMyWin : public TFrameWindow

{

public:

TPoint pn,pk;

int nColor;

TMyWin() : TFrameWindow(0,"The Paint function")

{

new TButton(this,CM_BUTTON1,"Palette 1",350,50,80,30);

new TButton(this,CM_BUTTON2,"Palette 2",350,100,80,30);

pn.x=100;

pn.y=50;

pk.x=300;

pk.y=200;

nColor=1;

}

void Paint(TDC&,BOOL,TRect&);

void CmButton1()

{

nColor=1;

Invalidate();

UpdateWindow();

}

void CmButton2()

{

nColor=2;

Invalidate();

UpdateWindow();

}

DECLARE_RESPONSE_TABLE(TMyWin);

};

DEFINE_RESPONSE_TABLE1(TMyWin,TFrameWindow)

EV_COMMAND(CM_BUTTON1,CmButton1),

EV_COMMAND(CM_BUTTON2,CmButton2),

END_RESPONSE_TABLE;

void TMyWin::Paint(TDC &dc,BOOL,TRect&)

{

TColor color(nColor==1 ? TColor::LtBlue : TColor::LtYellow);

TPen pen1(color);

dc.SelectObject(pen1);

dc.Rectangle(pn,pk);

TPen pen2(nColor==1 ? TColor::Black : TColor::LtRed);

dc.SelectObject(pen2);

dc.Ellipse(pn,pk);

}

class TMyApp : public TApplication

{

public:

TMyApp():TApplication()

{}

void InitMainWindow()

{

MainWindow=new TMyWin();

}

};

int OwlMain(int, char *[])

{

TMyApp app;

return app.Run();

}




#include <owl\applicat.h>

#include <owl\framewin.h>

#include <owl\edit.h>

#include <owl\button.h>

#include <owl\dc.h>

#define ID_MULTILINER 150

#define CM_BUTTON 160

class TMyWin: public TFrameWindow

{

TEdit *multiLiner;

char *txt;

public:

TMyWin(): TFrameWindow(0,"the TEdit object")

{

- multiLiner=new TEdit(this,ID_MULTILINER,"Input lines",10,10,200,100,0,TRUE);

- new TButton(this,CM_BUTTON,"Update",10,130,70,25);

}

protected:

void CmButton();

void Paint(TDC&,BOOL,TRect&);

DECLARE_RESPONSE_TABLE(TMyWin);

};

DEFINE_RESPONSE_TABLE1(TMyWin,TFrameWindow)

EV_COMMAND(CM_BUTTON,CmButton),

END_RESPONSE_TABLE;

void TMyWin::CmButton()

{

Invalidate();

//UpdateWindow();

}

void TMyWin::Paint(TDC& dc,BOOL,TRect&)

{

- for (int i=1;i<=multiLiner->GetNumLines();i++)

- {

- int lineLength= multiLiner->GetLineLength(i-1);

- txt= new char[lineLength];

- multiLiner->GetLine(txt,lineLength,i-1);

- dc.TextOut(250,50+i*20,txt);

- delete txt;

- }

}

class TMyApp:public TApplication

{

public:

TMyApp(): TApplication(){};

void InitMainWindow()

- {

- MainWindow=new TMyWin();

- }

};

int OwlMain(int,char *[])

{

return TMyApp().Run();

}



Содержание раздела