lodchjo
Number of posts : 10 Registration date : 2012-01-30
| Subject: 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
| |
|
Severin
Number of posts : 19 Localisation : Germany/Braunschweig Registration date : 2010-12-13
| Subject: 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. ******************************************** | |
|
ygeronimi
Number of posts : 14 Age : 52 Localisation : France Registration date : 2013-03-13
| Subject: re Sat Mar 30, 2013 9:34 pm | |
| | |
|
Sponsored content
| Subject: Re: Electronic Post-it for your desktop | |
| |
|