GUI library for Windows \ Linux (window9)

VANYA · Post by **VANYA** » Jun 04, 2011 7:36

Hello!

The project has been updated.
Added features:

GetCurrentFileName
GetCurrentFileNameA
SetRunOnlyExe
InitProcess
FirstProcess
NextProcess
GetNameProcess
GetIDProcess
Create_Process
Open_Process
KillProcess
WaitExitProcess
WaitLoadProcess
GetExitCode

Fixed: Function ReplaceString.

As it turned out the functions and Lcase Ucase not support Cyrillic. Therefore, the function ReplaceString, including one of these functions to work properly with Russian characters. Now all is well.

P.S. The project grew to enormous size. Honestly, I did not expect that there will be many.
All I wanted to see it initially, made long ago. Further development will be directed only at catching errors.
Thanks to all who somehow encouraged me, as well as all those who have enjoyed and will continue to use it.
I wish all good!

super_castle · Post by **super_castle** » Jun 04, 2011 7:55

not funktion with "xpmanifest.xml"

Code: Select all

#Include "window9.bi"  

#define MANIFEST 24
#define IDR_XPMANIFEST1 1

IDR_XPMANIFEST1 MANIFEST "xpmanifest.xml"

Declare sub opencom
Declare sub closecom
Dim Shared As integer hwnd,but,event,tc

hwnd=OpenWindow("1",300,10,200,200)
ButtonGadget(1,10,10,70,30,"open") 
ButtonGadget(2,10,40,70,30,"close") 

Do
 event=WaitEvent()
 If event=EventClose Then End
 
 If event=eventgadget Then 
 	If eventnumber()=1 Then
 		opencom
 	EndIf
 	If eventnumber()=2 Then
 		closecom
 	EndIf
 EndIf
 
Loop 

sub opencom
	
End Sub

sub closecom
	
End Sub

VANYA · Post by **VANYA** » Jun 04, 2011 9:07

super_castle wrote:not funktion with "xpmanifest.xml"

Code: Select all

#Include "window9.bi"  

#define MANIFEST 24
#define IDR_XPMANIFEST1 1

IDR_XPMANIFEST1 MANIFEST "xpmanifest.xml"

Declare sub opencom
Declare sub closecom
Dim Shared As integer hwnd,but,event,tc

hwnd=OpenWindow("1",300,10,200,200)
ButtonGadget(1,10,10,70,30,"open") 
ButtonGadget(2,10,40,70,30,"close") 

Do
 event=WaitEvent()
 If event=EventClose Then End
 
 If event=eventgadget Then 
 	If eventnumber()=1 Then
 		opencom
 	EndIf
 	If eventnumber()=2 Then
 		closecom
 	EndIf
 EndIf
 
Loop 

sub opencom
	
End Sub

sub closecom
	
End Sub

Create 3 files:

FILE: 1.rc

#define MANIFEST 24
#define IDR_XPMANIFEST1 1

IDR_XPMANIFEST1 MANIFEST "xpmanifest.xml"

FILE: xpmanifest.xml

Code: Select all

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
        version="1.0.0.0"
        processorArchitecture="*"
        name="Company.Product.Name"
        type="win32"
/>
<description></description>
<dependency>
        <dependentAssembly>
                <assemblyIdentity
                        type="win32"
                        name="Microsoft.Windows.Common-Controls"
                        version="6.0.0.0"
                        processorArchitecture="*"
                        publicKeyToken="6595b64144ccf1df"
                        language="*"
                />
        </dependentAssembly>
</dependency>
</assembly>

FILE: 1.bas

Code: Select all

#Include "window9.bi"  

Declare sub opencom
Declare sub closecom
Dim Shared As integer hwnd,but,event,tc

hwnd=OpenWindow("1",300,10,200,200)
ButtonGadget(1,10,10,70,30,"open") 
ButtonGadget(2,10,40,70,30,"close") 

Do
 event=WaitEvent()
 If event=EventClose Then End
 
 If event=eventgadget Then 
         If eventnumber()=1 Then
                 opencom
         EndIf
         If eventnumber()=2 Then
                 closecom
         EndIf
 EndIf
 
Loop 

sub opencom
        
End Sub

sub closecom
        
End Sub

super_castle · Post by **super_castle** » Jun 04, 2011 10:40

