Ajuda com mapeamento via CANVAS.

Question

Boa Noite,Pessoal estou com um problema que n�o consigo resolver, espero que me ajudem  :oops: .Seguinte estou esenvolvendo um sistema para uma rede autorizada de antenas, nessa rede autorizada os tec...

Uasan · Answer

Consegui uma solu��o mas estou apanhando para conseguir criar ela, minha ideia e o seguinte:

Capturar as posi��es na tela:

Quadrado 1:
Inicia com a posi��o X 150 e termina com 250.
Inicia com a posi��o Y 450 e termina com 500.

Dentro desse espa�o posso clicar e ira chamar uma fun��o que seria a fun��o procurar pe�as.

Ms n�o estou conseguindo alocar somente esse espa�o para aceitar o clique :(

Isso j� esta dificil para uma pe�a so estou imaginando para varias.
Alguem teria uma rotina ai para aloca��o de clique pos left ou top?

[]�s

Emerson Nascimento · Answer

criei um programa que pode servir de id�ia para voc� implementar o que voc� precisa.
eu �chumbei� as coordenadas, mas voc� pode fazer atrav�s de um banco de dados. tomei como exemplo a imagem que voc� postou.

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
    PosX, PosY: integer;
  public
{ Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Image1Click(Sender: TObject);
begin
  if (((PosX >= 228) and (PosX <= 241)) and ((PosY >= 188) and (PosY <= 195))) or
     (((PosX >= 276) and (PosX <= 299)) and ((PosY >= 322) and (PosY <= 330))) then
     ShowMessage(�Clicou num componente mapeado�);
end;

procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption := �X: �+IntToStr(X);
  Label2.Caption := �Y: �+IntToStr(Y);
  PosX := X;
  PosY := Y;

  if (((X >= 228) and (X <= 241)) and ((Y >= 188) and (Y <= 195))) or
     (((X >= 276) and (X <= 299)) and ((Y >= 322) and (Y <= 330))) then
     Image1.Cursor := crHandPoint
  else
     Image1.Cursor := crDefault;
end;

end.

Lehapan · Answer

UaSan, o que voc� pode fazer perante a sua solu��o, � mudar o cursor do componente.
Exemplo: quando o mouse estiver dentro do seu quadrado, altere o cursor para �crHandPoint� e se caso estiver fora do quadrado, coloque como �crDefault�, sendo assim, no evento OnClick do componente voc� coloca um IF para executar somente se o cursor estiver �crHandPoint�.

Bom, este � o primeiro passo, agora para voc� saber se onde voc� clicou � o local A, local B etc, defina algumas Tags para cada local.
Exemplo:
Quadrado TAG
====== ===
1 0
3 1
4 2
2 3
Assim, no mesmo momento que seta cursor para �crHandPoint�, voc� atribui a TAG para o componente.

Espero ter ajudado...!!!

Uasan · Answer

Boa Noite,Emerson sua ideia caiu feito uma luva, fico show de bola bom como n�o sou egoista recebi ajuda ent�o vo disponibilizar uma parte que estava desenvolvendo. Quem sabe n�o ajuda outra pessoa  :D //rapidshare.com/files/250170202/pintarcanvas.rar.html[]�s...

F�rum Ajuda com mapeamento via CANVAS. #371666