1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. RR04

Beiträge von RR04

  • Outlook & OExpress Saver...

    • RR04
    • 25. August 2008 um 14:08

    Das Script habe ich weiterentwickelt.
    Die Funktion für den Neustart wird nicht mehr benötigt. Bei einem Wechsel der Sprache werden die Variablen neu eingelesen und die „Controls“ sowie die „Tooltips“ gesetzt.
    Der Wechsel selbst, verläuft samt weich und sehr stabil. 8)

    Nutzer der letzten Version profitieren vom Deinstaller!

  • LogIn-Box

    • RR04
    • 23. August 2008 um 20:15

    Hallo (A)Lina,
    hat unser Oscar wieder gut hin bekommen. :rolleyes:
    So vielleicht:

    Spoiler anzeigen
    [autoit]


    GUICtrlCreateIcon("\icons.icl", 0, 28, 120, 32, 32)
    GUICtrlCreateIcon("\icons.icl", 1, 400, 23, 32, 32)
    GUICtrlCreateIcon("\icons.icl", 2, 400, 23, 32, 32)

    [/autoit]


    Viel Erfolg !

  • LogIn-Box

    • RR04
    • 23. August 2008 um 16:47

    @All grüß Euch !

    @(A)Lina, so geht es :

    IcoFX ;)

    Viel Erfolg !

  • LogIn-Box

    • RR04
    • 23. August 2008 um 09:32

    Oscar

    Prima Idee, prima umgesetzt. - Was will man mehr ! :thumbup::thumbup:

    Mit dem Icon-Programm kommst Du auch ganz gut klar ! ;)

  • Progressbar mit Grafiken

    • RR04
    • 22. August 2008 um 14:12

    Hi,

    eine schöne Lösung ! :thumbup:

    Bei mir waren noch ein paar Includes nötig, aber kein Beinbruch. :)

  • LogIn-Box

    • RR04
    • 22. August 2008 um 14:07

    @All, grüß Euch !

    Oscar

    Ich staune immer wieder, was Du Alles möglich machst. :rolleyes:
    Doch ich finde (A)Lina beschreibt hier schon die gängige Methode. ^^
    Mehr Transparents erreicht man, nur noch mit den Landesfarben links daneben ! ;)

  • Outlook & OExpress Saver...

    • RR04
    • 21. August 2008 um 17:30

    au voll übersehen, manchmal ist es dann wieder zu einfach ! ;(

    Aber danke Dir, super !

    Die Anpassungen werden gleich eingefügt - Download siehe Post 1 ! :thumbup:

  • Outlook & OExpress Saver...

    • RR04
    • 21. August 2008 um 17:13

    Hi Oscar,

    die erneute Meldung beim entfernen hat mich ebenso schon geärgert !
    Aber mit dieser Meldung ist ja die Funktion beendet und der Nutzer hat Handlungsfreiheit, die Möglichkeit etwas zu ändern.
    Im den ZWEI If-Ten Bereichen ist, glaube ich, mehr als nur die MsgBox nötig.

    Vielleicht kannst Du mir auf die Sprünge helfen ? ;)

  • Outlook & OExpress Saver...

    • RR04
    • 21. August 2008 um 13:04

    Mit Installer und Deinstaller !

    Einige Anpassungen wurden vorgenommen.
    Für mehr Performance und um Ressourcen zu schonen, wurde auf Fileinstall verzichtet. Alle nötigen Komponenten wurden zur ordnungsgemäßen Platzierung der Installationsroutine übergeben. Hier werden Ordner und Unterordner erstellt, sowie befüllt. Die OES.ini-Datei wurde bewusst installiert um auch eine rückstandslose Deinstallation gewährleisten zu können. Bei einem Wechsel der Sprache, wird der Blick auf den Neustart der Oberflächen geschickt durch das Auswahlfenster abgedeckt. So wird der Wechsel mehr als ein schließen des Auswahlfensters wahrgenommen. Die drei Sprachen des Hauptscripts, kann auch das Installationsscript vorweisen. Dem Nutzer bleibt auch künftig die Möglichkeit, eine andere Sprache seiner Wahl zu erstellen. OES ist in der Lage die Neue Sprache zu erkennen und wird sie von nun an zur Auswahl anbieten. Eine mitgelieferte Liesmich.txt-Datei kommt mehrfach zum Einsatz, wenn es um Hinweise oder Infos für den Nutzer geht. 8)

    OES wurde mit Windows XP, Outlook2 und Outlook Express getestet.

    Viel Spaß mit OES !

  • LogIn-Box

    • RR04
    • 20. August 2008 um 20:26

    Hallo Oscar,

    ich dachte eigentlich mehr bei einem switchen zweier interner Sprachen, an einen Button mit wechselnder Schrift (English/Deutsch).
    Wie Dein Rat an mich, mit "Sichern/Restore" bei OES. Deshalb meine Frage, ob noch mehr Sprachen vorgesehen sind. ;)

  • LogIn-Box

    • RR04
    • 20. August 2008 um 18:11

    Grüß Euch !

    Oscar , schöne Lösung und sollen noch Sprachen hinzu kommen ? ^^

  • Hintergrundfarbe eines TabItems ändern.

    • RR04
    • 19. August 2008 um 20:31

    Hier habe ich es mal an einem Script aus der Hilfe gemacht ! ;)

    TabItem colored
    [autoit]


    #include <GUIConstantsEx.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt('MustDeclareVars', 1)

    [/autoit] [autoit][/autoit] [autoit]

    Example()

    [/autoit] [autoit][/autoit] [autoit]

    Func Example()
    Local $tab, $tab0, $tab0OK, $tab0input
    Local $tab1, $tab1combo, $tab1OK
    Local $tab2, $tab2OK, $msg

    GUICreate("My GUI Tab", 250, 150); will create a dialog box that when displayed is centered

    [/autoit] [autoit][/autoit] [autoit]

    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)
    $tab = GUICtrlCreateTab(10, 10, 200, 100)

    [/autoit] [autoit][/autoit] [autoit]

    $tab0 = GUICtrlCreateTabItem("tab0")
    GUICtrlCreateLabel("label0", 30, 80, 50, 20)
    $tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20)
    $tab0input = GUICtrlCreateInput("default", 80, 50, 70, 20)

    ; START ### Change by RR04 ###############################################################
    $tab1 = GUICtrlCreateTabItem("tab----1")
    GUICtrlCreateLabel("", 12, 33, 197, 76)
    GUICtrlSetBkColor(-1, 0xDDAA11)
    GUICtrlSetState(-1, $GUI_DISABLE)
    ; ENDE ### Change by RR04 ################################################################

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel("label1", 30, 80, 50, 20)
    $tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120)
    GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon"); default Jon
    $tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20)

    $tab2 = GUICtrlCreateTabItem("tab2")
    GUICtrlSetState(-1, $GUI_SHOW); will be display first
    GUICtrlCreateLabel("label2", 30, 80, 50, 20)
    $tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateTabItem(""); end tabitem definition
    GUICtrlCreateLabel("Click on tab and see the title", 20, 130, 250, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    ; Run the GUI until the dialog is closed
    While 1
    $msg = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $tab Then
    ; display the clicked tab
    WinSetTitle("My GUI Tab", "", "My GUI Tab" & GUICtrlRead($tab))
    EndIf
    WEnd
    EndFunc ;==>Example

    [/autoit]


    Viel Erfolg ! ^^

  • Hintergrundfarbe eines TabItems ändern.

    • RR04
    • 19. August 2008 um 18:33

    Hi,

    in "meinem" Beispiel wird in Zeile 17-19 ein farbiges Label darüber gelegt und disable geschaltet ! Das habe ich in SiS schon mit einer GroupBox erfolgreich gemacht. Ihr müsst mal probieren ob das hier auch reicht ?

  • Hintergrundfarbe eines TabItems ändern.

    • RR04
    • 19. August 2008 um 14:08

    Hi,

    aber mit etwas Aufwand:

    Spoiler anzeigen
    [autoit]


    ; http://www.autoitscript.com/forum/index.ph…TabItem+colored
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GuiTab.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $ODT_TAB = 101
    Global Const $ODS_SELECTED = 0x0001
    Global Const $ODA_DRAWENTIRE = 0x1

    [/autoit] [autoit][/autoit] [autoit]

    Global Const $ODS_FOCUS = 0x0010

    [/autoit] [autoit][/autoit] [autoit]

    $hGUI = GUICreate("Draw Tab", 300, 200)

    [/autoit] [autoit][/autoit] [autoit]

    $hTab = GUICtrlCreateTab(10, 10, 280, 180, $TCS_OWNERDRAWFIXED)

    [/autoit] [autoit][/autoit] [autoit]

    $TabItem_1 = GUICtrlCreateTabItem("TabItem 1")
    GUICtrlCreateLabel("", 10, 33, 277, 155)
    GUICtrlSetBkColor(-1, 0xDDAA11)
    GUICtrlSetState(-1, $GUI_DISABLE)

    [/autoit] [autoit][/autoit] [autoit]

    $TabItem_2 = GUICtrlCreateTabItem("TabItem 2")
    GUICtrlCreateLabel("", 10, 33, 277, 155)
    GUICtrlSetBkColor(-1, 0x99BBEE)
    GUICtrlSetState(-1, $GUI_DISABLE)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateTabItem("")

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")

    [/autoit] [autoit][/autoit] [autoit]

    _GUICtrlTab_SetCurSel($hTab, 1)
    _GUICtrlTab_SetCurSel($hTab, 0)

    [/autoit] [autoit][/autoit] [autoit]

    Do
    Until GUIGetMsg() = -3

    [/autoit] [autoit][/autoit] [autoit]

    Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    Local $DRAWITEMSTRUCT

    $DRAWITEMSTRUCT = DllStructCreate("uint cType;uint cID;uint itmID;uint itmAction;uint itmState;" & _
    "hwnd hItm;hwnd hDC;dword itmRect[4];dword itmData", $lParam)

    If DllStructGetData($DRAWITEMSTRUCT, "cType") <> $ODT_TAB Then Return $GUI_RUNDEFMSG

    Local $cID = DllStructGetData($DRAWITEMSTRUCT, "cID")
    Local $itmID = DllStructGetData($DRAWITEMSTRUCT, "itmID")
    Local $itmAction = DllStructGetData($DRAWITEMSTRUCT, "itmAction")
    Local $itmState = DllStructGetData($DRAWITEMSTRUCT, "itmState")
    Local $hItm = DllStructGetData($DRAWITEMSTRUCT, "hItm")
    Local $hDC = DllStructGetData($DRAWITEMSTRUCT, "hDC")

    If $itmAction <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG

    Local $iTextColor, $itmText

    Switch $itmID
    Case 0
    $iBrushColor = 0x11AADD
    Case 1
    $iBrushColor = 0xEEBB99
    EndSwitch

    DLLCall("gdi32.dll","int","SetBkMode", "hwnd", $hDC, "int", 1)

    Local $iBrush = DLLCall("gdi32.dll","hwnd","CreateSolidBrush", "int", $iBrushColor)
    $iBrush = $iBrush[0]

    Local $iBrushOld = _WinAPI_SelectObject($hDC, $iBrush)

    DLLCall("user32.dll","int","FillRect", "hwnd", $hDC, "ptr", DllStructGetPtr($DRAWITEMSTRUCT, "itmRect"), "hwnd", $iBrush)

    Local $tBuffer = DllStructCreate("char[256]")
    DllStructSetData($tBuffer, 1, "Item" & $itmID)
    $itmText = DllStructGetData($tBuffer, 1)

    [/autoit] [autoit][/autoit] [autoit]

    DllStructSetData($DRAWITEMSTRUCT, "itmRect", DllStructGetData($DRAWITEMSTRUCT, "itmRect", 1) + 10, 1)
    DllStructSetData($DRAWITEMSTRUCT, "itmRect", DllStructGetData($DRAWITEMSTRUCT, "itmRect", 2) + 5, 2)

    DllCall("user32.dll", "int", "DrawText", "hwnd", $hDC, "str", $itmText, "int", StringLen($itmText), _
    "ptr", DllStructGetPtr($DRAWITEMSTRUCT, "itmRect"), "int", $DT_LEFT)

    _WinAPI_SelectObject($hDC, $iBrushOld)
    _WinAPI_DeleteObject($iBrush)

    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]


    Viel Erfolg!

  • Tab ausblenden

    • RR04
    • 16. August 2008 um 17:44

    Ich habe auch noch mal versucht aber nix gutes gefunden, Sorry. ?(

  • Tab ausblenden

    • RR04
    • 16. August 2008 um 15:40

    Hallo und grüß Dich,

    so vielleicht ?
    Es geht auch mit einer Variablen die man befüllen kann oder nicht - als Schalter quasi ! :)

    Edit: Ich habs mal probiert mit Variable - Es geht. Nur noch einen Button als Schalter bauen ! ;)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $schalterForAlina = "" ; ### change by RR04 Tab ausblenden ###

    [/autoit] [autoit][/autoit] [autoit]

    ;$schalterForAlina = "schalterForAlina" ; ### change by RR04 Tab einblenden ###

    [/autoit] [autoit][/autoit] [autoit]

    GUICreate("Beispiel",410,410) ; erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    [/autoit] [autoit][/autoit] [autoit]

    ;$standart = GUICtrlCreateInput ("beispiel", 5,5, 70,20)
    ;$test = GUICtrlRead($standart)

    [/autoit] [autoit][/autoit] [autoit]

    $tab=GUICtrlCreateTab (5,105, 400,300)

    [/autoit] [autoit][/autoit] [autoit]

    ; Tab 1
    $tab0=GUICtrlCreateTabitem ("Grund 1")
    GUICtrlSetState(-1,$GUI_SHOW); Dieser Tab wird beim Programmstart aufgerufen
    ;$tab0OK=GUICtrlCreateButton ("OK", 20,150,50,20)
    ;GUICtrlCreateLabel($test, 80,150,70,20)

    [/autoit] [autoit][/autoit] [autoit]

    ; Tab 2
    ;$tab1=GUICtrlCreateTabitem ( "Grund 2") ; by Alina
    $tab1=GUICtrlCreateTabitem ($schalterForAlina) ; ### change by RR04 ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Tab 3
    $tab2=GUICtrlCreateTabitem ("Grund 3")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUISetState ()

    [/autoit] [autoit][/autoit] [autoit]

    ; die GUI läuft bis sie geschlossen wird
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    [/autoit]
  • Outlook & OExpress Saver...

    • RR04
    • 15. August 2008 um 16:37

    Speziellen Dank an Alina für Ihre umgangssprachliche Übersetzung ins Dänische. ^^

  • Outlook & OExpress Saver...

    • RR04
    • 15. August 2008 um 14:53

    Hallo Alina und Oscar !

    Danke für Euer Lob.

    Alina, ich hoffe ich habe „Deine“ richtigen Worte gefunden ? Wenn nicht, dann editiere mal die Datei „Dansk.ini“ und verbessere die Wortwahl – Speichern und fertig.

    Der Trick:
    Auf diese Weise kann man auch weitere Sprachen hinzufügen. OES erkennt die neue Sprache und bietet sie von nun an zur Auswahl an. ;)
    Alina, über die Korrektur von Dir freue ich mich. :rock:

    Oscar, bei „Restore“ habe ich eigentlich mehr an den speziellen Modus gedacht als an das Wort. Aber ich lasse mich auch gerne belehren, wenn Ihr es für Besser haltet.

    Mein eigenes Urteil fällt nur „Gut“ aus ! ;)
    Das Prinzip ist klar und das Konzept okay. Doch in der Ausführung steckt noch viel Potential:

    1.Als erstes auffällig, die vielen „IniRead“ aufrufe.
    2.Der erzwungene Neustart ist nicht unbedingt nötig.
    3.Einiges kann man zusammenfassen.

    Als Lösung für 1. und 2. strebe ich eine Mischung aus „IniReadSection“ mit „GUICtrlSetData“ an. :rolleyes:;)

  • Outlook & OExpress Saver...

    • RR04
    • 14. August 2008 um 14:14

    Multilingual - Hier kann man schnell auch selbst eine fehlende Sprache erstellen und einfügen. ;)
    Mein erster Versuch mit vielen Sprachen.

  • Sicher ist Sicher...

    • RR04
    • 8. August 2008 um 14:58

    Kleinere Anpassungen kommen hinzu ! ^^

    Download siehe Post 1

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™