unit UClientFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls;

type
  TClientFrame = class(TFrame)
    Shape1: TShape;
    Panel1: TPanel;
    Image1: TImage;
    Panel: TPanel;
    LockShape: TShape;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure LockAdwin;
    procedure UnLockADwin;
    constructor Create(AOwner : TComponent);override;
  end;

implementation

{$R *.dfm}

constructor TClientFrame.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  Self.Align := alTop;
end;

procedure TClientFrame.LockAdwin;
begin
  Self.LockShape.Brush.Color := clRed;
  Panel.Refresh;
  Self.LockShape.Repaint;
  Image1.Refresh;
  Shape1.Refresh;
end;

procedure TClientFrame.UnLockADwin;
begin
  Self.LockShape.Brush.Color := clMoneyGreen;
  Panel.Refresh;
  Self.LockShape.Repaint;
  //Image1.Refresh;
  Shape1.Refresh;
end;

end.
