Greenhorn: RTFP - Read the fucking Post
Schon richtig, aber dennoch:
RTFM ![]()
Zitat von GUICtrlCreateEditTo combine styles with the default style use BitOr($GUI_SS_DEFAULT_EDIT, newstyle,...).
Gruß
Greenhorn
Greenhorn: RTFP - Read the fucking Post
Schon richtig, aber dennoch:
RTFM ![]()
Zitat von GUICtrlCreateEditTo combine styles with the default style use BitOr($GUI_SS_DEFAULT_EDIT, newstyle,...).
Gruß
Greenhorn
Hi,
RTFM ![]()
$ES_READONLY als Fensterstil für's Edit.
Gruß
Greenhorn
Hi,
wurde hier schon zigfach erfragt und die Hilfe sagt auch eindeutiges dazu !
Aber ich will mal nicht so sein ...
#Include <WindowsConstants.au3>
#include <GUIConstants.au3>
Global $IDC_EXIT, $MainGUI
[/autoit] [autoit][/autoit] [autoit]$Width = 306
$MainGUI = GUICreate("timer", _
$Width, 236, @DesktopWidth - $Width, 0, _
$WS_POPUP, $WS_EX_CONTROLPARENT )
$IDC_EXIT = GUICtrlCreateButton("exit", 130, 200, 60, 25)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetState ($IDC_EXIT, $GUI_ONTOP)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While TRUE
Switch GUIGetMsg()
Case $IDC_EXIT
ExitLoop
EndSwitch
WEnd
Gruß
Greenhorn
Hallo,
versuche es doch bitte einmal mit ControlCommand ...
[autoit]ControlCommand ("Fenstertitel", "", ID_TOOLBAR, "SendCommandID", 201)
[/autoit]Gruß
Greenhorn
Hi,
versuche es doch bitte einmal so ...
[autoit]$result = DllCall ( $niDll_dll , "int:cdecl" ,"init_NICard", "ptr" ,DllStructGetPtr($nidll_Strukt) )
[/autoit]EDIT:
Da fehlen noch die anderen Parameter der Funktion !!!
EDIT 2:
Na gut, weil heute Dienstag ist ...
So sollte es ungefähr aussehen (ungetestet!)
;~ init_NICard (NICard *nicard, char* reportText, short* errorOccured, long* errorCode, char* errorMsg)
[/autoit] [autoit][/autoit] [autoit]; strukturmitglieder
$str = "char name[256];"& _
"char port0[256];"& _
"char port1[256];"& _
"char port2[256];"& _
"BOOL ioPort0;"& _
"BOOL ioPORT1;"& _
"BOOL ioPORT2;"& _
"int handle[24];"& _
"BOOL bits[24]"
$nidll_Strukt = DllStructCreate($str) ; struktur generieren
[/autoit] [autoit][/autoit] [autoit]DllStructSetData($nidll_Strukt,"name","test")
DllStructSetData($nidll_Strukt,"port0","A")
DllStructSetData($nidll_Strukt,"port1","B")
DllStructSetData($nidll_Strukt,"port2","C")
DllStructSetData($nidll_Strukt,"ioPort0",True)
DllStructSetData($nidll_Strukt,"ioPort1",True)
DllStructSetData($nidll_Strukt,"ioPort2",True)
DllStructSetData($nidll_Strukt,"handle",3)
DllStructSetData($nidll_Strukt,"bits",0)
; Parameter zum Aufruf der Funktion init_NICard
$szReportText = DllStructCreate ("char[256]")
$ErrorOccured = DllStructCreate ("short")
$ErrorCode = DllStructCreate ("long")
$szErrorMsg = DllStructCreate ("char[256]")
; dll öffnen
$niDll_dll = DllOpen("niDll.dll")
; Funktion zum Initialisieren aufrufen.
init_NICard (DllStructGetPtr($nidll_Strukt), _
DllStructGetPtr($szReportText), _
DllStructGetPtr($ErrorOccured), _
DllStructGetPtr($ErrorCode), _
DllStructGetPtr($szErrorMsg))
;############ NICard API ############
[/autoit] [autoit][/autoit] [autoit]Func init_NICard ($lpNicard, $pszReportText, $pErrorOccured, $lpErrorCode, $pszErrorMsg)
[/autoit] [autoit][/autoit] [autoit]$aRes = DllCall ( $niDll_dll , "int:cdecl" ,"init_NICard", _
"ptr" , $lpNicard, _
"ptr" , $pszReportText, _
"ptr" , $pErrorOccured, _
"ptr" , $lpErrorCode, _
"ptr" , $pszErrorMsg _
)
Return $aRes[0]
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Gruß
Greenhorn
Hi,
bis zur Version 1.7 (glaube ich) war es noch standardmäßig im SciTE-Menü implementiert. Die Entwickler von SciTE haben es dann aber herausgenommen, warum auch immer.
Auf Anfrage (nicht von mir) kam dann der Tip mit dem LUA-Script. ![]()
Gruß
Greenhorn
Hi,
das hättest Du auch locker mit einem Blick in die Hilfe herausfinden können ...
#Include <StaticConstants.au3>
;~ #Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>
#include <GUIConstants.au3>
Global $IDC_PICTURE, $IDC_EXIT, $MainGUI
[/autoit] [autoit][/autoit] [autoit]$Width = 306
$MainGUI = GUICreate("timer", _
$Width, 236, @DesktopWidth - $Width, 0, _
$WS_POPUP, BitOR ($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
$IDC_PICTURE = GUICtrlCreatePic(@ScriptDir & "\lll.gif", _
0, 0, 0, 0, _
BitOR ($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS), _
$GUI_WS_EX_PARENTDRAG)
$IDC_EXIT = GUICtrlCreateButton("exit", 130, 200, 60, 25)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetState ($IDC_EXIT, $GUI_ONTOP)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While TRUE
Switch GUIGetMsg()
Case $IDC_EXIT
ExitLoop
EndSwitch
WEnd
Gruß
Greenhorn
Jo-ho.
Auch von mir die herzlichsten Glückwünsche zum Geburtstag ! ![]()
LG
Greenhorn
Oha, der 18. ... ![]()
Herzlichen Glückwunsch und alles Gute, Lev. ![]()
Gruß
Greenhorn
Alles was mir zu diesem Thema einfällt, ist http://www.DubistTerrorist.de
Du meinst wohl http://www.rettedeinefreiheit.de/ ...
Ja, das Thema Kinderpornographie dafür auszunuzten ist ein geschickter Schachzug.
Jeder "BILD"-Leser mit geBILDeter Meinung wird dem Gesetz voll und ganz zustimmen.
Die Vorratsdatenspeicherung wird auch wieder auf den Tisch kommen, vielleicht noch dieses Jahr.
Aber es gibt noch viel bessere Sachen, wie z.B. ELENA.
Dort wird alles erdenkliche gespeichert, z.B. ob Du gestreikt hast und ob dein Arbeitgeber den Streik für unangemessen gehalten hat.
Und es gibt noch das Stockholmer Programm.
Dies sind alles Teile eines Ganzen, das man Überwachungsstaat nennt.
Gruß
Greenhorn
Sollte man den nicht in die Startseite der AutoIt-Online-Doku integrieren ?
EDIT:
Auf der englischen Startseite der AutoIt-Online-Doku ist ebenfalls kein Verweis/Link vorhanden. Vielleicht kannst Du das ja mal mit Valik besprechen ?!
Gruß
Hi,
mir ist gerade aufgefallen, daß irgendwie kein Link zur UDF-Hilfe vorhanden ist ...
Oder bin ich blind ?!? ![]()
Gruß
Greenhorn
Es wäre schöner, wenn die "wichtigen Links" und der "Online-Hilfe"-Link unter dem Banner in einem neuen Tab/Fenster aufgemacht würden, finde ich.
Gruß
Greenhorn
Einfach nur den Lüfter abnehmen, sofern abnehmbar (Kühler drauf lassen) und vorsichtig, am besten mit einem Pinsel, die Rippen des Kühlers und die Lüfterblätter reinigen.
Bei dieser Gelegenheit kann man sich auch gleich den Lüfter der GraKa ansehen, sofern einer drauf ist.
Ebenso Gehäuselüfter und was sonst noch so verstaubt ist.
Diese Prozedur sollte man ruhig einmal im Jahr seinem Rechner angedeihen lassen.
Zu beachten ist eigentlich nur statische Aufladung zu vermeiden, Abhilfe schafft ein kurzes Berühren von etwas geerdetem, z.B. Heizkörper.
EDIT:
Eigentlich gehört dieses Thema ins Offtopic-Forum. ![]()
Gruß
Greenhorn
Hi,
mal 'ne kleine Frage zwischendurch ...
Hast Du dir die Kühlrippen des CPU-Kühlers angesehen ?
Wenn da ein Wollpulli drauf ist dann sollte das Übel gefunden sein. ![]()
Bei den alten Kisten ist meist mangelnde (Innen)Pflege das Problem.
Vorsichtig mit einem Pinsel reinigen und dann sollte es besser werden.
EDIT:
Oder der Kühlerlüfter selbst hat einen weg, könnte auch sein ...
Gruß
Greenhorn
Es scheint so, als wäre $a_ip kein Array ... ![]()
Bei solchen Deklarationen solltest Du defensiver programmieren und vorher prüfen, ob soweit alles gut ist.
Gruß
Greenhorn
Also so scheint es bei mir zu funzen ...
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]_listchange()
[/autoit] [autoit][/autoit] [autoit]Func _listchange()
[/autoit] [autoit][/autoit] [autoit]Local $list123, $array, $search, $buffer
$list123 = Iniread("serverlist.ini" , "serverlist", "servers","")
$list123 = StringRegExpReplace($list123, '\(.+?\)', '')
$array = StringSplit($list123, '|')
If (not IsArray ($array)) Then _
Return FALSE
_ArrayDisplay($array)
Do
;~ for $y2=0 to $array[1]
$search = _ArraySearch($array,"")
If ($search == -1) Then _
ExitLoop
_ArrayDelete($array,$search)
;~ Next
Until $search == -1
; das hier geht nicht:
Do
;~ for $i=0 to $array[1]
$search = _ArraySearch($array,"bra")
If ($search == -1) Then _
ExitLoop
_ArrayDelete($array,$search)
;~ Next
Until $search == -1
_ArrayDisplay($array)
;~ Local $buffer = ''
for $i = 1 to UBound($array)-1
$buffer &= $array[$i] & @CRLF
Next
FileWrite(@ScriptDir & '\temp.txt', $buffer)
EndFunc
[/autoit]Gruß
Hi,
warum die For-Schleife in der Do-Until-Schleife ???
Versuche es mal bitte so ...
Func _listchange()
[/autoit] [autoit][/autoit] [autoit]Local $list123, $array, $search, $buffer
$list123 = Iniread("serverlist.ini" , "serverlist", "servers","")
$list123 = StringRegExpReplace($list123, '\(.+?\)', '')
$array = StringSplit($list123, '|')
If (not IsArray ($array)) Then _
Return FALSE
_ArrayDisplay($array)
Do
;~ for $y2=0 to $array[1]
$search = _ArraySearch($array,"")
_ArrayDelete($array,$search)
;~ Next
Until $search == -1
; das hier geht nicht:
Do
;~ for $i=0 to $array[1]
$search = _ArraySearch($array,"bra")
_ArrayDelete($array,$search)
;~ Next
Until $search == -1
_ArrayDisplay($array)
;~ Local $buffer = ''
for $i = 0 to UBound($array)-1
$buffer &= $array[$i] & @CRLF
Next
FileWrite(@ScriptDir & 'temp.txt', $buffer)
EndFunc
[/autoit]Gruß
Greenhorn
Hi,
von RichEdit weiß ich nicht viel, leider.
Aber, wenn ich die Funktion herausnehme klappt alles ...
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>
#include <GuiStatusBar.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$MainForm = GUICreate("MainForm", 1025, 769, 192, 124)
$MenuItem2 = GUICtrlCreateMenu("MenuItem2")
$MenuItem1 = GUICtrlCreateMenu("MenuItem1")
$StatusBar1 = _GUICtrlStatusBar_Create($MainForm)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 26)
$Edit1 = _GUICtrlRichEdit_Create($MainForm, "", 30, 75, 471, 151, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$Edit2 = _GUICtrlRichEdit_Create($MainForm, "", 30, 245, 471, 161, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$Edit3 = _GUICtrlRichEdit_Create($MainForm, "", 30, 430, 476, 171, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$Button_Fett = GUICtrlCreateButton("F", 5, 5, 26, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button_Kursiv = GUICtrlCreateButton("K", 35, 5, 26, 21)
GUICtrlSetFont(-1, 8, 400, 2, "MS Sans Serif")
$Button_Unter = GUICtrlCreateButton("U", 65, 5, 26, 21)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Combo_Grosse = GUICtrlCreateCombo("8", 270, 5, 51, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "10|12|14|16|18|20|22|24|28|36|48|72|80")
$Button_Color = GUICtrlCreateButton("Text-Farbe", 95, 5, 71, 21)
$Button_BkColor = GUICtrlCreateButton("Hintergrund-Farbe", 170, 5, 96, 21)
$Label_ausrichtung = GUICtrlCreateLabel("Ausrichtung: ", 330, 8, 66, 17)
$Button_links = GUICtrlCreateButton("Links", 400, 5, 46, 21)
$Button_mitte = GUICtrlCreateButton("Mitte", 450, 5, 46, 21)
$Button_rechts = GUICtrlCreateButton("Rechts", 500, 5, 46, 21)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
RichExit()
Case $Button_Fett
$RichEditHwnd = get_RichEdit()
fett($RichEditHwnd)
Case $Button_Kursiv
$RichEditHwnd = get_RichEdit()
kursiv($RichEditHwnd)
Case $Button_Unter
$RichEditHwnd = get_RichEdit()
unter($RichEditHwnd)
Case $Combo_Grosse
$RichEditHwnd = get_RichEdit()
grosse($RichEditHwnd)
Case $Button_Color
$RichEditHwnd = get_RichEdit()
color($RichEditHwnd)
Case $Button_BkColor
$RichEditHwnd = get_RichEdit()
bk_color($RichEditHwnd)
Case $Button_links
$RichEditHwnd = get_RichEdit()
$sort = "links"
sort($RichEditHwnd,$sort)
Case $Button_mitte
$RichEditHwnd = get_RichEdit()
$sort = "mitte"
sort($RichEditHwnd,$sort)
Case $Button_rechts
$RichEditHwnd = get_RichEdit()
$sort = "rechts"
sort($RichEditHwnd,$sort)
EndSwitch
WEnd
Func get_RichEdit()
Select
Case _GUICtrlRichEdit_IsTextSelected($Edit1)
ConsoleWrite ("--- Edit1" & @CRLF)
Return $Edit1
Case _GUICtrlRichEdit_IsTextSelected($Edit2)
ConsoleWrite ("--- Edit2" & @CRLF)
Return $Edit2
Case _GUICtrlRichEdit_IsTextSelected($Edit3)
ConsoleWrite ("--- Edit3" & @CRLF)
Return $Edit3
EndSelect
EndFunc ;==>get_RichEdit
Func sort($RichEdit,$ausrichtung)
If $ausrichtung = "links" Then _GUICtrlRichEdit_SetParaAlignment($RichEdit, "l")
If $ausrichtung = "mitte" Then _GUICtrlRichEdit_SetParaAlignment($RichEdit, "c")
If $ausrichtung = "rechts" Then _GUICtrlRichEdit_SetParaAlignment($RichEdit, "r")
EndFunc ;==>color
[/autoit] [autoit][/autoit] [autoit]Func color($RichEdit)
$color = _ChooseColor()
_GUICtrlRichEdit_GetSel($RichEdit)
_GUICtrlRichEdit_SetCharColor($RichEdit, $color);"804080")
EndFunc ;==>color
Func bk_color($RichEdit)
$color = _ChooseColor()
_GUICtrlRichEdit_GetSel($RichEdit)
_GUICtrlRichEdit_SetCharBkColor($RichEdit, $color);"804080")
EndFunc ;==>bk_color
Func grosse($RichEdit)
$soll_size = GUICtrlRead($Combo_Grosse)
_GUICtrlRichEdit_SetFont($RichEdit, $soll_size)
;~ $stream = _GUICtrlRichEdit_StreamToVar($RichEdit)
;~ _GUICtrlRichEdit_StreamFromVar($RichEdit,$stream)
EndFunc ;==>grosse
Func fett($RichEdit)
$attribs = _GUICtrlRichEdit_GetCharAttributes($RichEdit)
$fett = StringInStr($attribs, "bo+")
$nicht_fett = StringInStr($attribs, "bo-")
Select
Case $fett <> 0
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "-bo")
Case $nicht_fett <> 0
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+bo")
Case Else
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+bo")
EndSelect
;~ $stream = _GUICtrlRichEdit_StreamToVar($RichEdit)
;~ _GUICtrlRichEdit_StreamFromVar($RichEdit,$stream)
;~ MsgBox(0,"","" & $stream)
EndFunc ;==>fett
Func kursiv($RichEdit)
$attribs = _GUICtrlRichEdit_GetCharAttributes($RichEdit)
$kursiv = StringInStr($attribs, "it+")
$nicht_kursiv = StringInStr($attribs, "it-")
Select
Case $kursiv <> 0
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "-it")
Case $nicht_kursiv <> 0
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+it")
Case Else
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+it")
EndSelect
;~ $stream = _GUICtrlRichEdit_StreamToVar($RichEdit)
;~ _GUICtrlRichEdit_StreamFromVar($RichEdit,$stream)
EndFunc ;==>kursiv
Func unter($RichEdit)
$attribs = _GUICtrlRichEdit_GetCharAttributes($RichEdit)
$unter = StringInStr($attribs, "un+")
$nicht_unter = StringInStr($attribs, "un-")
Select
Case $unter
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "-un")
Case $nicht_unter
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+un")
Case Else
_GUICtrlRichEdit_SetCharAttributes($RichEdit, "+un")
EndSelect
;~ $stream = _GUICtrlRichEdit_StreamToVar($RichEdit)
;~ _GUICtrlRichEdit_StreamFromVar($RichEdit,$stream)
EndFunc ;==>unter
Func RichExit()
_GUICtrlRichEdit_Destroy($Edit1)
_GUICtrlRichEdit_Destroy($Edit2)
_GUICtrlRichEdit_Destroy($Edit3)
Exit
EndFunc ;==>RichExit
Gruß
Greenhorn