Information icon.svg 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.

Vorausgesetzt, die Extension Syntaxhighlight ist installiert.

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 Fensters60em optional
lang Sprache, nach deren Syntax eingefärbt werden solllatex optional
bgc Rahmenfarbe, kann auch als Name angegeben werden, z.B. red, green etc.hier eine Liste#dddddd optional
padRahmenbreite 0.05em 1em 0.05em 1emoptional
kla Einklappen erwünscht oder nicht, wenn nicht: kla=; class="mw-collapsible mw-collapsed" erzeugt von Haus aus eingeklappten Codenix 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>