请问在delphi中是否可以将字体或窗口翻转（就是镜子中看到的那种）(200分)

老莫 · 1999-07-04

小弟需要在delphi中实现反转窗口中一段文本的功能，苦无良策，希望各位专 家能够指教。是否能够通过调用win32 API使窗口或字体翻转，如果有别的方法 也可以。

tqz · 1999-07-04

使用位图操作吧。

老莫 · 1999-07-04

多谢tqz指教，但小弟的这段文本是需要从文件中读取刷新的，文件比较大，需要滚屏 操作，用位图可能不行。

lwlnic · 1999-07-04

请你看看VC的在线帮助：LOGFONG结构：里面有一个LONG lfEscapement的属性： lfEscapement   Specifies the angle, in tenths of degrees, of each line of text written in the font (relative to the bottom of the page). 创建字体是设计这些性质，我想就可以了。

LSS · 1999-07-04

<pre> 使用LMD控件组中的LMDLabelFill控件，可设置FontFx.Angle属性，设 置label的旋转角度属性，设置为180，即可出来您所要求的效果， LMD3.5,LMD4.0都有这个控件，在许多控件组的LABEL控件都有类似 功能。 </pre>

zx · 1999-07-04

翻转不是旋转！ 我看你是要打印胶片之类的，只能对pixel操作了！ 你可以先把文本读出来生成bmp然后随时对显示的 部分的相素移位.

LSS · 1999-07-04

sorry!理解错了

柳五公子 · 1999-07-04

我不太清楚你最终想得到什么结果，如果是想得到图象，那肯定要使用位图操作； 基本方法就是ZX的方法。

barton · 1999-07-05

举个翻转TLabel的例子,其实TMemo也一样,只是对TWincontrol而言,涉及光标 的计算,要复杂一些.其实我的例子可适合一切基于TGraphicControl的控件, 即使有滚动区哉也不要紧,难道你还要求看不见的部分也翻转? unit RevLabels; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TRevLabel = class(TLabel)   protected     procedure Paint; override;   end; procedure Register; implementation procedure Register; begin   RegisterComponents('Samples', [TRevLabel]); end; procedure TRevLabel.Paint; var   I, J: Integer;   AColor: TColor; begin   inherited Paint;   with Canvas do     for I := 0 to (ClientRect.Right - ClientRect.Left - 1) div 2 do       for J := ClientRect.Top to ClientRect.Bottom do       begin         AColor := Pixels[ClientRect.Left + I, J];         Pixels[ClientRect.Left + I, J] := Pixels[ClientRect.Right - I - 1, J];         Pixels[ClientRect.Right - I - 1, J] := AColor;       end; end; end.

taoqg · 1999-07-05

用vga的dac和直接改写vram可也！

老莫 · 1999-07-06

多谢各位前辈指教 barton提供的方法我试了一下，刷新速度较慢，另外我用的memo部件也不支持 canvas属性。其实，小弟做的这个东西是需要使用者对其进行滚屏操作的，对平 滑性有较高的要求。 lss的想法我以前也试过，但做出的效果是平面旋转180度。 如果能够创建一种翻转的字体就好了，或者索性把字库翻转，或者对窗口操作，将 窗口中所有的内容都翻转。

tqz · 1999-07-06

还是建议你用位图操作，这样编程比较方便，而且速度快些。 取得Memo.Handle，然后bitblt到一个内存位图上，然后翻转（建议用Scanline 比较快，但是要注意不同格式的位图Scanline也不一样),然后显示到Form的Canvas 上。

Another_eYes · 1999-07-06

格式不是问题, 只要指定bitmap的pixelformat即可(bitblt之后设置, 不然可能会出现奇怪的图象, 我的经验)

menxin · 1999-07-07

我也建议你研究一下truetype，这应该是最便捷的方法了。

老莫 · 1999-07-07

tqz兄能不能讲得详细一点，小弟对你讲的内容不太熟悉。

tqz · 1999-07-07

