DIM cc{lStructSize%, hwndOwner%, hInstance%, \ \ rgb{r&,g&,b&,z&}, lpCustColors%, flags%, \ \ lCustData%, lpfnHook%, lpTemplateName%} DIM cb%(15) cc.lStructSize% = DIM(cc{}) cc.hwndOwner% = @hwnd% cc.lpCustColors% = ^cb%(0) defalut%=0 brushcol% = VAL(FNgetinistring(@dir$+"Drawing Settings.INI", "startup", "brushcol")) GCOL brushcol% ON MOUSE PROCmouse(@wparam%):RETURN REPEAT MOUSE X%, Y%, B% IF (B% AND 4) THEN COLOUR 0, cc.rgb.r&, cc.rgb.g&, cc.rgb.b& IF Ok% DRAW X%, Y% : Ch% = TRUE ELSE Ok% = FALSE MOVE X%, Y% ENDIF UNTIL FALSE END DEF PROCmouse(M%) IF M% = 1 Ok% = TRUE IF M% = 2 PROCsetcol ENDPROC DEF PROCsetcol SYS "ChooseColor", cc{} TO brushcol% IF brushcol% COLOUR 1, cc.rgb.r&, cc.rgb.g&, cc.rgb.b& PROCputinistring(@dir$+"Bryantdraw Settings.INI", "startup", "brushcol", STR$(brushcol%)) GCOL brushcol% ENDPROC DEF FNgetinistring(file$, section$, key$) LOCAL buf% DIM buf% LOCAL 255 SYS "GetPrivateProfileString", section$, key$, "", buf%, 256, file$ = $$buf% DEF PROCputinistring(file$, section$, key$, info$) LOCAL res% SYS "WritePrivateProfileString", section$, key$, info$, file$ TO res% IF res% = 0 ERROR 100, "Couldn't write to file "+file$ ENDPROC
|