Vorlage:Coco/doc

Diese Seite ist die Dokumentations-Unterseite der Vorlage:Coco.

Coco steht für collapsible code

Diese Vorlage erzeugt ausklappbaren Code mit einem in Breite und Farbe wählbaren Rahmen.

Die Einklapp-Funktion kann abgeschaltet werden.

---

Verwendung

<syntaxhighlight lang="text" style="padding: 0.05em 1em 0.05em 1em; background-color:#dddddd">{{coco

|kla= |lang= |em= |bgc= |pad=

|code=}}</syntaxhighlight>

Wenn im Code ein senkrechter Strich | vorkommt, muss dieser durch das Magic Word {{!}} ersetzt werden.

Code

{{notitle|text=Als Code formatierten Text einklappbar machen}}

<includeonly><onlyinclude><div {{{kla|class="mw-collapsible"}}} style="width:{{{em|60em}}};">{{#tag:syntaxhighlight|{{{code|{{{code}}}}}}|lang="{{{lang|text}}}"|style="padding: {{{pad|0.05em 1em 0.05em 1em}}}; background-color:{{{bgc|#dddddd}}}"}}</div></onlyinclude></includeonly> {{bearbeiten}} {{verborgen}}{{documentation}}

Parameter

x

Name	Beschreibung		Standard	Status
code	der Code, der formatiert und angezeigt werden soll		leer	erforderlich
em	Breite des Fensters		60em	optional
lang	Sprache, nach deren Syntax eingefärbt werden soll		latex	optional
bgc	Rahmenfarbe, kann auch als Name angegeben werden, z.B. red, green etc.hier eine Liste		#dddddd	optional
pad	Rahmenbreite		0.05em 1em 0.05em 1em	optional
kla	Einklappen erwünscht oder nicht, wenn nicht: kla=; class="mw-collapsible mw-collapsed" erzeugt von Haus aus eingeklappten Code		nix	erforderlich

Beispiele

{{coco|lang=sql|code=SELECT DISTINCT A.Table_Name
FROM Sys.All_Tab_Columns A
WHERE (Owner = 'GDB_SYS' OR Owner = 'GDB_IF')
  AND (LOWER(Column_Name) LIKE '%pumpe%'
    OR LOWER(A.Table_Name) LIKE '%pump%'
    OR LOWER(Column_Name) LIKE '%pcb%')
ORDER BY 1}}

bewirkt:

<syntaxhighlight lang="sql" style="padding: 0.05em 1em 0.05em 1em; background-color:#dddddd">SELECT DISTINCT A.Table_Name

FROM Sys.All_Tab_Columns A WHERE (Owner = 'GDB_SYS' OR Owner = 'GDB_IF')

 AND (LOWER(Column_Name) LIKE '%pumpe%'
   OR LOWER(A.Table_Name) LIKE '%pump%'
   OR LOWER(Column_Name) LIKE '%pcb%')

ORDER BY 1</syntaxhighlight>

{{coco|em=30em|lang=vb|bgc=PaleGoldenRod|pad=1em 3em 0em 3em|code=Public Function IstDatum(Wert) As Boolean
  
  IstDatum = False
  
  If IsEmpty(Wert) Then Exit Function
  If Wert = 0 Or Trim(Wert) = "" Then Exit Function
  If Not IsDate(Wert) Then Exit Function
  
  IstDatum = True
  
End Function}}

bewirkt:

<syntaxhighlight lang="vb" style="padding: 1em 3em 0em 3em; background-color:PaleGoldenRod">Public Function IstDatum(Wert) As Boolean

 IstDatum = False
 
 If IsEmpty(Wert) Then Exit Function
 If Wert = 0 Or Trim(Wert) = "" Then Exit Function
 If Not IsDate(Wert) Then Exit Function
 
 IstDatum = True
 

End Function</syntaxhighlight>

Ohne Einklappen

{{coco|kla=|lang=vb|em=40em|bgc=PaleGoldenRod|line=|code=Function FolderDa(Folder As String) As Boolean
  On Error Resume Next
  FolderDa = False
  FolderDa = Dir(Folder, vbDirectory) <> ""
End Function}}

bewirkt

<syntaxhighlight lang="vb" style="padding: 0.05em 1em 0.05em 1em; background-color:PaleGoldenRod">Function FolderDa(Folder As String) As Boolean

 On Error Resume Next
 FolderDa = False
 FolderDa = Dir(Folder, vbDirectory) <> ""

End Function</syntaxhighlight>