jvbreatheskin.pas

East make Tray Icon in delphi

  FLabel.Parent := TWinControl(AOwner);
  FLabel.AutoSize := False;
  FLabel.HotTrack := False;
  FLabel.ParentColor := False;
  FLabel.ParentFont := False;
  FLabel.ParentShowHint := False;
end;

function TJvBreatheLabel.GetColor: TColor;
begin
  Result := FLabel.Color;
end;

function TJvBreatheLabel.GetFont: TFont;
begin
  Result := FLabel.Font;
end;

function TJvBreatheLabel.GetHint: string;
begin
  Result := FLabel.Hint;
end;

function TJvBreatheLabel.GetPopupMenu: TPopupMenu;
begin
  Result := FLabel.PopupMenu;
end;

function TJvBreatheLabel.GetShowHint: Boolean;
begin
  Result := FLabel.ShowHint;
end;

function TJvBreatheLabel.GetTransparent: Boolean;
begin
  Result := FLabel.Transparent;
end;

procedure TJvBreatheLabel.SetCaption(const Value: string);
begin
  FCaption := Value;
  FLabel.Caption := Value;
end;

procedure TJvBreatheLabel.SetColor(const Value: TColor);
begin
  FLabel.Color := Value;
end;

procedure TJvBreatheLabel.SetFont(const Value: TFont);
begin
  FLabel.Font.Assign(Value);
end;

procedure TJvBreatheLabel.SetHeight(const Value: Integer);
begin
  FHeight := Value;
  FLabel.Height := Value;
end;

procedure TJvBreatheLabel.SetHint(const Value: string);
begin
  FLabel.Hint := Value;
end;

procedure TJvBreatheLabel.SetLeft(const Value: Integer);
begin
  FLeft := Value;
  FLabel.Left := Value;
end;

procedure TJvBreatheLabel.SetPopupMenu(const Value: TPopupMenu);
begin
  FLabel.PopupMenu := Value;
end;

procedure TJvBreatheLabel.SetShowHint(const Value: Boolean);
begin
  FLabel.ShowHint := Value;
end;

procedure TJvBreatheLabel.SetTop(const Value: Integer);
begin
  FTop := Value;
  FLabel.Top := Value;
end;

procedure TJvBreatheLabel.SetTransparent(const Value: Boolean);
begin
  FLabel.Transparent := Value;
end;

procedure TJvBreatheLabel.SetWidth(const Value: Integer);
begin
  FWidth := Value;
  FLabel.Width := Value;
end;

//=== TJvBreatheVolume =======================================================

constructor TJvBreatheVolume.Create(AOwner: TComponent);
begin
  inherited Create;
  FSlider := TJvSlider.Create(AOwner);
  FSlider.Parent := TWinControl(AOwner);
end;

destructor TJvBreatheVolume.Destroy;
begin
  FSlider.Free;
  inherited Destroy;
end;

function TJvBreatheVolume.GetHint: string;
begin
  Result := FSlider.Hint;
end;

function TJvBreatheVolume.GetMaximum: Integer;
begin
  Result := FSlider.Maximum;
end;

function TJvBreatheVolume.GetPosition: Integer;
begin
  Result := FSlider.Position;
end;

function TJvBreatheVolume.GetShow: Boolean;
begin
  Result := FSlider.ShowHint;
end;

procedure TJvBreatheVolume.SetHint(const Value: string);
begin
  FSlider.Hint := Value;
end;

procedure TJvBreatheVolume.SetMaximum(const Value: Integer);
begin
  FSlider.Maximum := Value;
end;

procedure TJvBreatheVolume.SetPosition(const Value: Integer);
begin
  FSlider.Position := Value;
end;

procedure TJvBreatheVolume.SetShow(const Value: Boolean);
begin
  FSlider.ShowHint := Value;
end;

//=== TJvBreathePosition =====================================================

constructor TJvBreathePosition.Create(AOwner: TComponent);
begin
  inherited Create;
  FSlider := TJvSlider.Create(AOwner);
  FSlider.Parent := TWinControl(AOwner);
end;

destructor TJvBreathePosition.Destroy;
begin
  FSlider.Free;
  inherited Destroy;
end;

function TJvBreathePosition.GetHint: string;
begin
  Result := FSlider.Hint;
end;

