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.