Discussion :

[Paul TOTH]

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


PascalEditor.zip

[Archimède]

C'est la fête , je regarde ça tout de suite...



@+

[Archimède]

Bravo magnifique

[Roland Chastain]

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.