function TJvBreathePosition.GetMaximum: Integer;
begin
  Result := FSlider.Maximum;
end;

function TJvBreathePosition.GetPosition: Integer;
begin
  Result := FSlider.Position;
end;

function TJvBreathePosition.GetShow: Boolean;
begin
  Result := FSlider.ShowHint;
end;

procedure TJvBreathePosition.SetHint(const Value: string);
begin
  FSlider.Hint := Value;
end;

procedure TJvBreathePosition.SetMaximum(const Value: Integer);
begin
  FSlider.Maximum := Value;
end;

procedure TJvBreathePosition.SetPosition(const Value: Integer);
begin
  FSlider.Position := Value;
end;

procedure TJvBreathePosition.SetShow(const Value: Boolean);
begin
  FSlider.ShowHint := Value;
end;

//=== TJvBreatheButtons ======================================================

constructor TJvBreatheButtons.Create(AOwner: TComponent);
begin
  inherited Create;
  FPlaylist := TJvBreatheButton.Create(AOwner);
  FPrev := TJvBreatheButton.Create(AOwner);
  FMove := TJvBreatheButton.Create(AOwner);
  FPlay := TJvBreatheButton.Create(AOwner);
  FNext := TJvBreatheButton.Create(AOwner);
  FExit := TJvBreatheButton.Create(AOwner);
  FOptions := TJvBreatheButton.Create(AOwner);
  FOpen := TJvBreatheButton.Create(AOwner);
  FPause := TJvBreatheButton.Create(AOwner);
  FId3 := TJvBreatheButton.Create(AOwner);
  FForward := TJvBreatheButton.Create(AOwner);
  FRewind := TJvBreatheButton.Create(AOwner);
  FStop := TJvBreatheButton.Create(AOwner);
  FMinimize := TJvBreatheButton.Create(AOwner);
end;

destructor TJvBreatheButtons.Destroy;
begin
  FPlaylist.Free;
  FPrev.Free;
  FMove.Free;
  FPlay.Free;
  FNext.Free;
  FExit.Free;
  FOptions.Free;
  FOpen.Free;
  FPause.Free;
  FId3.Free;
  FForward.Free;
  FRewind.Free;
  FStop.Free;
  FMinimize.Free;
  inherited Destroy;
end;

//=== TJvBreatheButton =======================================================

constructor TJvBreatheButton.Create(AOwner: TComponent);
begin
  inherited Create;
  FButton := TJvImage.Create(AOwner);
  FButton.Parent := TWinControl(AOwner);
end;

function TJvBreatheButton.GetEnabled: Boolean;
begin
  Result := FButton.Enabled;
end;

function TJvBreatheButton.GetHint: string;
begin
  Result := FButton.Hint;
end;

function TJvBreatheButton.GetMouseDown: TMouseEvent;
begin
  Result := FButton.OnMouseDown;
end;

function TJvBreatheButton.GetMouseMove: TMouseMoveEvent;
begin
  Result := FButton.OnMouseMove;
end;

function TJvBreatheButton.GetMouseUp: TMouseEvent;
begin
  Result := FButton.OnMouseUp;
end;

function TJvBreatheButton.GetOnClick: TNotifyEvent;
begin
  Result := FButton.OnClick;
end;

function TJvBreatheButton.GetOnDblClick: TNotifyEvent;
begin
  Result := FButton.OnDblClick;
end;

function TJvBreatheButton.GetPopupMenu: TPopupMenu;
begin
  Result := FButton.PopupMenu;
end;

function TJvBreatheButton.GetShowHint: Boolean;
begin
  Result := FButton.ShowHint;
end;

function TJvBreatheButton.GetVisible: Boolean;
begin
  Result := FButton.Visible;
end;

procedure TJvBreatheButton.SetEnabled(const Value: Boolean);
begin
  FButton.Enabled := Value;
end;

procedure TJvBreatheButton.SetHint(const Value: string);
begin
  FButton.Hint := Value;
end;

procedure TJvBreatheButton.SetMouseDown(const Value: TMouseEvent);
begin
  FButton.OnMouseDown := Value;
end;

procedure TJvBreatheButton.SetMouseUp(const Value: TMouseEvent);
begin
  FButton.OnMouseUp := Value;
end;

procedure TJvBreatheButton.SetMouveMove(const Value: TMouseMoveEvent);
begin
  FButton.OnMouseMove := Value;
