FreezingFire
Admin Team
Joined: 23 Jun 2002
Posts: 3508
|
 Posted: Fri Nov 15, 2002 9:02 pm Post subject: Paint in your VDS App -- No DLL needed! |
 |
|
Here's a simple script that can be used to make a program to paint. It
can be improved, but this is the basic idea.
Sorry Garrett for stealing your Source Header 
| Code: | REM _____________________________________________________
REM |\___________________________________________________/|
REM | | | |
REM | | SOURCE TITLE: Paint | |
REM | | ------------ | |
REM | | SOURCE AUTHOR: FreezingFire | |
REM | | ------------- | |
REM | | DATE: 15 November, 2002 | |
REM | | ---- | |
REM | | REQUIREMENTS: Visual DialogScript 4.x | |
REM | | ------------ | |
REM | | SOURCE STATUS: Public Domain | |
REM | | ------------- | |
REM | | SOURCE DESCRIPTION: | |
REM | | ------------------ | |
REM | | Paint in your VDS app without a DLL | |
REM | | ------------------ | |
REM | | INSTRUCTIONS: | |
REM | | ------------------ | |
REM | | Define thickness then run | |
REM | |_________________________________________________| |
REM |/___________________________________________________\|
Title Paint by FreezingFire
%%thickness = ---------------------
OPTION DECIMALSEP,"."
%%width = @sysinfo(screenwidth)
%%height = @sysinfo(screenheight)
DIALOG CREATE,Paint Example,-1,0,%%width,%%height,COLOR WHITE
DIALOG ADD,STYLE,COLOR,,,,BLACK,BLACK
DIALOG SHOW
DIALOG CURSOR,CROSS
%%num = 1
:Evloop
wait event,.01
goto @event()
:Timer
while @mousedown()
%%num = @succ(%%num)
DIALOG ADD,TEXT,PIXEL%%num,@diff(@mousepos(y),40),@diff(@mousepos(x),20),,,%%thickness,,COLOR
wend
goto evloop
:Close
exit |
_________________
FreezingFire
VDSWORLD.com
Site Admin Team |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld