Im zweiten Projekt – einem Grafik-Programm – können Bildgrößen, Tranzparenz-Werte und Bild-Typen in 3 verschiedenen Combo-Boxen (CB) ausgewählt werden. Zur Laufzeit sollen die jeweils in der Eigenschaft CB.List gespeicherten Werte in drei Dialogen geändert werden. Beim allerersten Programm-Start werden die CB-Listen mit Standard-Werten gefüllt. Die aktuellen CB-Listen werden beim Programm-Ende in drei Dateien in einem gambas-spezifischen Format gespeichert. Bei jedem weiteren Programm-Start werden diese drei Dateien ausgelesen und der Inhalt den entsprechenden CB-Listen zugewiesen. Im Projekt 2 werden alle für die drei Dialoge nicht relevanten Steuerelemente im Haupt-Programm im Block '* GRAFIK-PROGRAMM*' zusammengefasst:
Abbildung 12.4.4.2.1: Grafik-Programm (IDE)
Auch im 2. Projekt gilt es diese Fragen zu beantworten:
Das sind die Antworten, die für alle drei Dialoge in gleicher Weise gelten, da sich für den Dialog nur die Argumente ändern:
Im ersten Projekt wurde für den Aufruf des Dialogs die spezielle _call(..)-Methode verwendet. Sie erlaubt es, ein Objekt syntaktisch wie eine Funktion zu benutzen. Was liegt also näher, als eine eigene Funktion zu schreiben, um mit deren Aufruf einen Dialog zu starten, Daten an den Dialog zu übergeben und bearbeitete Daten aus dem Dialog zu lesen. Dieser Funktion geben wir den passenden Namen RunDialog(..). Diese Funktion wird im Projekt 2 verwendet; hier vorgestellt und anschließend kommentiert:
[1] Public Function RunDialog(aValue As String[], Optional sTitel As String) As String[] [2] Dim hForm As Form [3] [4] hForm = New FEditList [5] If Not sTitel Then sTitel = "Bearbeiten Sie die Daten!" [6] Me.Text = sTitel [7] aTransfer = aValue [8] [9] If Me.ShowModal() = 0 Then ' Bei einem Abbruch des Dialogs wird der Wert 0 zurückgegeben [10] Return aTransfer [11] Else [12] Return lboxList.List ' Die Daten werden im Dialog in einer ListBox bearbeitet [13] Endif [14] [15] End ' RunDialog(..)
Kommentar:
Neben den oberen Combo-Boxen befinden sich Schaltflächen, die jeweils einen Dialog öffnen. Zum Aufruf des Dialogs zur Bearbeitung der Liste der Bild-Typen wurde der entsprechenden Combo-Box ein Kontext-Menü spendiert.
Abbildung 12.4.4.2.2: Haupt-Programm
Wenn Sie den Dialog zur Bearbeitung der Bildweiten starten, dann können Sie die angezeigte Liste bearbeiten. Selbst das Löschen der kompletten Liste ist möglich.
Abbildung 12.4.4.2.3: Dialog zur Bearbeitung spezieller Daten
Realisiert wird der o.a. Dialog durch diese Prozedur im Haupt-Programm:
Public Sub btnEditWidth_Click() Dim sTitel As String sTitel = "Bearbeiten Sie die Liste der Bild-Breiten!" cmbImageWidth.List = FEditList.RunDialog(cmbImageWidth.List, sTitel) If cmbImageWidth.Index < 0 Then ' Liste leer? cmbImageWidth.Add("640") Else cmbImageWidth.Text = cmbImageWidth.List[0] Endif End ' btnEditWidth_Click()
Beachten Sie, dass im nächsten Abschnitt nur ein Dialog implementiert wird. Das ist hinreichend, da in allen drei Fällen nur String-Arrays bearbeitet werden, die jeweils als Argument in der Funktion RunDialog(..) übergebenen werden. Für den Fall, dass Sie Daten mit unterschiedlichem Daten-Typ bearbeiten wollen, müssten Sie verschiedene Dialoge erzeugen.
Die Quelltexte für das zweite Projekt werden für das Haupt-Programm und den Dialog vollständig vorgestellt:
Quelltext (Haupt-)Programm (FMain.class):
[1] ' Gambas class file [2] [3] Public hFile As File [4] Public sFilePath As String [5] Public sProjectPath As String = Application.Path [6] [7] Public Sub Form_Open() [8] FMain.Center [9] FMain.Resizable = False [10] FMain.Text = "Grafik-Programm 'Kritzel 2.0'" [11] [12] ' Initialisierungen: [13] ' Bild-Weite [14] sFilePath = sProjectPath &/ cmbImageWidth.Name & ".list" [15] If Not Exist(sFilePath) Then [16] cmbImageWidth.List = ["240", "480", "640", "820", "1024"] [17] Else [18] cmbImageWidth.List = ImportData(sFilePath) [19] Endif ' Not Exist(sFilePath) ? [20] cmbImageWidth.Text = cmbImageWidth.List[2] [21] cmbImageWidth.ReadOnly = True [22] [23] ' Bild-Transparenz [24] sFilePath = sProjectPath &/ cmbImageTransparency.Name & ".list" [25] If Not Exist(sFilePath) Then [26] cmbImageTransparency.List = ["0", "10", "25", "50", "75", "85", "100"] [27] Else [28] cmbImageTransparency.List = ImportData(sFilePath) [29] Endif ' Not Exist(sFilePath) ? [30] cmbImageTransparency.Text = cmbImageTransparency.List[0] [31] cmbImageTransparency.ReadOnly = True [32] [33] ' Bild-Typ (Extension) [34] sFilePath = sProjectPath &/ cmbImageType.Name & ".list" [35] If Not Exist(sFilePath) [36] cmbImageType.List = ["png", "jpg", "gif", "ico", "svg"] [37] Else [38] cmbImageType.List = ImportData(sFilePath) [39] Endif ' Not Exist(sFilePath) ? [40] cmbImageType.Text = cmbImageType.List[0] [41] cmbImageType.ReadOnly = True [42] [43] End ' Form_Open() [44] [45] Public Sub btnEditWidth_Click() [46] Dim sTitel As String [47] [48] sTitel = "Bearbeiten Sie die Liste der Bild-Breiten!" [49] cmbImageWidth.List = FEditList.RunDialog(cmbImageWidth.List, sTitel) [50] If cmbImageWidth.Index < 0 Then ' Liste leer? [51] cmbImageWidth.Add("640") [52] Else [53] cmbImageWidth.Text = cmbImageWidth.List[0] [54] Endif [55] [56] End ' btnEditWidth_Click() [57] [58] Public Sub btnEditTransparency_Click() [59] Dim sTitel As String [60] [61] sTitel = "Bearbeiten Sie die Liste der Transparenz-Werte!" [62] cmbImageTransparency.List = FEditList.RunDialog(cmbImageTransparency.List) [63] If cmbImageTransparency.Index = -1 Then ' Alternative Abfrage zu Zeile 50: Liste leer? [64] cmbImageTransparency.Add("0") [65] Else [66] cmbImageTransparency.Text = cmbImageTransparency.List[0] [67] Endif [68] [69] End ' btnEditTransparenz_Click() [70] [71] Public Sub cmbImageType_Menu() [72] Dim mnuImageType As Menu [73] Dim mnuMenuItem As Menu [74] [75] ' Es wird ein neues Menü-Objekt für die Bildtyp-ComboBox erzeugt: [76] mnuImageType = New Menu(FMain, False) [77] ' 1. Menü-Eintrag im Menü mnuImageType [78] mnuMenuItem = New Menu(mnuImageType) As "mnuEditTyp" [79] mnuMenuItem.Text = "Liste bearbeiten" [80] mnuMenuItem.Picture = Stock["edit"] [81] ' Das generierte Menü wird der Bildtyp-ComboBox als PopUp-Menü zugewiesen [82] mnuImageType.Popup [83] [84] End ' cmbImageTyp_Menu() [85] [86] ' Aktion, wenn das Kontextmenü der 1. ComboBox ausgewählt wurde [87] Public Sub mnuEditTyp_Click() [88] Dim sTitel As String [89] [90] sTitel = "Bearbeiten Sie die Liste der Bild-Typen!" [91] cmbImageType.List = FEditList.RunDialog(cmbImageType.List, sTitel) [92] If cmbImageType.Count = 0 Then ' Liste leer? [93] cmbImageType.Add("png") [94] Else [95] cmbImageType.Text = cmbImageType.List[0] [96] Endif [97] [98] End ' mnuEditTyp_Click() [99] [100] Public Sub Form_Close() [101] ' Daten-Export [102] sFilePath = sProjectPath &/ cmbImageWidth.Name & ".list" [103] ExportData(sFilePath, cmbImageWidth.List) [104] sFilePath = sProjectPath &/ cmbImageTransparency.Name & ".list" [105] ExportData(sFilePath, cmbImageTransparency.List) [106] sFilePath = sProjectPath &/ cmbImageType.Name & ".list" [107] ExportData(sFilePath, cmbImageType.List) [108] End ' Form_Close() [109] [110] Public Sub btnClose_Click() [111] FMain.Close [112] End ' btnClose_Click() [113] [114] ' Diese Routine lädt Daten aus einer binären, gambas-spezifischen Datei in ein String-Array [115] Private Function ImportData(sPath As String) As String[] [116] hFile = Open sPath For Read [117] Return Read #hFile As Array [118] Close #hFile [119] Catch [120] Message.Error("Der Daten-Import war fehlerhaft!" & gb.NewLine & "Fehler: " & Error.Text) [121] End ' ImportData(...) [122] [123] ' Diese Routine speichert Daten aus einem String-Array in einer binären, gambas-spezifischen Datei [124] Private Sub ExportData(sPath As String, aData As String[]) [125] If aData.Count = 0 Then [126] Return [127] Else [128] hFile = Open sPath For Write Create [129] Write #hFile, aData As Array [130] Close #hFile [131] Catch [132] Message.Error("Der Daten-Export war fehlerhaft!" & gb.NewLine & "Fehler: " & Error.Text) [133] Endif ' aData.Count = 0 ? [134] End ' ExportData(...)
Quelltext Dialog (FLogin.class):
[1] ' Gambas class file [2] [3] Public aTransfer As String[] [4] [5] Public Function RunDialog(aValue As String[], Optional sTitel As String) As String[] [6] Dim hForm As Form [7] [8] hForm = New FEditList [9] If Not sTitel Then sTitel = "Bearbeiten Sie die Daten!" [10] Me.Text = sTitel [11] aTransfer = aValue [12] [13] If Me.ShowModal() = 0 Then [14] Return aTransfer [15] Else [16] Return lboxList.List [17] Endif [18] [19] End ' RunDialog(..) [20] [21] Public Sub Form_Open() [22] FEditList.Center [23] FEditList.Resizable = False [24] [25] lboxList.List = aTransfer [26] If lboxList.Count Then [27] lboxList.Index = 0 [28] txtElement.Text = lboxList[0].Text [29] txtElement.SetFocus [30] Endif [31] Refresh [32] End ' Form_Open() [33] [34] Public Sub btnCancel_Click() [35] Me.Close(0) [36] End ' btnCancel_Click() [37] [38] Public Sub btnOK_Click() [39] Me.Close(1) [40] End ' btnOK_Click() [41] [42] Public Sub btnInsertElement_Click() [43] lboxList.Add("Neu_" & CStr(lboxList.Count + 1)) [44] Refresh [45] lboxList.Index = lboxList.Count - 1 [46] txtElement.Text = lboxList.Current.Text [47] txtElement.SetFocus [48] End ' btnInsertSenderURL_Click() [49] [50] Public Sub btnDeleteElement_Click() [51] Dim iCurrentIndex As Integer [52] [53] iCurrentIndex = lboxList.Index [54] If iCurrentIndex < 0 Then Return [55] [56] If lboxList.Count > 1 Then [57] lboxList.Remove(iCurrentIndex) [58] Else [59] If Message.Question("Letztes Element löschen?", "Löschen", "Abbruch") <> 1 Then Return [60] lboxList.Remove(iCurrentIndex) [61] Endif [62] [63] If iCurrentIndex >= lboxList.Count Then Dec iCurrentIndex [64] lboxList.Index = iCurrentIndex [65] txtElement.Text = lboxList[iCurrentIndex].Text [66] Refresh [67] [68] End ' btnDeleteRadioURL_Click() [69] [70] Public Sub btnDown_Click() [71] Dim iCurrentIndex As Integer [72] [73] iCurrentIndex = lboxList.Index [74] If iCurrentIndex < (lboxList.Count - 1) Then [75] Swap lboxList[iCurrentIndex].Text, lboxList[iCurrentIndex + 1].Text [76] lboxList.Index = iCurrentIndex + 1 [77] Endif ' iCurrentIndex < (lstValue.Count - 1) [78] [79] End ' btnDown_Click() [80] [81] Public Sub btnUp_Click() [82] Dim iCurrentIndex As Integer [83] [84] iCurrentIndex = lboxList.Index [85] If iCurrentIndex > 0 Then [86] Swap lboxList[iCurrentIndex].Text, lboxList[iCurrentIndex - 1].Text [87] lboxList.Index = iCurrentIndex - 1 [88] Endif ' iCurrentIndex > 0 [89] [90] End ' btnUp_Click() [91] [92] Public Sub btnDeleteList_Click() [93] If Message.Question("Komplette Liste löschen?", "Löschen", "Abbruch") <> 1 Then Return [94] lboxList.Clear [95] Refresh [96] End ' btnDeleteList_Click() [97] [98] Public Sub lboxList_Click() [99] If Not lboxList.Current Then Return [100] txtElement.Text = lboxList.Current.Text [101] txtElement.SetFocus [102] txtElement.SelectAll [103] End ' lsbList_Click() [104] [105] Public Sub txtElement_Change() [106] If lboxList.Current Then [107] lboxList.Current.Text = txtElement.Text [108] Endif ' lsbCBList.Current ? [109] End ' txtElement_Change() [110] [111] Private Sub Refresh() [112] Dim bEnabled As Boolean [113] [114] bEnabled = lboxList.Count [115] [116] txtElement.Enabled = bEnabled [117] btnDeleteElement.Enabled = bEnabled [118] btnUp.Enabled = bEnabled [119] btnDown.Enabled = bEnabled [120] btnDeleteList.Enabled = bEnabled [121] [122] If Not bEnabled Then txtElement.Clear [123] [124] End ' Refresh()