KFWin Messages Parsed

!Refer to winparse.f90 to see what Win message called the subroutine

!MS$DEFINE Form_Create
subroutine Form_Create(hWnd)
 integer(4),intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_InitDialog
subroutine Form_InitDialog(hWnd)
 integer(4),intent(in) :: hWnd 
end subroutine

!MS$DEFINE Form_GotFocus
subroutine Form_GotFocus(hWnd)
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_LostFocus
subroutine Form_LostFocus(hWnd)
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE Form_LButtonDown
subroutine Form_LButtonDown(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_LButtonUp
subroutine Form_LButtonUp(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_LButtonDblClk
subroutine Form_LButtonDblClk(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_RButtonDown
subroutine Form_RButtonDown(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_RButtonUp
subroutine Form_RButtonUp(hWnd, Flag, X, Y)
 integer(4), intent(in) :: hWnd, Flag, X, Y
end subroutine

!MS$DEFINE Form_MouseMove
subroutine Form_MouseMove(hWnd, X, Y)
 integer(4), intent(in) :: hWnd, X, Y
end subroutine

!MS$DEFINE Form_KeyDown
subroutine Form_KeyDown(hWnd, CharCode, Shift)
 !Shift same as VB: Shift= 0 or 1. Control=0 or 2
 integer(4), intent(in) :: hWnd, CharCode, Shift 
end subroutine

!MS$DEFINE Form_Size
subroutine Form_Size(hWnd, Width, Height)
 integer(4), intent(in) :: hWnd, Width, Height 
end subroutine

!MS$DEFINE Form_Color
subroutine Form_Color(hWnd, hDC)
 integer(4), intent(in)  :: hWnd, hDC
end subroutine

!MS$DEFINE Form_Paint
subroutine Form_Paint(hWnd)
 integer(4), intent(in) :: hWnd 
end subroutine

!MS$DEFINE Form_HScroll
subroutine Form_HScroll(hWnd, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, Pos, Min, Max 
end subroutine

!MS$DEFINE Form_VScroll
subroutine Form_VScroll(hWnd, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, Pos, Min, Max 
end subroutine

!MS$DEFINE Control_HScroll
subroutine Control_HScroll(hWnd, IDControl, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, IDControl, Pos, Min, Max 
end subroutine

!MS$DEFINE Control_VScroll
subroutine Control_VScroll(hWnd, IDControl, Pos, Min, Max)
 integer(4), intent(in) :: hWnd, IDControl, Pos, Min, Max 
end subroutine

!MS$DEFINE Form_Close
subroutine Form_Close(hWnd, Cancel)
 !Set iCancel to 0 to prevent close
 integer(4), intent(in) :: hWnd 
 integer(4), intent(out) :: Cancel
end subroutine

!MS$DEFINE Form_Destroy
subroutine Form_Destroy(hWnd)
!Called after window is removed.
 integer(4), intent(in) :: hWnd
end subroutine

!MS$DEFINE ToolTip_Needtext
subroutine ToolTip_Needtext(hWnd, IDControl, szTool, szStatus)
 !Called when Tooltip wants to display. 
 !Change to show szTool in Statusbar. From Resource file.
 integer(4), intent(in) :: hWnd, IDControl
 character*(*), intent(in) :: szStatus
 character*(*), intent(inout) :: szTool
end subroutine

!BUTTON CONTROLS 
!MS$DEFINE Button_Click
subroutine Button_Click(hWnd, IDControl, hWndControl)
 !Sub for all Button+Menu controls - Click event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine

!STATIC CONTROLS
!MS$DEFINE Static_Color
subroutine Static_Color(IDControl, hDC, Backcolor)
 !Called before statics (label, image) are drawn to get background + text color.
 integer(4), intent(in)  :: IDControl, hDC
 integer(4), intent(out) :: Backcolor 
end subroutine

!EDIT CONTROLS
!MS$DEFINE Edit_Color
subroutine Edit_Color(IDControl, hDC, Backcolor)
 !Called before statics (label, image) are drawn to get background + text color.
 integer(4), intent(in)  :: IDControl, hDC
 integer(4), intent(out) :: Backcolor 
end subroutine
!MS$DEFINE Edit_Setfocus
subroutine Edit_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Edit_Killfocus
subroutine Edit_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Edit_Change
subroutine Edit_Change(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine
!MS$DEFINE Edit_Update
subroutine Edit_Update(hWnd, IDControl, hWndControl)
 !Sub for all Edit controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!LIST CONTROLS
!MS$DEFINE List_Setfocus
subroutine List_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE List_Killfocus
subroutine List_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE List_SelChange
subroutine List_SelChange(hWnd, IDControl, hWndControl)
 !Sub for all List controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!COMBO BOXES
!MS$DEFINE Combo_Setfocus
subroutine Combo_Setfocus(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Setfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Combo_Killfocus
subroutine Combo_Killfocus(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Lostfocus event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl 
end subroutine
!MS$DEFINE Combo_SelChange
subroutine Combo_SelChange(hWnd, IDControl, hWndControl)
 !Sub for all Combo controls - Change event
 integer(4), intent(in) :: hWnd, IDControl, hWndControl
end subroutine

!MENU ITEMS 
!MS$DEFINE Menu_Click
subroutine Menu_Click(hWnd, IDControl)
 !Sub for all Button+Menu controls - Click event
 integer(4), intent(in) :: hWnd, IDControl 
end subroutine
 

 
   
KFWIN © was developed and is maintained and distributed by KORF Software.
Click image (if scripting enabled) to email us any technical or commercial questions.

This product is protected by copyright law and international treaties.