$PBExportHeader$u_mc.sru forward global type u_mc from monthcalendar end type end forward global type u_mc from monthcalendar integer width = 1006 integer height = 760 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long titletextcolor = 134217742 long trailingtextcolor = 134217745 long monthbackcolor = 1073741824 long titlebackcolor = 134217741 integer maxselectcount = 31 integer scrollrate = 1 boolean todaysection = true boolean todaycircle = true borderstyle borderstyle = stylelowered! boolean autosize = true end type global u_mc u_mc type variables Public: //Size Order Long #SizeOrder //Anchoring Boolean #AnchorTop Boolean #AnchorLeft Boolean #AnchorRight Boolean #AnchorBottom //Docking Boolean #Dock //Dock Padding Long #DockType, #DockPadTop, #DockPadLeft, #DockPadRight, #DockPadBottom //Dock control reference String #Dock_Control_Top, #Dock_Control_Left, #Dock_Control_Right, #Dock_Control_Bottom Private: str_resize istr_resize end variables forward prototypes public function str_resize of_getresizeattrib () end prototypes public function str_resize of_getresizeattrib ();istr_resize.Control = this istr_resize.ControlName = ClassName(this) istr_resize.SizeOrder = #SizeOrder istr_resize.SizeOrder = #SizeOrder istr_resize.Dock = #Dock istr_resize.DockType = #DockType istr_resize.DockPadTop = #DockPadTop istr_resize.DockPadLeft = #DockPadLeft istr_resize.DockPadRight = #DockPadRight istr_resize.DockPadBottom = #DockPadBottom istr_resize.AnchorTop = #AnchorTop istr_resize.AnchorLeft = #AnchorLeft istr_resize.AnchorRight = #Anchorright istr_resize.AnchorBottom = #Anchorbottom istr_resize.reftop = #Dock_Control_top istr_resize.refleft = #Dock_Control_left istr_resize.refright = #Dock_Control_right istr_resize.refbottom = #Dock_Control_bottom istr_resize.bounds.left = X istr_resize.bounds.top = Y istr_resize.bounds.right = width istr_resize.bounds.bottom = height RETURN istr_resize end function on u_mc.create end on on u_mc.destroy end on
- Sources
- Kodigo
- OpenExplorer
- u_mc.sru
File: u_mc.sru
Size: 2205
Date: Mon, 07 Apr 2008 21:30:47 +0200
Size: 2205
Date: Mon, 07 Apr 2008 21:30:47 +0200
- monthcalendar u_mc(sru)