Aller au contenu

FJA

Membres
  • Compteur de contenus

    565
  • Inscription

  • Dernière visite

Tout ce qui a été posté par FJA

  1. Salut, Dans ce cas il faut faire une "double" vérification : on test si Images(x) est égale
  2. Salut, C'est pas logique car je test avant de faire appel
  3. Salut, Mes classes REALbasic => SuperBouton Tu ajoute un nouveau canvas, tu change le super pour mettre SuperBouton Dans Open tu met le code Me.MakeBouton(Image1, Image2, Image3) Voici la le détaille de la méthode : MakeBouton(Devant As Picture, Masque As Picture=Nil, Pression As Picture=Nil) Devant c'est l'image du bouton (sans le masque) Masque c'est le masque de l'image (la couche alpha/transparence) Pression c'est une image noir et blanc qui défini la zone de pression (Noir = on peut appuyer / Blanc = aucun effet quand on appuie) Masque et Pression ne sont pas obligatoire Si tu veux mettre Pression sans mettre de masque tu faire Me.MakeBouton(Image1, Nil, Image2) Ma classe gère Enabled et Activate J'espère que c'est ce que tu cherchais @Toute
  4. Salut, RowPicture (il me semble) ne redimentionne il met juste l'image dans la cellule. C'est
  5. FJA

    iFreete 3

    Salut, J'ai hâte de voir cette version 3 a l'
  6. Salut, [PUB]Ma classe de traduction sait géré ca, elle calcule la longueur du texte selon les langues C'est l
  7. FJA

    Bêta test

    Salut, tu t'enfonce de plus en plus l
  8. Salut, Il me semble avoir lu sur Macfr qu'avant ils étaient compté dans la compilation et que maintenant (enfin
  9. Salut, C'est pas grave si c'est en retard
  10. FJA

    Dockainer

    Salut, Dockainer est dans
  11. Salut, Moi je ferai avec un RegEx: Function InText(Quoi As String, Dans As String, Options As Integer=0) As Boolean Dim RE As New RegEx Dim Match As RegExMatch If Options=0 Then//Contient Quoi RE.SearchPattern=Quoi ElseIf Options=1 Then//Commence par Quoi RE.SearchPattern="^"+Quoi ElseIf Options=2 Then//Fini par Quoi RE.SearchPattern=Quoi+"$" End Match=RE.Search(Dans) Return(Match<>Nil) End FunctionJ'ai pas testé, ni vérifier la syntax Pour l'utilisé c'est comme ca : Dim Tour As Integer Dim OK(2) As Boolean For Tour=0 To MaListBox.ListCount-1 OK(0)=InText(MonEditField.Text, MaListBox.Cell(Tour,0)) OK(1)=InText(MonEditField.Text, MaListBox.Cell(Tour,1)) OK(2)=InText(MonEditField.Text, MaListBox.Cell(Tour,2)) If OK(0) Or OK(1) Or OK(2) Then MaListBox.ListIndex=Tour End Next @Toute
  12. Salut, L'événement Move de la fenêtre ne permet pas de contourner le problème? Sinon je pense que mettre Return True dans MouseDown et d'utiliser MouseDrag devrait marcher @Toute
  13. Salut, Il faut que tu créé un élément de référence dans ton menu (tu lui met aussi un index) et ensuite dans le code tu tu ne fait pas New MenuItem mais New MonItemAMoi et ensuite tu créé un Menu Handle pour cette item sinon tu ne pourra pas leur associer un code. C'est comme pour les Controls. En faite le "Menu Handle" est comme l'évément Action d'un PushButton. donc si tu as pas "physiquement" un PushButton model c'est que de la déco @Toute
  14. Salut, Une solution, ou plutôt une bidouille, serai de mettre un canvas comme 1er contrôle, d'activer son focus et de le mettre en dehors de la fenêtre. Comme ça les flèches "modifieront" le canvas. Es-ce que les flèche agisse aussi comme tu le veux (changement du canvas sélectionné)? si non tu peux utiliser l'événement KeyDown du canvas au lieu d'utiliser celui de la fenêtre (je suppose que c'est celui l
  15. Salut, Sous Mac OS X aussi on peut controler tous les controls au clavier il suffi juste de l'activer (ctrl-F1 pour activer le control au clavier, ctrl-F7 pour activer le controle des objet des fenêtre, ctrl-F5 pouc activer le control des ToolBar) @Toute
  16. Salut, C'est toujours un fichier DMG que tu télécharge? Si oui il te suffi de modifier MacType et MacCreator de ton fichier une fois que tu as fini de le télécharger Le MacType pour les DMG c'est devi Le Code créateur de DiskImageMounter c'est ddsk @Toute
  17. Salut, Par exemple LanguageMaker (voir dans la section béta-test, je doit encore être sur la 1ère page… (faut que je pense a fini la v2.0 )) est tout en anglais au départ et est traduit au fur et a mesure en Francais Les textes peuveut contenir des variables, l'un des exemples d'utilisations (Voir les note de la classe) c'est : Localizable.strings : "It's %@'s %@" = "C'est le %[email protected] de %[email protected]%"; RB Traduc=New Traduction(GetFolderItem("Localizable.strings")) MsgBox "En anglais"+EndOfLine+"It's Peter's car"+EndOfLine+EndOfLine+ _ "En Francais"+EndOfLine+Traduc.Traduire("It's %@'s %@", "Peter", "car") @Toute
  18. Salut, J'ai fait une classe qui permet d'utiliser les fichiers .strings de facon quasi automatique (Il y a juste une ligne de code
  19. Salut, Pour arriver a faire ca moi j'utilise l'opérateur IsA IsA permet de savoir si un objet appartient
  20. FJA

    Sudoku

    Salut, Cette dernière version marche impec sur mon iMac (Intel)
  21. FJA

    SyncIt

    Salut, J'ai quelque p'tit truc qui me gène : [*]Le bouton "GO" n'est pas fixer au bord droit [*]Le carré de redimentionnement ne sert a rien dans la "page" "Sync" (je te passerai l'appel ToolBox pour l'enlever) [*]Dans la "page" Historique ca serai mieux si il y avait pour le menu déroulant ca : Ouvrir l'historique du : [Menu déroulant] [bouton "Voir"] [*]Dans la page "Sauvegarde" ca serai bien si tu grisais les boutons lorqu'il ne peut pas être utiliser [*]Toujours dans "Sauvegarde" une fois qu'on a cliquer sur un bouton c'est fini
  22. Salut, - Met ton MoviePlayer sur tout la surface de ta fenêtre, coche les case LockLeft, LockRight, LockTop, LockBottom et décoche la case AutoResize. Maintenant la vidéo aurai la dimension de ton MoviePlayer. - Ensuite pour avoir le film en dimension proportionnelle il faut faire des mesures : MoviePlayer1.Movie.MovieHeight, MoviePlayer1.Movie.MovieWidth. Dim Ratio As Integer Ration = MoviePlayer1.Movie.MovieHeight/MoviePlayer1.Movie.MovieWidth //On met le movieplayer au dimension proportionnelle If Ratio < 1 Then//C'est la largeur le plus grand MoviePlayer.Height=Ratio*MoviePlayer.Width Else MoviePlayer.Width=MoviePlayer.Height/Ratio End //On centre le movieplayer MoviePlayer.Left=(Self.Width-MoviePlayer.Width)/2 MoviePlayer.Top=(Self.Height-MoviePlayer.Height)/2 -La propriété GrowIcon de la fenêtre n'est pas changeable (lecture seule) pendant l'exécution (les propriété en lecture seule apparaissent en gras dans l'aide en ligne (pomme-1) -C'est bizarre car normalement tu peut le changé quand tu veux
  23. Salut, Moi je te conseillerai de passer par l'événement MouseDrag (En l'ayant activer via Return True dans l'événement MouveDown) pour géré ton cas : MouseDrag sert
×
×
  • Créer...