Tracciare una linea su tela con stile personalizzato (Delphi)

Question

ho bisogno di disegnare alcune linee su una tela, ma ho bisogno di utilizzare uno stile personalizzato, nessuno stile standart come solido, dot, ...

Per esempio ho bisogno traccia una linea come "__. __. _ " o ". _. _. _. _". Tutta la mia linea è un mix di trattini e punti e ho bisogno di impostare anche la lunghezza del trattino e il trattino, la larghezza del punto.

Non voglio utilizzare GDI + o altra libreria esterna ...

C'è un modo semplice per farlo?

Answer 1

È possibile farlo con la semplice 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; 

Answer 2

È inoltre possibile utilizzare l'API LineDDA. Sicuramente lo stile di penna (come consigliato da Andreas Rejbrand) è molto più veloce, ma LineDDA ti permetterà di disegnare le parti della linea in diversi colori.

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;