Petit programme

[Guimauve]

Ça c'est malin. Je ne savais pas que c'était possible de faire ça.

Pourquoi se casser la tête quand on peut faire autrement... Hein!!!

On se casse la tête pour apprendre comment ça marche la programmation informatique. Le but que je vise est de devenir un meilleur programmeur. Faire comme tu fais c'est bien, j'apprends quand même, mais j'aime pas vraiment réutiliser les programmes coder par les autres et plus particulièrement par Microstuff. Je préfaire les coder moi-même, ou réutiliser les sources des autres programmeurs qui donnent leur fichier source librement, dans ce cas, je peux les étudier pour apprendre. J'ai pas de prof pour apprendre PB, je suis à la fois le prof et l'étudiant. Et même si c'est du basic, c'est pas toujours évident pour moi.

La programmation est un passe temps pour moi qui suis célibataire. J'en profite pendant que j'ai encore du temps de libre. Ça ne deverait plus durer très longtemps encore.

Mais merci pour ton exemple.

A+
Guimauve

[Chris]

Mais merci pour ton exemple

Comme tu l'as dit, c'est un exemple.
Moi aussi, je préfère refaire à ma façon, des truc qui existent déjà.

C'est juste pour montrer qu'on peut aussi intervenir sur les objets déjà existants, et que dans certains cas, quand on a besoin d'un truc vite fait, on peut se débrouiller autrement.

Chris

PS : Et puis dis donc, c'est pas toi, qui a écrit ça:

À vrai dire je cherchais un petit programme pour prendre des notes lorsque je débogue un programme. Bloc Note est bien pour faire ce genre de chose, l'ennui c'est qu'il ne reste pas au dessus des autres programmes lorsque l'on clique à coté de sa fenètre.

Hein...!!

[Chris]

Voilà un autre source, avec la sauvegarde de la taille et de la position de la fenêtre.

J'ai mis ça dans les outils personnalisés, avec Alt+4 pour le faire démarrer, et ça fonctionne pile-poil, sauf que le pointeur de la souris m'affiche le sablier pendant quelques secondes quand je le met au dessus de la barre de titre. Mais bon, ça n'empêche pas le fonctionnement, alors...

Et maintenant, je passe à autre chose

Code : Tout sélectionner

Global Rect.RECT

If FindWindow_("Notepad",#NULL) = 0
  RunProgram("Notepad") : Delay(100)
  hNotepad = FindWindow_("Notepad",#NULL)
  
  If OpenPreferences("RunNotePad.cfg") = 0 ; Première utilisation
    CreatePreferences("RunNotePad.cfg")
    PreferenceGroup("Last_Use")
    WritePreferenceLong("Pos_X", 468)
    WritePreferenceLong("Pos_Y", 32)
    WritePreferenceLong("Width",300)
    WritePreferenceLong("Height",200)
    ClosePreferences()
    SetWindowPos_(hNotepad,#HWND_TOPMOST,468,32,300,200,#SWP_SHOWWINDOW)
  Else
    PreferenceGroup("Last_Use")
    Pos_X = ReadPreferenceLong("Pos_X",468)
    Pos_Y = ReadPreferenceLong("Pos_Y",32)
    Width = ReadPreferenceLong("Width",300)
    Height = ReadPreferenceLong("Height",200)
    SetWindowPos_(hNotepad,#HWND_TOPMOST,Pos_X,Pos_Y,Width,Height,#SWP_SHOWWINDOW)
    ClosePreferences()
  EndIf
  Delay(200)
EndIf

Repeat
  GetWindowRect_(hNotepad,@Rect)
  If FindWindow_("Notepad",#NULL) = 0
    CreatePreferences("RunNotePad.cfg")
    PreferenceGroup("Last_Use")
    WritePreferenceLong("Pos_X", Rect\left)
    WritePreferenceLong("Pos_Y", Rect\top)
    WritePreferenceLong("Width",Rect\right-Rect\left)
    WritePreferenceLong("Height",Rect\bottom-Rect\top)
    ClosePreferences()
    End
  EndIf
Until hNotepad = 0

Chris

[Guimauve]

Oui oui, sauf qu'avec ton code tu triche un peu. Tu lance notepad et tu informe windows de traiter le programme différamment. Mais si tu lance Notepad normalement c'est pas la même chose, la fenètre disparaît derrière les autres.

De plus, le seul problème qui me reste à résoudre c'est la fonction rechercher/remplacer. Tout le reste fonctionne nickel, je l'ai beta-testé une bonne partie de la journée.

Je vais mettre le source complet, sans la fonction rechercher/remplacer, ici durant la semaine prochaine.

A+
Guimauve