Тема: Pick2D
Показать сообщение отдельно
Старый 24.09.2006, 22:28   #1
MiXaeL
Бывалый
 
Аватар для MiXaeL
 
Регистрация: 22.08.2006
Сообщений: 700
Написано 146 полезных сообщений
(для 267 пользователей)
Pick2D

Пример непрямоугольного выделения картинки:

 
Graphics 1024,768,32,2
img=LoadImage("Image.bmp")
Repeat
 Color 0,200,0
 Rect 0,0,1024,768
 
 If RectsOverlap(MouseX(),MouseY(),1,1,400,400,ImageWidth(img),ImageHeight(img))Then
  If ReadPixel(MouseX()-400,MouseY()-400,ImageBuffer(img))<>$FF000000 ;Для черного цвета маски
   Color 0,0,255
   Text 0,0,"Select!!!"
  EndIf
 EndIf
 
 DrawImage img,400,400
 Flip
 
Until KeyHit(1)
(Offline)
 
Ответить с цитированием