jup, thanks. ok...

gruss

Coolman · Post by **Coolman** » Jun 04, 2011 14:27

This project is fantastic, very nice work, it reminds me purebasic I used before, the instructions are simple and powerful, it says it's just a pity for a window, but it is true that a good library (GUI) has lacked FreeBasic, I confess that I underestimated FreeBasic professionally, this language begins to move towards a serious use, it's missing a 64-bit version and it will be perfect ...

For FBGUI, the only problem is the documentation, language internationnal being English is the language that should be used, but this is only a suggestion, kudos to the author, really good .. .

D.J.Peters · Post by **D.J.Peters** » Jun 04, 2011 18:10

wow good job.

some mistakes in the help file e.g
write_data

Code: Select all

#Include "window9.bi"
Dim adf(100) As Integer
For a As Integer=1 To 100: adf(a)=a:Next ' ! should be 0 to 100 !
Var handle=Create_File("test.txt")
Write_Data(handle,@adf(0),401) ' ! must be 404 there are 101 integer items !
Close_file(handle)

you can remove the hard coded path to FBC.exe from your lib build batch file "1.bat".
you should have the path to fbc.exe allways in your PATH :-)

how ever i like it

Joshy

VANYA · Post by **VANYA** » Jun 04, 2011 18:39

Coolman wrote:This project is fantastic, very nice work, it reminds me purebasic I used before, the instructions are simple and powerful, it says it's just a pity for a window, but it is true that a good library (GUI) has lacked FreeBasic, I confess that I underestimated FreeBasic professionally, this language begins to move towards a serious use, it's missing a 64-bit version and it will be perfect ...

For FBGUI, the only problem is the documentation, language internationnal being English is the language that should be used, but this is only a suggestion, kudos to the author, really good .. .

Thank you!

you can remove the hard coded path to FBC.exe from your lib build batch file "1.bat".
you should have the path to fbc.exe allways in your PATH :-)

