请问如何实现将字反过来显示????

解决方案 »

  1.   

    不知道你要地是那种效果?
    如果是将字符倒过来用logfont
      

  2.   

    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    Var
        LogFont:TLogFont;
        theFont:TFont;
    begin
        with Form1.Canvas do
        begin
            Font.Name:='宋体';
            Font.Size:=27;
            Font.Color:=clblack;
            theFont:=TFont.Create;
            theFont.Assign(Font);
            GetObject(theFont.Handle,sizeof(LogFont),@LogFont);
            LogFont.lfEscapement:=400;        LogFont.lfOrientation:=0;
            theFont.Handle:=CreateFontIndirect(LogFont);        Font.Assign(theFont);
            theFont.Free;        TextOut(X,Y,'小汽车管理系统');    end;
    end;将       LogFont.lfEscapement:=400;改成你要的角度就可以了(3600)总角度
      

  3.   

    调用API-----textout,将坐标反转