Windows GDI의 Delphi TextRect

Question

GDI에 Delphi TextRect의 아날로그가 있습니까? 나는 DrawText, DrawTextEx을 보았지만 내가 필요한 것을 찾지 못했습니다. 진행률 막대의 텍스트를 두 가지 색상 부분으로 나누어 표시해야합니다 (예 : 텍스트의 왼쪽 부분이 검은 색이고 오른쪽이 흰색입니다. 그래서 일반적으로 모든 진행률 표시 줄에. 귀하의 답변

감사합니다!

Answer 1

ExtTextOut 기능을 찾고 있습니다.

샘플 :

procedure TForm4.FormPaint(Sender: TObject); 
const 
    S = 'This is a sample text'; 
begin 
    ExtTextOut(Canvas.Handle, 10, 10, ETO_CLIPPED, 
    Rect(40, 10, 100, 100), PChar(S), length(S), nil)  
end; 

하지만 당신이 정말로 무엇을 원하는, 'NOT-coloured text'을 그릴 수 있다고 생각 :

procedure DrawTextNOT(const hDC: HDC; const Font: TFont; const Text: string; const X, Y: integer); 
begin 
    with TBitmap.Create do 
    try 
     Canvas.Font.Assign(Font); 
     with Canvas.TextExtent(Text) do 
     SetSize(cx, cy); 
     Canvas.Brush.Color := clBlack; 
     Canvas.FillRect(Rect(0, 0, Width, Height)); 
     Canvas.Font.Color := clWhite; 
     Canvas.TextOut(0, 0, Text); 
     BitBlt(hDC, X, Y, Width, Height, Canvas.Handle, 0, 0, SRCINVERT); 
    finally 
     Free; 
    end; 
end; 

procedure TForm4.FormPaint(Sender: TObject); 
const 
    S = 'This is a sample text'; 
var 
    ext: TSize; 
begin 
    Canvas.Brush.Color := clBlack; 
    Canvas.FillRect(Rect(0, 0, Width div 2, Height)); 
    Canvas.Brush.Color := clWhite; 
    Canvas.FillRect(Rect(Width div 2, 0, Width, Height)); 
    ext := Canvas.TextExtent(S); 

    DrawTextNOT(Canvas.Handle, Canvas.Font, S, (Width - ext.cx) div 2, 
    (Height - ext.cy) div 2); 
end; 

Screenshot http://privat.rejbrand.se/nottext.png