Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Проблема с BeginPath   Найти похожие ветки 

← →
z0ne ©   (2002-06-26 12:42) [0]

Вопрос: почему Path не сохраняет данные ??? Есть код


procedure TMaint.NameLblClick(Sender: TObject);
var
S:String;
DC:HDC;
R:HRGN;
I:Integer;
P:Pointer;
begin
Beep;
//
S:=NameLbl.Caption;
NameLbl.Caption:="";
//
DC:=Image1.Picture.Bitmap.Canvas.Handle;
SetBkMode(DC,TRANSPARENT);
Image1.Picture.Bitmap.Canvas.Font.Assign(NameLbl.Font);
Image1.Picture.Bitmap.Canvas.TextOut(0,0,".");
BeginPath(DC);
TextOut(DC,0,0,PChar(S),Length(S));
EndPath(DC);
P:=Nil;
I:=GetPath(DC,P,P,0);
R:=PathToRegion(DC);
end;

так вот, если убрать BeginPath-EndPath, то строка выводится в Image, а если оставить, то I=0 и соответственно регион не создаётся

---

← →
MBo ©   (2002-06-26 13:42) [1]

procedure TForm1.Button1Click(Sender: TObject);
var dc:hdc;
rgn:hrgn;
begin
canvas.font.size:=24;
canvas.font.name:="Arial";//Не с trueType не срабатывает!
dc:=Canvas.Handle;
canvas.Brush.color:=clred;
SetBkMode(dc, TRANSPARENT);
BeginPath(DC);
TextOut(DC,10,10,"Qwerty",6);
EndPath(DC);
rgn:=pathtoregion(dc);
fillrgn(dc,rgn,canvas.Brush.handle);
deleteobject(rgn);
end;

---

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

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c