Hi guys,

It's possible in Lazarus?:

http://www.fliptext.org/

<http://www.fliptext.org/>(canvas? :s special font? :o )

font.orientation := 180;
canvas.Textout...

silvioprog wrote

It's possible in Lazarus?: http://www.fliptext.org/

Of course. You need only two TMemo and a unicode font.

Michael

silvioprog wrote

It's possible in Lazarus?: http://www.fliptext.org/

How is that done? I can copy the flipped text to a normal editor (like Lazarus editor or KMail's editor) and it still shows flipped. Changing the fon't doesn't turn it.

u?u?uu?? ??n?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101020/011f7593/attachment.html>

It does one of two things:
A. Reverse the text (I tested it on Hebrew).
B. Uses a map of other unicode chars that looks like latin but are not.

On April 1th the Linux Kernel website did the same thing.

Ido

2010/10/20 Juha Manninen (gmail)

LINESIP websites:
http://www.linesip.com
http://www.linesip.co.il
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101020/c264594f/attachment.html>

It is "faking" it :)
You can use "s" as flipped "s", use "x" as flipped "x" and you can use "d" as flipped "q" (and vice versa), "u" <-> "n"...

Regards
?ilvinas Ledas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101020/221c8e20/attachment.html>

?ilvinas Ledas wrote

"d" as flipped "q"

That should be "d" as flipped "p" ...

Cool.
Only this one char looks different:
?
It also behaves differently, cursor moving right to left.

Juha

I wrote there in Arabic (Hello):
?????
and it reversed it to
?????

It seems tough that the letters are the same, you see the Mem, Ra, Het, ba and Alef the same, at least here (My Arabic skill are not that good though, I haven't used it for a lot of reading since high school almost 15 years ago).

Ido

On Wed, Oct 20, 2010 at 14:35, Juha Manninen (gmail) <

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101020/9bb24692/attachment.html>

2010/10/20 Martin

It works, but not allows to use Copy/Paste. :/

2010/10/20 Michael Fuchs

Do you know any? (GPL)

Thanks. ;)

2010/10/20 ?ilvinas Ledas

Hmm... and this:

'?', '?', '?', '?' ??? :S

I think it is made by a special font.

Ant?nio

2010/10/20 silvioprog :

You could not paste it on an app of your computer.

Ant?nio

2010/10/20 Ant?nio :

2010/10/20 Ant?nio

I think it is made by a special font. Ant?nio

In my OS there are only 184 fonts, and not have seen these characters in them. :o

Because that font is not installed on your system.

Ant?nio

Standard unicode characters:
? - $01DD (in latin extended-b subset)
? - $0250 (IPA extensions subset)
? - $026F (IPA extensions subset)
...
Most of the unicode fonts have these (eg. Arial (unicode), Times new roman ... in Windows)

Regards
?ilvinas Ledas

2010/10/20 ?ilvinas Ledas

http://davidwalsh.name/flip-text

:o

2010/10/20 ?ilvinas Ledas

How to convert from $01DD to ?? (e.g. 'AnyFPCFunction'($01DD); returns ?)

Thanks ;)

If you're using Lazarus you can do

Canvas.TextOut(x, y, Utf8Encode(#$01dd));

When you're using Linux and you want to print on a utf8 stdout you can use

Writeln(Utf8Encode(#$01dd));

Utf8Encode(WideString) converts an UTF-16 (fixed character length) string to an UTF-8 (dynamic character length) string (Utf8Decode is the reverse).

Regards,
Sven

2010/10/20 ik

That is mean you already installed Arabic language in your system :)

fliptext.org can not found our local language, and it is fake, just for fun.

2010/10/20 Sven Barth

Fail: :(

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Utf8Encode(#$01dd);
end;

Error:

----
unit1.pas(35,14) Error: Can't determine which overloaded function to call

And:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Utf8Encode(chr($01dd));
end;

Return ?, and not ? (u01DD = ?: http://www.wilsonmar.com/1unicode.htm) :(

You can do something like:

showmessage(UTF8Encode(''+#$01dd));

or you can add WideChar() (I'm used to add it to ease code reading in the future):
showmessage(UTF8Encode(''+WideChar(#$01dd)));

Regards
?ilvinas Ledas

2010/10/20 Zaher Dirkey

In Linux I can see most languages, even Chinese, but my keyboard layout is only English and Hebrew, I just copied the chars from wikipedia :)

Ido

LINESIP websites:
http://www.linesip.com
http://www.linesip.co.il
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20101021/bb249eb9/attachment.html>

Op 2010-10-20 18:59, silvioprog het geskryf:

Do you know any? (GPL)

Bitstream Vera, DeJaVu etc...

Available for download from SourceForge.net, or comes standard with all Linux distros.

Regards,
- Graeme -

Let me guess... you're using Windows where UnicodeString WideString...

Try this:

Caption := Utf8Encode(UnicodeString(#$01dd));

Regards,
Sven

Hi guys, sorry for my delay...

I made this:

function FlipText(AText: string): string;
var
  I: Integer;
begin
  AText := LowerCase(AText);
  for I := 1 to Length(AText) do
  begin
    case AText[I] of
      'a': Result := '?' + Result;
      'b': Result := 'q' + Result;
      'c': Result := '?' + Result;
      'd': Result := 'p' + Result;
      'e': Result := '?' + Result;
      'f': Result := '?' + Result;
      'g': Result := 'b' + Result;
      'h': Result := '?' + Result;
      'i': Result := '?' + Result;
      'j': Result := '?' + Result;
      'k': Result := '?' + Result;
      'l': Result := '?' + Result;
      'm': Result := '?' + Result;
      'n': Result := 'u' + Result;
      'p': Result := 'd' + Result;
      'q': Result := 'b' + Result;
      'r': Result := '?' + Result;
      't': Result := '?' + Result;
      'u': Result := 'n' + Result;
      'v': Result := '?' + Result;
      'w': Result := '?' + Result;
      'y': Result := '?' + Result;
      '.': Result := '?' + Result;
      ',': Result := '''' + Result;
      '''': Result := ',' + Result;
      '"': Result := ',,' + Result;
      ';': Result := '?' + Result;
      '!': Result := '?' + Result;
      #161: Result := '!' + Result;
      '?': Result := '?' + Result;
      #191: Result := '?' + Result;
      '[': Result := ']' + Result;
      ']': Result := '[' + Result;
      '(': Result := ')' + Result;
      ')': Result := '(' + Result;
      '{': Result := '}' + Result;
      '}': Result := '{' + Result;
      '<': Result := '>' + Result;
      '>': Result := '<' + Result;
      '_': Result := '?' + Result;
    else
      Result := AText[I] + Result;
    end;
  end;
end;

Is not the 'best funtion', but it's something. ^^