Зеркальное отображение

[K.I.T.]

Кто-нибудь знает, как сделать так, чтобы текст в Label`е (или TextBox`е) отображался зеркально?
Заранее спасибо.

[Var-Alex]

Только рисовать в ручную.

[Fenik]

Код:

function InvertS(const s: string): string;
var I, L: Integer;
begin
  L := Length(s);
  SetLength(Result, L);
  for i := 0 to L do 
    Result[i] := s[L-i];
end;

Label1.Caption := InvertS(Label1.Caption);

Так что ли? )

[K.I.T.]

Fenik, этот код преобразует строку "Fenik" -> "kineF".
Нужно именно зеркальное отображение (буквы тоже развёрнуты).

[x77]

штатными средствами дельфей это вряд ли удасться. но можно сделать так (на форме лежат Edit1, Button1 и Image1 с AutoSize = TRUE):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp, bmp2: TBitmap;
  Col, Row: integer;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Edit1.Width;
    bmp.Height := Edit1.Height;
    bmp.Canvas.Font := Edit1.Font;
    bmp.Canvas.TextOut(0, 0, Edit1.Text);
    bmp2 := TBitmap.Create;
    try
      bmp2.Width := bmp.Width;
      bmp2.Height := bmp.Height;
      for Col := 0 to bmp.Width - 1 do
        for Row := 0 to bmp.Height - 1 do
          bmp2.Canvas.Pixels [Col, Row] := bmp.Canvas.Pixels [bmp.Width - Col - 1, Row];
      Image1.Picture.Bitmap.Assign (bmp2);
    finally
      bmp2.Free;
    end;
  finally
    bmp.Free;
  end;
end;

[Kivals]

Путь для правильного (ИМХО) варианта:
1. зарегитрировать в системе новый виртуальный шрифт
2. нарисовать его зеркальным
3. использовать его для метки

посмотреть, как работать с подобными вещами можно в любой компоненте, которая умеет (например) поворачивать текст на определенный заднный угол.
Точно помню, что это было описано в книге Рея Конопки "Создание собственных компонет в среде Дельфи" (тогда еще Дельфи 1)
Скорее всего в компонентах RxLib это тоже используется

[x77]

Kivals, не совсем понял. как предполагается "рисовать его зеркальным"? компоненты типа RxLib'овских просто получают дескриптор фонта через функцию CreateFont, в которой можно задать угол вывода, но зеркальным шрифт от этого не станет - как не переворачивай, например, букву "F", хоть верх ногами, она просто останется буквой "F". только перевёрнутой

[Kivals]

x77
Чесно говоря - не знаю. Предполагал, что есть кроме угла поворота еще и флаг отражения