Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / APPTBK / APPTBOOK.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1980-01-04 | 28.8 KB | 489 lines

ApptForm Appointments Form15V Panel3D2 SSPanel Appointment Types MS Sans Serif KindFrame SSPanel Phone KindPict ppppp Q}Ux3 KindFrame SSPanel Travel KindPict KindFrame SSPanel Meeting KindPict LLLL@ {;;;<LLLLK;;;0 ;;;;; ;;;;0 ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;3 ;;;;; ;;;;;;0 ;99;;; ;9;;;; KindFrame SSPanel Lunch KindPict wwwwww {;;;;;p ;;;;;p ;;*";7p {;;;r;p Panel3D1 SSPanel Panel3D1 SaveButton MS Sans Serif ApptText ApptTime MaskEdBox MS Sans Serif hh:nn AM/PM ##:## ??( ApptType MS Sans Serif Image1 Label2 When: MS Sans Serif Label1 Appointment type: MS Sans Serif GridTimer ApptList TrashCan wwwww TrashOpened wwwww ppppppppw wwppppwwwp xwwwww TrashClosed wwwww DragArrow DragArrow MoveIcon MoveIcon SaveIcon SaveIcon NoDrag NoDrag @ Form_Load/ Grid1_Click ApptList ColWidth WidthK curTime8 Prefs timeStart timeEnd" timeIncrement curRow rowMax ApptList_Click Height RowHeightl Screen TwipsPerPixelYN PhoneButton_Click PhoneButton_LostFocus8 PhoneButton_DragDrop Source Controlv PhoneButton_DragOver State PhoneButton_GotFocus PhoneButton_KeyDown KeyCode Shift PhoneButton_KeyPress+ KeyAscii PhoneButton_KeyUpY Picture1_Click Picture1_MouseDown Button Picture1} BEGIN_DRAG4 Index Picture1_MouseUp Image1_ClickY Image1_MouseDown Image1r Form_DragOverE ApptForm form- KindPict_MouseDown KindPict KindFrame BackColor G_REDa ApptList_DragOver ClickControlAt Debug1K AtGridRow totalHeight selRow SelStartRow6 SelEndRow lastSelRow GridTimer_Timer Appt_XD Appt_Y ENTER% GridTimerm Enabled LEAVEG ApptList_DragDrop DragObjecto KindPict_MouseUp Timer1_Timer Text1 OldClipCursor BeginDragMode GetClipCursor; GetClientRect hWnd/ cRect ClipCursor EndDragMode Form_DragDrop cPoint APIPOINT POINTAPI ClientToScreen lRetO SetCapture ReleaseCapture bottom right KindPict_DragOver KindFrame_DragDrop} KindFrame_DragOverv KindPict_DragDrop# ExecuteDragr GetMessage` WM_LBUTTONUP ExecuteLBDrag DOBJ_NEWAPPT objType DragType5 Dragging LEFT_BUTTON MASK_NEWAPPTP Lsetet SSPanel DragIndex LTGREY Form_MouseMove DragValidate MASK_NONE src DragIcon@ NoDrag SaveIcon SavedOldDragIconk object AddAppt! kindT ApptTime ApptType TimeRowp thetime4 atime FormatW @ ApptTime_ValidationErrorA InvalidTextK StartPosition: ApptList_RowColChange ApptEdit/ ApptText colonPos aTextv gridLastRow AppListRow AppListc ApptList_SelChanged IgnoreRowChange ApptType_Change ApptType_KeyPress ChangeApptTime newtime oldAppt ApptTime_LostFocusr ApptText_Change ApptText_GotFocus ApptText_LostFocus5 ChangeAppTime Command3D1_Click DragValidN DragValue valid ApptText_DragOver Command3D1_DragOver Label2_Click Panel3D1_DragDrop Panel3D1_DragOver Label1_Click Label1_DragOver Label2_DragOverm ApptType_DragOverC ApptType_DragDrop0 Label1_DragDropJ Label2_DragDropX ApptText_DragDrop ApptTime_DragDrop ApptTime_DragOver8 MASK_OLDAPPT? ApptList_MouseDown GridTimerMode intege* GTIME_DRAGOVER GTIME_PICKUP SetGridTimer Style GTIMER_PICKUP_ GTIME_DISABLE? GTIME_P DragRow Change MoveIcon ApptList_MouseUp Interval SaveButton_Click SaveButton_DragOver Panel3D2_DragDrop SendMessage, ApiRectFromPoint topLocationi GridInvertRect GridInvertedJ InvertRect ApplList newrect doinv gridDC GetDC ReleaseDC TrueEnd HighlightRowAtPoint UnhighlightRow& HighlightRowFromPoint` DropRowNum rownum GridDropRow DragArrow Enable selstartcol@ SelEndCol highlight AtGridCol curCol totalWidth TwipsPerPixelX TrashCan_Click TrashCan_DragOver TrashCan Picture TrashOpened TrashClosed TrashCan_DragDrop ScaleHeight totHeight totWidth Image1_DragDrop Image1_DragOver Variables used to manage grid Drag mode constants to keep track of dragging activity. type of object being draggedi TRUE when dragging is in progress Optional index of dragged obj Optional row being dragged in gridi Miscellaneous variables used as return for DragValidS Bitmasks to describe valid drag objects a new appointment an old appointment mask used where no drops are allowed ApiRectFromPoint Given a grid control and a coordinate position, this routine3 returns a Windows RECT structure containing the pixel coordinates of the row being pointed at. The row number is returned, or -1, indicating that no row is being pointed at. Loop through each row, accumulating row height until we reach the row containing the point. Convert the twips values into pixel coordinates indicate failure ApptEdit This subroutine moves the data in the current grid row into the "post-it" editing area. This routine copies appointment data to the edit window If no colon, there's no appointment, so clear the post-it area. If there is a colon, fill in the information.s ApptList_DragDrop Drop a new appointment or existing appointment at a new row position. ApptList_DragOver When dragging over the grid, both new and old appointments are considered. For both cases, we unhighlight the current destination row upon leaving the drop zone, and assure that the row under the point is highlighted otherwise. ApptList_MouseDown We take charge of the mouse down event to initiate dragging ourselves. First, the cursor must be in column 1. Next, the row must contain a valid appointment to be grabbedx (identified by the presence of a colon in the cell).e The timer will now count down. This allows the users to easily click, or "press" the mouse. The Timer event handles the drag initialization. ApptList_MouseUp Be sure the timer is disabled so that a click doesn't initiate a drag. If it's already disabled, it doesn't matter. ApptList_RowColChange Whenever the row changes, move the highlight to track the current cell. IgnoreRowChange means that we're setting Col or Row somewhere else in the code and we don't want ApptEdit to be called. Otherwise, the user changed the row and we update the "post-it" area. ApptText_DragDrop ApptText_DragOver ApptTime_DragDrop ApptTime_DragOver ApptTime_ValidationError Invalid time ApptType_DragDrop Accept a drop only for a NEWAPPT icon, otherwise thee operation will be cancelled.A ApptType_DragOver ApptType_KeyPress Don't allow a colon to be entered, since we use a colon to separate the appointment "kind" from the text.e AtGridCol Given a point on a grid control, in twips, this routine returns the column number where the point is located, or -1 indicating the point is outside the grid. Loop through each column, accumulating column width until wew reach the column containing the point. not found BeginDragMode Whenever a drag is about to start, this routine is called.w The type mask of the drag is flagged, and we remember thatw dragging is in progress. This routine MUST be matched by an EndDragMode function call.r Start the drag processs ChangeApptTime Given a new time for an appointment at the current row, this routine moves the appointment to the new location in thet grid. If we're already there, then do nothing and return False, indicating no row change occurred.t Actually move the row.g move the data to the post-it area DragValid This function is called by an object's DragOver event to, automatically change the drag cursor to the "no drop" cursor if necessary. It also returns True if the object, can legally be dropped according to the input mask. This is not a valid drag. Return False, but also change the object's drag icon to the NoDrag icon (remembering the oldh value for later restore when we exit this object). Entering, remember old icon Exiting, restore old icon EndDragMode This function is called when a drag has ended, either successfully or unsuccessfully. This routine removes any user feedback related to the drag operation and returns TRUE if the passed mask matches the dragged object. If a "new appointment" icon was dragged, change the frame background to LTGREY again so that the drag is officially over. If this is an item dragged from the grid, refresh the grid in case the drag ended outside the gridh frame (and the inverted row remains). Form_DragDrop Ignore drops which occur on the form Form_DragOver Assure that the "no drop" icon is displayed when passingt over the form.e Form_Load Initialize the grid column widths, and set the height ofe the list so it displays all times entered. XX:XX XX Fill the leftmost column with appointment times.e hh:mm am/pm Form_MouseMove Since we can't trap a "drop" which occurs outside of oure application, this is a pretty good solution. Whenever the cursor passes over the form, if we're still dragging check to see if the button is now up. If so, just cancel the operation GridTimer_Timer When the timer is triggered, the user has been holding the mouse down over a grid row for a "press" duration. Now,h initiate a drag operation. Reset the column to the one with the text in it.n Indicate we're doing an "old appointment" drag. HighlightRowAtPoint If the ApplList grid was highlighted (according to thes GridInverted variable), then unhighlight the old location and highlight the new one. Instead of a row number, a point within the grid is passed. The row number is returned, or -1, meaning that the point was outside the grid.i Don't rehighlight the current row, just exit. Use the Windows API call InvertRect to invert the row we're passing above.s Image1_DragDrop Image1_DragOver KindFrame_DragDrop KindFrame_DragOver KindPict_DragDrop KindPict_DragOver KindPict_MouseDown When the left button goes down over an "appointment type" icon, drag its image in NEWAPPT mode. Copy the DragIcon" each time, since it may still be set to the "no drop" icon from a previous cancellation. Save the index, we'll need it in EndDragMode" Label1_DragDrop Label1_DragOver Label2_DragDrop Label2_DragOver Panel3D1_DragDrop Panel3D1_DragOver SaveButton_Click Save all data in the post-it area to the grid.e We can only save if there's an appointment on the current grid row already (at least a blank one).n No appointment at current row If the time was changed manually, then move the row to the new location. SaveButton_DragOver TimeRow Given a time value, return the row number within the grid where the specified time slot is located. TrashCan_DragDrop The trash can only accepts drops for "old appointments" frome the grid. Get rid of feedback Clear the grid row and update the post-it areai TrashCan_DragOver Provide feedback by "opening the trashcan" whenever an" old appointment is dragged over the trash. Open when entering Close when leaving UnhighlightRow If the ApptList grid is highlighted (according to the GridInverted flag), then unhighlight it, otherwise do nothing.r Use the invert rectangle saved by HighlightRowAtPoint