Grafikprogrammierung: Frage

[Union]

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!