PureBasic Forums - English

Code: Select all

;{ Header Text and Cell Dividing Lines
      lPen = CreatePen_(#PS_SOLID, 1, RGB(128, 128, 128))
      ; Create the pen to draw the dividing lines.
      SelectObject_(HandleImage, lPen)
      ; Select the pen for usage.
      SetTextColor_(HandleImage, RGB(0, 0, 0)) : SetBkMode_(HandleImage, #TRANSPARENT)
      ; Set text properties.  Black text.
      HoldHeight = -Int((10 * GetDeviceCaps_(HandleImage, #LOGPIXELSY)) / 72)
      ; Convert the height to pixels.
      CellFont = CreateFont_(HoldHeight,0,0,0,0,0,0,0,0,0,0,0,0,"Arial")
      ; Create the font we'll use to draw the text in the headers.
      SelectObject_(HandleImage, CellFont)
      ; And select it for use.
      ;/ Column Text.
      xg_CellRectFromLocation(*xGrid, *xGrid\CellBoundaries\Left, -1, @TempRect)
      ; Store the rectangular dimensions of the leftmost column.
      If *xGrid\Arrays\ColumnWidth : HoldSize = MemorySize(*xGrid\Arrays\ColumnWidth) : EndIf
      ; Only need to call this once for column drawing so store the size of the column width array if it exists.
      For LoopColumn = *xGrid\CellBoundaries\Left To *xGrid\CellBoundaries\Right
         ; Loop through the visible columns.
         CaughtColumn = #False
         ; This will be True if a custom width exists for the next column.  False if using the default width.
         If LoopColumn > 25 : CellText = Chr(65 + Int(LoopColumn / 26) - 1)+Chr(65 + (LoopColumn - (26 * Int(LoopColumn / 26)))) : Else : CellText = Chr(65 + LoopColumn) : EndIf
         ; Store the column header.  Handle any double characters "AA", "AB", etc...
         If TempRect\Right < *xGrid\Width + *xGrid\OffsetPosition\X : MoveToEx_(HandleImage,TempRect\Right - *xGrid\OffsetPosition\X, 0, 0) : LineTo_(HandleImage, TempRect\Right - *xGrid\OffsetPosition\X, *xGrid\Height) : EndIf
         ; We're only drawing right cell boundaries for the columns so no need to draw it if it's beyond our viewable area.
         DrawText_(HandleImage, @CellText, Len(CellText), @HoldRect, #DT_NOCLIP | #DT_NOPREFIX | #DT_SINGLELINE | #DT_CALCRECT) 
         ; Calculate the width and height needed for the text.
         TextPosition\X = TempRect\Left + Int(((TempRect\Right - TempRect\Left) - HoldRect\Right) / 2) - *xGrid\OffsetPosition\X
         TextPosition\Y = TempRect\Top + Int(((TempRect\Bottom - TempRect\Top) - HoldRect\Bottom) / 2)
         ; Store the centered text coordinates.
         MoveToEx_(HandleImage, TextPosition\X, TextPosition\Y, 0)
         ; Move our drawing cursor to the center of the cell.
         If TextPosition\X < *xGrid\OffsetPosition\X + *xGrid\HeaderWidth
            ; Text intersects row number column.  Clip it.
            HandleClip = CreateRectRgn_(*xGrid\HeaderWidth, 0, TempRect\Right - *xGrid\OffsetPosition\X, *xGrid\HeaderHeight)
            SelectClipRgn_(HandleImage, HandleClip)
            ;
         ElseIf TempRect\Bottom - TempRect\Top < HoldRect\Bottom Or TempRect\Right - TempRect\Left < HoldRect\Right
            ; Text is wider than width of the cell.  Clip it.
            HandleClip = CreateRectRgn_(TempRect\Left - *xGrid\OffsetPosition\X, TempRect\Top - *xGrid\OffsetPosition\Y, TempRect\Right - *xGrid\OffsetPosition\X, TempRect\Bottom - *xGrid\OffsetPosition\Y)
            SelectClipRgn_(HandleImage, HandleClip)
            ;
         EndIf
         ;
         DrawText_(HandleImage, @CellText, Len(CellText), @HoldRect, #DT_NOCLIP | #DT_NOPREFIX | #DT_SINGLELINE)
         ; Draw the column header text.
         If HandleClip : SelectClipRgn_(HandleImage, 0) : DeleteObject_(HandleClip) : HandleClip = 0 : EndIf
         ;
         If LoopColumn = *xGrid\MaxColumns : Break : EndIf
         ; Break when we've reached the last column.
         TempRect\Left = TempRect\Right
         ; The next column's left boundary is the right boundary of the current column.
         If *xGrid\Arrays\ColumnWidth
            ;
            *Position = *xGrid\Arrays\ColumnWidth
            ;
            While *Position - *xGrid\Arrays\ColumnWidth < HoldSize
               ;
               If PeekL(*Position) = *xGrid\ActiveSheet And PeekL(*Position + 4) = LoopColumn + 1
                  ; Found a custom width for the next column.
                  TempRect\Right = TempRect\Left + PeekL(*Position + 8)
                  ; Set the next right boundary location.
                  CaughtColumn = #True
                  ;
                  Break
                  ; Exit our loop.
               EndIf
               ;
               *Position + 12
               ;
            Wend
            ;
            If CaughtColumn = #False : TempRect\Right = TempRect\Left + #xGrid_DefaultCellWidth : EndIf
            ; If no custom width exists for the next column, use the default cell width.
         Else
            ; No custom widths exist.
            TempRect\Right = TempRect\Left + #xGrid_DefaultCellWidth
            ; Set cell dimensions to the next column.
         EndIf
         ;
      Next LoopColumn
      ;
      GreyArea\X = TempRect\Right
      ; Store the right value of the last column drawn.  We'll use this to check if the non-editable area is visible.

Code: Select all

   If Message = #WM_KEYDOWN Or Message = #WM_KEYUP Or Message = #WM_CHAR Or Message = #WM_COMMAND
      ; Only need to call this code once for the three messages.
      If _xGrid_Focused
         ; Make sure we have a valid grid handle stored.  If not, a grid is not focused.
         HoldSize = MemorySize(_xGrid_List)
         ;
         *Position = _xGrid_List
         ;
         While *Position - _xGrid_List < HoldSize
            ;
            If PeekL(*Position + 8) = _xGrid_Focused : *xGrid = PeekL(*Position) : Break : EndIf
            ;
            *Position + 12
            ;
         Wend
         ;
         If *xGrid
            ;
            xg_LastGoodCell(*xGrid, @rGrid, #True)
            ; Call the last good cell function simply to find the top left most cell and the bottom right most cell.  We'll use this
            ; to determine the new rectangular range to select.
            If rGrid\Left = rGrid\Right And rGrid\Top = rGrid\Bottom
               ; Only one cell is selected.
               HoldPosition\X = rGrid\Left : HoldPosition\Y = rGrid\Top
               ;
            Else
               ; Multiple cells are selected.
               If rGrid\Left < *xGrid\MouseDownSelectedCell\X
                  ;
                  If rGrid\Top < *xGrid\MouseDownSelectedCell\Y
                     HoldPosition\X = rGrid\Left : HoldPosition\Y = rGrid\Top
                  Else
                     HoldPosition\X = rGrid\Left : HoldPosition\Y = rGrid\Bottom
                  EndIf
                  ;
               Else
                  ;
                  If rGrid\Top < *xGrid\MouseDownSelectedCell\Y
                     HoldPosition\X = rGrid\Right : HoldPosition\Y = rGrid\Top
                  Else
                     HoldPosition\X = rGrid\Right : HoldPosition\Y = rGrid\Bottom
                  EndIf
                  ;
               EndIf
               ;
            EndIf
            ;
         EndIf
         ;
      EndIf
      ;
   EndIf
   ;

Code: Select all

Procedure.l xg_PointerFromNumber(GadgetNumber.l)
   ;
   *Position = _xGrid_List
   ;
   HoldSize = MemorySize(_xGrid_List)
   ;
   While *Position - _xGrid_List < HoldSize
      ;
      If PeekL(*Position + 4) = GadgetNumber : ProcedureReturn PeekL(*Position) : EndIf
      ;
      *Position + 12
      ;
   Wend
   ;
   ProcedureReturn 0
   ;
EndProcedure