畫上自定義樣式（DELPHI）

我需要畫在畫布上的一些線路畫布上線，但是我需要使用自定義樣式，沒有非標準風格爲固體，點，...畫上自定義樣式（DELPHI）

比如我需要畫一條線作爲「__。__。_ 」或「。_。_。_。_」。我所有的線都是短劃線和點的組合，我還需要設置短劃線和短劃線，點寬。

我不想使用GDI +或其他外部庫...

有一個簡單的辦法做到這一點？

2012-12-09 Martin

ExtCreatePen功能允許創建用戶樣式筆（有一些限制）的[ – MBo

可能重複的是有可能改變的破折號的大小一條線？]（http://stackoverflow.com/questions/3123667/is-it-possible-to-change-the-size-of-a-dash-of-a-line） –

拇指向誰投票誰關閉這個...... –

你可以用普通的GDI做到這一點：

procedure TForm1.FormPaint(Sender: TObject); 
const 
    pattern: array[0..3] of cardinal = (10, 1, 1, 1); 
var 
    lb: TLogBrush; 
    pen, oldpen: HPEN; 
begin 
    lb.lbStyle := BS_SOLID; 
    lb.lbColor := RGB(255, 0, 0); 
    pen := ExtCreatePen(PS_COSMETIC or PS_USERSTYLE, 1, lb, length(pattern), @pattern); 
    if pen <> 0 then 
    try 
     oldpen := SelectObject(Canvas.Handle, pen); 
     Canvas.MoveTo(0, 0); 
     Canvas.LineTo(ClientWidth, ClientHeight); 
     SelectObject(Canvas.Handle, oldpen); 
    finally 
     DeleteObject(pen); 
    end; 
end;

來源

2012-12-09 17:34:46

+1。非常好，並且運作良好。 –

爲什麼我不能更改寬度參數？如果我改變它，我總是得到一條寬度爲1的實線... – Martin

@Martin：我認爲GDI化妝筆只能有單位寬度。 [doc]（http://msdn.microsoft.com/en-us/library/windows/desktop/dd162705（v = vs.85）.aspx） –

您還可以使用LineDDA API。確定Pen造型（如Andreas Rejbrand所建議的）要快得多，但LineDDA將允許您以不同顏色繪製線條部分。

var 
    DottedLineDrawCounter: Integer; 

procedure DDAProc(AX, AY: Integer; ACanvas: TCanvas); stdcall; 
begin 
    if DottedLineDrawCounter mod 4 = 0 then 
    ACanvas.Pixels[AX, AY] := clRed 
    else 
    ACanvas.Pixels[AX, AY] := clBlack; 
    Inc(DottedLineDrawCounter); 
end; 

... 
begin 
    // Usage 
    DottedLineDrawCounter := 0; 
    LineDDA(X1, Y1, X2, Y2, @DDAProc, LPARAM(Canvas)); 
end;

來源

2012-12-09 17:23:16 Andrew

畫上自定義樣式（DELPHI）

回答

相關問題