unit7.pas

来自「Prof DHTML Edit 2.0.3.7 for delphi」· PAS 代码 · 共 70 行

unit Unit7;

interface

uses
  Forms, Dialogs, ExtCtrls, Controls, StdCtrls, Classes;

type
  TFormPageProperties = class(TForm)
    ButtonOK: TButton;
    ButtonCancel: TButton;
    Label1: TLabel;
    EditTile: TEdit;
    GroupBoxColors: TGroupBox;
    ButtonText: TButton;
    ButtonLink: TButton;
    ButtonVisitedLink: TButton;
    PanelText: TPanel;
    PanelLink: TPanel;
    PanelVisitedLink: TPanel;
    ColorDialog1: TColorDialog;
    ButtonActiveLink: TButton;
    PanelActiveLink: TPanel;
    procedure ButtonTextClick(Sender: TObject);
    procedure ButtonLinkClick(Sender: TObject);
    procedure ButtonVisitedLinkClick(Sender: TObject);
    procedure ButtonActiveLinkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPageProperties: TFormPageProperties;

implementation

{$R *.dfm}

procedure TFormPageProperties.ButtonTextClick(Sender: TObject);
begin
  ColorDialog1.Color := PanelText.Color;
  if ColorDialog1.Execute then
    PanelText.Color := ColorDialog1.Color
end;

procedure TFormPageProperties.ButtonLinkClick(Sender: TObject);
begin
  ColorDialog1.Color := PanelLink.Color;
  if ColorDialog1.Execute then
    PanelLink.Color := ColorDialog1.Color
end;

procedure TFormPageProperties.ButtonVisitedLinkClick(Sender: TObject);
begin
  ColorDialog1.Color := PanelVisitedLink.Color;
  if ColorDialog1.Execute then
    PanelVisitedLink.Color := ColorDialog1.Color
end;

procedure TFormPageProperties.ButtonActiveLinkClick(Sender: TObject);
begin
  ColorDialog1.Color := PanelActiveLink.Color;
  if ColorDialog1.Execute then
    PanelActiveLink.Color := ColorDialog1.Color
end;

end.