Re: [delphi-br] botao adicional na barra de titulo - como??
Na suite de componentes Jedi, atualmente na versao 3.30 existe um componente
que faz isso que voce precisa...
Anderson
- Original Message -
From: Hudson
To: delphi-br@yahoogrupos.com.br
Sent: Friday, March 09, 2007 6:25 PM
Subject: Re: [delphi-br] botao adicional na barra de titulo - como??
Vai dar um pouco de trabalho...mas tbm ja fiz esta pergunta quando vi o
emule
esta faltando somente um user q não indedifiquei
caso arrume ela gente me de um toque
//declare assim na seção private
procedure WMNCPaint (Var Msg : TWMNCActivate); messafe WM_NCACTIVATE;
// captura o paint
procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
begin
inherited;
DrawCaptButton;
end;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ShellAPI, Buttons;
type
TFerramenta = (FrLinha, FrRetangulo, FrElipse, FrRetRedondo);
TForm1 = class(TForm)
procedure DrawCaptButton;
private
{ Private declarations }
procedure WMNCPaint (Var Msg : TWMNCActivate); message WM_NCACTIVATE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DateUtils;
{$R *.dfm}
// captura o evento
procedure TForm1.WMNCPaint (Var Msg : TWMNCActivate);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.DrawCaptButton;
var
XFrame, Yframe, xSize, YSize : Integer;
R : TRect;
begin
// pegam as dimensões do from (sizeable)
XFrame := GetSystemMetrics(SM_CXFRAME);
YFrame := GetSystemMetrics(SM_CYFRAME);
// pegam as dimesões do botão
xSize := GetSystemMetrics(SM_CXSIZE);
ySize := GetSystemMetrics(SM_CYSIZE);
// define a posição
CaptionBtn := Bounds(width - XFrame - 4 * xSize + 2, Yframe + 2, Xsize - 2,
Ysize - 4);
Canvas.Handle := GetWindowsDC(self.Handle);
Canvas.Font.Name := 'Arial';
Canvas.Font.Style := [fsBold];
Canvas.Pen.Color := clYellow;
Canvas.Brush.Color := clBtnFace;
try
DrawButtonFace(Canvas, captionBtn, 1, bsAutoDetect, False, False, False);
R := Bounds(Width - XFrame - 4 * xSize + 2, Yframe + 3, xSize - 6, YSize - 7);
With CaptionBtn do
Canvas.TextRect(R, R.Left + 2, R.Top - 1, 'FC');
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;
end.
- Original Message -
From: Thiago Filiano (America Soft)
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 08, 2007 4:55 PM
Subject: [delphi-br] botao adicional na barra de titulo - como??
Boa tarde pessial,
alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone,
semelhante ao Maximizar, minimizar.. na barra de título??
Obrigado!
Thiago
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] botao adicional na barra de titulo - como??
Vai dar um pouco de trabalho...mas tbm ja fiz esta pergunta quando vi o
emule
esta faltando somente um user q não indedifiquei
caso arrume ela gente me de um toque
//declare assim na seção private
procedure WMNCPaint (Var Msg : TWMNCActivate); messafe WM_NCACTIVATE;
// captura o paint
procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
begin
inherited;
DrawCaptButton;
end;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ShellAPI, Buttons;
type
TFerramenta = (FrLinha, FrRetangulo, FrElipse, FrRetRedondo);
TForm1 = class(TForm)
procedure DrawCaptButton;
private
{ Private declarations }
procedure WMNCPaint (Var Msg : TWMNCActivate); message WM_NCACTIVATE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses DateUtils;
{$R *.dfm}
// captura o evento
procedure TForm1.WMNCPaint (Var Msg : TWMNCActivate);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.DrawCaptButton;
var
XFrame, Yframe, xSize, YSize : Integer;
R : TRect;
begin
// pegam as dimensões do from (sizeable)
XFrame := GetSystemMetrics(SM_CXFRAME);
YFrame := GetSystemMetrics(SM_CYFRAME);
// pegam as dimesões do botão
xSize := GetSystemMetrics(SM_CXSIZE);
ySize := GetSystemMetrics(SM_CYSIZE);
// define a posição
CaptionBtn := Bounds(width - XFrame - 4 * xSize + 2, Yframe + 2, Xsize - 2,
Ysize - 4);
Canvas.Handle := GetWindowsDC(self.Handle);
Canvas.Font.Name := 'Arial';
Canvas.Font.Style := [fsBold];
Canvas.Pen.Color := clYellow;
Canvas.Brush.Color := clBtnFace;
try
DrawButtonFace(Canvas, captionBtn, 1, bsAutoDetect, False, False, False);
R := Bounds(Width - XFrame - 4 * xSize + 2, Yframe + 3, xSize - 6, YSize -
7);
With CaptionBtn do
Canvas.TextRect(R, R.Left + 2, R.Top - 1, 'FC');
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;
end.
- Original Message -
From: Thiago Filiano (America Soft)
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, March 08, 2007 4:55 PM
Subject: [delphi-br] botao adicional na barra de titulo - como??
Boa tarde pessial,
alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone,
semelhante ao Maximizar, minimizar.. na barra de título??
Obrigado!
Thiago
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] botao adicional na barra de titulo - como??
O JediVCL tem algo assim. On 3/8/07, Thiago Filiano (America Soft) [EMAIL PROTECTED] wrote: hmm isso nao eh mto interessante para nós aqui, pois temos mtas telas.. para adaptar isso não seria mto legal.. Humberto escreveu: bom.. adicionar um novo botão eu não, mas o que vc pode fazer para contornar essa situação seria não exibir a barra de títulos e criar a sua própria barra.. \o/ - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Thursday, March 08, 2007 4:55 PM Subject: [delphi-br] botao adicional na barra de titulo - como?? Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58 [As partes desta mensagem que não continham texto foram removidas] -- Leodinei Bielak http://leodinei.blogspot.com/ In theory, there is no difference between theory and practice. In practice, however.. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] botao adicional na barra de titulo - como??
Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago
Re: [delphi-br] botao adicional na barra de titulo - como??
bom.. adicionar um novo botão eu não, mas o que vc pode fazer para contornar essa situação seria não exibir a barra de títulos e criar a sua própria barra.. \o/ - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 08, 2007 4:55 PM Subject: [delphi-br] botao adicional na barra de titulo - como?? Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] botao adicional na barra de titulo - como??
hmm isso nao eh mto interessante para nós aqui, pois temos mtas telas.. para adaptar isso não seria mto legal.. Humberto escreveu: bom.. adicionar um novo botão eu não, mas o que vc pode fazer para contornar essa situação seria não exibir a barra de títulos e criar a sua própria barra.. \o/ - Original Message - From: Thiago Filiano (America Soft) To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 08, 2007 4:55 PM Subject: [delphi-br] botao adicional na barra de titulo - como?? Boa tarde pessial, alguém tem uma dica ai, de como colocar um botãozinho.. ou ícone, semelhante ao Maximizar, minimizar.. na barra de título?? Obrigado! Thiago -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.8/714 - Release Date: 8/3/2007 10:58 [As partes desta mensagem que não continham texto foram removidas]
