Draw an arrow inside a GroupBox? 1

[LucieLastic]

hi

Trying to draw an arrow inside a groupbox but with no luck.

I'm trying to use canvas.lineto etc but nothing appears.

Is it possible, another example is needed.

many thanks
lou

 

[Stretchwickster]

Hi Lou,

As far as I am aware, TGroupBoxes don't have canvases. But you could try placing a TImage within the group box and using it's canvas with the following code:

with Image1.Canvas do
  begin
    Pen.Color := clBlack;
    MoveTo(0, 50);
    LineTo(0, 70);
    LineTo(50, 70);
    LineTo(50, 75);
    LineTo(60, 60);
    LineTo(50, 45);
    LineTo(50, 50);
    LineTo(0, 50);
    Brush.Color := clRed;
    FloodFill(30, 60, clBlack, fsBorder);
  end;

Clive

 

[LucieLastic]

Thanks Clive, works a treat. Don't know why I didn't think of that . Just need to work out the transparent background and I'm 'cooking with gas'.

big ta
lou

 

[LucieLastic]

Transparency sussed.

image1.Transparent:= true;

thanks again
lou

 

[Stretchwickster]

No problem! Clive