我给个小例子吧。老实说跟barton的可能差不多，不过用DoubleBuffer和Scanline 以提高性能。等我吃完饭回来再写...

cHengyAng · 1999-07-07

直接获取屏幕，截取你要的部分再处理,这样就无所谓什么控件没有canvas了 关于截屏的procedure已经很多，我就不贴出来了 另外如果翻转是固定沿着某方向，可以以行（列）为单位处理:推荐 bitblt 同时以DoubleBuffer处理速度是相当快的

tqz · 1999-07-07

sorry,今晚还耽误了些时间，下面稍微改了一些Barton的code: procedure TRevLabel.Paint; var  I, J: Integer;  AColor: TColor; Temp:array[1..3] of Byte; begin   inherited Paint;   if MemBitmap.Width<>Width then     MemBitmap.Width:=Width;   if MemBitmap.Height<>Height then     MemBitmap.Height:=Height;   MemBitmap.Canvas.CopyRect(ClientRect,Canvas,ClientRect);   for i:=0 to MemBitmap.Height-1 do     for j := 0 to (MemBitmap.Width - 1) div 2 do     begin       Move(PByteArray(MemBitmap.ScanLine)[j*3],Temp[1],3);       Move(PByteArray(MemBitmap.ScanLine)[(Width-j-1)*3],PByteArray(MemBitmap.ScanLine)[j*3],3);       Move(Temp[1],PByteArray(MemBitmap.ScanLine)[(Width-j-1)*3],3);     end;   Canvas.CopyRect(ClientRect,MemBitmap.Canvas,ClientRect); end; 比它的显示快一些。问题还是要闪烁，因为老的Paint已经画到Screen上了 TCustomLabel的Code中在DoDrawText里面是直接画到屏幕的，要改就得继承 DoDrawText,问题是继承后引起很多相关问题...如果对目前效果还满意的话 就凑合用吧。

Another_eYes · 1999-07-08

基本照抄 tqz, 不过没闪烁: procedure TRevLabel.Paint; var  I, J: Integer;  AColor: TColor; Temp:array[1..3] of Byte; begin   if csPaintCopy in Controlstate then   begin     inherited Paint;     exit;   end   else begin     if MemBitmap.Width<>Width then       MemBitmap.Width:=Width;     if MemBitmap.Height<>Height then       MemBitmap.Height:=Height;     Self.PaintTo(membitmap.Canvas.Handle, 0, 0);     for i:=0 to MemBitmap.Height-1 do       for j := 0 to (MemBitmap.Width - 1) div 2 do       begin         Move(PByteArray(MemBitmap.ScanLine)[j*3],Temp[1],3);         Move(PByteArray(MemBitmap.ScanLine)[(Width-j-1)*3],PByteArray(MemBi  tmap.ScanLine)[j*3],3);         Move(Temp[1],PByteArray(MemBitmap.ScanLine)[(Width-j-1)*3],3);       end;     Canvas.CopyRect(ClientRect,MemBitmap.Canvas,ClientRect);   end; end;

tqz · 1999-07-08

另一只眼兄，你的方法恐怕不行，因为paintTo是TWinControl的方法，而TLabel 继 承自TGraphicControl.如果从 TStaticText继承就可以了。 另外，在TCustomLabel.AdjustBounds中，有：     DC := GetDC(0);     Canvas.Handle := DC;     DoDrawText(Rect, (DT_EXPANDTABS or DT_CALCRECT) or WordWraps[FWordWrap]);     Canvas.Handle := 0;     ReleaseDC(0, DC); 直接在屏幕的DC上写，所以可以继承DoDrawText，或者彻底修改AdjustBounds， 否则无法避免闪烁。

请问在delphi中是否可以将字体或窗口翻转（就是镜子中看到的那种）(200分)

老莫

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

老莫

Unregistered / Unconfirmed

lwlnic

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

zx

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

柳五公子

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

taoqg

Unregistered / Unconfirmed

老莫

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

老莫

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

cHengyAng

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

tqz

Unregistered / Unconfirmed

Similar threads