Discussion forum about PANORAMIC language

Mac, Windows & Android application development with PANORAMIC language
 
HomeFAQSearchRegisterMemberlistUsergroupsLog in
Latest topics
» Hello world.
by Mon Jun 19, 2017 1:37 am

» 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

» Can I change the program icon/logo in my application ?
by Thu Jul 07, 2016 3:32 am

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search

Share | 
 

 Electronic Post-it for your desktop

View previous topic View next topic Go down 
AuthorMessage
lodchjo



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

PostSubject: Electronic Post-it for your desktop   Mon 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
View user profile
Severin



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

PostSubject: Re: Electronic Post-it for your desktop   Sat 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
View user profile
ygeronimi

avatar

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

PostSubject: re   Sat Mar 30, 2013 9:34 pm

Happy to read you !

Back to top Go down
View user profile
Sponsored content




PostSubject: Re: Electronic Post-it for your desktop   

Back to top Go down
 
Electronic Post-it for your desktop
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Desktop/Wallpaper thread
» [ANSWERED] Programs did not appear under "Programs and Features" after winreducer post installation
» [ANSWERED] Integrating win7 x64 post sp1 updates + ie11 problem
» [phpbb3] Like system that shows who liked a post
» [Tips] Cookie chuy?n giao di?n mobile sang desktop

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: