#include <String.au3>
#include <GUIConstantsEx.au3>
#include <Clipboard.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
Opt("WinTitleMatchMode", 4)
Opt("TrayIconDebug", 1)
#include <Array.au3>
Global $sTB, $sIni = @DesktopDir & "\TextBausteine.ini"
Global $var = IniReadSection($sIni, "Bausteine")
Global $idButton[1]
Dim $Oben = 10 ;
Dim $Links = 10
Dim $Spalten = 6
Dim $Buttonbreite = 500
Dim $Buttonhoehe = 50
Dim $Spaltenstart = 1
;~ local $button[1000]
Local $x_counter = 0
Local $y_counter = 1
;~ $DriveButton[$list1] = GUICtrlCreateEdit($list1[$i], 10, $x, 73, 41, $GUI_DOCKAUTO) ;in ComboBox eintragen
Global $hide_state = 0, $btn_state = 0, $side = "left"
Global $Button_[8], $Label_[8], $idButton[20]
Global $text[1], $text2, $text3, $text4, $text5, $text6, $text7
$hwnd = GUICreate("Sliding Toolbar", 613, 200, -598, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$Show = GUICtrlCreateButton(">", 595, 8, 17, 70, BitOR($BS_CENTER, $BS_FLAT))
$author = GUICtrlCreateLabel(" By... Simucal && Valuater", 120, 25, 400, 40)
GUICtrlSetFont(-1, 20, 700)
GUISetState(@SW_HIDE, $hwnd)
$hwnd2 = GUICreate("Sliding Toolbar", 613, 500, 0, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
;~ $idButton[1] = GUICtrlCreateButton("Btn 1", 510, 30, 73, 41)
;~ $Label_[1] = GUICtrlCreateLabel("Button 1", 526, 16, 60, 17)
$write1 = IniReadSection($sIni, "Bausteine") ;Baustein aus INI lesen
$write1 = StringReplace($write1, "_%CRLF%_", @CRLF) ;
$write1 = StringReplace($write1, "_%CR%_", @CR)
$write1 = StringReplace($write1, "_%LF%_", @LF)
;GUICtrlSetData($idButton[1], $write1) ;Baustein in Edit-Box anzeigen
If @error Then
MsgBox(4096, "", StringFormat("Es ist ein Fehler aufgetreten.\nWarscheinlich keine INI Datei vorhanden."))
Else
ReDim $idButton[$var[0][0]]
For $i = 1 To $var[0][0]
$idButton[$i - 1] = GUICtrlCreateEdit("", 5 + $var[$i][1], $Links + ($Buttonhoehe * $x_counter), ($Buttonbreite * $y_counter), $Buttonhoehe, $ES_MULTILINE)
$idButton[$i - 1] = GUICtrlCreateButton("", ($Buttonbreite * $y_counter) + 20, $Links + ($Buttonhoehe * $x_counter)+5, 60, 40); da komme ich nicht weiter!!!
GUICtrlSetData($idButton[$i- 1], $write1) ;Baustein in Edit-Box anzeigen
; ^^^^^^ da komme ich nicht weiter!!!
$x_counter += 1
If $x_counter = $Spalten Then
$y_counter += 1
$x_counter = 0
EndIf
Next
EndIf
;~ ;ConsoleWrite("ausgewählt: " & $sId_TB & @CRLF) ;Kontrolausgabe in Console
GUISetState()
While 1
$msg1 = GUIGetMsg()
If $msg1 = $GUI_EVENT_CLOSE Then Exit
WEnd
möchte eine Dynamische Oberfläche kreieren, die für jeden text in der Ini datei ein Edit Feld mit den Inhalt und einen Button erzeugt,
die Oberfläche steht aber die Felder bleiben leer, was macht ich falsch?
TextBausteine.ini
[Bausteine]
Meldung354= Konnte die Anwendungen für den aktuell angemeldeten Anwender nicht ermitteln. Es wurde der Fehlerstatus XY geliefert.
Meldung214= Nachadministration erforderlich
Meldung001 = Als Standard für das Verhalten des objecktes
Meldung023 = Als Standard für ....
....
Alles anzeigen