To have a border visible with a iekTEXT object you have to set the PenColor and PenWidth:
procedure TForm1.PenColor1Change(Sender: TObject);
var
i: integer;
hObj: integer;
begin
with ImageEnVect1 do
for i := -1 to SelObjectsCount - 1 do
begin
if i >= 0 then
begin
ObjSaveUndo;
hObj := SelObjects[i];
ObjPenColor[hobj] := PenColor1.Selected;
end;
Update;
end;
end;
procedure TForm1.PenWidth1Change(Sender: TObject);
var
i: integer;
hObj: integer;
begin
with ImageEnVect1 do
for i := -1 to SelObjectsCount - 1 do
begin
if i >= 0 then
begin
ObjSaveUndo;
hObj := SelObjects[i];
ObjPenWidth[hObj] := StrToIntDef(PenWidth1.Text, 1);
end;
Update;
end;
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Search
text outline/border
Posted - Apr 04 2013 : 17:15:58
