Zitat von
hansklok:
Im Buch "Delphi 7-Grundlagen & Profiwissen" ist in Kapitel 15 erklärt, dass es sich als ungünstig erweist, wenn man ein Grafikprogramm größeren Umfangs gestalten will & dazu die in der TCanvas
Unit Standart eingestellte Stiftart
Cosmetic Pen verwendet. Unterdessen wird auf die Stiftart
Geometric Pen mit folgender Syntax hingwiesen:
function ExtCreatePen(PenStyle: DWord; Width: DWORD; const Brush: TLogBrush; StyleCount: DWORD; Style: Pointer): HPen;
Diese Syntax stellt die Pen Eigenschaft so um, dass Linien, die gezeichnet werden nicht mehr mit abgerundeten Ecken erstellt werden, sonder mit rechteckigen Ecken. Könnt ihr mir bitte den Quelltext geben, wenn im OnCreate Ereigniss des Formulars die Pen-Eigenschaft Cosmetic Pen auf Geometric Pen umgestellt wird?
Den Pen kannst Du wie folgt einstellen:
Delphi-Quellcode:
...
const
PenStyle = PS_Geometric or PS_Solid
var
LogBrush: TLOGBRUSH;
begin
LogBrush.lbStyle := BS_Solid;
LogBrush.lbColor := Pen.Color;
LogBrush.lbHatch := 0;
with Form1.Canvas do
begin
Pen.Handle := ExtCreatePen(PenStyle, Pen.Width, LogBrush, 0, nil);
end;
end;
Du kannst auch mit den diversen PS_* Attributen experimentieren. Aber Achtung, bestimmte Kombinationen laufen nicht unter Win95!