
And the compiler is about 4 times faster, compiling Visual Designer dropped from 8 to 2 secs now


Code: Select all
Procedure Supplier_SelectSearch()
Qry$="Select * from Supplier where Name like '"+GetGadgetText(#String_SupplierSearch_Name)
Qry$+"%' and Short_Name like '"+GetGadgetText(#String_SupplierSearch_ShortName)+"%'"
Qty$+"or Short_Name like '"+GetGadgetText(#String_SupplierSearch_ShortName)+"%'"
If SQLite3_GetRecordset(Qry$,Hdb,@Rs)
If Rs\Handle
NewList Temps.sInfo()
ClearList(Temps())
ClearGadgetItemList(#ListIcon_SupplierSearch_List)
While Rs\EOF=0
AddElement(Temps())
If SQLite3_GetRecordsetValueByName("ID",@Rs)
Temps()\ID=Val(Rs\sValue)
EndIf
If SQLite3_GetRecordsetValueByName("Short_Name",@Rs)
Temps()\ShortName$=Rs\sValue
EndIf
If SQLite3_GetRecordsetValueByName("Name",@Rs)
Temps()\SupplierName$=Rs\sValue
EndIf
If SQLite3_GetRecordsetValueByName("StName",@Rs)
Temps()\StreetName$=Rs\sValue
EndIf
If SQLite3_GetRecordsetValueByName("Suburb",@Rs)
Temps()\Suburb$=Rs\sValue
EndIf
If SQLite3_GetRecordsetValueByName("PCode",@Rs)
Temps()\PostCode$=Rs\sValue
EndIf
SQLite3_RecordsetMoveNext(@Rs)
AddGadgetItem(#ListIcon_SupplierSearch_List,-1,Str(Temps()\ID))
pos.l=CountGadgetItems(#ListIcon_SupplierSearch_List)
SetGadgetItemText(#ListIcon_SupplierSearch_List,pos-1,Temps()\ShortName$,1)
SetGadgetItemText(#ListIcon_SupplierSearch_List,pos-1,Temps()\SupplierName$,2)
SetGadgetItemText(#ListIcon_SupplierSearch_List,pos-1,Temps()\StreetName$,3)
SetGadgetItemText(#ListIcon_SupplierSearch_List,pos-1,Temps()\Suburb$,4)
SetGadgetItemText(#ListIcon_SupplierSearch_List,pos-1,Temps()\Postcode$,5)
Wend
EndIf
SQLite3_ReleaseRecordset(@Rs)
Result.l=1
Else
MessageRequester(#Title,SQLite3_GetLastMessage())
EndIf
ProcedureReturn Result
EndProcedure
Adding bugs?Dare wrote:Every 14,400 compiles you save a day!
CorLuvADuck, Berikco!What are you going to do with all that extra time?
Preferences - General - Display Icons in the MenuMistrel wrote:It's hard to identify that the debugger is off in 4.2. Instead of indenting the entire "Use Debugger" line in the menu there is just a tiny check mark on the left side which is even harder to read because of the high contrast blue gradient.
Please revert the theme changes made for 4.2. The IDE was fine before and does not need to go down the path of becoming an eyesore like Visual Studio.