Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Flash Pascal Discussion :

PascalEditor version 12.05.20


Sujet :

Flash Pascal

  1. #1
    Expert éminent sénior
    PascalEditor version 12.05.20
    Voici une nouvelle version du compilateur

    j'ai ajouté une unité Flash8 pas mal modifiée en tenant compte des nouvelles possibilités du compilateur:

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
      property []: TObject; // propriété sans nom, notamment pour TArray
     
      property onPress: procedure of object; // déclaration d'un évènement sans passer par un type
     
     
      function escape(expression: string): string external; // fonction externe globale (external sans paramètre)


    et un projet Textes.pas qui montre quelques effets sympa sur les TextFields


    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  2. #2
    Membre expérimenté
    C'est la fête , je regarde ça tout de suite...



    @+

  3. #3
    Membre expérimenté
    Bravo magnifique

  4. #4
    Rédacteur/Modérateur

    setTextFormat()
    Bonjour !

    J'ai commencé à regarder la nouvelle version de l'unité Flash8. Impressionnant !

    J'ai travaillé sur la nouvelle forme de la fonction setTextFormat() pour pouvoir mettre à jour mes exemples.

    Le double système de guillemets est d'une grande commodité.

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    program Exemple;
     
    // Trois usages de la fonction Length()
     
    uses Flash8;
     
    {$FRAME_WIDTH 300}
    {$FRAME_HEIGHT 200}
    {$BACKGROUND $ffffff}
     
    var
      f:TextFormat;
      t:TextField;
      a:array of string;
     
    begin
      f:=TextFormat.Create('Tahoma',14);
      f.bold:=True;
      t:=TextField.Create(nil,'t',0,10,10,280,180);
     
      // 1er usage: Length(string)
      t.text:=
      'Le mot ''exemple'' a '+
      IntToStr(Length('exemple'))+
      ' lettres.'+#13+#13;
     
      // 2e usage: Length(array of string)
      a:=['lundi','mardi','mercredi'];
      t.text:=
      t.text+
      'L''ensemble suivant a '+
      IntToStr(Length(a))+
      " éléments:"+#13+
      a[0]+', '+
      a[1]+', '+
      a[2]+
      #13+#13;
     
      // 3e usage: Length(TextField.text)
      t.setTextFormat(0, Length(t.text), f);
    end.

###raw>template_hook.ano_emploi###