Autor Beitrag
neuronet
Hält's aus hier
Beiträge: 15

Win XP, SCO Unix, Linux
Delphi 2010 Architect
BeitragVerfasst: Do 09.12.10 14:29 
Folgendes Problem:

Ich habe eine vollständige Benutzeroberfläche in AutoIT.

Da das Projekt nun nach Delphi wechselt möchte ich die Oberfläche komplett übernehmen, ohne alles noch mal neu machen zu müssen.

Irgendjemand ne Idee ob's da nen Konverter oder so was gibt?


Thx...
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Sa 11.12.10 23:39 
Da ich grad nicht wei0, wie die Oberflächen-Def für AutoIt aussieht, wäre zumindest ein Ausschnitt ganz gut.

Im Zweifelsfalle müsstest Du dir ein kleines Script bauen, was von AutoIt die Dateien liest und daraus DFM-Files baut. Ist nicht so schwer.

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
neuronet Threadstarter
Hält's aus hier
Beiträge: 15

Win XP, SCO Unix, Linux
Delphi 2010 Architect
BeitragVerfasst: So 09.01.11 05:20 
GUI-Elemente in AutoIt werden so erstellt:

ausblenden volle Höhe Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
Global $TabSheet2 = GUICtrlCreateTabItem("Basic")
Global $Group4 = GUICtrlCreateGroup("", 8, 409, 569, 169)
Global $Checkbox_Sit = GUICtrlCreateCheckbox("Sit", 16, 424, 97, 17)
GUICtrlSetTip($Checkbox_Sit, "Requires Sit Action")
Global $Checkbox_AutoFood = GUICtrlCreateCheckbox("Auto_Food", 16, 448, 97, 17)
Global $Combo_AutoFood_Food = GUICtrlCreateCombo("Combo_AutoFood_Food", 120, 448, 145, 25)
GUICtrlSetTip($Combo_AutoFood_Food, "Uses Food to recover Health mainly , not Mana")
Global $Checkbox_AutoFood_Rebuy_Food = GUICtrlCreateCheckbox("Rebuy_Food", 16, 472, 97, 17)
Global $Input_AutoFood_Rebuy_Food_Amount = GUICtrlCreateInput("Input_AutoFood_Rebuy_Food_Amount", 208, 472, 57, 21)
GUICtrlSetTip($Input_AutoFood_Rebuy_Food_Amount, "Buy this amount of the selected food if it runs out")
Global $Checkbox_AutoRezz = GUICtrlCreateCheckbox("Auto_Rezz", 16, 496, 97, 17)
Global $Combo_AutoRezz_LifePotion = GUICtrlCreateCombo("Combo_AutoRezz_LifePotion", 120, 496, 145, 25)
Global $Checkbox_AutoLoot = GUICtrlCreateCheckbox("AutoLoot", 16, 520, 97, 17)
GUICtrlSetTip($Checkbox_AutoLoot, "Requires AutoLoot Action")
Global $Input_AutoLoot_AfterTurns = GUICtrlCreateInput("Input_AutoLoot_AfterTurns", 224, 520, 41, 21)
GUICtrlSetTip($Input_AutoLoot_AfterTurns, "AutoLoot in this intervall of turn numbers")
Global $Checkbox_AutoBattle_License = GUICtrlCreateCheckbox("AutoBattle_License", 16, 552, 113, 17)
Global $Label18 = GUICtrlCreateLabel("slot:", 272, 448, 23, 17)
Global $Label37 = GUICtrlCreateLabel("slot:", 272, 496, 23, 17)
Global $Label39 = GUICtrlCreateLabel("amount to rebuy :", 120, 472, 86, 17)
Global $Label40 = GUICtrlCreateLabel("loot after X turns", 120, 520, 81, 17)
Global $Combo_AutoFood_Slot_Number = GUICtrlCreateCombo("", 296, 448, 41, 25)
GUICtrlSetData($Combo_AutoFood_Slot_Number, "1|2|3|4|5")
Global $Combo_AutoRezz_Slot_Number = GUICtrlCreateCombo("", 296, 496, 41, 25)
GUICtrlSetData($Combo_AutoRezz_Slot_Number, "1|2|3|4|5")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group5 = GUICtrlCreateGroup("", 8, 25, 569, 217)
Global $Button_GetCursorIDhand = GUICtrlCreateButton("Get CursorID Hand", 16, 42, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDhand, "CursorID resets with every start of Atlantica.exe")
Global $Input_CursorIDhand = GUICtrlCreateInput("Input_CursorIDhand", 136, 50, 121, 21)
Global $Button_GetCursorIDsword = GUICtrlCreateButton("Get CursorID Sword", 16, 90, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDsword, "Make new CursorID's with every start of Atlantica.exe")
Global $Input_CursorIDsword = GUICtrlCreateInput("Input_CursorIDsword", 136, 98, 121, 21)
Global $Button_GetCursorIDpickup = GUICtrlCreateButton("Get CursorID PickUp", 17, 141, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDpickup, "Optional to Search corpse with Click")
Global $Input_CursorIDpickup = GUICtrlCreateInput("Input_CursorIDpickup", 137, 149, 121, 21)
Global $Button_GetCursorIDtalk = GUICtrlCreateButton("Get CursorID Talk", 17, 189, 115, 41, 0)
GUICtrlSetTip($Button_GetCursorIDtalk, "Optional to Search corpse with Click")
Global $Input_CursorIDtalk = GUICtrlCreateInput("Input_CursorIDtalk", 137, 197, 121, 21)
Global $Icon_Hand = GUICtrlCreateIcon("", 0, 265, 45, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_Sword = GUICtrlCreateIcon("", 0, 265, 93, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_PickUp = GUICtrlCreateIcon("", 0, 265, 141, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Icon_Talk = GUICtrlCreateIcon("", 0, 265, 189, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
Global $Button_Reload_Cursor_ID = GUICtrlCreateButton("Reload IDs", 313, 45, 123, 33, 0)
GUICtrlSetFont($Button_Reload_Cursor_ID, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group19 = GUICtrlCreateGroup("", 8, 240, 569, 169)
Global $Checkbox_Combat = GUICtrlCreateCheckbox("Bot_Combat", 16, 256, 113, 17)
GUICtrlSetFont($Checkbox_Combat, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip($Checkbox_Combat, "Bot will automatically do combat , if not checked it does nothing during combat")
Global $Checkbox_Search_Enemies = GUICtrlCreateCheckbox("Search_Enemies", 16, 280, 113, 17)
GUICtrlSetFont($Checkbox_Search_Enemies, 8, 800, 0, "MS Sans Serif")
GUICtrlSetTip($Checkbox_Search_Enemies, "Bot will automatically search enemies , if not checked it will not")
Global $Input_Default_Zoom_Combat = GUICtrlCreateInput("Input_Default_Zoom_Combat", 32, 328, 89, 21)
Global $Checkbox_Set_Default_Zoom_Combat_At_Start = GUICtrlCreateCheckbox("Default_Zoom_in_Combat", 16, 304, 145, 17)
GUICtrlSetTip($Checkbox_Set_Default_Zoom_Combat_At_Start, "Sets the Default Camera Zoom in Combat by Z Hotkey")
Global $Combo_Default_Zoom = GUICtrlCreateCombo("Combo_Default_Zoom", 128, 328, 145, 25)
GUICtrlSetData($Combo_Default_Zoom, "Team on Top|Enemie on Top")
GUICtrlSetTip($Combo_Default_Zoom, "The Bot must use Team on Top to work !")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetImage($Icon_Hand, "Icons/hand_cursor.ico")
GUICtrlSetImage($Icon_Sword, "Icons/attack_cursor.ico")
GUICtrlSetImage($Icon_PickUp, "Icons/grab_cursor.ico")
GUICtrlSetImage($Icon_Talk, "Icons/talk_cursor.ico")
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: So 09.01.11 06:59 
Parse einfach jede einzelne Zeile und übersetz die einzelnen Zeielen in passende Delphi-Befehle.

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.