SVG-Symbole in der Farbe des Formulars anzeigen

Zeigen Sie ein einfarbiges Symbol aus einem SVG-Symbolsatz in einem Formular an, in jeder Größe scharf und in der Textfarbe des Formulars, und wechseln Sie es je Datensatz.

Voraussetzungen: WKL Forms Object Library 1.52 oder höher.

• Ein WklImage-Steuerelement zeichnet die SVG-Datei über Direct2D; SizeMode = wimZoom behält das Seitenverhältnis bei.
• Symbolsätze zeichnen mit currentColor; SvgColor gibt dieser Farbe die Farbe des Formulars.
• An ein Feld mit dem Dateinamen gebunden, folgt das Symbol dem aktuellen Datensatz.

Legen Sie die Symbole in einem Ordner symbole neben der Datenbank ab, fügen Sie ein WKL-Image-Steuerelement imgSymbol ein, und setzen Sie seinen Steuerelementinhalt auf ein Feld Symbol, das den Dateinamen enthält (symbole\lager.svg):

Private Sub Form_Load()
    With Me!imgSymbol.Object
        .SizeMode = wimZoom
        .SvgColor = Me!lblTitel.ForeColor     ' the color of the form's title
        .Source = "symbole\leer.svg"          ' shown when the field is Null
    End With
End Sub
 
Private Sub Form_Current()
    If Len(Me!imgSymbol.Object.ErrorText) > 0 Then Debug.Print Me!imgSymbol.Object.ErrorText
End Sub

• Relative Pfade beginnen im Ordner der Datenbank (CurrentProject.Path), sodass der Ordner mit der Datenbank umziehen kann.
• Ein SVG mit eigenen Farben ignoriert SvgColor; ersetzt wird nur currentColor.
• Direct2D zeichnet keinen SVG-Text und keine Filtereffekte. Wandeln Sie Text im Zeichenprogramm in Pfade um.
• Eine fehlende Datei zeigt ihren Pfad im Steuerelement und in ErrorText an; das Formular hält nicht an.

• WklImage
• API-Referenz (Englisch): WklImage