Pole edit

[krystiandj]

Mam problem z polem edit chce żeby nie dało się go edytować no i mam

$Edit1 = GUICtrlCreateEdit("", 10, 35, 595, 348,  BitOR($WS_VSCROLL,$GUI_SS_DEFAULT_EDIT,$ES_READONLY))

 

to jest ok ale jak wrzucę do pętli

GUICtrlSetData($Edit1,"["& _Date_Time_SystemTimeToDateTimeStr($tCur)  &"]:  "&$sMessage & @CRLF,1)

 

to jest ok do puki użytkownik nie kliknie na pole edit wtedy dopisuje nowy tekst tam gdzie kliknął kursorem da się jakoś ten kursor zablokować żeby nie mógł tam klikać czy coś bo chce żeby to wyglądało tak

Tekst
Tekst
Tekst
Tekst

 

a teraz zakładając że kliknie wygląda to tak:

Tekst
Tek(tutaj klika myszką)Tekstst
Tekst

 ====czyli wygląda to tak====

Tekst
TekTekstst
Tekst

 

 

[Phoenix_PL]

$GUI_DISABLE?

Spróbuj "dezaktywować" edita

[krystiandj]

nie działa to samo trzeba było by jakoś zablokować kliknięcia może ale nie wiem jak

[karolkarol21621]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MouseOnEvent.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 216, 176, 185, 89, BitOR($WS_VSCROLL,$GUI_SS_DEFAULT_EDIT,$ES_READONLY))
GUICtrlSetData(-1, "Edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

AdlibRegister("gdy", 50)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Func gdy()
	$info=GUIGetCursorInfo()
	If $info[4]=$Edit1 Then
	_BlockMouseClicksInput(0)
Else
	_BlockMouseClicksInput(1)
		EndIf
	EndFunc


	Func _BlockMouseClicksInput($iOpt = 0)
	If $iOpt = 0 Then
		_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "__Dummy", 0, 1)
		_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "__Dummy", 0, 1)
		_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "__Dummy", 0, 1)
		_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "__Dummy", 0, 1)
	Else
		_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT)
		_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT)
		_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT)
		_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT)
	EndIf
EndFunc

O takie coś chodziło?

gdy najedziesz na edita zablokuje klikniecie tylko pobierz mouseonevent

+biblioteka mouseonevent.au3:

 

http://www.autoitscript.com/forum/topic/64738-mouseonevent-udf/#entry482183

@EDIT

Aha i dodaj if not @error

Gdyż po kliknięciu poza gui program się skraszuje

[jackraymund]

 

GUICtrlSetData($Edit1,guictrlread($edit1) & "["& _Date_Time_SystemTimeToDateTimeStr($tCur) &"]: "&$sMessage & @CRLF)

[krystiandj]

@up x2

przetestuje jutro i zobacze czy działa

 

@up x1

no wiem zrobiłem tak ale jest mały problem że jak dodaje sie nowy tekst to pole edit cały czas stoi przy pierwszej linijce a ja chciałem żeby po dodaniu nowego tekstu zjeżdżał coraz niżej

[jackraymund]

#include <GuiEdit.au3>
_GUICtrlEdit_AppendText($Edit1,"asdf" & @CRLF)

aaaa, sry, myślałem że tamten sposób trybnie, bo nie chciałem specjalnie bibli dodawać ;f

ten działa bankowo

[krystiandj]

sory ze tak późno odpisuje ale nie miałem czasu przedtem @up thx działa