Discussions related to Visual Prolog
hadiranji
Posts: 11
Joined: 7 Dec 2013 15:16

DrawLine Color

Unread post by hadiranji »

hi
how can draw line with specified color ?
User avatar
Tonton Luc
VIP Member
Posts: 204
Joined: 16 Oct 2001 23:01

Unread post by Tonton Luc »

Hi,

Code: Select all

predicates     onPaint : drawWindow::paintResponder. clauses     onPaint(_Source, _Rectangle, GDI):-         My_color = color_Blue,         GDI:setPen(pen(1,ps_Solid,My_color)),         GDI:drawLine(pnt(10,10),pnt(100,100)).
Post Reply