[delphi-br] Re: TabSeet
Bom dia Carlos Alberto... Muito bom este esquema que vc conseguiu... Ainda bem que vc descobriu como faz, legal... Olha só, vc não sabe a função da propriedade font do object inspector, tem a função de deixar a cor padrão na tabsheet sendo a cor que vc escolhe nesta propriedade, se vc colocar azul, a cor da fonte de todos os objetos dentro desta tabsheet será azul, entendeu? -Simple... rs PS: Até eu vou usar o esquema que vc achou na intenet, interessante... Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, Carlos Alberto Machado [EMAIL PROTECTED] escreveu Em primeiro lugar obrigado pelo retorno Na internet encontrei a saída. Usando os seguintes códigos procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.OwnerDraw := True; PageControl1.Canvas.Brush.Color := clBtnFace; PageControl1.Canvas.Font.Color := clSilver; PageControl1.Canvas.TextOut(8, 5, PageControl1.Pages[0].Caption); end; procedure TForm1.Button2Click(Sender: TObject); begin PageControl1.OwnerDraw := False; end; Porem ainda não sei a função da Propriedade Font da classe TTabSheet que se encontra no Object Inspector - Original Message - From: Cleber Edson Lino [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 26, 2005 11:29 AM Subject: [delphi-br] Re: TabSeet Bom dia, Carlos Alberto... Bom, você vai ter muita dificuldade para fazer isto, porque no Object Inspector realmente não tem opção para isto, tem que ver se a classe TPageControl tem esta propriedade, então vc pode fazer o seguinte, ou entrar no help e pesquisar sobre Ele para ver se tem esta propriedade, ou na unit em qualquer method vc escrever o nome do pagecontrol e colocar . e esperar abrir a caixa de opções para vc ver se tem alguma neste sentido, ok? Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, Carlos Alberto Machado [EMAIL PROTECTED] escreveu Bom dia Uso Delphi 5 Coloquei um TPageControl em um Form. Neste TPageControl coloquei varias TTabSheet. Quero colocar os Caption destas TTabSeet em vermelho mas não estou conseguindo. Coloquei Caption : Vermellho Font.Color: Vermelho nas propriedades Mesmo na programação nao estou conseguindo TabSheet1.Font.Color := clRed; Alguma dica? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/4/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: TabSeet
Bom dia, Carlos Alberto... Bom, você vai ter muita dificuldade para fazer isto, porque no Object Inspector realmente não tem opção para isto, tem que ver se a classe TPageControl tem esta propriedade, então vc pode fazer o seguinte, ou entrar no help e pesquisar sobre Ele para ver se tem esta propriedade, ou na unit em qualquer method vc escrever o nome do pagecontrol e colocar . e esperar abrir a caixa de opções para vc ver se tem alguma neste sentido, ok? Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, Carlos Alberto Machado [EMAIL PROTECTED] escreveu Bom dia Uso Delphi 5 Coloquei um TPageControl em um Form. Neste TPageControl coloquei varias TTabSheet. Quero colocar os Caption destas TTabSeet em vermelho mas não estou conseguindo. Coloquei Caption : Vermellho Font.Color: Vermelho nas propriedades Mesmo na programação nao estou conseguindo TabSheet1.Font.Color := clRed; Alguma dica? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: TabSeet
Bom dia, Carlos Alberto... Bom, você vai ter muita dificuldade para fazer isto, porque no Object Inspector realmente não tem opção para isto, tem que ver se a classe TPageControl tem esta propriedade, então vc pode fazer o seguinte, ou entrar no help e pesquisar sobre Ele para ver se tem esta propriedade, ou na unit em qualquer method vc escrever o nome do pagecontrol e colocar . e esperar abrir a caixa de opções para vc ver se tem alguma neste sentido, ok? Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, Carlos Alberto Machado [EMAIL PROTECTED] escreveu Bom dia Uso Delphi 5 Coloquei um TPageControl em um Form. Neste TPageControl coloquei varias TTabSheet. Quero colocar os Caption destas TTabSeet em vermelho mas não estou conseguindo. Coloquei Caption : Vermellho Font.Color: Vermelho nas propriedades Mesmo na programação nao estou conseguindo TabSheet1.Font.Color := clRed; Alguma dica? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: TabSeet
Em primeiro lugar obrigado pelo retorno Na internet encontrei a saída. Usando os seguintes códigos procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.OwnerDraw := True; PageControl1.Canvas.Brush.Color := clBtnFace; PageControl1.Canvas.Font.Color := clSilver; PageControl1.Canvas.TextOut(8, 5, PageControl1.Pages[0].Caption); end; procedure TForm1.Button2Click(Sender: TObject); begin PageControl1.OwnerDraw := False; end; Porem ainda não sei a função da Propriedade Font da classe TTabSheet que se encontra no Object Inspector - Original Message - From: Cleber Edson Lino [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 26, 2005 11:29 AM Subject: [delphi-br] Re: TabSeet Bom dia, Carlos Alberto... Bom, você vai ter muita dificuldade para fazer isto, porque no Object Inspector realmente não tem opção para isto, tem que ver se a classe TPageControl tem esta propriedade, então vc pode fazer o seguinte, ou entrar no help e pesquisar sobre Ele para ver se tem esta propriedade, ou na unit em qualquer method vc escrever o nome do pagecontrol e colocar . e esperar abrir a caixa de opções para vc ver se tem alguma neste sentido, ok? Um Abraço. Cleber. --- Em delphi-br@yahoogrupos.com.br, Carlos Alberto Machado [EMAIL PROTECTED] escreveu Bom dia Uso Delphi 5 Coloquei um TPageControl em um Form. Neste TPageControl coloquei varias TTabSheet. Quero colocar os Caption destas TTabSeet em vermelho mas não estou conseguindo. Coloquei Caption : Vermellho Font.Color: Vermelho nas propriedades Mesmo na programação nao estou conseguindo TabSheet1.Font.Color := clRed; Alguma dica? [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/4/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html