end;

procedure TJvBreatheButton.SetOnClick(const Value: TNotifyEvent);
begin
  FButton.OnClick := Value;
end;

procedure TJvBreatheButton.SetOnDblClick(const Value: TNotifyEvent);
begin
  FButton.OnDblClick := Value;
end;

procedure TJvBreatheButton.SetPopupMenu(const Value: TPopupMenu);
begin
  FButton.PopupMenu := Value;
end;

procedure TJvBreatheButton.SetShowHint(const Value: Boolean);
begin
  FButton.ShowHint := Value;
end;

procedure TJvBreatheButton.SetVisible(const Value: Boolean);
begin
  FButton.Visible := Value;
end;

//=== TJvBreatheScrollLabel ==================================================

constructor TJvBreatheScrollLabel.Create(AOwner: TComponent);
begin
  inherited Create;
  FLabel := TJvBehaviorLabel.Create(AOwner);
  FLabel.Parent := TWinControl(AOwner);
  FLabel.AutoSize := False;
  FLabel.ParentColor := False;
  FLabel.ParentFont := False;
  FLabel.ParentShowHint := False;
  FLabel.Behavior := 'Scrolling';
end;

function TJvBreatheScrollLabel.GetColor: TColor;
begin
  Result := FLabel.Color;
end;

function TJvBreatheScrollLabel.GetDirection: TJvLabelScrollDirection;
begin
  Result := TJvLabelScroll(FLabel.BehaviorOptions).Direction;
end;

function TJvBreatheScrollLabel.GetFont: TFont;
begin
  Result := FLabel.Font;
end;

function TJvBreatheScrollLabel.GetHint: string;
begin
  Result := FLabel.Hint;
end;

function TJvBreatheScrollLabel.GetInterval: Cardinal;
begin
  Result := TJvLabelScroll(FLabel.BehaviorOptions).Interval;
end;

function TJvBreatheScrollLabel.GetScrolling: Boolean;
begin
  Result := TJvLabelScroll(FLabel.BehaviorOptions).Active;
end;

function TJvBreatheScrollLabel.GetShowHint: Boolean;
begin
  Result := FLabel.ShowHint;
end;

function TJvBreatheScrollLabel.GetTransparent: Boolean;
begin
  Result := FLabel.Transparent;
end;

procedure TJvBreatheScrollLabel.SetCaption(const Value: string);
begin
  FCaption := Value;
  FLabel.Caption := Value;
end;

procedure TJvBreatheScrollLabel.SetColor(const Value: TColor);
begin
  FLabel.Color := Value;
end;

procedure TJvBreatheScrollLabel.SetDirection(const Value: TJvLabelScrollDirection);
begin
  TJvLabelScroll(FLabel.BehaviorOptions).Direction := Value;
end;

procedure TJvBreatheScrollLabel.SetFont(const Value: TFont);
begin
  FLabel.Font := Value;
end;

procedure TJvBreatheScrollLabel.SetHeight(const Value: Integer);
begin
  FHeight := Value;
  FLabel.Height := Value;
end;

procedure TJvBreatheScrollLabel.SetHint(const Value: string);
begin
  FLabel.Hint := Value;
end;

procedure TJvBreatheScrollLabel.SetInterval(const Value: Cardinal);
begin
  TJvLabelScroll(FLabel.BehaviorOptions).Interval := Value;
end;

procedure TJvBreatheScrollLabel.SetLeft(const Value: Integer);
begin
  FLeft := Value;
  FLabel.Left := Value;
end;

procedure TJvBreatheScrollLabel.SetScrolling(const Value: Boolean);
begin
  TJvLabelScroll(FLabel.BehaviorOptions).Active := Value;
end;

procedure TJvBreatheScrollLabel.SetShowHint(const Value: Boolean);
begin
  FLabel.ShowHint := Value;
end;

procedure TJvBreatheScrollLabel.SetTop(const Value: Integer);
begin
  FTop := Value;
  FLabel.Top := FTop;
end;

procedure TJvBreatheScrollLabel.SetTransparent(const Value: Boolean);
begin
  FLabel.Transparent := Value;
end;

procedure TJvBreatheScrollLabel.SetWidth(const Value: Integer);
begin
  FWidth := Value;
  FLabel.Width := Value;
end;

end.