请教一个简单的WinApi用法(100分)

water · 1999-12-11

我写的一个控件中在Paint事件里有如下语句： ExtTextOut(aCanvas.Handle, tLeft, tTop, ETO_OPAQUE, @aRect, @aText[1],Length(aText), nil); 但发现用ExtTextOut画上去字体无论我设成什么颜色，它都画成黑色，请问 我该如何能画出自已想要的颜色呢？当然前提是仍然使用ExtTextOut函数， 请指教！

www · 1999-12-11

acanvas.font.color:=clred;

www · 1999-12-11

与api无关的，你只要设置canvas的font的颜色就行了。

www · 1999-12-11

另外你的用法不对。 ExtTextOut(aCanvas.Handle, tLeft, tTop, ETO_OPAQUE, @aRect, @aText[1],Length(aText), nil); aText是什么类型的？？ 如果 var aText:string; ExtTextOut(aCanvas.Handle, tLeft, tTop, ETO_OPAQUE, @aRect, pchar(aText[1]),Length(aText), nil);

邹光先 · 1999-12-11

不是吧？ 如果你用windows中的textout函数，是要先创建font对象才能改变颜色的。就如我前面的问题---怎么用canvas.pen来代替在使用anglearc前要创建的pen一样。应该有个什么关联方法才能通过canvas.font来改变的。

menxin · 1999-12-11

acanvas.Font.Color:=clred; ExtTextOut(aCanvas.Handle, tLeft, tTop, ETO_OPAQUE, @aRect, @aText[1],Length(aText), nil);

water · 1999-12-11

(苦笑），WWW老兄，我还不至于如此弱智，若是设aCanvas.Font.Color可以我也 不会来问了。你还是先去研究一下Win32SDK吧。

www · 1999-12-11

to water:   不信你可以试一下: procedure TForm1.Button1Click(Sender: TObject); var arect:trect;     atext:string; begin   arect:=rect(100,40,150,150);   atext:='asdfasdf';   canvas.font.color:=clred;  ExtTextOut(canvas.Handle, 101, 41, ETO_OPAQUE, @aRect, pchar(aText),Length(aText), nil); end;

邹光先 · 1999-12-11

哪顺便问一下，为什么这句就画不出来？   windows.AngleArc(canvas.Handle,100,100,100,45,45);

Crane · 1999-12-11

我在VC下是用CDC类中的settextcolor; 在Delphi中也有相应的SDK; COLORREF SetTextColor(     HDC hdc, // 设备上下文的指针     COLORREF crColor // 颜色   ); 例子： 蓝低红字： settextcolor(cancas.Handle,RGB(255，0，0））； SetBkColor(cancas.Handle,RGB(0,0,255)); ExtTextOut(....... 试试看！

Jams · 1999-12-11

>>

ZRY · 1999-12-11

天外客 · 1999-12-11

amo · 1999-12-11

呵呵，     大家可别只记得用VCL而忘了API的使用了。     ExtTextOut是条API，    其中ETO_OPAQUE参数表示：     The current background color should be used to fill the rectangle. 如Crane所说, 可用settextcolor和SetBkColor改变颜色。

menxin · 1999-12-12

呵呵，settextcolor不行吧。设置canvas.font.color可以啊，试一下，难到你们没看到红色吗？

Liu JZX · 1999-12-13

settextcolor与canvas.font.color都可以实现,只不过参数应注意，请看如下程序 procedure TForm1.Button1Click(Sender: TObject); var   DC:HDC;   rc:TRect;   s

Char; begin   s:='Liifdgkfj';   rc:=Rect(10,10,100,100);   DC:=GetDC(handle);   SetTextColor(DC,clRed);   ExtTextOut(DC, 10, 10, ETO_OPAQUE, @rc, s,Length(s), nil);   ReleaseDC(handle,DC);   rc:=Rect(200,200,300,300);   canvas.Font.Color:=clred;   ExtTextOut(Canvas.Handle, 200, 200, ETO_OPAQUE, @rc, s,Length(s), nil); end;

water · 1999-12-13

多人接受答案了。

请教一个简单的WinApi用法(100分)

water

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

邹光先

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

water

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

邹光先

Unregistered / Unconfirmed

Crane

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

ZRY

Unregistered / Unconfirmed

天外客

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

Liu JZX

Unregistered / Unconfirmed

water

Unregistered / Unconfirmed

Similar threads