Discussion forum about PANORAMIC language
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Discussion forum about PANORAMIC language

Mac, Windows & Android application development with PANORAMIC language
 
HomeHome  SearchSearch  Latest imagesLatest images  RegisterRegister  Log in  
Latest topics
» What happened with the panoramic language ?
by Wed Jan 03, 2024 4:09 pm

» Hello world.
by Wed May 09, 2018 11:53 pm

» Biomorphes de PICKOVER
by Sun Jun 18, 2017 2:33 am

» In less than 10 lines of code
by Fri Jun 16, 2017 5:03 am

» Effect Dopler
by Fri Jun 16, 2017 3:29 am

» SuperEllipse
by Wed Jun 14, 2017 4:01 am

» Plants
by Wed Jun 14, 2017 3:38 am

» Mira's attractor
by Wed Jun 14, 2017 3:30 am

» Triangle of Sierpinski
by Wed Jun 14, 2017 3:22 am

» Esthétique polaire
by Wed Jun 14, 2017 3:16 am

» Butterfly effect : Lorenz equations
by Wed Jun 14, 2017 3:08 am

» Collision detection
by Tue Jun 13, 2017 5:09 am

» The Bees Laline Paull Epub Books
by Mon Oct 10, 2016 8:58 pm

» PANORAMIC for Mac OSX 10 is available
by Tue Aug 09, 2016 6:08 pm

» ide
by Sat Jul 16, 2016 12:27 am

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search

 

 Electronic Post-it for your desktop

Go down 
3 posters
AuthorMessage
lodchjo




Number of posts : 10
Registration date : 2012-01-30

Electronic Post-it for your desktop Empty
PostSubject: Electronic Post-it for your desktop   Electronic Post-it for your desktop EmptyMon Jan 30, 2012 2:02 pm

Hello, everybody!

I posted this one in the French forum already, but since the English forum is so quiet and since the more codes are available, the more users will take advantage of Panoramic, i decided to post it here as well.

The program makes a virtual post-it on your desktop, with 5 tabs for 5 pages.
All pages are automatically saved on exit. As you'll see in the source-code, the location of the pages will be c:/ and the files are simply called "1", "2", "3", "4" and "5".

I use this all the time, so i hope some of you can benefit from it too!

Code:

label clck, stp, chng, mnm
dim x, xpos, ypos, lbl
caption 0,"Post-it"
border_hide 0
width 0,220
height 0,220
COLOR 0, 255,255,0
on_click 0, clck
left 0,screen_x-225
2D_PEN_COLOR 100,100,100
2D_FILL_COLOR 200,200,0
alpha 6
caption 6, "X"
font_bold 6
font_size 6,12
COLOR 6,255,255,0
top 6,0
left 6,203
on_click 6, stp
alpha 7
caption 7, "_"
font_bold 7
font_size 7,12
COLOR 7,255,255,0
top 7,0
left 7,185
on_click 7, mnm
for x = 1 to 5
 memo x
 top x,20
 left x,0
 width x,219
 height x,200
 COLOR x,255,255,0
 hide x
 if FILE_EXISTS("c:/"+str$(x))=1 then file_load x,"c:/"+str$(x)
next x
show 1
for x = 1 to 4
2D_RECTANGLE x*35, 1, x*35+35, 20
next x
2D_FILL_COLOR 255,255,0
2D_RECTANGLE 0, 1, 35, 20
end
clck:
 lbl=0
 xpos = mouse_x_position(0)
 ypos = mouse_y_position(0)
 caption 0, "x: "+ str$(xpos)+"y: "+ str$(ypos)
 if abs(20-xpos)<16 then lbl=1
 if abs(55-xpos)<16 then lbl=2
 if abs(90-xpos)<16 then lbl=3
 if abs(125-xpos)<16 then lbl=4
 if abs(160-xpos)<16 then lbl=5
 gosub chng
return
chng:
 2D_FILL_COLOR 200,200,0
 for x = 0 to 4
  2D_RECTANGLE x*35, 1, x*35+35, 20
 hide (x+1)
 next x
 2D_FILL_COLOR 255,255,0
 2D_RECTANGLE (lbl-1)*35, 1, lbl*35, 20
 show lbl
return
mnm:
TO_BACKGROUND 0
return
stp:
 for x = 1 to 5
 file_save x,"c:/"+str$(x)
 next x
terminate
Back to top Go down
Severin




Number of posts : 19
Localisation : Germany/Braunschweig
Registration date : 2010-12-13

Electronic Post-it for your desktop Empty
PostSubject: Re: Electronic Post-it for your desktop   Electronic Post-it for your desktop EmptySat Mar 30, 2013 3:05 pm

****************************************
PANORAMIC V 0.9.24 ist verfügbar
PANORAMIC V 0.9.24 is available
PANORAMIC V 0.9.24 est disponible
PANORAMIC V 0.9.24 es disponible

Das Forum Panoramic ist wieder aktiv.
Bitte besucht uns.

The forum Panoramic is active again.

Please, visits us.

Le forum Panoramic est actif de nouveau.

S'il vous plaît, nous visite.

El foro Panoramic es de nuevo activo.

Por favor, nos visita.
********************************************
Back to top Go down
ygeronimi

ygeronimi


Number of posts : 14
Age : 52
Localisation : France
Registration date : 2013-03-13

Electronic Post-it for your desktop Empty
PostSubject: re   Electronic Post-it for your desktop EmptySat Mar 30, 2013 9:34 pm

Happy to read you !

Back to top Go down
Sponsored content





Electronic Post-it for your desktop Empty
PostSubject: Re: Electronic Post-it for your desktop   Electronic Post-it for your desktop Empty

Back to top Go down
 
Electronic Post-it for your desktop
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Discussion forum about PANORAMIC language :: Panoramic for Windows :: Source code (snippets)-
Jump to: