como fazer ??

Question

Como eu faco, qdo eu clicar em algum item do radio group (Triangulo, Retangulo, Losango), eles aparecam com suas respectivas forma?

eu to comecando a mecher no Delphi e to meio confuso ainda... :D obrigado para quem poder me ajudar !!

Cruz · Answer

Voc� quer que o radiobutton se transforme em um retangulo,losango,triangulo ou quer que as formas sejam desenhadas na tela......

Tiozinho · Answer

Isso...Que ela apare�am na tela conforma voce vai clicando nelas......

Crash · Answer

[quote:a57048d1c7=�Tiozinho�]Como eu faco, qdo eu clicar em algum item do radio group (Triangulo, Retangulo, Losango), eles aparecam com suas respectivas forma?eu to comecando a mecher no Delphi e to meio confuso ainda... :D obrigado para quem poder me ajudar !![/quote:a57048d1c7]Como vc � iniciante o recomendavel � voce criar as tres imagens que deseja que apare�a no Paint e salve-as como Bitmap.Insira 3 componentes TImage no form e coloque suas propriedades visible = false.No evento onclick voce coloca:Case RadioGroup1.ItemIndex of0: beginImage1.Visible:= True;Image1.Visible:= False;Image1.Visible:= False;end;1: beginImage1.Visible:= False;Image1.Visible:= True;Image1.Visible:= False;end;2: beginImage1.Visible:= False;Image1.Visible:= False;Image1.Visible:= True;end;t+...

Tiozinho · Answer

N�o tem algum comando do delphi que desenhe a imagem ??Se n�o tiver muito obrigado pela ajuda.......

Rebel_inside · Answer

Ter at� tem, por�m � um pouco mais complicado de ser feito.

Voc� teria que criar um controle (derivado do TGraphicControl ou TGraphicalControl, n�o me lembro :shock: ) e sobrescrever o m�todo Paint dele para desenhar a forma que voc� deseja.

Isso � mais complicado, por�m com melhores resultados.

um exemplo muito simples:

unit UDesenho;

interface

uses 
  Windows, SysUtils, Classes, StdCtrls, ExtCtrls;

type
  TTipoDesenho = (tdTriangulo, tdQuadrado, tdLosango);

  TDesenho = class(TGraphicControl)
  private
    FTipoDesenho: TTipoDesenho;
    procedure SetTipoDesenho(Value: TTipoDesenho);
  public
    procedure Paint; override;
    property TipoDesenho: TTipoDesenho read FTipoDesenho write SetTipoDesenho;
  end;

(...)
implementation

procedure TDesenho.SetTipoDesenho(Value: TTipoDesenho);
begin
  if (Value<>FTipoDesenho) then begin
    FTipoDesenho:= Value;
    Invalidate;
  end;
end;

procedure TDesenho.Paint;
begin
  with Canvas do begin
    // Limpa a imagem
    FillRect(BoundsRect); 
    case FTipoDesenho of
      tdTriangulo: begin { Desenha o triangulo }
      end;
      tdQuadrado: begin { Desenha o quadrado }
      end;
      tdLosango: begin { Desenha o losango }
      end;
    end;
  end;
end;

(...)
end.

A parte de registrar esse componente eu n�o irei explicar por ser um pouco mais avan�ada. Procure no help do Delphi como faz�-lo :)

Em todo caso, voc� pode proceder da seguinte maneira:

- Criar uma nova unit com esse componente. Por exemplo: UDesenho;
- Adicionar � uses list do Form;
- Criar uma vari�vel para este tipo;
- No evento OnCreate do form, criar e posicionar esse componente.

Exemplo...

unit UTeste;

interface

uses
  Windows, SysUtils, Classes, Forms, Dialogs,(...), UDesenho;

type
  TForm1 = class(TForm)
  (...)
  end;

var 
  Form1: TForm1;
  // Caso voc� n�o tenha registrado o componente e adicionado ao seu form, declare essa vari�vel!
//  Desenho1: TDesenho;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Caso tenha declarado a vari�vel, coloque o seguinte c�digo:
//  Desenho1:= TDesenho.Create(Self);
//  Desenho1.Parent:= Self;
//  Desenho1.Left:= 10;
//  Desenho1.Top:= 10;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: Desenho1.TipoDesenho:= tdTriangulo;
    1: Desenho1.TipoDesenho:= tdQuadrado;
    2: Desenho1.TipoDesenho:= tdLosango;
  end;
end;

end.

Tiozinho · Answer

Brigad�o a todos q ajudaram......

Tiozinho · Answer

Como eu fa�o para que o texto q aparece na label fique em outra linha?ex. o texto tem que aparecer assim na label....

Toshio Bruno · Answer

[quote:1337a4e3cb=�Tiozinho�]Como eu fa�o para que o texto q aparece na label fique em outra linha?ex. o texto tem que aparecer assim na label.[/quote:1337a4e3cb]Ex: Label1.Caption:=� Toshio�+#10 � Bruno�;...

Toshio Bruno · Answer

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, ExtCtrls;type  TForm1 = class(TForm)    Image1: TImage;    RadioGroup1: TRadioGroup;    procedure FormCreate(Sender: TObject);    procedure RadioGroup1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    p:TPicture;    S:String;  end;var  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);beginp:=Tpicture.Create;end;procedure TForm1.RadioGroup1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0:beginS:=�Imagem1.bmp�;P.LoadFromFile(�C:Meus Documentos�+S);Image1.Picture:=p;end;1:beginS:=�Imagem2.bmp�;P.LoadFromFile(�C:Meus Documentos�+S);Image1.Picture:=p;end;2:beginS:=�Imagem3.bmp�;P.LoadFromFile(�C:Meus Documentos�+S);Image1.Picture:=p;end;end;end;end....

Tiozinho · Answer

Outra pergunta....  :D no PageControl, colocando 9 novas pagina elas aparecen todas uma do lado da outra. Como eu fa�o para que q fique 5, e embaixo delas 4?...

Robotizar · Answer

[quote:723d0736e3=�Tiozinho�]N�o tem algum comando do delphi que desenhe a imagem ??Se n�o tiver muito obrigado pela ajuda....[/quote:723d0736e3]� muito facilprimeiro pegue a figura q vc quer desenhar e ponha no c: aqui vou chama-la de Figuraponha um bot�o no form e os seguintes comandosprocedure button......varimg: tbitmap;beginimg:= tbitmap.create;img.loadfromfile(�c:figura�);form1.draw(0,0,img);end;muito simples velhinho...

Robotizar · Answer

ops corrige aiform1.CANVAS.draw(0,0,img);...

F�rum como fazer ?? #158887