उदाहरण मैं जरूरत के लिए कस्टम शैली (डेल्फी)

Question

मैं एक कैनवास पर कुछ रेखाएँ खींचें की जरूरत के साथ कैनवास पर एक लाइन खींचें, फिर भी मैं एक कस्टम शैली, ठोस, डॉट के रूप में कोई standart शैली, का उपयोग की आवश्यकता है ...

"__। __। _ " या "" _। _। _। _ "के रूप में एक रेखा खींचना। मेरी सारी लाइन डैश और डॉट का मिश्रण है और मुझे भी सेट लांच और डैश, डॉट चौड़ाई सेट करने की आवश्यकता है।

मैं उपयोग GDI + या अन्य बाहरी पुस्तकालय नहीं चाहता ...

वहाँ यह करने के लिए एक आसान तरीका है?

Answer 1

आप सादे 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

आप LineDDA API का भी उपयोग कर सकते हैं। निश्चित रूप से पेन स्टाइल (जैसा कि एंड्रियास रेजब्रांड द्वारा सलाह दी गई है) बहुत तेज है, लेकिन लाइनडीडीए आपको विभिन्न रंगों में रेखा के हिस्सों को आकर्षित करने की अनुमति देगा।

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;