Excuse me, is not very understand :(

D.J.Peters · Post by **D.J.Peters** » Jun 04, 2011 20:40

if you make a gen gcc build of your lib

build.bat

Code: Select all

fbc -v -lib Event.bas
if errorlevel 1 pause


fbc.exe -v -gen gcc -lib Window9.bas 2D_Draw.bas AddComboBoxImageItem.bas AddComboBoxItem.bas AddListBoxItem.bas AddListViewColumn.bas AddListViewItem.bas ButtonGadget.bas ButtonImageGadget.bas CalendarGadget.bas CalEv.bas CenterWindow.bas CheckBoxGadget.bas CheckItemMenu.bas ClearClipBoard.bas Close_File.bas Close_Window.bas ColorRequester.bas ComboBoxGadget.bas ComboBoxImageGadget.bas CopyDir.bas CountButtonToolBar.bas CountItemComboBox.bas CountItemListBox.bas CreateCopyImageDesktop.bas CreateCopyImageRect.bas CreateCopyImageWindow.bas CreateCopyImageWindowClient.bas CreateDir.bas CreateIconItemMenu.bas CreatePopMenu.bas CreateToolbar.bas Create_File.bas Create_Image.bas Create_Menu.bas DateCalendarGadget.bas DeleteButtonToolBar.bas DeleteComboBoxItem.bas DeleteDir.bas DeleteIndexImageListView.bas DeleteitemListView.bas DeleteItemMenu.bas DeleteListBoxItem.bas DeleteListViewColumn.bas DeleteListViewItemsAll.bas Delete_Menu.bas DisableGadget.bas DisableMenuItem.bas DisableWindow.bas DisplayPopupMenu.bas DubleSetGadgetColor.bas EditorGadget.bas ExamineDirectory.bas Extract_Icon.bas E_O_F.bas FileComboBoxItem.bas FileListBoxItem.bas FindItemComboBox.bas FindItemListBox.bas FontRequester.bas FreeGadget.bas FreeMenu.bas Free_Image.bas GadgetHeight.bas GadgetToolTip.bas GadgetWidth.bas GadgetX.bas GadgetY.bas GetButtonToolBarState.bas GetClipBoardImage.bas GetClipBoardText.bas GetColumnWidthListView.bas GetComboBoxText.bas GetCurentDir.bas GetExtensionPart.bas GetFilePart.bas GetGadgetAttribute.bas GetGadgetState.bas GetGadgetText.bas GetIpAddress.bas GetItemComboBox.bas GetItemCountListView.bas GetItemListBox.bas GetListBoxText.bas GetMenuItemText.bas GetPathPart.bas GetSelCountListBox.bas GetSelectedCountListView.bas GetSpecialFolder.bas GetStateCalendar.bas GetStateMenu.bas GetSystemDir.bas GetTempDir.bas GetTextItemListView.bas GetToolBarTextButton.bas GetTopIndexListBox.bas GetTrackBarPos.bas GetWindowsDir.bas Get_File_Pointer.bas Grab_Image.bas GroupGadget.bas HideGadget.bas HideMenu.bas HideWindow.bas ImageGadget.bas Insert_Menu.bas IpAddressGadget.bas LenItemTextComboBox.bas LenItemTextListBox.bas ListBoxGadget.bas ListViewGadget.bas LoadFont.bas LoadMovie.bas Load_Image.bas MenuBar.bas MenuItem.bas MenuTitle.bas MessBox.bas Modify_MENU.bas MoveDir.bas NextSelectedFilename.bas OpenFileRequester.bas OpenSubMenu.bas Open_File.bas OptionGadget.bas PeekS.bas ProgressBarGadget.bas Read_Byte.bas Read_Character.bas Read_Data.bas Read_Double.bas Read_File.bas Read_Integer.bas Read_LONGINT.bas Read_Single.bas Read_String.bas Read_WORD.bas REGCLASS.bas RemoveDir.bas RenameDir.bas ReplaceImageListView.bas ReplaceTextColumnListView.bas ReplaceTextItemListView.bas ResetAllComboBox.bas ResetAllListBox.bas ResizeGadget.bas ResizeWindow.bas RGB_.bas RunProgram.bas SaveFileRequester.bas Save_image.bas SetButtonToolBarState.bas SetClipBoardImage.bas SetClipBoardText.bas SetColumnWidthListBox.bas SetColumnWidthListView.bas SetCurentDir.bas SetGadgetAttribute.bas SetGadgetFont.bas SetGadgetState.bas SetGadgetText.bas SetImageGadget.bas SetIpAddress.bas SetItemComboBox.bas SetItemListBox.bas SetSelectManyItem.bas SetStateCalendar.bas SetStateMenu.bas SetToolBarButtonSize.bas SetToolBarToolTipColor.bas SetToolBarToolTipFont.bas SetTopIndexListBox.bas SetTrackBarPos.bas SetTransparentWindow.bas SetWindowTop.bas Set_File_Pointer.bas ShellFolder.bas ShowListComboBox.bas SIZE_AND_COPY.bas Size_File.bas SpinGadget.bas StringGadget.bas TextGadget.bas ToolBarToolTip.bas TrackBarGadget.bas UpdateItem.bas WindowBackgroundImage.bas WindowBounds.bas WindowColor.bas WindowHeight.bas WindowWidth.bas WindowX.bas WindowY.bas Write_Byte.bas Write_Character.bas Write_Data.bas Write_Double.bas Write_Integer.bas Write_Longint.bas Write_Single.bas Write_String.bas Write_StringN.bas Write_Word.bas Desktop.bas ReplaceString.bas IsMouseOver.bas WebGadget.bas TreeviewGadget.bas AddTreeViewItem.bas ScrollBarGadget.bas StatusBarGadget.bas DeleteTreeViewItem.bas GetCountItemTreeView.bas GlobalMouse.bas AddSysTrayIcon.bas ReplaceImageItemTreeView.bas RenameItemTreeView.bas GetTextTreeView.bas GetIndexImageTreeView.bas MoveItemTreeView.bas Base64.bas AESCRYPT.bas MD5Checksum.bas SHA512Checksum.bas SHA1Checksum.bas GetSelectTextEditorGadget.bas SetTransferTextLineEditorGadget.bas MDIGadget.bas AddKeyboardShortcut.bas Load_Icon.bas ContainerGadget.bas PanelGadget.bas PanelGadgetSetCursel.bas SetSelectTextEditorGadget.bas ASCIITOUTF.bas Undo_Redo_Paste_EditorGadget.bas GetLineEditor.bas InputBox.bas RebarGadget.bas AddRebarTab.bas GetCountTabRebarGadget.bas SetTextRebarGadget.bas CreateIcon.bas Prefs.bas GetCurrentFileName.bas SetRunOnlyExe.bas InitProcess.bas CreateOpenProcess.bas
if errorlevel 1 pause

All 250 files are compiled fine only "TreeViewGadget.bas" makes trouble here
i don't know why but the macro "TreeView_SetImageList()" is the problem.

I changed the function TreeViewGadget now i can build a gcc version too.

Joshy

TreeViewGadget.bas

Code: Select all

Function TreeViewGadget(ByVal gadget   As Integer, _
                        ByVal x        As Integer   ,ByVal y       As Integer, _
                        ByVal Width_   As Integer   ,ByVal height_ As Integer, _
                        ByVal par      As Integer= 0,ByVal par2    As Integer=0, _
                        ByVal SizeIcon As Integer=16) As HWND export
  Dim InitCtrlEx As INITCOMMONCONTROLSEX
  InitCtrlEx.dwSize = sizeof(INITCOMMONCONTROLSEX)
  InitCtrlEx.dwICC  = ICC_TREEVIEW_CLASSES
  InitCommonControlsEx(@InitCtrlEx)
  Dim As HANDLE hImgList
  dim as HWND hWin= CreateWindowEx(par2, _
                                   WC_TREEVIEW, _
                                   "", WS_CHILD Or WS_VISIBLE  Or par , _
                                   x, y,Width_,height_,_
                                   GETGURRENTAL(),_
                                   Cast(HMENU,gadget),_
                                   0,0)
  ADDIN9999 (gadget,hWin)
  ColorAdd(hWin,16777215,0)
  If GGF()<>0 Then
    SendMessage(hWin,WM_SETFONT,GGF(),0)
  EndIf
  hImgList = ImageList_Create(SizeIcon,SizeIcon,ILC_COLOR32,1,1)
  ADDIN9999(gadget+60000,Cast(HWND,hImgList))
  
  'TreeView_SetImageList(hWin,hImgList,TVSIL_NORMAL)
  SendMessage(hWin,TVM_SETIMAGELIST,TVSIL_NORMAL,cast(LPARAM,hImgList))
  Return hWin
End Function

Drago · Post by **Drago** » Jun 05, 2011 12:23

Great lib so far !!

But how to work with different container ?

Code: Select all

ContainerGadget(9,10,50,760,350,1)
ButtonGadget(7,40,70,100,30,"Server starten") 

ContainerGadget(10,10,50,760,350,1)
ButtonGadget(11,40,70,100,30,"Zeitnahme starten") 
StringGadget(8,40,300,100,30,"00:00:00",ES_READONLY or SS_Right)

hidegadget(10,1)

do
    ev = WaitEvent()
    If Ev = EventClose then end
    
    if ev = EventTimer then evtimer(0)
    
    If ev=EventGadget Then
        select case eventnumber()
			case 1
				HideGadget(9,0)
				HideGadget(10,1)
			case 2
				HideGadget(9,1)  
				HideGadget(10,0)              
			case 3

And how to set Focus on StringGadet and read keypress ?

Code: Select all

StringGadget(6,200,370,200,50,"",ES_RIGHT Or ES_NUMBER or ES_WANTRETURN)

do
    ev = WaitEvent()
    If Ev = EventClose then end
    If Ev = EventTimer then evTimer("go")
    
    If ev=EventGadget Then
        select case eventnumber()
        case 1
        	StartNr = val(getgadgettext(6))
            Zieleinlauf
            setgadgettext(6,"")
        case 2
            StartClient   
            StartRennen             
        case 3
            StopClient
            StopRennen
        case 6
		if eventkey = 13 then
			StartNr = val(getgadgettext(6))
			Zieleinlauf
			setgadgettext(6,"")
		end if
        end select
    end if
loop

Greetings

VANYA · Post by **VANYA** » Jun 05, 2011 13:35

But how to work with different container ?

Code: Select all

#Include "window9.bi"
Dim Shared  As HWND ph 
ph=OpenWindow("",10,10,1000,800)
ButtonGadget(1,800,70,100,30,"1")
ButtonGadget(2,800,120,100,30,"2")
ContainerGadget(9,10,50,760,350,1)
ButtonGadget(7,40,70,100,30,"Server starten") 
UseGadgetList(ph)
ContainerGadget(10,10,50,760,350,1)
ButtonGadget(11,40,70,100,30,"Zeitnahme starten") 
StringGadget(8,40,300,100,30,"00:00:00",ES_READONLY or SS_Right)
hidegadget(10,1)
Do
 Var ev=WindowEvent
 If ev=EventClose Then End
  If ev=EventGadget Then
        select case eventnumber()
                        case 1
                                HideGadget(9,0)
                                HideGadget(10,1)
                        case 2
                                HideGadget(9,1)  
                                HideGadget(10,0)              
        End Select   
  EndIf
Loop

And how to set Focus on StringGadet and read keypress ?

Not understand the question, maybe it?

Code: Select all

#Include "window9.bi"

Dim As integer hwnd,event
hwnd=OpenWindow("1",300,10,500,500)
StringGadget(1,10,10,100,20,"")
SetFocus(GadgetID(1))  ' Set focus Gadget
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Drago · Post by **Drago** » Jun 05, 2011 17:57

Hoi,

useGadgetList works great ! :)

