hackerking
16.05.2010, 17:12
Joa hey leute,
ich hab in mein tool ne funktion zum style changen von krypton eingebaut. funktioniert perfekt blabla, jedoch is das problem, dass beim Style Office 2007 - BLACK alle Labels unsichtbar werden. Das liegt wahrscheinlich daran, dass halt die Panel's (Forms) auch die gleiche ForeColor haben. Wie kann ich das ändern? Bzw. wie kann ich ForeColor aller Labels ändern? (In mehreren Forms)
EDIT// Hat sich gelöst:
If KryptonManager.GlobalPaletteMode = ComponentFactory.Krypton.Toolkit.PaletteModeManage r.Office2007Black Then
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmMain.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmMasterPW.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In Me.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmVictim.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
End If
ich hab in mein tool ne funktion zum style changen von krypton eingebaut. funktioniert perfekt blabla, jedoch is das problem, dass beim Style Office 2007 - BLACK alle Labels unsichtbar werden. Das liegt wahrscheinlich daran, dass halt die Panel's (Forms) auch die gleiche ForeColor haben. Wie kann ich das ändern? Bzw. wie kann ich ForeColor aller Labels ändern? (In mehreren Forms)
EDIT// Hat sich gelöst:
If KryptonManager.GlobalPaletteMode = ComponentFactory.Krypton.Toolkit.PaletteModeManage r.Office2007Black Then
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmMain.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmMasterPW.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In Me.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
For Each c As ComponentFactory.Krypton.Toolkit.KryptonLabel In frmVictim.Controls
c.PaletteMode = ComponentFactory.Krypton.Toolkit.PaletteMode.Offic e2010Black
Next
End If