i am writing an basic image processing app in delphi6 i need and use shapes to draw some thing on form. my problem is i see shapes in winxp but when i load my app to win98
i dont see them.
there is a paintbox on my shapes to draw on shapes
and all of them in panel i see only panel on form on win98
the code draw on paintbox:
procedure TForm1.BitBtn3Click(Sender: TObject);
var x,y,sx,sy:integer;
res:tbitmap;
ilkatson,ilknokta,atis:boolean;
son:TPoint;
tempx,tempy:string;
begin
memolin.Lines.Clear;
PaintBox1.Repaint;
ilknokta:=false;
atis:=false;
res:=TBitmap.Create;
for sx:=1 to bitmapcount do
begin
res.LoadFromFile('l\image'+inttostr(sx)+'.bmp');
noktabul(x,y,res);
tempx:=inttostr(x);tempy:=inttostr;
if Length(tempx)=1 then tempx:='0'+'0'+inttostr(x);
if Length(tempx)=2 then tempx:='0'+inttostr(x);
if Length(tempy)=1 then tempy:='0'+'0'+inttostr;
if Length(tempy)=2 then tempy:='0'+inttostr;
memolin.Lines.Add(tempx+'-'+tempy+' ');
x:=x*2;y:=y*2;
with PaintBox1.Canvas do
begin
if (x<>0) and (y<>0) and (ilknokta=false) then
begin
MoveTo(x,y);
Pen.Width:=TrackBar2.Position;
pen.Color:=clblue;
ilknokta:=true;
end;
if (ilknokta=true) and (x<>0) and (y<>0) then
begin
if (atis=false) and (ilknokta=true) then
pen.Color:=clblue else pen.Color:=clblack ;
if (atis=true) and (ilkatson=false) then
Pen.Color:=clolive;
lineTo(x,y);
son.X:=x;
son.Y:=y;
end;
if (ilknokta=true) and (atis=false) and (x=0) and (y=0) and ((son.X>20) and (son.x<620) ) and ((son.y>20) and (son.y<460) ) then
begin
Pen.Color:=clred;
Brush.Style:=bsSolid;
Brush.Color:=clred;
Ellipse(son.X-8,son.Y-8,son.X+8,son.Y+8);
atis:=true ;
end; //
if (ilkatson=false) and (atis=true) and (x<>0) and (y<>0) then
begin
ilkatson:=true;
Brush.Color:=clblue;
Clive
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"To err is human, but to really foul things up you need a computer."
Paul Ehrlich
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To get the best answers from this forum see: faq102-5096
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.