About String gadget...
I simply want to get the text of a StringGadget in case the User presses 'Enter'

Code: Select all

#Include once "Window9.bi"

dim shared as hwnd frmMain
dim shared as integer lfdNr, ev

frmMain = OpenWindow("Get Input", 0,0,400,400)

CenterWindow(frmMain)

ListBoxGadget(1,100,50,200,200)
StringGadget(2,100,300,200,30,"100", SS_Right)
SetGadgetFont(2,LoadFont("arial",24))

do
    ev = WaitEvent()
    If Ev = EventClose then end
    
    If ev=EventGadget Then
		print "EventKey: " ; eventkey ' Here we get no KeyCode
		select case eventnumber()     ' if String Gadet has Focus
			case 2
			if eventkey = 13 then
				AddListBoxItem(1,(getgadgettext(2)))
				setgadgettext(2,"")
				SetFocus(GadgetID(2))
			end if			
		end select
	end if

	
	if eventkeyDown then
		print "Key: " ; eventkey 'Here we get only KeyCode
		if eventkey = 13 then    'if no Gadget has Focus
			AddListBoxItem(1,(getgadgettext(2)))
			setgadgettext(2,"101")
			SetFocus(GadgetID(2))
		end if 
	end if
loop

VANYA · Post by **VANYA** » Jun 05, 2011 18:36

