UDRes - Lib + Listview.dll

H.Brill · Beitrag von **H.Brill** » 27.10.2006 19:23

Hallo,
Da ich öfter mit der Listview.dll von http://frabbing.de arbeite,
habe ich mal die DLL als .res in mein Programm eingebunden
und eine neue Includedatei gemacht.
Funktioniert soweit prima.

Falls noch jemand damit arbeitet, braucht er sich keine doppelte
Arbeit zu machen. Also hier die

Listview.pbi :

Code: Alles auswählen

 
; ACHTUNG : Diese INCLUDE - Datei ist für die UDRes - LIBRARY
; UDRes_AddPackFile(FileID, "Listview.dll", 1) die DLL hinzugepackt wurde.
; adress = 1, da die DLL als erste eingebunden (UDRes_AddPackFile) ist.
; kann nach Bedarf geändert werden.

adress.l = 1

Procedure.l CreateListview(f.l, i.l, t.l, h.l, g.l, s.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "CreateListview"), f, i, t, h, g, s)
   ProcedureReturn value
EndProcedure

Procedure IColumn(h.l, t.l, b.l, f.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "IColumn"), h, t, b, f)
EndProcedure  

Procedure SItem(h.l, b.l, a.l)  
   CallFunctionFast(UDRes_GetPackFunction(adress, "SItem"), h, b, a)
EndProcedure

Procedure ShowListview(ha.l, x.l, y.l, b.l, h.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "ShowListview"), ha, x, y, b, h)  
EndProcedure
   
Procedure InitMessages(h.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "InitMessages"), h)
EndProcedure

Procedure ASortListview(h.l, b.l, a.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "ASortListview"), h, b, a)
EndProcedure

Procedure AddItemValues(lv.l, s.l, b.l, a.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "AddItemValues"), lv, s, b, a)
EndProcedure

Procedure CheckIfMarked(lv.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "CheckIfMarked"), lv)
EndProcedure

Procedure MarkIfChecked(lv.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "MarkIfChecked"), lv)
EndProcedure
     
Procedure.l ReadFileQuick(s.l, b.l, o.l, a.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "ReadFileQuick"), s, b, o, a)
  ProcedureReturn value
EndProcedure

Procedure.l WriteFileQuick(s.l, b.l, o.l, a.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "WriteFileQuick"), s, b, o, a)
  ProcedureReturn value
EndProcedure

Procedure.l SwapLines(b.l, a.l, f.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SwapLines"), b, a, f)
  ProcedureReturn value
EndProcedure

Procedure CsvToListview(h.l, b.l, a.l, s.l)
    CallFunctionFast(UDRes_GetPackFunction(adress, "CsvToListview"), h, b, a, s)
EndProcedure

Procedure.l ListviewToCsv(h.l, b.l, a.l, f.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "ListviewToCsv"), h, b, a, f)
  ProcedureReturn value
EndProcedure
   
     
Procedure SetItemsFromMem(h.l, b.l, a.l, s.l)                     
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetItemsFromMem"), h, b, a, s)
EndProcedure


