C ++ Foro | | | | - Página 1 - |
| Detlef Jagolski | ¡Hola Sebastian,
Yo bekomme seit heute beim Linken meines mittelgroßen Projektes una Linker Fehlermeldung:
MAKE Versión 5.2 Copyright (c) 1987, 2000 Borland "C rogrammeBorlandBCC55incc32.exe" -o".objPrfMain.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBCC55include" PrfMain.cpp PrfMain.cpp: "C rogrammeBorlandBCC55incc32.exe" -o".objBusiness-Calc_Edition_2010.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBCC55include" Business-Calc_Edition_2010.cpp Business-Calc_Edition_2010.cpp: "C rogrammeBorlandBCC55inilink32.exe" @MAKE0000.@@@ Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Fatal: Error detected (IMP302) Fatal: Access violation. Link terminated. ** error 2 ** deleting "Business-Calc_Edition_2010.exe" Finished.
oder
MAKE Versión 5.2 Copyright (c) 1987, 2000 Borland "C rogrammeBorlandBDS4.0incc32.exe" -o".objPrfMain.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBDS4.0include" PrfMain.cpp PrfMain.cpp: "C rogrammeBorlandBDS4.0incc32.exe" -o".objBusiness-Calc_Edition_2010.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBDS4.0include" Business-Calc_Edition_2010.cpp Business-Calc_Edition_2010.cpp: "C rogrammeBorlandBDS4.0inilink32.exe" @MAKE0000.@@@ Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland Warning: CODE : 0x0000014f / 0x00400000 Warning: DATA : 0x000000a3 / 0x00400000 Warning: DEBSYM : 0x0000000e / 0x00400000 Warning: Extdef flags : 0x00000021 / 0x00004000 Warning: Extdefs : 0x00000084 / 0x00004000 Warning: Import symbols : 0x00000000 / 0x00100000 Warning: OBJ symbols : 0x00000b60 / 0x00100000 Warning: Public GSX : 0x0000003c / 0x000c0000 Warning: Publics : 0x0000021c / 0x000c0000 Warning: SegRelocs : 0x00000438 / 0x00400000 Warning: StringBlock : 0x0000000a / 0x00400000 Warning: Virdefs : 0x00000004 / 0x00020000 Warning: BSS : 0x00000000 / 0x00400000 Warning: CODE : 0x0025c2como / 0x00400000 Warning: D:/Eigene Daten/Programmieren/Profano/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ilc: 0x00010000 / 0x03000000 Warning: D:/Eigene Daten/Programmieren/Profano/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ild: 0x00010000 / 0x03000000 Warning: D:/Eigene Daten/Programmieren/Profano/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ilf: 0x00010000 / 0x03000000 Warning: D:/Eigene Daten/Programmieren/Profano/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ils: 0x00050000 / 0x03000000 Warning: D:/Eigene Daten/Programmieren/Profano/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.tds: 0x00010000 / 0x06000000 Warning: DATA : 0x000d9830 / 0x00400000 Warning: Extdef flags : 0x000000aa / 0x00004000 Warning: Extdefs : 0x000002a8 / 0x00004000 Warning: Import symbols : 0x00000000 / 0x00100000 Warning: OBJ symbols : 0x00021e8c / 0x00100000 Warning: Public GSX : 0x00002700 / 0x000c0000 Warning: Publics : 0x00015f00 / 0x000c0000 Warning: SegRelocs : 0x00000014 / 0x00400000 Warning: StringBlock : 0x0000001f / 0x00400000 Warning: UNKNOWN : 0x00000006 / 0x00400000 Warning: Virdefs : 0x0000101c / 0x00020000 Warning: unknown heap name : 0x03000000 / 0x03000000 Fatal: Speicherbeschrõnkung f³r Block SegRelocs en Modul Business-Calc_Edition_2010.cpp wurde ³berschritten ** error 2 ** deleting "Business-Calc_Edition_2010.exe" Finished.
¿Puede Usted me una Tipp geben?
Saludo
Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 29.01.2010 ▲ |
| |
| | | | | - Página 1 - |
| | Yo weiß por desgracia, no simplemente una Schalter X, en el problema así a lösen.
Yo sehe ahora sólo el Meldung "... Block SegRelocs überschritten", vlt. es el Linker el Objeto a groß. Was auch ser kann, dass el Linker lediglich una Función a groß es en lugar de todos Objeto, hierbei podría algo "Umschreiben" el Función helfen - also Teile el Función wiederum en Características aufteilen y esta neuen Función entonces pero no como Unterfunktionen deklarieren. Vlt. bekommst Usted lo aber auch z.B. con PoLink gelinkt, z.B. simplemente hier de [...] herunterladen. Wenn no, entonces debería como Sebastian simplemente veces ran, de otra manera müsstest Usted sólo el Programa teilen, una Workaround wäre vlt. con Profano2CPP de Programmteilen una DLL herstellen a Características de dieser entonces el Programa sólo a Laufzeit hinzuzufügen. Egal veces como, irgendwelche Grenzen y el Aufteilen en kleinere Arbeitsschritte gibts siempre. Yo mag a XProfan, dass I, con PRCs como "Module" trabajo kann, qué me z.B. el Programmieren unheimlich erleichtert. Mit Profano2CPP puede ser sí ähnlich trabajo, cómo "teilt" es sí fast egal. |
| | | | |
| | Detlef Jagolski | ¡Hola IF, sólo una vez Gracias para Su Propuestas.
Aus el Ayuda de Profano2Cpp: Un größere Einschränkung hay desafortunadamente: Innerhalb el DLL debería no Befehle oder Características, el Ventana oder Fensterelemente erzeugen, verwendet werden; el Comportamiento es sonst unvorhersehbar.
Mein Programa ha ahora ca. 24000 Zeilen, y es a ca. 30% fertig. Das son sólo Dialoge, Edit‘s usw. Alles otro es ya en vier Dll‘s untergebracht. Yo hoffe dass Sebastian ni Concepto ha. Saludo Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.01.2010 ▲ |
| |
| | | Hast Usted simplemente schonmal (s.o.) una otro Linker como z.B. POLink probiert? |
| | | | |
| | Detlef Jagolski | Den voluntad Yo igual todavía Testen. |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.01.2010 ▲ |
| |
| | | Sag veces "Fensterelemente erzeugen" es doch selten, el größten Teil debería el doch no betreffen. |
| | | | |
| | Detlef Jagolski | Fensterelemente
Und así mi Yo Textos, Buttons, Checkboxes, Selectfelder, Radiobuttons, Übersichtsfelder usw.
Oder qué meint Sebastian en el Ayuda con Fensterelemente? |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.01.2010 ▲ |
| |
| | | Durchschnittlich son doch el wenigsten Zeilen beschäftigt, Elemente a redactar, en lugar de con esta a hantieren - saber aber el código no. Como groß es porque el Objektdatei? Zeilenzahl sagt sí nichts en Anzahl el Anweisungen/ Programmgröße de. |
| | | | |
| | Detlef Jagolski | OBJ Expediente 4401 KB Programa 3,7 MB |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.01.2010 ▲ |
| |
| | | | - Página 2 - |
| | | Un 4 MB OBJ es ya riesig, XProfan kommt con un Virtel dessen de.
Yo weiß, dass no el "Optimierungstips" son, welche Usted grad necesidad, aber ellos "funktionieren" unabhängig.
Vlt. könntest Usted veces una INC oder una Programmteil zeigen, de el du überhaupt no wüsstest, como dieser wegzuoptimieren es. |
| | | | |
| | Detlef Jagolski |
Proc DesignForm_Lieferantendaten
Declarar DesignForm&
Declarar dlgexit%
Declarar Dlg2Button1&
Declarar Dlg2Button2&
Declarar Dlg2Button3&
Conjunto("TrueColor", 1)
DesignForm&=Crear("Dialog",%hwnd,"Lieferantenstammdaten",%maxX + 5,114,521,415)
Texto1&=Crear("Text",DesignForm&,"Lieferanten-Nr.:",20,100,102,17)
SetFont Texto1&,TextFont4&
Texto2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
SetFont Texto2&,TextFont1&
Texto3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
SetFont Texto3&,TextFont1&
Texto4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
SetFont Texto4&,TextFont1&
Texto5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
SetFont Texto5&,TextFont1&
Texto6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
SetFont Texto6&,TextFont1&
Texto7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
SetFont Texto7&,TextFont1&
Texto8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
SetFont Texto8&,TextFont1&
Texto9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
SetFont Texto9&,TextFont1&
Texto10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Texto10&,TextFont1&
Texto11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
SetFont Texto11&,TextFont1&
Texto12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
SetFont Texto12&,TextFont1&
Texto13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
SetFont Texto13&,TextFont1&
DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
SetFont DlgEdit1&,TextFont4&
SendMessage(DlgEdit1&,~EM_LIMITTEXT,15,0)
DlgChoiceBox1&=Crear("ChoiceBox",DesignForm&,"",170,120,82,120)
ClearList
AddStrings "Firma"
AddStrings "Frau"
AddStrings "Herr"
MoveListToChoice(DlgChoiceBox1&)
ClearList
SendMessage(DlgChoiceBox1&,~CB_SETCURSEL,0,0)
SetFont DlgChoiceBox1&,TextFont4&
DlgEdit2&=Crear("Edit",DesignForm&,"",170,140,242,21)
SetFont DlgEdit2&,TextFont4&
SendMessage(DlgEdit2&,~EM_LIMITTEXT,35,0)
DlgEdit3&=Crear("Edit",DesignForm&,"",170,160,242,21)
SetFont DlgEdit3&,TextFont4&
SendMessage(DlgEdit3&,~EM_LIMITTEXT,35,0)
DlgEdit4&=Crear("Edit",DesignForm&,"",170,180,242,21)
SetFont DlgEdit4&,TextFont4&
SendMessage(DlgEdit4&,~EM_LIMITTEXT,35,0)
DlgEdit5&=Crear("Edit",DesignForm&,"",170,200,32,21)
SetFont DlgEdit5&,TextFont4&
SendMessage(DlgEdit5&,~EM_LIMITTEXT,3,0)
SetStyle DlgEdit5&, GetStyle(DlgEdit5&) | ~ES_UPPERCASE
DlgEdit6&=Crear("Edit",DesignForm&,"",200,200,72,21)
SetFont DlgEdit6&,TextFont4&
SendMessage(DlgEdit6&,~EM_LIMITTEXT,15,0)
DlgEdit7&=Crear("Edit",DesignForm&,"",271,200,142,21)
SetFont DlgEdit7&,TextFont4&
SendMessage(DlgEdit7&,~EM_LIMITTEXT,25,0)
DlgEdit8&=Crear("Edit",DesignForm&,"",170,220,72,21)
SetFont DlgEdit8&,TextFont4&
SendMessage(DlgEdit8&,~EM_LIMITTEXT,25,0)
DlgEdit9&=Crear("Edit",DesignForm&,"",240,220,82,21)
SetFont DlgEdit9&,TextFont4&
SendMessage(DlgEdit9&,~EM_LIMITTEXT,25,0)
DlgEdit10&=Crear("Edit",DesignForm&,"",170,240,152,21)
SetFont DlgEdit10&,TextFont4&
SendMessage(DlgEdit10&,~EM_LIMITTEXT,35,0)
DlgEdit11&=Crear("Edit",DesignForm&,"",170,260,152,21)
SetFont DlgEdit11&,TextFont4&
SendMessage(DlgEdit11&,~EM_LIMITTEXT,35,0)
DlgEdit12&=Crear("Edit",DesignForm&,"",170,280,242,21)
SetFont DlgEdit12&,TextFont4&
SendMessage(DlgEdit12&,~EM_LIMITTEXT,35,0)
DlgEdit13&=Crear("Edit",DesignForm&,"",170,300,242,21)
SetFont DlgEdit13&,TextFont4&
SendMessage(DlgEdit13&,~EM_LIMITTEXT,35,0)
DlgEdit14&=Crear("Edit",DesignForm&,"",170,320,242,21)
SetFont DlgEdit14&,TextFont4&
SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)
DlgEdit15&=Crear("Edit",DesignForm&,"",170,340,152,21)
SetFont DlgEdit15&,TextFont4&
SendMessage(DlgEdit15&,~EM_LIMITTEXT,35,0)
Dlg2Button1&=Crear("Button",DesignForm&,"&Speichern",430,90,75,25)
SetFont Dlg2Button1&,ButtonFont1&
Dlg2Button2&=Crear("Button",DesignForm&,"&Hilfe",430,120,75,25)
SetFont Dlg2Button2&,ButtonFont1&
Dlg2Button3&=Crear("Button",DesignForm&,"&Abbrechen",430,350,75,25)
SetFont Dlg2Button3&,ButtonFont1&
SubClass DlgEdit1&,1
SubClass DlgEdit2&,1
SubClass DlgEdit3&,1
SubClass DlgEdit4&,1
SubClass DlgEdit5&,1
SubClass DlgEdit6&,1
SubClass DlgEdit7&,1
SubClass DlgEdit8&,1
SubClass DlgEdit9&,1
SubClass DlgEdit10&,1
SubClass DlgEdit11&,1
SubClass DlgEdit12&,1
SubClass DlgEdit13&,1
SubClass DlgEdit14&,1
SubClass DlgEdit15&,1
Case Lieferantenstammdaten% = 2: GetListView_Lieferantenstammdaten
SetFocus(DlgEdit1&)
SetWindowPos DesignForm& = CalcLeft(521),CalcTop(415) - 521,415;0
Claro dlgexit%
Sinestar encargado dlgexit%
If GetText $(DlgEdit1&) = ""
EnableWindow Dlg2Button1&,0
Más
EnableWindow Dlg2Button1&,1
EndIf
WaitInput
If %key = 2
dlgexit% = 1
ElseIf Clicked(Dlg2Button1&)
If Lieferantenstammdaten% = 1
Pruefen_Lieferanten
Case &SQLCount = 0: INSERT_Lieferantenstammdaten
ElseIf Lieferantenstammdaten% = 2
UPDATE_Lieferantenstammdaten
EndIf
GetSatz_Lieferantenstammdaten
ElseIf Clicked(Dlg2Button2&)
ElseIf Clicked(Dlg2Button3&)
dlgexit% = 1
ElseIf %key = 5
Ayuda
EndIf
EndWhile
Claro Lieferantenstammdaten%
DestroyWindow(DesignForm&)
SubClass DlgEdit1&,0
SubClass DlgEdit2&,0
SubClass DlgEdit3&,0
SubClass DlgEdit4&,0
SubClass DlgEdit5&,0
SubClass DlgEdit6&,0
SubClass DlgEdit7&,0
SubClass DlgEdit8&,0
SubClass DlgEdit9&,0
SubClass DlgEdit10&,0
SubClass DlgEdit11&,0
SubClass DlgEdit12&,0
SubClass DlgEdit13&,0
SubClass DlgEdit14&,0
SubClass DlgEdit15&,0
ENDPROC
So sehe el Dialoge de, alles otro es en DLL |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 30.01.2010 ▲ |
| |
| | | Rein qué con "Suchen y Ersetzen" a hacer wäre, z.B. en:
Texto2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
SetFont Texto2&,TextFont1&
Text3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
SetFont Texto3&,TextFont1&
Text4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
SetFont Texto4&,TextFont1&
Text5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
SetFont Texto5&,TextFont1&
Text6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
SetFont Texto6&,TextFont1&
Text7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
SetFont Texto7&,TextFont1&
Text8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
SetFont Texto8&,TextFont1&
Text9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
SetFont Texto9&,TextFont1&
Text10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Texto10&,TextFont1&
Text11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
SetFont Texto11&,TextFont1&
Text12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
SetFont Texto12&,TextFont1&
Text13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
SetFont Texto13&,TextFont1&
DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
SetFont DlgEdit1&,TextFont4&
vlt. a
DlgEdit1&=Crear("Edit",DesignForm&,"",170,100,121,21)
Text9&=Crear("Text",DesignForm&,"Telefax:",20,260,82,17)
Text8&=Crear("Text",DesignForm&,"Telefon:",20,240,72,17)
Text7&=Crear("Text",DesignForm&,"PLZ/Postfach:",20,220,92,17)
Text6&=Crear("Text",DesignForm&,"Land/Plz/Ort:",20,200,92,17)
Text5&=Crear("Text",DesignForm&,"Straße:",20,180,52,17)
Text4&=Crear("Text",DesignForm&,"Name 2:",20,160,52,17)
Text3&=Crear("Text",DesignForm&,"Name 1:",20,140,52,17)
Text2&=Crear("Text",DesignForm&,"Anrede:",20,120,62,17)
Text13&=Crear("Text",DesignForm&,"Mobil:",20,340,52,17)
Text12&=Crear("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
Text11&=Crear("Text",DesignForm&,"URL:",20,300,82,17)
Text10&=Crear("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Texto9&,TextFont1&
SetFont Texto8&,TextFont1&
SetFont Texto7&,TextFont1&
SetFont Texto6&,TextFont1&
SetFont Texto5&,TextFont1&
SetFont Texto4&,TextFont1&
SetFont Texto3&,TextFont1&
SetFont Texto2&,TextFont1&
SetFont Texto13&,TextFont1&
SetFont Texto12&,TextFont1&
SetFont Texto11&,TextFont1&
SetFont Texto10&,TextFont1&
SetFont DlgEdit1&,TextFont4&
Wobei:
SetFont Texto9&,TextFont1&
SetFont Texto8&,TextFont1&
SetFont Texto7&,TextFont1&
SetFont Texto6&,TextFont1&
SetFont Texto5&,TextFont1&
SetFont Texto4&,TextFont1&
SetFont Texto3&,TextFont1&
SetFont Texto2&,TextFont1&
SetFont Texto13&,TextFont1&
SetFont Texto12&,TextFont1&
SetFont Texto11&,TextFont1&
SetFont Texto10&,TextFont1&
SetFont DlgEdit1&,TextFont4&
con uno Función en 1 Línea reduzierbar wäre: y luego sólo
Oder en ständigen Edits con Limittext
DlgEdit14&=Crear("Edit",DesignForm&,"",170,320,242,21)
SetFont DlgEdit14&,TextFont4&
SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)
simplemente con uno Hilfsfunktion myCreateEdit(DesignForm&,vorgabeText$,maxLen&,TextFont4&,X&,Y&,...) una Línea draus hacer. También en
SubClass DlgEdit1&,1
SubClass DlgEdit2&,1
SubClass DlgEdit3&,1
SubClass DlgEdit4&,1
SubClass DlgEdit5&,1
SubClass DlgEdit6&,1
SubClass DlgEdit7&,1
SubClass DlgEdit8&,1
SubClass DlgEdit9&,1
SubClass DlgEdit10&,1
SubClass DlgEdit11&,1
SubClass DlgEdit12&,1
SubClass DlgEdit13&,1
SubClass DlgEdit14&,1
SubClass DlgEdit15&,1
, por qué no y de
SubClass DlgEdit1&,0
SubClass DlgEdit2&,0
SubClass DlgEdit3&,0
SubClass DlgEdit4&,0
SubClass DlgEdit5&,0
SubClass DlgEdit6&,0
SubClass DlgEdit7&,0
SubClass DlgEdit8&,0
SubClass DlgEdit9&,0
SubClass DlgEdit10&,0
SubClass DlgEdit11&,0
SubClass DlgEdit12&,0
SubClass DlgEdit13&,0
SubClass DlgEdit14&,0
SubClass DlgEdit15&,0
vlt.
Damit sparst Usted enorm.
Yo zwar kein Profano2Cpp aber Usted puede me Directorio con el CPP-Projekt auch zusenden y yo schaue, si con irgend una Linker a linken es. Den Ver código fuente necesidad Yo dafür no. |
| | | | |
| | Detlef Jagolski | ¡Hola IF,
otra vez vielen Dank para Su Ayuda. Yo voluntad sólo una vez selber otro Linker Testen z.B. VC++ y PoLink. Nur es ärgerlich alles todavía una vez Durchzuackern qué ahora ya se ejecuta. Bisher Yo große Projekte con Delphi geschrieben. Möglicherweise bin Yo más rápido si yo el Teil con Delphi neu escribir. Tal vez ha Sebastian ni Concepto.
Saludo
Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 31.01.2010 ▲ |
| |
|
RespuestaTema opciones | 17.309 Views |
ThemeninformationenDieses Thema ha 2 subscriber: |