صحيح أستاذنا .. و الله دخت
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم الغالي أنس محمود
عسى الله أن يزيدها بموازين حسناتك إن شاء الله
أوّلا ..
أرجو من أحد السادة المشرفين نقل الموضوع لقسم الديف إكسبرس لأنّي كتبته بالخطأ هنا .. آسف على مخالفة النظام
ثانيا ..
أخي الفاضل أنس .. أرجو منك السماح و المعذرة لأنّي سأتعبك معي قليلا ..
بقيت لي نقطة أخيرة و لأنها بنفس سياق الموضوع إرتأيت إدراجها هنا .. حتى أخلص من هذه الفزّورة بشكل نهائي ..
بعض السكاينات من نوع ما يسمى Vector Skin ببعض إصدارات الديف إكسبرس نجد أنّها تحتوي على ما يسمى Palette للألوان ..
و بعض السكاينات العادية لا تحتوي على ذلك ..
الأمر بالنسبة للسكاينات العادية تمام التمام و يشتغل بصورة رائعة و الحمد لله
ما أريده هو عند الخروج يتم حفظ كذلك اسم ال اللون الذي تم إختياره من ال Palette .. مثلا
و بالفورم لود لم أتمكن من عمل الشرط ..
إذا كانت سكاين عادية يتم جلب قيمة السكاين
و إذا كانت سكاين ب شريط الألوان يتم قيمة السكاين و كذلك اللون الذي إخترناه عند غلق المشروع
حاولت بهذه الكيفية لكن ينتج خطأ ..
كود :
Public Sub Enregistrer_Last_Theme_Palette_Gallery_In_Setting()
If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
My.MySettings.Default("Personal_Palette_Theme") = UserLookAndFeel.Default.ActiveSvgPaletteName
End If
My.MySettings.Default.Save()
End Sub
و بالفورم لود ..
كود :
If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
If My.MySettings.Default("Personal_Palette_Theme") IsNot Nothing AndAlso My.MySettings.Default("Personal_Palette_Theme").ToString() <> String.Empty Then
UserLookAndFeel.Default.SetSkinStyle(My.MySettings.Default("Personal_Palette_Theme").ToString())
End If
End If
مواضيع مشابهة :
إحتراماتي
السّلام عليكم و رحمة الله و بركاته
تمام أخي الغالي و أستاذي القدير أنس محمود
بارك الله فيك و لك و في صحتك و أوقاتك و جميع أعمالك .. أنت و كل الأسرة الكريمة كبيرها و صغيرها و جزاك خير الجزاء إن شاء الله
بال MDIParent1 .. يتم إضافة
RibbonControl1
SkinRibbonGalleryBarItem1
BarButtonItem1
SimpleButton1
نضيف بالسيتينغ هذه القيم :
SkinDevExpressName
PaletteDevExpressName
و أخيرا هذا الكود :
كود :
Imports DevExpress.Skins
Imports DevExpress.XtraEditors
Imports DevExpress.LookAndFeel
Public Class MDIParent1
Public Sub New()
InitializeComponent()
DevExpress.Skins.SkinManager.EnableFormSkins()
DevExpress.UserSkins.BonusSkins.Register()
AddHandler Me.FormClosing, AddressOf MDIParent1_FormClosing
End Sub
Private Sub barButtonItem1_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
ShowSwatchPicker(Me)
End Sub
Private Function IsVectorSkin(ByVal skinName As String) As Boolean
Return SkinCollectionHelper.GetSkinCategory(skinName) = SkinCategory.SVG
End Function
Private Sub Get_Palette_Gallery_From_Setting()
If My.MySettings.Default("SkinDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("SkinDevExpressName").ToString() <> String.Empty Then
If IsVectorSkin(My.MySettings.Default("SkinDevExpressName").ToString()) AndAlso My.MySettings.Default("PaletteDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("PaletteDevExpressName").ToString() <> String.Empty Then
UserLookAndFeel.Default.SetSkinStyle(My.MySettings.Default("SkinDevExpressName").ToString(), My.MySettings.Default("PaletteDevExpressName").ToString())
Else
SetSkin(My.MySettings.Default("SkinDevExpressName").ToString())
End If
ElseIf My.MySettings.Default("PaletteDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("PaletteDevExpressName").ToString() <> String.Empty Then
UserLookAndFeel.Default.SetSkinStyle(SkinStyle.Bezier, My.MySettings.Default("PaletteDevExpressName").ToString())
End If
End Sub
Private Sub Save_Palette_Gallery_In_Setting()
My.MySettings.Default("SkinDevExpressName") = UserLookAndFeel.Default.SkinName
If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
My.MySettings.Default("PaletteDevExpressName") = UserLookAndFeel.Default.ActiveSvgPaletteName
End If
My.MySettings.Default.Save()
End Sub
Private Sub SetSkin(ByVal skinName As String)
UserLookAndFeel.Default.SetSkinStyle(skinName)
End Sub
Private Sub ShowSwatchPicker(ByVal owner As Form)
Using dialog = New DevExpress.Customization.SvgSkinPaletteSelector(owner)
dialog.ShowDialog()
Call Save_Palette_Gallery_In_Setting()
End Using
End Sub
Protected Overrides Sub OnShown(ByVal e As EventArgs)
MyBase.OnShown(e)
Call Get_Palette_Gallery_From_Setting()
End Sub
Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
Dim Frm As New DialogResult
Frm = XtraMessageBox.Show("هل تريد فعلا الخروج من المنظومة ؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If Frm = DialogResult.Yes Then
Call Save_Palette_Gallery_In_Setting()
Me.Dispose()
System.Windows.Forms.Application.Exit()
End
End If
End Sub
Private Sub MDIParent1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True
End Sub
End Class
تحياتي للجميع
