Рисуем на дисплее?

[Mihail_]

Здравствуйте, подскажите пожалуйста что можно использовать, чтобы рисовать (допустим геометрические фигуры) за пределами формы?
Заранее спасибо

[Хакер]

Mihail_
Форма - это класс, это такая абстрактная сущность, которая существует в программе.

А экземпляр формы, окно - это уже другое дело.


В Windows можно рисовать только на DC. У каждого окна есть свой DC. Даже два - весь и клиентский.

[M.A.R.K]

1. Рисуем линию на всем экране. (API: LineTo, MoveTo, GetDC)

Код: Выделить всё

Call MoveTo(GetDC(0), 10, 10)
Call LineTo(GetDC(0), 100, 100)

2. Я сам разбирался в похожей теме. (Рисование под формой)
Дали совет, покопаться в Оверлеях.

[Хакер]

M.A.R.K
А Let ты тоже используешь?

[M.A.R.K]

M.A.R.K
А Let ты тоже используешь?

Я тебя не понял...
Всмысле?

[Хакер]

В том смысле, что
Call SomeFunction()

такой же устаревший синтаксис, как и

Let a = 132
Let b = "cawef"

[Mihail_]

спасибо большое!
а если нужно сделать что-нибудь вроде этого, схема та же?

[/img]
нарисованные элементы получают свой hwnd чтобы их можно было например делать прозрачными?

[iGrok]

Нет. Но никто тебе не мешает создать такое окно.

Пример тут:
http://bbs.vbstreets.ru/viewtopic.php?t=36262

[Mihail_]

да, спасибо - допустим мы можем сделать окно полупрозрачным через SetLayeredWindowAttributes, а как сделать его неправильной формы и без заголовка?

[Atoman]

Код: Выделить всё

Me.BorderStyle = 0
Me.BackColor = 0
Call SetLayeredWindowAttributes(Me.hwnd, Me.BackColor, 120, LWA_ALPHA Or LWA_COLORKEY)

Всё что на форме чёрным цветом будет прозрачным.

[Mihail_]

отлично, спасибо большое!

для будущих поколений

Код: Выделить всё

Option Explicit
Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
  Dim aStyle As Long
  Dim TransparentColor As Long
  TransparentColor = vbBlack
  aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
  aStyle = aStyle Or WS_EX_LAYERED
  Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
  Call SetLayeredWindowAttributes(Me.hWnd, TransparentColor, 0, LWA_COLORKEY)
End Sub

Private Sub Form_Load()
'Me.BorderStyle = 0
Me.BackColor = 0
End Sub

делаем все элементы на форме, имеющие черный цвет 100% прозрачными.

[iGrok]

Нет. Можно воспользоваться регионами. Собственно поищи по форуму по слову "Регион" или "Region".

А вот насчет непрозрачности.. Тут уже труднее.

[Mihail_]

отредактировал пост после поиска по форуму
пока не разобрался в регулировке уровня прозрачности, но в целом метод очень хорош - красивые всплывающие оповещения можно уже делать - даже удивительно что все оказалось так просто.
Еще раз всем спасибо!

[Хакер]

Mihail_
Ещё более удивительно то, что всё будет работать только на WinNT5.0+

[M.A.R.K]

Mihail_, если ты хочешь сделать окно, например, как в Photo Shop или Coral Draw при запуске, то есть с плавными краями (с Анти-Наложением) то вот ссылка:
http://forum.vingrad.ru/faq/topic-158155.html

[Хакер]

M.A.R.K
В фотошопе и кореле (во всяком случае в версиях CS2 и 12 соответственно) обычное квадратное окно, на него сначала копируется фон с ним, а затем поверх него (фона) рисуется картинка с альфа-каналом. Если при этом фон под сплэш-скрином поменяется, вся "квадратность" этого окна сразу будет хорошо видна.

[M.A.R.K]

M.A.R.K
В фотошопе и кореле (во всяком случае в версиях CS2 и 12 соответственно) обычное квадратное окно, на него сначала копируется фон с ним, а затем поверх него (фона) рисуется картинка с альфа-каналом. Если при этом фон под сплэш-скрином поменяется, вся "квадратность" этого окна сразу будет хорошо видна.

Ну тогда понятно.
Я раньше думал, что они GDI+ исполльзовали т.к. очень качественно окна сделали...