Tipo Enumerado - Erro Ao Criar

[adilsonpazzini]

Estou tentando montar um componente em DELPHI , e criei um tipo enumerado pra poder jogar na propriedade de um complenente Grafico que estou montando ,

mais qndo vou declarar a procedure SetAlinhamentoCaption(const Value:TAlinhamento);

da o erro de Unsatisfied forward or external declaration 'TVisual.SetAlinhamentoCaption'

 

alguem consegue ver o que estou errado ... pois so falta isso pra completar esse complenente q  estou montando ....

 

Desde ja agradesço a todos

Adilson Pazzini

 

abaixo parte do codigo :

 

 

unit visual;

interface

uses
  Classes, SysUtils, Graphics, StdCtrls, Controls, Messages, Menus ,Windows;

type
 TAlinhamento = (taEsquerda,taCentro,taDireita);

 type
  TVisual = class(TGraphicControl)

  private
    { Private declarations }

    FAlinhamento:TAlinhamento;
    procedure SetAlinhamentoCaption(const Value:TAlinhamento);

 

Editado 20 Fevereiro, 2013 por EMBarbosa
Queira usar a tag CODE

[EMBarbosa]

Lá embaixo no código, na seção implementation, deve ter a declaração deste método: TVisual.SetAlinhamentoCaption

[adilsonpazzini]

Putz , era isso mesmo velho ... na verdade la em baixo nao estava declarando ele com o nome do Objeto TVisual ... agora colocando foi ..

 

 

Muito Obrigado Elton ...

 

 

agora outra coisa . pra quem pude me ajudar . to tentando incluir a Propriedade Font nele . pra que qndo eu altere a fonte ele altere a font do texto que vai aparecer . ate fiz assim

 

 

 private
    { Private declarations }

    //variavel interna que receberá a cor
    //indicada no Object Inspector
    FAlinhar:TAlinhar;
    FLayout:TLayout;
    FCor: TColor;
    FCaption :TCaption;
    FPopupMenu:TPopupMenu;


    //função que será chamada quando o usuario
    //mudar a cor no Object Inspector
    procedure SetAlinhamentoCaption(const Value:TAlinhar);
    procedure SetLayoutCaption(const Value:TLayout);
    procedure SetCor(value: TColor);
    procedure SetCaption(value :TCaption);
    procedure SetFont(Value:TFont);


    property Font: TFont read FFont write SetFont;


procedure TVisual.SetFont(value: TFont);
begin
  FFont:= value;
  invalidate;
end;

ate compila . mais da o Erro ao clicar no Object inspector - 'Cannot assign a nil to a TFont .'.

 

 

Desde ja agradesço mais uma vez ...

 

Editado 20 Fevereiro, 2013 por EMBarbosa
Queira usar a tag CODE

[EMBarbosa]

Dá uma olhada no código fonte do TLabel. Acho que você pode só publicar essa propriedade Font e não precisa do código set e/ou get.

[adilsonpazzini]

Deu certo Elton ... valeu velhão .

 

Mais uma vez obrigadoooo ..;.

 

 

Adilson

[EMBarbosa]

Joia.

[adilsonpazzini]

Agora por ultimo , rsrssr , Como é que faz pra colocar uma imagem no Componente para aparecer na paleta do Delphi7 , pois ta aparecendo com aquela icone padrao do Delphi pra componenete .?

 

 

Desde ja agradesço ...

 

 

Adilson Pazzini

[EMBarbosa]

olá Adilson,

 

  Crie tópicos novos para novas dúvidas.

 

  Obrigado.

[Jéter Rabelo Ferreira]

Agora por ultimo , rsrssr , Como é que faz pra colocar uma imagem no Componente para aparecer na paleta do Delphi7 , pois ta aparecendo com aquela icone padrao do Delphi pra componenete .?

 

 

Desde ja agradesço ...

 

 

Adilson Pazzini

 

http://eugostododelphi.blogspot.com.br/2010/01/como-fazer-icone-para-seus-componentes.html

[adilsonpazzini]

Valeu Jeter . vou ver isso ..

 

Obrigadoooo

 

Adilson pazzini