Mon cahier d'ecriture

' A UTILISE AVEC LES ICONS DU CAHIER D'ECRITURE


Dim DossierIcon$ :' repère du dossier d'images pour les icons
DossierIcon$="C:\Cahier ecriture\GFX\"

Label NouveauMove
Label OuvrirMove
Label EnregistrerMove
Label CentrerMove
Label DroiteMove
Label ImprimeMove
Label CouperMove
Label CopierMove
Label CollerMove
Label MousseMove

' Numero des icons
Dim NouveauMove%
Dim OuvrirMove%
Dim EnregistrerMove%
Dim CentrerMove%
Dim DroiteMove%
Dim ImprimeMove%
Dim CouperMove%
Dim CopierMove%
Dim CollerMove%

' Numero des icons aux survole de la souris
Dim MousseMoveOff%
Dim MousseMoveOn%

Panel 1
Width 1,Width_Client(0)
Height 1,45
Color 1,130,0,0

' Icon Panel
  Picture 50
    Width 50,25
    Height 50,25
    Parent 50,1
    Left 50,6
    Top 50,10
  Picture 51
    Width 51,25
    Height 51,25
    Parent 51,1
    Left 51,36
    Top 51,10
  Picture 52
    Width 52,25
    Height 52,25
    Parent 52,1
    Left 52,66
    Top 52,10
  Picture 53
    Width 53,25
    Height 53,25
    Parent 53,1
    Left 53,96
    Top 53,10
  Picture 54
    Width 54,25
    Height 54,25
    Parent 54,1
    Left 54,126
    Top 54,10
  Picture 55
    Width 55,25
    Height 55,25
    Parent 55,1
    Left 55,156
    Top 55,10
  Picture 56
    Width 56,25
    Height 56,25
    Parent 56,1
    Left 56,186
    Top 56,10
  Picture 57
    Width 57,25
    Height 57,25
    Parent 57,1
    Left 57,216
    Top 57,10
  Picture 58
    Width 58,25
    Height 58,25
    Parent 58,1
    Left 58,246
    Top 58,10

    file_load 50,DossierIcon$+"1 Nouveau.bmp"
    file_load 51,DossierIcon$+"2 Ouvrir.bmp"
    file_load 52,DossierIcon$+"3 Enregistrer.bmp"
    file_load 53,DossierIcon$+"4 Centrer.bmp"
    file_load 54,DossierIcon$+"5 Droite.bmp"
    file_load 55,DossierIcon$+"6 Imprime.bmp"
    file_load 56,DossierIcon$+"7 Couper.bmp"
    file_load 57,DossierIcon$+"8 Copier.bmp"
    file_load 58,DossierIcon$+"9 Coller.bmp"

' Assignation des labels aux icons   
    on_mouse_move 50,NouveauMove
    on_mouse_move 51,OuvrirMove
    on_mouse_move 52,EnregistrerMove
    on_mouse_move 53,CentrerMove
    on_mouse_move 54,DroiteMove
    on_mouse_move 55,ImprimeMove
    on_mouse_move 56,CouperMove
    on_mouse_move 57,CopierMove
    on_mouse_move 58,CollerMove
    on_mouse_move 1,MousseMove

Label Resize0
 On_Resize 0,Resize0

End
Resize0:
Width 1,Width_Client(0)
Return

' Assignation des labels
 NouveauMove:
  MousseMoveOn%=50
    file_load 50,DossierIcon$+"1 NouveauS.bmp"
 Return
 OuvrirMove:
  MousseMoveOn%=51
    file_load 51,DossierIcon$+"2 OuvrirS.bmp"
 Return
 EnregistrerMove:
  MousseMoveOn%=52
    file_load 52,DossierIcon$+"3 EnregistrerS.bmp"
 Return
 CentrerMove:
  MousseMoveOn%=53
    file_load 53,DossierIcon$+"4 CentrerS.bmp"
 Return
 DroiteMove:
  MousseMoveOn%=54
    file_load 54,DossierIcon$+"5 DroiteS.bmp"
 Return
 ImprimeMove:
  MousseMoveOn%=55
    file_load 55,DossierIcon$+"6 ImprimeS.bmp"
 Return
 CouperMove:
    MousseMoveOn%=56
    file_load 56,DossierIcon$+"7 CouperS.bmp"
 Return
 CopierMove:
  MousseMoveOn%=57
    file_load 57,DossierIcon$+"8 CopierS.bmp"
 Return
  CollerMove:
  MousseMoveOn%=58
  file_load 58,DossierIcon$+"9 CollerS.bmp"
 Return

' Dès que la souris sort de l'icon celui ci reprend
' l'apparence initiale
MousseMove:
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 50,DossierIcon$+"1 Nouveau.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 51,DossierIcon$+"2 Ouvrir.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 52,DossierIcon$+"3 Enregistrer.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 53,DossierIcon$+"4 Centrer.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 54,DossierIcon$+"5 Droite.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 55,DossierIcon$+"6 Imprime.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 56,DossierIcon$+"7 Couper.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 57,DossierIcon$+"8 Copier.bmp"
 If MousseMoveOff%<>MousseMoveOn%  Then file_load 58,DossierIcon$+"9 Coller.bmp"
    MousseMoveOff%=MousseMoveOn%
Return

dim longueurDeLigne%, ligneConcernee%, a$, longueurTexte%

synedit 1
font_name 1,"Courier New"

longueurDeLigne% = 50

item_add 1,""
item_add 1,"        Le chat botté. "
item_add 1,""
item_add 1,"Un Meunier ne laissa pour tous biens..."

pause 1000

ligneConcernee% = 2

a$ = item_read$(1,ligneConcernee%)

' suppression des espaces
a$ = trim$(a$)

' remttre des espaces en fin de ligne pour conserver si besoin la même longueur de ligne
longueurTexte% = len(a$)
a$ = a$ + string$(longueurDeLigne% - longueurTexte%," ")
item_delete 1,ligneConcernee%
item_insert 1,ligneConcernee%,a$

label redimmensionner

interfaceUtilisateur()

item_add 1,""
item_add 1,"Ceci est un MEMO avec une marge artificielle"
item_add 1,""
item_add 1,"Le corbeau et le Renard"
item_add 1,""
item_add 1,"Maître Corbeau, sur un arbre perché,tenait en son bec un fromage."

end

sub interfaceUtilisateur()
    width 0,400
    height 0,600
    color 0,0,200,0
    on_resize 0,redimmensionner
 
    memo 1
    top 1,20
    left 1,50
    height 1,height_client(0) - 40
    width 1,width_client(0) - 70
    font_size 1,12
 
    panel 2
    top 2,20
    left 2,20
    height 2,height_client(0) - 40
    width 2,32

    picture 3
    parent 3,2
    width 3,width(2)
    height 3,height(2)
    2d_target_is 3
    2d_pen_color 160,160,160
    2d_line 0,0,32,0
    2d_pen_color 105,105,105
    2d_line 0,1,32,1
end_sub

redimmensionner:
    inactive 0
    width 0,400
    height 0,600
    active 0
return