Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c