XProfan

Español

Jac
de
Lad

Hier veces unos pocos Características, el Rolands neue Imagelisten en el erweitern, qué me momentan todavía fehlt. Sollte de XProfan 1 Sub 11 trabajo. Lo son todavía mehr Imagelist-Características, aber el son el wichtigsten. Wenn alguien qué vermisst, Por favor, laut schreien.
Kompilieren Marca Separación

Def ImageList_GetCount(1) !comctl32,ImageList_GetCount
Def ImageList_Duplicate(1) !comctl32,ImageList_Duplicate
Def ImageList_Copy(5) !comctl32,ImageList_Copy
Def ImageList_Destroy(1) !comctl32,ImageList_Destroy
Def ImageList_Remove(2) !comctl32,ImageList_Remove

subproc Imagelist.Remove

    Löscht ein Bildchen aus einer Imagelist
    Parameters handle&,pos%
    Return Imagelist_Remove(handle&,pos%)

endproc

subproc Imagelist.RemoveAll

    Löscht ein Bildchen aus einer Imagelist
    Parameters handle&

    while 0,GetCount(Imagelist(GetCount,handle&))-1

        Imagelist_Remove(handle&,&Loop)

    endwhile

endproc

subproc Imagelist.Destroy

    Entfernt eine Imagelist
    Parameters handle&
    Return Imagelist_Destroy(handle&)

endproc

subproc Imagelist.Copy

    Kopiert ein Bildchen mit Position pos1& von il& nach Position pos2&
    Flags:
     $0=Kopieren
     $1=Beide Bildchen vertauschen
    Ergebnis: <>0 -> Erfolg
    Parameters il&,pos1&,pos2&,flags&
    Return ImageList_Copy(il&,il&,pos2&,pos1&,flags&)

endproc

subproc Imagelist.XCopy

    Kopiert ein Bildchen mit Position pos1& von il1& nach il2& an Position pos2&
    Flags:
     $0=Kopieren
     $1=Beide Bildchen vertauschen
    Ergebnis: <>0 -> Erfolg
    Parameters il1&,il2&,pos1&,pos2&,flags&
    Return ImageList_Copy(il2&,il1&,pos2&,pos1&,flags&)

endproc

subproc Imagelist.Duplicate

    Kopiert eine Imagelist in eine neu erzeugte
    Ergebnis: Handle der neuen Imagelist oder 0
    Parameters handle&
    Return Imagelist_Duplicate(handle&)

endproc

subproc Imagelist.GetCount

    Ermittelt die Anzahl der Bilderchen in einer Imagelist
    Parameters handle&
    Return Imagelist_GetImageCount(handle&)

<

s=s4 href='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Sehr schön!

Zwei kleine Anmerkungen:

ImageList(Destroy, handle&) hay ya - glaube Yo* - , fehlt sólo aún en el Anleitung.
ImageList(GetCount, handle&) es überflüssig, como dies ya con GetCount(handle&) hecho se.

Saludo
Roland

* Yo bin me en el Moment no sicher, si Yo gestern antes o después de Packen des Subscriptionspaketes instalado habe.

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Ah, sí el GetCount Yo großzügig übersehen, hehehe.

Habs no probiert, aber debería necesariamente rein, como DestroyWindow() (y DeleteObject) no greifen (denke Yo veces, especialmente, wenns así ne exklusive Función dafür son).

Tal vez willst du sí el una u otros (oder todos

) Función(en) todavía einbauen, así wäre el Imagelist-Paket abgerundet y lo debería eigentlich no Wünsche offen bleiben. Auch el Defs sería entfallen, qué me angenehm rüberkommen sería.

Tal vez wäre lo todavía sinnvoll, si uno para el Imagelist el Farbtiefe festlegen podría. Lo son como así algunos Flags (Yo bin me sicher, du weißt el ya).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

@Roland: Baust du todavía lo que uno de wegen Imagelist a Gridbox plus Función para Bildzuweisen (al besten igual beim AddStrings())?? Ansonsten poste Yo el igual todavía.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Como ya he dicho, el neuen Imagelisten-Características halte Yo para relativ sinnlos, como ellos kaum Vorteile gegenüber el simplemente gehaltenen API haben.
Sinnvoller wäre lo, Imagelisten rápidamente befüllen a puede, z.B. con el Icons uno kompletten Dll (shell32.dll) oder todavía mejor con el Systemimageliste. Aber lass dir no billige (y unkomplette) Kopie su andrehen, pero Por favor, sólo el originalen Handle.
Wenn dus no hinbekommst, kann Yo dir gerne con Code aushelfen.

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Kompilieren Marca Separación

Def ImageList_Replace(4) !comctl32,ImageList_Replace
Def ImageList_ReplaceIcon(4) !comctl32,ImageList_ReplaceIcon
Def ImageList_SetIconSize(3) !comctl32,ImageList_SetIconSize

subproc Imagelist.Replace

    Ersetzt ein Bildchen einer Imagelist
    Parameters handle&,pos%,neuhandle&
    Return Imagelist_Replace(handle&,pos%,neuhandle&,0)

endproc

subproc Imagelist.Replaceicon

    Ersetzt ein Bildchen einer Imagelist mit einem Icon oder Cursor
    Parameters handle&,pos%,neuhandle&
    Return Imagelist_ReplaceIcon(handle&,pos%,neuhandle&,0)

endproc

subproc Imagelist.SetIconSize

    Setzt eine neue Größe für die Bilderchen in einer Imagelist und löscht sie komplett (die alten Bilder werde NICHT übernommen!)
    Parameters handle&,x%,y%
    Return Imagelist_SetIconSize(handle&,x%,y%)

ENDPROC

So, el debería alles ser. Der Rest es para el Otto-Normal-Profaner no wichtig.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Nochmal Dank a Andreas Miethe, el por lo que mi Transparenzproblem gelöst ha:
Kompilieren Marca Separación

 $H windows.ph
 $H commctrl.ph
 $H ShellApi.ph

subproc imagelist.setbkcolor

    parameters il&,color& ~CLR_NONE=transparenter Hindergrund
    Return ~ImageList_SetBkColor(IL&,color&)

en