Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit mGMV_DefaultSelector;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TfrDefaultSelector = class(TFrame)
lblName: TLabel;
cbQualifiers: TComboBox;
procedure cbQualifiersEnter(Sender: TObject);
procedure cbQualifiersExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure setPopupLayout;
procedure setDDWidth;
end;
implementation
{$R *.dfm}
procedure TfrDefaultSelector.cbQualifiersEnter(Sender: TObject);
begin
cbQualifiers.Color := clInfoBk;
lblName.Font.Style := [];
cbQualifiers.Font.Style := [];
end;
procedure TfrDefaultSelector.cbQualifiersExit(Sender: TObject);
begin
cbQualifiers.Color := clWindow;
end;
procedure TfrDefaultSelector.setDDWidth;
begin
cbQualifiers.Width := self.Width - cbQualifiers.Left - 4;
end;
procedure TfrDefaultSelector.setPopupLayout;
begin
lblName.Alignment := taLeftJustify;
lblName.Left := 24;
cbQualifiers.Left := 100;
setDDWidth;
end;
end.