Вот так вот WinXp.... PS

← →
Chlavik (2004-01-25 04:35) [0]

Привет! Оказалось что данный код
var L:LOGBRUSH; st:array [0..2] of dword; begin l.lbStyle:=BS_SOLID; l.lbColor:=clblack; st[0]:=1; st[1]:=1; Pen:=ExtCreatePen(PS_USERSTYLE,1,l,2,@st); canvas.Pen.Handle:=Pen;
под Win98 всё правильно рисует :) (пунктирная линия, расстояние между точками и их длина 1 пиксел),а вод под WinXp рисует пунктирную линию,расстояние между точками и их длина 3 пикселя хоть и было сказано 1 (st[0]:=1; st[1]:=1;). Что делать как быть. Как нарисовать то что я хочу у меня WinXp. Заране спасиба...

← →
MBo (2004-01-25 12:08) [1]

If dwPenStyle is PS_COSMETIC and PS_USERSTYLE, the entries in the lpStyle array specify lengths of dashes and spaces in style units. A style unit is defined by the device where the pen is used to draw a line.

Используй PS_ALTERNATE или кисть-шахматку

← →
Chlavik (2004-01-25 16:04) [2]

Кисть - шахматку как её получит ?

← →
MBo (2004-01-25 16:28) [3]

procedure TForm1.Button1Click(Sender: TObject);
const
Bits:array [0..7] of Byte=($AA,$55,$AA,$55,$AA,$55,$AA,$55);
var
hp:HPEN;
hb:HBITMAP;
lb:TLogBrush;
begin
hb:=CreateBitmap(8,8,1,1,@Bits);
lb.lbStyle:=BS_PATTERN;
lb.lbHatch:=hb;
hp:=ExtCreatePen(PS_GEOMETRIC or PS_SOLID,1,lb,0,nil);
DeleteObject(hb);
Canvas.Pen.Handle:=hp;
Canvas.MoveTo(0,200);
Canvas.LineTo(200,200);
end;

Вот так вот WinXp.... PS_USERSTYLE Найти похожие ветки