Drago wrote:Hoi,

useGadgetList works great ! :)

About String gadget...
I simply want to get the text of a StringGadget in case the User presses 'Enter'

Code: Select all

#Include once "Window9.bi"

dim shared as hwnd frmMain
dim shared as integer lfdNr, ev

frmMain = OpenWindow("Get Input", 0,0,400,400)

CenterWindow(frmMain)

ListBoxGadget(1,100,50,200,200)
StringGadget(2,100,300,200,30,"100", SS_Right)
SetGadgetFont(2,LoadFont("arial",24))

do
    ev = WaitEvent()
    If Ev = EventClose then end
    
    If ev=EventGadget Then
		print "EventKey: " ; eventkey ' Here we get no KeyCode
		select case eventnumber()     ' if String Gadet has Focus
			case 2
			if eventkey = 13 then
				AddListBoxItem(1,(getgadgettext(2)))
				setgadgettext(2,"")
				SetFocus(GadgetID(2))
			end if			
		end select
	end if

	
	if eventkeyDown then
		print "Key: " ; eventkey 'Here we get only KeyCode
		if eventkey = 13 then    'if no Gadget has Focus
			AddListBoxItem(1,(getgadgettext(2)))
			setgadgettext(2,"101")
			SetFocus(GadgetID(2))
		end if 
	end if
loop

Try this:

Code: Select all

#Include once "Window9.bi"

dim shared as hwnd frmMain
dim shared as integer lfdNr, ev

frmMain = OpenWindow("Get Input", 0,0,400,400)

CenterWindow(frmMain)
AddKeyboardShortcut(frmMain,FVIRTKEY,VK_RETURN,3)
ListBoxGadget(1,100,50,200,200)
StringGadget(2,100,300,200,30,"100", SS_Right)
SetGadgetFont(2,LoadFont("arial",24))

