Проблема с 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;

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