TbeCustomControlSkin

Diese Klasse ist eine Eigenschaft ("Skin") von bestimmten grafischen Controls. Sie dient zum Ändern des Aussehens der einzelne Komponente.

Funktionen und Methoden

Funktion / Methode	Parameter	Beschreibung
CbIncludeAssignedValue(aValue:N) Aktiviert die benutzerdefinierte Einstellung.	aValue:N	// Allgemein csvTextSize, csvTextColor, csvTextAccent, csvTextColorMode, // Edit-Controls haben noch zusätzlich: csvBackgroundColor, csvBackgroundAccent, csvBorder, csvBorderColor, csvBorderAccent, csvBorderSize, // Label-Controls haben noch zusätzlich: csvTextStyle
CbExcludeAssignedValue(aValue:N) Setzt die gewünschte Eigenschaft zurück auf den default-Wert.	aValue:N	// Allgemein csvTextSize, csvTextColor, csvTextAccent, csvTextColorMode, // Edit-Controls haben noch zusätzlich: csvBackgroundColor, csvBackgroundAccent, csvBorder, csvBorderColor, csvBorderAccent, csvBorderSize, // Label-Controls haben noch zusätzlich: csvTextStyle
CbResetDefaults() Setzt das Default-Style der Komponente zurück - die AssignedValues werden geleert.	keine
CbBeginUpdate() Verhindert neues Zeichnen der Komponente bei Änderungen von Skin-Eigenschaften.	keine
CbEndUpdate() Erlaubt neues Zeichnen der Komponente bei Änderungen von Skin-Eigenschaften und zeichnet die Komponente neu.	keine

Beispiel

CODE

|
  bool,
   // <at:var at:name="VDB" /> Der nachfolgende Teil wird automatisch gepflegt.
   oForm, A_HelpContent, beButton1, calc
   // <at:var at:name="VDE" /> Der vorangehende Teil wird automatisch gepflegt.
|

//******************************************************************************
//
//******************************************************************************
function beButton1Click( Sender )
   bool := not bool,
   calc.skin.cbBeginUpdate(),
   startseq
      if bool then
         calc.skin.colorMode := cscmWarning,
      else
         calc.skin.cbexcludeAssignedValue(csvTextColorMode),
        // calc.skin.cbresetdefaults(),
      endif,
   always
     calc.skin.cbEndUpdate(),
   stopseq,
end,

startseq
   // <at:var at:name="VZB" /> Der nachfolgende Teil wird automatisch gepflegt.
   oForm         := LoadForm("@ASDA", Application),
   A_HelpContent := FindObject(oForm, "A_HelpContent"),
   beButton1     := FindObject(oForm, "beButton1"),
   calc          := FindObject(oForm, "calc"),
   // <at:var at:name="VZE" /> Der vorangehende Teil wird automatisch gepflegt.
   Show(oForm),
onerror
   DestroyObject(oForm),
stopseq,