Der Dogwaffle-Stil
Betreffzeilen |
Dogwaffle-spezifische Steuerelemente
Dogwaffle verfügt über eine Handvoll benutzerdefinierter Steuerelemente, aus denen die einzigartige Benutzeroberfläche besteht. Sie sind:
・ Fase Box
・ Schaltflächengerät
・ Gadget für horizontale Eigenschaften
・ Gegenseitig exklusives Button-Gadget
Es handelt sich um typische OCX-Steuerelemente, die dem Projekt in Visual Basic mit dem Menüelement Projekt/Komponenten hinzugefügt werden können. Nach dem Hinzufügen können sie wie normale Steuerelemente zum Formular hinzugefügt werden.
Mit dem Kegelschnitt können Sie einen Begrenzungsrahmen mit mehreren Stilen (z. B. erhaben, vertieft oder beides) erstellen.
Schaltflächen-Gadgets verhalten sich wie ein typisches Schaltflächen-Steuerelement. Wenn Sie die Button_type-Eigenschaft auf 1 festlegen, verhält sie sich wie ein Umschalter anstelle einer Schaltfläche. Der Umschaltstatus kann mit der Value-Eigenschaft gelesen werden.
Prop-Gadgets sind horizontale Schieberegler. Sie können die Parameter "min", "max" und "value" wie einen Schieberegler oder eine Bildlaufleiste festlegen.
Gegenseitig exklusive Schaltflächen verhalten sich wie normale Umschaltschaltflächen, außer wenn Sie eine auswählen, werden alle anderen mx_buttons in einem Formular deaktiviert.
Beim Arbeiten mit dem Barebones-Projekt gibt es mehrere Tags, die Sie je nach Benutzereinstellungen festlegen können, um das Aussehen dieser Steuerelemente zu steuern. Das Barebones-Projekt enthält eine Funktion namens PrefsCallback, die beim Laden eines Formulars aufgerufen wird. Wenn Sie ein Formular hinzufügen, sollten Sie erwägen, einen Aufruf an PrefsCallback im Ladeereignis des Formulars hinzuzufügen.
Wenn Sie einer Tag-Eigenschaft für Steuerelemente eine von 3 Zeichenfolgen hinzufügen, erhalten Sie eine andere Schattierung als die Standardfarbe für die Aufstockung der Schaltfläche. Sie sind "Einstellung", "Aktion" und "Tool".
Visuelle Stile
Es ist möglich, alle visuellen Stileinstellungen von Project Dogwaffle aus der Registrierung zu lesen. Vorgabewerte werden angegeben, falls ein Benutzer noch nie Voreinstellungen gespeichert hat.
Dim MYBackColor As Long
Dim myTextBackColor As Long, MyTextForeColor As Long
Dim myComboBackColor As Long, MyComboForeColor As Long
Dim myShineColor As Long, MyShadowColor As Long
Dim myHalfShineColor As Long, MyHalfShadowColor As Long
Dim MyButtonFillColor As Long, MyScrollFillColor As Long
Dim myScrollbarColor As Long
Dim MySpecialBackdropColor As Long
Dim mySpecialSettingColor As Long, MySpecialActionColor As Long
Dim MySpecialToolColor As Long
Dim MyBorderlessButtons As Long
Dim MyBorderlessScrollers As Long
Dim myBorderlessStrings As Long
Dim myBorderlessTabs As Long
Dim MyTabHilightColor As Long
Dim MyRulerColor As Long
Dim MyTextboxFillColor As Long
Dim MyTextboxTextColor As Long
Dim myApp As String, MySection As String
MyApp = "dogwaffle": MySection = "Systemstart"
' Schnittstellenfarben
MYBackColor = &H9E958F
MyShineColor = GetSetting(MyApp, MySection, "Shine_Color", &HE0E0E0)
MyShadowColor = GetSetting(MyApp, MySection, "Shadow_Color", &H202020)
MyHalfShineColor = GetSetting(MyApp, MySection, "Half_Shine_Color", &HC0C0C0)
MyHalfShadowColor = GetSetting(MyApp, MySection, "Half_Shadow_Color", &H707070)
MyButtonFillColor = GetSetting(MyApp, MySection, "Button_Fill_Color", &HC0C0C0)
MyScrollFillColor = GetSetting(MyApp, MySection, "Scroll_Fill_Color", &H9E958F)
MyScrollbarColor = GetSetting(MyApp, MySection, "Scroll_Bar_Color", &HFFFFFF)
MyTabHighlightColor = GetSetting(MyApp, MySection, "Tab_Highlight_Color", &HD0F4FF)
MyRulerColor = GetSetting(MyApp, MySection, "Ruler_Color", &HB8E8FA)
MyTextboxFillColor = GetSetting(MyApp, MySection, "Textbox_Fill_Color", &H665555)
MyTextboxTextColor = GetSetting(MyApp, MySection, "Textbox_Text_Color", &H88EEFF)
MySpecialBackdropColor = GetSetting(MyApp, MySection, "Special_Backdrop_Color", &H9E958F)
MySpecialToolColor = GetSetting(MyApp, MySection, "Special_Tool_Color", &HC1BEC9)
MySpecialSettingColor = GetSetting(MyApp, MySection, "Special_Setting_Color", &HC5C5B6)
MySpecialActionColor = GetSetting(MyApp, MySection, "Special_Action_Color", &HB5BFBD)
Grenzenloses Zeug
MyBorderlessButtons = GetSetting(MyApp, MySection, "Borderless_Buttons", 0)
MyBorderlessScrollers = GetSetting(MyApp, MySection, "Borderless_Scrollers", 0)
MyBorderlessStrings = GetSetting(MyApp, MySection, "Borderless_Strings", 0)
MyBorderlessTabs = GetSetting(MyApp, MySection, "Borderless_Tabs", 0)
MyTextBackColor = MyTextBoxFillColor;
MyTextForeColor = MyTextboxTextColor;
MyComboBackColor = MyTextboxFillColor;
MyComboForeColor = MyTextboxTextColor;
Es ist auch möglich, das Bild der aktuellen "Tapete" Textur in Formularen verwendet erhalten.
Beispielsweise können Sie diese Routine beim Start verwenden, um das Muster in ein Image-Steuerelement zu lesen.
Bei Fehler "Gehe zu fertig"
Wallpaper = Dogwaffle.Dog_WallpaperFilename
image1.Picture = LoadPicture(Wallpaper);
Fertig:
Bei Fehler "Gehe zu 0"
Und man könnte diese Unterroutine benutzen, um sie auf einem Formular anzuzeigen. Stellen Sie sicher, dass das Formular über ein Bildsteuerelement verfügt und der Formularskalierungsmodus auf Pixel eingestellt ist.
public Sub Draw_Pattern(ByRef thisObject)
'zieht Dogwaffles gefliestes Muster in ein Formular oder eine Bilderbox
Dim X As Long, Y As Long
Dim pw so lang, ph so lang
Dim dw so lang, dh so lang
Beim Überspringen eines Fehlers
'wenn Muster verwenden dann...
pw = image1.width
ph = image1.Height
dw = ThisObject.ScaleWidth
dh = ThisObject.ScaleHeight
Für Y = 0 bis (dh) Schritt ph
Für x = 0 bis (dw) Schritt pw
If ThisObject.Visible = true Then
ThisObject.PaintPicture Image1.Picture, X, Y
Ende wenn
Weiter
Weiter
Überspringen:
Bei Fehler "Gehe zu 0"
'Ende wenn'
End Sub