Почему psDot не выдает желаемый результат

  with Canvas do
  begin
     Pen.Style := psDot;
     MoveTo(0,100);
     LineTo(300,100);
  end;

при этом линия состоит не из точек а ис коротинких линий
если использовать psDash то линии длинные
как заставить систему нарисовать линию из точек? а ведь она может

Цитата ViktorXP @ 24.12.07, 17:16

а ведь она может

DrawFocusRect?

ну и не только
вот например в TreeView там линии тоже из точек рисует

Создай для этой цели геометрическое перо, у них возможностей побольше чем у косметических (VCL создает только устаревшие косметические перья, так что перо придется создавать самостоятельно, без помощи VCL).

procedure TForm1.FormPaint(Sender: TObject);
var
  PenHandle: HPEN;
  BrushStyle: tagLOGBRUSH;
  NewPen: TPen;
begin
  with Canvas do
  begin
    BrushStyle.lbStyle:=BS_SOLID;
    BrushStyle.lbColor:=ColorToRGB(Pen.Color);
    BrushStyle.lbHatch:=0;
    PenHandle:=ExtCreatePen(PS_GEOMETRIC or PS_DOT,Pen.Width,BrushStyle,0,nil);
    NewPen:=TPen.Create;
    try
      NewPen.Handle:=PenHandle;
      Canvas.Pen:=NewPen;
      MoveTo(0,100);
      LineTo(300,100);
    finally
      NewPen.Free;
    end;
  end;
end;

Работает! )
Спасиб