[Solved]TShapes?

[Cliff48]

Is there a tutorial anywhere to show how to add/use Tshapes.

I have searched everywhere on the net and I cant even find how to add one to a form.  Just dropping a shape to the form in designer gives a compilation error.

Appreciate any help.
Cliff

[taazz]

I don't see the problem. I can add any number of shapes on form. Tried it with a new application in lazarus 1.4.

[Cliff48]

Code: [Select]

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    sb1: TStatusBar;
    Shape1: TShape;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);


tshape.pas(19,19) Fatal: Syntax error, "." expected but ";" found

[taazz]

TShape is declared on ExtCtrls.pas unit not Tshape.pas tshape.pas is not part of lcl as far as I know, try removing it from the uses clause and/or the project.

[Cliff48]

Code: [Select]

[code
]uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  ComCtrls, StdCtrls;   
the above generated by Lazarus with no change by me.

[taazz]

where is the unit tshape.pas declared then?

[Cliff48]

where is the unit tshape.pas declared then?

Tshape was the name of my unit  (prolly a mistake in hindsight) but meant T{est}shape to me.

and just changing the name still gives problems ... i will start again  .. sheez!

[Cliff48]

Thanks for your help.  That fixed it. 

[taazz]

where is the unit tshape.pas declared then?

Tshape was the name of my unit  (prolly a mistake in hindsight) but meant T{est}shape to me.

and just changing the name still gives problems ... i will start again  .. sheez!

there are multiple parts when renaming a unit the safe way to rename one is to save it as a new unit (save as..) and answer yes to the IDE's "delete old" question.

[Cliff48]

Thanks taazz I'll remember that.  In this case it didnt matter too much... lol.. I hadn't got far
I was experimenting to see if a TShape.Rectangle was a good way to crop an image...  In the last half hour I have achieved far more than in the 2 hours before I posted here.... and it looks perfect for what I want.

Thanks again for getting me sorted out on such a stupid mistake  .. sometimes I cant see the wood for the trees 

[taazz]

Thanks again for getting me sorted out on such a stupid mistake 

You are most welcome I'm glad I could help.

sometimes I cant see the wood for the trees 

Been there not liked it much but some how I end up there from time to time (actually at least twice a day).