[Solved]TShapes?
lazarus / 39-Graphics

----------------------------------------------------------------------
Cliff48 · 2015-06-08 23:02

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 · 2015-06-08 23:10

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 · 2015-06-08 23:19

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 · 2015-06-08 23:21

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 · 2015-06-08 23:25

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 · 2015-06-08 23:26

where is the unit tshape.pas declared then?

----------------------------------------------------------------------
Cliff48 · 2015-06-08 23:36

Quote from: taazz on June 09, 2015, 01:26:30 amwhere 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 · 2015-06-08 23:40

Thanks for your help.  That fixed it.

----------------------------------------------------------------------
taazz · 2015-06-09 00:01

Quote from: Cliff48 on June 09, 2015, 01:36:24 amQuote from: taazz on
June 09, 2015, 01:26:30 amwhere 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 · 2015-06-09 00:34

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 · 2015-06-09 00:39

Quote from: Cliff48 on June 09, 2015, 02:34:08 amThanks again for
getting me sorted out on such a stupid mistake 
 You are most welcome I'm glad I could help.
Quote from: Cliff48 on June 09, 2015, 02:34:08 amsometimes 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).