do
	ev = WaitEvent()
	If Ev = EventClose then End
	If ev=EventMenu Then
		If EventNumber=3 Then
			AddListBoxItem(1,(getgadgettext(2)))
			setgadgettext(2,"")
			SetFocus(GadgetID(2))
		EndIf
	End if
Loop

enform · Post by **enform** » Jun 07, 2011 14:07

Hello VANYA,

Thank you very much for the GUI,
I tried codes LinkedList but it does not compile. FBEdit adds evenT.bi and all 'Declare Function' cause an error: ex

'.../inc/evenT.bi(20) error 4: Duplicated definition in 'Declare Function WindowEvent() As Long'

For all lines 'Declare ...'
Window9.bi seems ok

Thank you again

Lingoes Translator 2 for Russian ! ( www.lingoes.net )

VANYA · Post by **VANYA** » Jun 07, 2011 15:32

enform wrote:Hello VANYA,

Thank you very much for the GUI,
I tried codes LinkedList but it does not compile. FBEdit adds evenT.bi and all 'Declare Function' cause an error: ex

'.../inc/evenT.bi(20) error 4: Duplicated definition in 'Declare Function WindowEvent() As Long'

For all lines 'Declare ...'
Window9.bi seems ok

Thank you again

Lingoes Translator 2 for Russian ! ( www.lingoes.net )

Hello enform!

Please show the code that causes this error.

enform · Post by **enform** » Jun 07, 2011 16:20

I think all codes in LinkedList : -> AddElement_S below

I tried Windows GUI and Windows console .
I am quite a beginner in FB... I need a super GUI !

#Include "Linked_Lists.bi"

Var list=NewList()

AddElement_S(List,"first")
AddElement_S(List,"two")
FirstElement(List)
Do
Print GetList_S(List)
Loop Until NextElement(List)=0

Sleep

-- FBEdit adds : evenT.bi

Code: Select all


#Inclib "EVENT"
#Define EventTimer &h4001
#Define EventMenu &h1001
#Define EventActivate &h804
#Define EventClose &h803
#Define EventSize &h802
#Define EventMove &h801
#Define EventGadget &h401
#Define EventLBDown 513
#Define EventLBUp 514
#Define EventRBDown 516
#Define EventRBUp 517
#Define EventMBDown 519
#Define EventMBUp 520
#Define EventTYPE &h402
#Define EventMouseWheel &h204
#Define EventMouseMove &h203
#Define EventKeyUp &h102
#Define EventKeyDown &h101
Declare Function WindowEvent() As Long
Declare Function WaitEvent() As Long
Declare Function EventNumber() As Integer
Declare Function MouseX() As Integer
Declare Function MouseY() As Integer
Declare Function EventHwnd() As HWND
Declare Function EventKEY() As Integer
Declare Function EventNumberToolBar() As Integer
Declare Function EventNumberListView() As Integer
Declare Function EventNumberTreeView() As Integer
Declare Function EventWParam() As WPARAM 
Declare Function EventLParam() As LPARAM 


'Declare
'Declare 
'Declare

-- and errors are :

C:\Program Files\FreeBasic\fbc -s console "LinkedList2.bas"
C:/Program Files/FreeBasic/inc/evenT.bi(20) error 4: Duplicated definition in 'Declare Function WindowEvent() As Long'
C:/Program Files/FreeBasic/inc/evenT.bi(21) error 4: Duplicated definition in 'Declare Function WaitEvent() As Long'
C:/Program Files/FreeBasic/inc/evenT.bi(22) error 4: Duplicated definition in 'Declare Function EventNumber() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(23) error 4: Duplicated definition in 'Declare Function MouseX() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(24) error 4: Duplicated definition in 'Declare Function MouseY() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(25) error 4: Duplicated definition in 'Declare Function EventHwnd() As HWND'
C:/Program Files/FreeBasic/inc/evenT.bi(26) error 4: Duplicated definition in 'Declare Function EventKEY() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(27) error 4: Duplicated definition in 'Declare Function EventNumberToolBar() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(28) error 4: Duplicated definition in 'Declare Function EventNumberListView() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(29) error 4: Duplicated definition in 'Declare Function EventNumberTreeView() As Integer'
C:/Program Files/FreeBasic/inc/evenT.bi(29) error 123: Too many errors, exiting

Build error(s)