Procedure.l GetColumns(h.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetColumns"), h)
  ProcedureReturn value
EndProcedure

Procedure.l GetColumnName(lv.l, b.l, s.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetColumnName"), lv, b, s)
   ProcedureReturn value
EndProcedure
   
Procedure.l GetLines(h.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetLines"), h)
  ProcedureReturn value
EndProcedure

Procedure.l GetSelected(bt.l, bl.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetSelected"), bt, bl)
  ProcedureReturn value
EndProcedure

Procedure.l GetSelectedDbClk(bt.l, bl.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetSelectedDbClk"), bt, bl)
  ProcedureReturn value
EndProcedure

Procedure.l GetAllSelected(bt.l, bl.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetAllSelected"), bt, bl)
  ProcedureReturn value
EndProcedure

Procedure.l GetNeededMemory(h.l, f.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetNeededMemory"), h, f)
  ProcedureReturn value
EndProcedure

Procedure.l GetTabOffsets(bt.l, bo.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetTabOffsets"), bt, bo)
  ProcedureReturn value
EndProcedure

Procedure.l GetNullOffset(b.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetNullOffset"), b)
  ProcedureReturn value
EndProcedure

Procedure GetOwnControlParas(b.l, h.l, s.l, z.l)
    CallFunctionFast(UDRes_GetPackFunction(adress, "GetOwnControlParas"), b, h, s, z)
EndProcedure

Procedure.l GetRealColumnIndex(lv.l, s.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetRealColumnIndex"), lv, s)
   ProcedureReturn value
EndProcedure
       
Procedure.l CreateImageList(f.l, b.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "CreateImageList"), f, b)
  ProcedureReturn value
EndProcedure

Procedure DestroyImageList(i.l)
  ImageList_Destroy_(i)
EndProcedure

Procedure.l SetImageList(h.l, i.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SetImageList"), h, i)
  ProcedureReturn value
EndProcedure

Procedure Seticon(h.l, z.l, n.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetIcon"), h, z, n)
EndProcedure

Procedure SetIconMode(f.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetIconMode"), f)
EndProcedure

Procedure SetIconColumn(s.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetIconColumn"), s)
EndProcedure
     
Procedure SetIconsFromMem(h.l, z.l, b.l, a.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetIconsFromMem"), h, z, b, a)
EndProcedure

Procedure SetIconsWith(h.l, z.l, n.l, a.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetIconsWith"), h, z, n, a)
EndProcedure

Procedure SetIndex(i.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetIndex"), i)
EndProcedure

Procedure.l GetSelectedLine(h.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetSelectedLine"), h)
  ProcedureReturn value
EndProcedure

Procedure.l GetColumnWidth(h.l, i.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetColumnWidth"), h, i)
  ProcedureReturn value
EndProcedure
      
Procedure.s GetLineText(h.l, i.l, b.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetLineText"), h, i, b)
  If value <> 0
     text.s = PeekS(b)
  Else
     text.s = ""
  EndIf
  ProcedureReturn text      
EndProcedure

Procedure.l GetLVTxtColor(lv.l)
  value.l = SendMessage_(lv, $1023, 0, 0)
  ProcedureReturn value
EndProcedure

Procedure.l GetLVTxtBKColor(lv.l)
   value.l = SendMessage_(lv, $1025, 0, 0)
   ProcedureReturn value
EndProcedure

Procedure.l GetLVBKColor(lv.l)
   value.l = SendMessage_(lv, $1000, 0, 0)
   ProcedureReturn value
EndProcedure

Procedure LVUpdate(lv.l)
   SendMessage_(lv, 4138, -1, 0)
EndProcedure
           
Procedure.l CryptMem(b.l, a.l, s.l, l.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "CryptMem"), b, a, s, l)
   ProcedureReturn value
EndProcedure
  
Procedure.l SetColumnsFromMem(h.l, b.l, o.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SetColumnsFromMem"), h, b, o)
   ProcedureReturn value
EndProcedure
    
Procedure SetColumnName(lv.l, b.l, s.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetColumnName"), lv, b, s)
EndProcedure

Procedure CloseMessages(f.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "CloseMessages"), f)
EndProcedure
   
Procedure.l DbfToCsv(b.l, a.l, s.l, z.l, f.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "DbfToCsv"), b, a, s, z, f)
  ProcedureReturn value
EndProcedure

Procedure SelectLine(h.l, i.l, f.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SelectLine"), h, i, f)
EndProcedure
   
Procedure SetAllCheckboxStates(lv.l, b.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SetAllCheckboxStates"), lv, b)
   ProcedureReturn value
EndProcedure
 
Procedure.l GetSelectedCount(lv.l)
     value.l = SendMessage_(lv, 4146, 0, 0)
     ProcedureReturn value
EndProcedure
                
Procedure.l DeleteColumn(lv.l, index.l)
   value.l = SendMessage_(lv,$101C, index, 0)
   ProcedureReturn value
EndProcedure

Procedure DeleteDoubleItems(lv.l, s.l)
       CallFunctionFast(UDRes_GetPackFunction(adress, "DeleteDoubleItems"), lv, s)
EndProcedure

Procedure.l DeleteItem(lv.l, zindex.l)
   value.l = SendMessage_(lv,$1008, zindex, 0)
   ProcedureReturn value
EndProcedure
   
Procedure.l DeleteAllItems(lv.l)
   value.l = SendMessage_(lv, 4105, 0, 0)
   SetIndex(0)
   ProcedureReturn value
EndProcedure

Procedure EnableEdits(lv.l, fl.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "EnableEdits"), lv, fl)
EndProcedure   
  
Procedure.l ListviewToDbf(lv.l, ber.l, vb.l, fl.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "ListviewToDbf"), lv, ber, vb, fl)
   ProcedureReturn value
EndProcedure
    
Procedure SetCheckboxState(lv.l, index.l, mode.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetCheckboxState"), lv, index, mode)
EndProcedure

Procedure.l GetCheckboxState(lv.l, index.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetCheckboxState"), lv, index)
  ProcedureReturn value
EndProcedure
       
Procedure.l GetChecked(p1.l, p2.l, p3.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetChecked"), p1, p2, p3)
  ProcedureReturn value
EndProcedure

Procedure.l SearchText(lv.l, start.l, ende.l, spalte.l, sstr.l, flag.l, espalte.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SearchText"), lv, start, ende, spalte, sstr, flag, espalte)
  ProcedureReturn value
EndProcedure
 
Procedure SelectColumnEdits(lv.l, b.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SelectColumnEdits"), lv, b) 
EndProcedure
   
Procedure ExchangeSeparator(ber.l, anzb.l, ascz.l, ersatz.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "ExchangeSeparator"), ber, anzb, ascz, ersatz)
EndProcedure

Procedure CopyLineTo(qlv.l, zlv.l, qindex.l, zindex.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "CopyLineTo"), qlv, zlv, qindex, zindex)
EndProcedure
        
Procedure CopyColumnTo(qlv.l, zlv.l, qindex.l, zindex.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "CopyColumnTo"), qlv, zlv, qindex, zindex)
EndProcedure

Procedure.l GetIndex()
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetIndex"))
  ProcedureReturn value
EndProcedure

Procedure SortManual(h.l, i.l, f.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SortManual"), h, i, f)
EndProcedure

Procedure.l FilelistToCsv(n.l, b.l, s.l, z.l, f.l, i.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "FilelistToCsv"), n, b, s, z, f, i)
   ProcedureReturn value
EndProcedure

Procedure.l SetItemText(h.l, t.l, s.l, i.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "SetItemText"), h, t, s, i)
   ProcedureReturn value
EndProcedure

Procedure.l GetItemText(h.l, b.l, s.l, i.l)
    value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetItemText"), h, b, s, i)
    ProcedureReturn value
EndProcedure

Procedure.l GetItemState(lv.l, index.l, status.l)
    value.l = SendMessage_(lv, 4140, index, status)
    ProcedureReturn vlaue
EndProcedure
    
Procedure.l GetItemTextsAsFloat(lv.l, s.l, b.l)
    value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetItemTextsAsFloat"), lv, s, b)
    ProcedureReturn value
EndProcedure

Procedure.l GetItemTextsAsInteger(lv.l, s.l, b.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetItemTextsAsInteger"), lv, s, b)
   ProcedureReturn value
EndProcedure
       
Procedure.l ExamineColumn(h.l, s.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "ExamineColumn"), h, s)
   ProcedureReturn value
EndProcedure

Procedure SetColumnSort(h.l, s.l, f.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetColumnSort"), h, s, f)
EndProcedure

Procedure GetColumnUpdate(h.l, b.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "GetColumnUpdate"), h, b)
EndProcedure

Procedure SetColumnUpdate(h.l, b.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetColumnUpdate"), h, b)
EndProcedure

Procedure RaiseColumns(h.l, b.l, s.l, g.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "RaiseColumns"), h, b, s, g)
EndProcedure

Procedure RaiseLine(lv.l, l.l, s.l, g.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "RaiseLine"), h, l, s, g)
EndProcedure
   
Procedure.l MixRGB(f1.l, f2.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "MixRGB"), f1, f2)
  ProcedureReturn value
EndProcedure

Procedure SetBackImage(h.l, n.l, f.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "SetBackImage"), h, n, f)
EndProcedure

Procedure PrintListview(h.l, w.l, i.l, s.l, l.l, o.l, r.l, u.l, ps.l, pz.l, us.l, n.l, f.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "PrintListview"), h, w, i, s, l, o, r, u, ps, pz, us, n, f)
EndProcedure

Procedure PrintColumns(b.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "PrintColumns"), b)
EndProcedure
   
Procedure.l AreCheckboxesPresent(h.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "AreCheckboxesPresent"), h)
   ProcedureReturn value
EndProcedure

Procedure.l AreIconsPresent(h.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "AreIconsPresent"), h)
   ProcedureReturn value
EndProcedure

Procedure EraseListview(h.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "EraseListview"), h)
EndProcedure

Procedure.l GetControlParas(b.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetControlParas"), b)
   ProcedureReturn value
EndProcedure
                                                                      
Procedure Register(k.l)
  CallFunctionFast(UDRes_GetPackFunction(adress, "Register"), k)
EndProcedure

Procedure SetColumnWidth(lv.l, spindex.l, breite.l)
   SendMessage_(lv, 4126, spindex, breite)
EndProcedure

Procedure SetFilelistFilter(s.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetFilelistFilter"), s)
EndProcedure
   
Procedure SetFilelistNoFilter(s.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetFilelistNoFilter"), s)
EndProcedure
   
Procedure EnableDragDrop(lv.l, f.l)
    CallFunctionFast(UDRes_GetPackFunction(adress, "EnableDragDrop"), lv, f)
EndProcedure

Procedure.l GetDragDropParas(b.l)
     value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetDragDropParas"), b)       
     ProcedureReturn value
EndProcedure

Procedure SetStyle(s.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetStyle"), s)
EndProcedure

Procedure.l GetVar(f.l)
  value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetVar"), f)
  ProcedureReturn value
EndProcedure

Procedure.l GetEdgeIntegers(b.l, a.l, l.l, h.l)
    value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetEdgeIntegers"), b, a, l, h)
    ProcedureReturn value
EndProcedure

Procedure GetEdgeFloats(b.l, a.l, l.f, h.f)
    CallFunctionFast(UDRes_GetPackFunction(adress, "GetEdgeFloats"), b, a, l, h)
EndProcedure

;Procedure GetFloat(b.l, a.l, f.f)
;   CallFunction(#lvdll, "GetFloat" b, a, f)
;EndProcedure

Procedure.l GetIcon(lv.l, s.l, z.l)
   value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetIcon"), lv, s, l)
   ProcedureReturn value
EndProcedure
                   
Procedure SetColumnAlignment(lv.l, s.l, a.l)
     CallFunctionFast(UDRes_GetPackFunction(adress, "SetColumnAlignment"), lv, s, a)
EndProcedure

Procedure SetLineNumbers(lv.l, a.l, s.l)
      CallFunctionFast(UDRes_GetPackFunction(adress, "SetLineNumbers"), lv, a, s)
EndProcedure

Procedure.l GetDllVersion()
     value.l = CallFunctionFast(UDRes_GetPackFunction(adress, "GetDllVersion"))
     ProcedureReturn value
EndProcedure

Procedure DeleteSpaceLines(lv.l, f.l)
     CallFunctionFast(UDRes_GetPackFunction(adress, "DeleteSpaceLines"), lv, f)
EndProcedure

Procedure ConvertDatas(lv.l, s.l, f.l)
     CallFunctionFast(UDRes_GetPackFunction(adress, "ConvertDatas"), lv, s, f)
EndProcedure

Procedure ForbidScrollMessage(lv.l)
     CallFunctionFast(UDRes_GetPackFunction(adress, "ForbidScrollMessage"), lv)
EndProcedure

Procedure ExchangeBytes(lv.l, s.l, q.l, z.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "ExchangeBytes"), lv, s, q, z)
EndProcedure

Procedure SetPrintAttributes(F.l, p1.l, p2.l, p3.l, p4.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetPrintAttributes"), f, p1, p2, p3, p4)
EndProcedure

Procedure SetLineHeight(lv.l, y.l)
   CallFunctionFast(UDRes_GetPackFunction(adress, "SetLineHeight"), lv, y)
EndProcedure

Beitrag von **Kiffi** » 27.10.2006 20:35

> Falls noch jemand damit arbeitet, braucht er sich keine doppelte
> Arbeit zu machen.

prima Einstellung!

Danke für's Teilen!

Wie teuer soll denn die DLL sein? Ich finde irgendwie keine Infos darüber.

Grüße ... Kiffi

H.Brill · Beitrag von **H.Brill** » 28.10.2006 09:44

ich hatte sie mir vor etwa 2 Jahren für 29 € gekauft.
Kannste ja bei Frank Abbing nachfragen (mail@fabbing.de).

Die DLL war und ist deshalb für mich interessant, weil sie
halt u. a. eine anständige Druckfunktion enthält (mit 13 Parametern).
Drag & Drop ist natürlich auch dabei.

ts-soft · Beitrag von **ts-soft** » 28.10.2006 14:38

Vielleicht den Funktionsnamen mal ein Präfix verpassen. Konnte es ohne
Namensänderungen noch nie testen Beißt sich immer mit den Namen von
UserLibs, die eigentlich auch einen Präfix haben sollten

PureBoard

UDRes - Lib + Listview.dll

UDRes - Lib + Listview.dll

Re: UDRes - Lib + Listview.dll

Listview.dll