Рисуем точку в окне.

[madmasles]

urrya [?]

но как нарисовать ОДИН пиксель?

madmasles [?]

..., 5, 5); 1 x 1 у меня не видно

Что не понятно?



Добавлено:

Сообщение автоматически объединено: 30 Дек 2013

urrya [?]

есть две строки пикселей по 100 px на каждую,
есть ли возможность их отображения ?
к тому же это надо делать поочерёдно ещё.

Спойлер

#include <GUIConstantsEx.au3>

Global $hGui, $nLbl, $fRed

$hGui = GUICreate('Test', 200, 200)
GUISetBkColor(0xFFFFFF)
$nLbl = GUICtrlCreateLabel('', Random(10, 90, 1), Random(10, 190, 1), 100, 1);100 - длина, 1 - толщина
GUICtrlSetBkColor(-1, 0x0000FF)
GUISetState()
HotKeySet('0', '_RandomMove');0 - click

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _RandomMove()
	ControlMove($hGui, '', $nLbl, Random(10, 90, 1), Random(10, 190, 1))
	$fRed = Not $fRed
	If $fRed Then
		GUICtrlSetBkColor($nLbl, 0xFF0000)
	Else
		GUICtrlSetBkColor($nLbl, 0x0000FF)
	EndIf
EndFunc   ;==>_RandomMove

Или так.

Спойлер

#include <GUIConstantsEx.au3>

Global $hGui, $nLbl, $fRed

$hGui = GUICreate('Test', 200, 200)
GUISetBkColor(0xFFFFFF)
$nLbl = GUICtrlCreateLabel('', Random(10, 90, 1), Random(10, 190, 1), 100, 1);100 - длина, 1 - толщина
GUICtrlSetBkColor(-1, 0x0000FF)
GUISetState()
HotKeySet('0', '_RandomMove');0 - click

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _RandomMove()
	If Random(0, 1, 1) Then
		ControlMove($hGui, '', $nLbl, Random(10, 90, 1), Random(10, 190, 1), 100, 1)
	Else
		ControlMove($hGui, '', $nLbl, Random(10, 190, 1), Random(10, 90, 1), 1, 100)
	EndIf
	$fRed = Not $fRed
	If $fRed Then
		GUICtrlSetBkColor($nLbl, 0xFF0000)
	Else
		GUICtrlSetBkColor($nLbl, 0x0000FF)
	EndIf
EndFunc   ;==>_RandomMove

 

[Garrett]

urrya [?]

Справку читаю, вероятно просто не очень внимательно.

Видимо невнимательно

P.s. Хотя даже великий Гугл не дал ответа на эту тему.

Тут главное грамотный запрос, Google всего лишь инструмент.

Но где же разноцветность (задать цвет КАЖДОМУ пикселю)?

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

$hGUI = GUICreate("Form1", 400, 300)
GUISetBkColor(0xFFFFFF)
GUISetState(@SW_SHOW)

_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hBrush1 = _GDIPlus_BrushCreateSolid()
For $i = 1 To 200
	_GDIPlus_BrushSetSolidColor($hBrush1, '0x' & Hex(Random(0xFF000000, 0xFFFFFFFF, 1)))
	_GDIPlus_GraphicsFillRect($hGraphic, Random(1, 390), Random(1, 290), 10, 10, $hBrush1)
Next
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

 

[urrya]

Garrett

Спасибо!
:beer:

Гос-да, всех с наступающим ... .
:beer: