Another useful-ish function - Printable Version

Another useful-ish function - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+----- Thread: Another useful-ish function (/showthread.php?tid=2690)

Another useful-ish function - GIAKEN - 06-04-2009

This might be useful...not sure if it increases any speed (default sizes are 32x32 starting at 0,0 (useful for setting destination rects))

Code:
Public Function Get_RECT(Optional ByVal TopVal As Long = 0, Optional ByVal LeftVal As Long = 0, Optional ByVal Width As Long = SIZE_X, Optional ByVal Height As Long = SIZE_Y) As DXVBLib.RECT

    With Get_RECT

        .Top = TopVal

        .Bottom = .Top + Height

        .Left = LeftVal

        .Right = .Left + Width

    End With

End Function

Used:

Code:
Public Sub SpellEditorBltIcon()

Dim sRECT As DXVBLib.RECT

Dim dRECT As DXVBLib.RECT

    sRECT = Get_RECT(frmSpellEditor.scrlIcon.Value * SIZE_Y)

    dRECT = Get_RECT

    Engine_BltToDC DDS_SpellIcon, sRECT, dRECT, frmSpellEditor.picIcon

End Sub

Re: Another useful-ish function - Anthony - 06-04-2009

Nice. I prefer this method far more as opposed to the other one.

Re: Another useful-ish function - GIAKEN - 06-04-2009

I've got my source fully converted to using this function and it works 100% Wink