PascalEditor version 12.05.20

Version imprimable

2 pièce(s) jointe(s)

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:

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
Pièce jointe 95343

Pièce jointe 95342

19/05/2012, 22h15
Archimède

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

:ccool:8O

@+
19/05/2012, 22h31
Archimède

Bravo magnifique :ccool: :ccool:

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:

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.