Skip to main content

Problem:

This demo shows how to use the paint method for a window created by Dialog System

Resolution:

INTRODUCTION

==========

Example of creating a window and trapping the paint method.   

SOURCE FILES:

==========

Program Files           Description

---------------------     -----------------------------------------------------------

PaintMe.cbl               PaintMe is just the trigger program that creates aPaintWindow.   MakePaintWin.cbl     Program makes a paint window. Although no local-storage is used, this

                                 section is needed to allow EntryCallback based recursive calls to the entry

                                 points of this program.   

Paintwindow.cbl       PaintWindow is a class program that creates a window with painted graphics

                                 and then traps the windows "paint" method to force the window to refresh

                                 the graphics. NewSet.gs Screenset for the painting.

Copy Files:

---------------------     -----------------------------------------------------------

ds-call.cpy                These copybooks for the screenset Newset.gs and for the data needed in

ds-cntrl.mf                the cobol program Paintwindow.cbl         

Guibase.if                 The rest of the copybooks are for the class methods.   

P2cevent.cpy

Sdiframe.if

Strcture.cpy   

Userctrl.cpy

Resource Files:

---------------------     -----------------------------------------------------------

windows gui class libraries.

REQUIREMENTS:

==========

Windows gui class libraries installed.

OPERATION:

========

Just animate the paintme.exe and step through the calls and invokes to see how the methods are called or invoked.

==========================================================

Keywords: demonstration, sample, example, demo, Dialog System, dspaint.zip

demo.ex

demo.ne

Attachments:

dspaint.zip

Old KB# 4225