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
|
program Exemple;
uses
Flash8;
{$FRAME_WIDTH 640}
{$FRAME_HEIGHT 300}
function UCase(s: string): string;
var
i: integer;
temp: string;
begin
temp := '';
for i := 1 to length(s) do
begin
if (Ord(s[i]) >= 97) and (Ord(s[i]) <= 122) then
temp := temp + Chr(Ord(s[i]) - 32) else
temp := temp + s[i];
end;
result := temp;
end;
const
alphabet = "abcdefghijklmnopqrstuvwxyz";
begin
with TextField.Create(nil, '', 1, 10, 10, 640 - 2 * 10, 300 - 2 * 10) do
begin
Text := alphabet + #10 + UCase(alphabet) + #10 +
alphabet + #10 + UCase(alphabet) + #10 +
alphabet + #10 + UCase(alphabet) + #10 ;
setTextFormat(0, 53, TextFormat.Create('Arial', 24));
setTextFormat(54, 107, TextFormat.Create('Times', 24));
setTextFormat(108, 161, TextFormat.Create('Courier', 24));
end;
Stage.scaleMode := 'noScale';
end. |
Partager