English
Forum

Search Message for Grid/List (LVM_FINDITEM)

 

Jac
de
Lad
Hm, I know, Roland power now leave. but Perhaps white it Yes nevertheless someone:

stick one Control behind Grid and List (through Create) or is the ne Profaninterne thing?
if it one Control is: gives it a speedy function (I take at times through sendmessage), with the I detect can, whether a String vorkommt and if so, where?

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
08/25/06  
 




Michael
Wodrich
functions Select String not??!

loudly my records:

operates too with Stringlisten, The with Create(List,...) created get.
operates too with Stringgrids, The with Create(Grid,...) created get.

Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
08/25/06  
 




Frank
Abbing

stick one Control behind Grid and List (through Create) or is the ne Profaninterne thing?


behind Grid stick the SysListview32-Control, is even one List view.

I knows, with a Info on my Dll is you momentarily not gedient. but The contain a speedy Suchfunktion for all Lines and Split.
 
08/25/06  
 




Jac
de
Lad
Well, Select String needed Yes a Zeilennummer. there's ne Message LVM_FindString, but I come with the structure not clear...
 
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
08/26/06  
 



I faith, the helps you moreover:
CompileMarkSeparation
DEF @LookupPrivilegeDisplayName(5) !ADVAPI32,LookupPrivilegeDisplayNameA
DEF @GetLastError(0) !kernel32,GetLastError Liefert letzten API Fehler.
DEF @ImageList_Create(5) !COMCTL32,ImageList_Create
DEF @ImageList_AddIcon(2) !COMCTL32,ImageList_AddIcon
DEF @ImageList_Destroy(1) !COMCTL32,ImageList_Destroy
DEF @LoadIcon(2) !USER32,LoadIconA
DEF @GetModuleHandle(1) !KERNEL32,GetModuleHandleA
DEF @CopyMemory(3) !kernel32,RtlMoveMemory
SetTrueColor 1
Declare Priv$[2,35],DispSize&,LangID&,DispName#,System$,PRIV1$,Fehler&,Hicon&,Imagelist&,ExecuteHandle&
Declare Iconname#,WINVER&,Anzahl&,Suchtext$
Declare LVC#,Zeile#,Priv_List_Text#
Struct LVCOLUMN=Mask&, FMT&, CX&, Text&, Textlänge&, Subitem&
Struct LVITEM=IMASK&, ITEM&, ISUBITEM&, State&, StateMask&, ITEXT&, ITEXTMAX&, IIMAGE&, ILPARAM&
DIM Iconname#,262
LET WINVER&=3
Let Imagelist&=ImageList_Create(16,16,$0001,3,3) Imagelist erzeugen
Let ExecuteHandle&=@GetModuleHandle(0)  Handle des laufenden Programms
String Iconname#,0=Weg       Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Windows         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Eimer
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Editor
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=A
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Stein
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Baum
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Computer         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z1         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z2         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z3         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z4         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z6         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
String Iconname#,0=Z7         Icon-Name
Let Hicon&=loadicon(Executehandle&,Iconname#) Handle des Icons ok
ImageList_AddIcon(Imagelist&,HIcon&)
Dispose Iconname#
LET PRIV$[1,1]=SeBackupPrivilege
LET PRIV$[2,1]=Ist nötig, um Backup Operationen durchzuführen (z.B. in der Registry mittels RegSaveKey).
LET PRIV$[1,2]=SeRestorePrivilege
LET PRIV$[2,2]=Ist nötig, um Restore Operationen durchzuführen.
LET PRIV$[1,3]=SeTakeOwnershipPrivilege
LET PRIV$[2,3]=Wird benötigt, um die Zugehörigkeit eines Objektes ändern zu können.
LET PRIV$[1,4]=SeSystemProfilePrivilege
LET PRIV$[2,4]=Wird benötigt um alle Inforamationen des Systems auslesen zu können.
LET PRIV$[1,5]=SeCreateTokenPrivilege
LET PRIV$[2,5]=Ist nötig, um einen Primary Token zu erzeugen.
LET PRIV$[1,6]=SeAssignPrimaryTokenPrivilege
LET PRIV$[2,6]=Ist nötig, um einen Primary Token zuzuweisen.
LET PRIV$[1,7]=SeLockMemoryPrivilege
LET PRIV$[2,7]=Wird benötigt, um Physische Speicherseiten einfrieren zu Können.
LET PRIV$[1,8]=SeIncreaseQuotaPrivilege
LET PRIV$[2,8]=Wird benötigt, um die Quote eines Prozesses erhöhen zu können.
LET PRIV$[1,9]=SeMachineAccountPrivilege
LET PRIV$[2,9]=Ist nötig, um einen neuen Benutzer zu erzeugen.
LET PRIV$[1,10]=SeTcbPrivilege
LET PRIV$[2,10]=Wird benötigt, um das Locale System als bestandteil des Netzwerkrechtners anmelden zu können.
LET PRIV$[1,11]=SeSecurityPrivilege
LET PRIV$[2,11]=Ist nötig, um einige Sicherheitsfunktionen durchzuführen.
LET PRIV$[1,12]=SeLoadDriverPrivilege
LET PRIV$[2,12]=Ist nötig, um Treiber zu laden oder zu entladen.
LET PRIV$[1,13]=SeSystemtimePrivilege
LET PRIV$[2,13]=Ist nötig, um die Systemzeit zu setzen.
LET PRIV$[1,14]=SeProfileSingleProcessPrivilege
LET PRIV$[2,14]=Wird benötigt, um Informationen eines einzelnen Prozesses ermitteln zu können.
LET PRIV$[1,15]=SeIncreaseBasePriorityPrivilege
LET PRIV$[2,15]=Ist nötig, um die Priorität einer Anwendung zu erhöhen.
LET PRIV$[1,16]=SeCreatePagefilePrivilege
LET PRIV$[2,16]=Wird benötigt, um eine Paging-Datei erstellen zu können.
LET PRIV$[1,17]=SeCreatePermanentPrivilege
LET PRIV$[2,17]=Wird benötigt, um Permanente Objekte erstellen zu können.
LET PRIV$[1,18]=SeShutdownPrivilege
LET PRIV$[2,18]=Ist nötig, um den Rechner herunterfahren zu können.
LET PRIV$[1,19]=SeDebugPrivilege
LET PRIV$[2,19]=Ist nötig, um Debug Operationen an einem Prozess auszuführen.
LET PRIV$[1,20]=SeAuditPrivilege
LET PRIV$[2,20]=Wird benutzt, um Audit-Log einträge generieren zu können.
LET PRIV$[1,21]=SeSystemEnvironmentPrivilege
LET PRIV$[2,21]=Wird benutzt, um auf nicht flüchtigen Speicher des Systems zugreifen zu können.
LET PRIV$[1,22]=SeChangeNotifyPrivilege
LET PRIV$[2,22]=Ist nötig, um Änderungen an Dateien oder Ordnern festzustellen.
LET PRIV$[1,23]=SeRemoteShutdownPrivilege
LET PRIV$[2,23]=Ist nötig, um einen Rechner ferngesteuert herunterzufahren.
LET PRIV$[1,24]=SeUndockPrivilege
LET PRIV$[2,24]=Wird benötigt, um ein Laptop Undocken zu können.
LET PRIV$[1,25]=SeSyncAgentPrivilege
LET PRIV$[2,25]=Wird benötigt, um alle Leserechte eines Dateisystem zu erlauben, die sonst nur der Administartor besitzt.
LET PRIV$[1,26]=SeEnableDelegationPrivilege
LET PRIV$[2,26]=Wird benötigt, um Netzwerkrechner als Vertrauenswürdig zu markieren.
LET PRIV$[1,27]=SeManageVolumePrivilege
LET PRIV$[2,27]=Wird verliehen, um Dateien verwalten zu können.
LET PRIV$[1,28]=SeInteractiveLogonRight
LET PRIV$[2,28]=Wird benötigt, um sich mit der Tastatur einloggen zu können.
LET PRIV$[1,29]=SeDenyInteractiveLogonRight
LET PRIV$[2,29]=Verhindert das einloggen übrer die Tastatur.
LET PRIV$[1,30]=SeServiceLogonRight
LET PRIV$[2,30]=Kann sich als Service anmelden.
LET PRIV$[1,31]=SeDenyServiceLogonRight
LET PRIV$[2,31]=Verhindert das Anmelden als Service.
LET PRIV$[1,32]=SeBatchLogonRight
LET PRIV$[2,32]=Kann sich mithilfe einer Batchwarteschlange anmelden.
LET PRIV$[1,33]=SeDenyBatchLogonRight
LET PRIV$[2,33]=Verhindert das Anmelden mithilfe einer Batchwarteschlange.
LET PRIV$[1,34]=SeNetworkLogonRight
LET PRIV$[2,34]=Kann über das Netzwerk eine Verbindung mit dem Computer herstellen.
LET PRIV$[1,35]=SeDenyNetworkLogonRight
LET PRIV$[2,35]=Verhindert das Herstellen einer Verbindung mit dem Computer über das Netzwerk.

Proc Get_Priv_List_Text

    Parameters LV_HANDLE&,Priv_List_Index&
    Declare ERG$
    Dim Zeile#,LVITEM
    DIM Priv_List_Text#,256
    CLEAR Zeile#
    Zeile#.IMASK&=$1
    Zeile#.ITEM&=Priv_List_Index&
    Zeile#.ITEXT&=Priv_List_Text#
    Zeile#.ITEXTMAX&=256
    @sendmessage(LV_HANDLE&,$1005,Priv_List_Index&,Zeile#)
    Let ERG$=@String$(Priv_List_Text#,0)
    Dispose Zeile#
    Dispose Priv_List_Text#
    Return ERG$

Endproc

Proc Get_Priv_List_Check

    Parameters LV_HANDLE&,Priv_List_Index&
    Declare ERG&,ERG2&
    Dim Zeile#,LVITEM
    CLEAR Zeile#
    Zeile#.IMASK&=$8
    Zeile#.StateMask&=$F000
    Zeile#.ITEM&=Priv_List_Index&
    @sendmessage(LV_HANDLE&,$1005,Priv_List_Index&,Zeile#)
    LET ERG&=Zeile#.State&

    IF ERG&=$1000

        Let ERG2&=0

    Elseif ERG&=$2000

        Let ERG2&=1

    Else

        Let ERG2&=2

    Endif

    Dispose Zeile#
    Return ERG2&

Endproc

Proc Set_Priv_List_Check

    Parameters LV_HANDLE&,Priv_List_Index&,Check_State%
    Dim Zeile#,LVITEM
    CLEAR Zeile#
    Zeile#.IMASK&=$8

    IF Check_State%=1

        Zeile#.State&=$2000

    else

        Zeile#.State&=$1000

    endif

    Zeile#.StateMask&=$F000
    Zeile#.IIMAGE&=2
    Zeile#.ITEM&=Priv_List_Index&
    @sendmessage(LV_HANDLE&,$102B,Priv_List_Index&,Zeile#)
    Dispose Zeile#

Endproc

Proc Addzeile_To_PrivList

    Parameters Lvhndl&,Index&,spalte&,Text$,Image&
    Dim Zeile#,LVITEM
    Clear Zeile#

    IF Image&=0

        Zeile#.IMASK&=$0001
        Zeile#.IIMAGE&=0

    else

        Zeile#.IMASK&=$000B
        Zeile#.IIMAGE&=IMAGE&

    endif

    Zeile#.ITEM&=Index&
    Zeile#.ITEXT&=Addr(Text$)
    Zeile#.ITEXTMAX&=Len(Text$)
    Zeile#.ISUBITEM&=spalte&
    Zeile#.StateMask&=0
    Zeile#.State&=0
    Sendmessage(Lvhndl&,$1007,0,Zeile#)
    Sendmessage(Lvhndl&,$102E,Index&,Zeile#)
    Dispose Zeile#

Endproc

Proc CreatePrivListView

    Parameters Fenster_Handle&,x1&,y1&,x2&,y2&,Zeilenbreite1&,Zeilenbreite2&,Priv_Anzahl%,Headertext$,H_Color&,T_Color&
    Declare Listview_Handle&,Spaltentext$,PROC_PRIV_ZÄHLER%,State_Imagelist&,ICO_STRING$
    Dim LVC#,LVCOLUMN
    Listview_Handle&=Control(SysListView32,PrivListview,$54018001+$4,x1&,y1&,x2&,y2&,Fenster_Handle&,$0100,%Hinstance,$200)
    @sendmessage(Listview_Handle&,$1036,0,$431+6)
    @sendmessage(Listview_Handle&,$1003,1,Imagelist&)
    @sendmessage(Listview_Handle&,$1001,0,H_COLOR&)
    @sendmessage(Listview_Handle&,$1000+38,0,H_COLOR&)
    @sendmessage(Listview_Handle&,$1000+36,0,T_COLOR&)
    LET State_Imagelist&=@SEndmessage(Listview_Handle&,$1000+2,$2,0)
    LET ICO_STRING$=Z5
    Let Hicon&=loadicon(Executehandle&,@ADDR(ICO_STRING$)) Handle des Icons ok
    ImageList_AddIcon(State_Imagelist&,HIcon&)
    LET Spaltentext$=Headertext$
    LVC#.TEXT&=@ADDR(Spaltentext$)
    LVC#.MASK&=$0001+$0002+$0004+$0008
    LVC#.FMT&=0
    LVC#.CX&=Zeilenbreite1&
    LVC#.Subitem&=0
    LVC#.Textlänge&=@LEN(Spaltentext$)
    @sendmessage(Listview_Handle&,$1000+27,1,LVC#)
    LET Spaltentext$=Bedeutung
    LVC#.TEXT&=@ADDR(Spaltentext$)
    LVC#.Textlänge&=@LEN(Spaltentext$)
    LVC#.CX&=Zeilenbreite2&
    @sendmessage(Listview_Handle&,$1000+27,2,LVC#)
    LET PROC_PRIV_ZÄHLER%=Priv_Anzahl%

    While PROC_PRIV_ZÄHLER%>0

        LET PRIV1$=PRIV$[1,PROC_PRIV_ZÄHLER%]
        LET DispSize&=1
        DIM  DispName#,DispSize&
        CLEAR DispName#
        CLEAR System$,LangID&
        LET Fehler&=@LookupPrivilegeDisplayName(@ADDR(System$),@ADDR(PRIV1$),DispName#,@ADDR(DispSize&),@ADDR(LangID&))
        Dispose DispName#
        LET DispSize&=DispSize&+4
        DIM DispName#,DispSize&
        CLEAR DispName#
        CLEAR System$,LangID&
        LET Fehler&=@LookupPrivilegeDisplayName(@ADDR(System$),@ADDR(PRIV1$),DispName#,@ADDR(DispSize&),@ADDR(LangID&))

        IF Fehler&=1

            IF @INSTR(Privilege,PRIV$[1,PROC_PRIV_ZÄHLER%])<>0

                Addzeile_To_PrivList Listview_Handle&,0,0,PRIV$[1,PROC_PRIV_ZÄHLER%],12

            else

                Addzeile_To_PrivList Listview_Handle&,0,0,PRIV$[1,PROC_PRIV_ZÄHLER%],13

            endif

            Let PRIV$[2,PROC_PRIV_ZÄHLER%]=@String$(DispName#,0)
            Addzeile_To_PrivList Listview_Handle&,0,1,PRIV$[2,PROC_PRIV_ZÄHLER%],13

        else

            IF @INSTR(Privilege,PRIV$[1,PROC_PRIV_ZÄHLER%])<>0

                IF WINVER&<4

                    Addzeile_To_PrivList Listview_Handle&,0,0,PRIV$[1,PROC_PRIV_ZÄHLER%],12
                    Addzeile_To_PrivList Listview_Handle&,0,1,PRIV$[2,PROC_PRIV_ZÄHLER%],12

                Elseif WINVER&>=4

                    IF @String$(DispName#,0)<>

                        Let PRIV$[2,PROC_PRIV_ZÄHLER%]=@String$(DispName#,0)
                        Addzeile_To_PrivList Listview_Handle&,0,0,PRIV$[1,PROC_PRIV_ZÄHLER%],12
                        Addzeile_To_PrivList Listview_Handle&,0,1,PRIV$[2,PROC_PRIV_ZÄHLER%],12

                    endif

                endif

            else

                Addzeile_To_PrivList Listview_Handle&,0,0,PRIV$[1,PROC_PRIV_ZÄHLER%],13
                Addzeile_To_PrivList Listview_Handle&,0,1,PRIV$[2,PROC_PRIV_ZÄHLER%],12

            endif

        endif

        Let PROC_PRIV_ZÄHLER%=PROC_PRIV_ZÄHLER%-1
        Dispose DispName#

    wend

    Dispose LVC#
    Return Listview_Handle&

Endproc

CLS
Declare LV1_Handle&,LV_FINDINFO#,Gefunden&
CreatePrivListView %HWND,10,50,450,300,180,270,35,Privileg / Accountrecht,@RGB(250,250,220),@RGB(0,0,255)
Let LV1_Handle&=@&(0)
Set_Priv_List_Check  LV1_Handle&,3,1
Get_Priv_List_Check LV1_Handle&,3
PRINT &(0)
Get_Priv_List_Check LV1_Handle&,4
PRINT &(0)
Get_Priv_List_Text LV1_Handle&,3
Print @$(0)
text in Listview suchen
DIM LV_FINDINFO#,20
long LV_FINDINFO#,0=$2
Let Suchtext$=SeSystemProfilePrivilege
long LV_FINDINFO#,4=@ADDR(Suchtext$)
LET Gefunden&=@Sendmessage(LV1_Handle&,$100D,-1,LV_FINDINFO#) LVM_FINDITEM Message
Dispose LV_FINDINFO#
Markieren
Print Gefunden&

IF Gefunden&<>-1

    Dim Zeile#,LVITEM
    CLEAR Zeile#
    @Setfocus(LV1_Handle&)
    Zeile#.IMASK&=$8
    Zeile#.ITEM&=Gefunden&
    Zeile#.State&=$2
    Zeile#.StateMask&=$2
    @Sendmessage(LV1_Handle&,$102B,Gefunden&,Zeile#) Zeile markieren
    Dispose Zeile#

endif

While 0=0

    Waitinput
    Get_Priv_List_Check LV1_Handle&,3
    DrawText 0,0,@STR$(&(0))+

wend

 
08/26/06  
 




Jörg
Sellmeyer
Jacob Liebeck
Well, Select String needed Yes a Zeilennummer. there's ne Message LVM_FindString, but I come with the structure not clear...


Select String needed no Zeilennr but it go only The Lines found, The with the Suchstring begin.
for something like is Franks Dll top.

Greeting
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08/26/06  
 




Jac
de
Lad
@Andreas: Oje, To I the View source durchhabe is christmas...thanks, I schaus me on.

@Jörg: Jaja, The DLL...I Search a function, The me GENAU whom String outputs! Well, I look time, whether me Select String weiterhilft...
 
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
08/26/06  
 



the most important is the:
CompileMarkSeparation

The Rest is Beiwerk... .
 
08/26/06  
 




Jac
de
Lad
The Box is by me empty...
 
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
08/26/06  
 



Sorry, there has the Insert time again not worked:
CompileMarkSeparation
text in Listview suchen
Dim Lv_findinfo#,20
Long Lv_findinfo#,0=$2
Let Suchtext$=SeSystemProfilePrivilege
Long Lv_findinfo#,4=@Addr(Suchtext$)
Let Gefunden&=@Sendmessage(Lv1_handle&,$100D,-1,Lv_findinfo#)LVM_FINDITEM Message
Dispose Lv_findinfo#
Markieren
Print Gefunden&

If Gefunden&<>-1

    Dim Zeile#,Lvitem
    Clear Zeile#
    @Setfocus(Lv1_handle&)
    Zeile#.Imask&=$8
    Zeile#.Item&=Gefunden&
    Zeile#.State&=$2
    Zeile#.Statemask&=$2
    @Sendmessage(Lv1_handle&,$102B,Gefunden&,Zeile#)Zeile markieren
    Dispose Zeile#

Endif

 
08/26/06  
 




Jac
de
Lad
Thank you!
 
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
08/27/06  
 




Michael
Wodrich

CompileMarkSeparation
Print SelectString(hGrid&, -1, Hugo)
>
 
Programmieren, das spannendste Detektivspiel der Welt.
08/27/06  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.960 Views

Untitledvor 0 min.
Walter05/04/24
RudiB.10/26/21
rquindt05/01/18
iF02/04/16
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie