Colors3.MOD: Translation to Stony Brook Modula-2

Last updated: 4. 3.1998, 23:40

<*/NOWARN:F*>
MODULE Colors3;
(*----------------------------------------------
   COLORS3.C       --- Version using Common Dialog Box
                   (c) Charles Petzold, 1996
   Colors3.mod     --- Translation to Stony Brook Modula-2
                    c) Peter Stadler,   1997
  ----------------------------------------------*)

IMPORT WINUSER;
IMPORT COMMDLG;
IMPORT SYSTEM;
IMPORT WINGDI;

VAR
  cc         :  COMMDLG.CHOOSECOLOR;
  CustColors :  COMMDLG.CUSTCOLORS;

BEGIN
  cc.lStructSize    := SIZE(COMMDLG.CHOOSECOLOR);
  cc.hwndOwner      := NIL;
  cc.hInstance      := NIL;
  cc.rgbResult      := WINGDI.RGB (0080h, 0080h, 0080h);
  cc.lpCustColors   := SYSTEM.ADR(CustColors);
  cc.Flags          := COMMDLG.CCDLG_RGBINIT BOR COMMDLG.CCDLG_FULLOPEN;
  cc.lCustData      := 0000h;
  cc.lpfnHook       := SYSTEM.CAST(COMMDLG.LPCCHOOKPROC,NIL);
  cc.lpTemplateName := NIL;
  COMMDLG.ChooseColor (cc);
END Colors3.