dxwinxpbar.pas

delphi控件可以很好实现应用程序的界面设计

  Date:      25-Okt-2002
  Arguments: None
  Result:    TBasicAction
-----------------------------------------------------------------------------}

function TdxWinXPBarItem.GetAction: TBasicAction;
begin
  if FActionLink <> nil then
    Result := FActionLink.Action
  else
    Result := nil;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetAction
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Value: TBasicAction
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetAction(Value: TBasicAction);
begin
  if Value = nil then
  begin
    FActionLink.Free;
    FActionLink := nil;
    FWinXPBar.InternalRedraw;  // redraw image
  end else
  begin
    if FActionLink = nil then
      FActionLink := GetActionLinkClass.Create(Self);
    FActionLink.Action := Value;
    FActionLink.OnChange := DoActionChange;
    ActionChange(Value, csLoading in Value.ComponentState);
    Value.FreeNotification(FWinXPBar);  // deligates notification to WinXPBar!
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetCaption
  Author:    mh
  Date:      25-Okt-2002
  Arguments: const Value: TCaption
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetCaption(Value: TCaption);
begin
  if Value <> FCaption then
  begin
    FCaption := Value;
    FWinXPBar.InternalRedraw;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetEnabled
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Value: Boolean
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetEnabled(Value: Boolean);
begin
  if Value <> FEnabled then
  begin
    FEnabled := Value;
    FWinXPBar.InternalRedraw;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetImageIndex
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Value: Integer
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetImageIndex(Value: TImageIndex);
begin
  if Value <> FImageIndex then
  begin
    FImageIndex := Value;
    FWinXPBar.InternalRedraw;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetImageList
  Author:    mh
  Date:      28-Okt-2002
  Arguments: Value: TCustomImageList
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetImageList(Value: TCustomImageList);
begin
  if Value <> FImageList then
  begin
    FImageList := Value;
    FWinXPBar.InternalRedraw;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetName
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Value: string
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetName(Value: string);
begin
  if (Value <> FName) and (FCollection.Find(Value) = nil) then
    FName := Value;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItem.SetVisible
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Value: Boolean
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItem.SetVisible(Value: Boolean);
begin
  if Value <> FVisible then
  begin
    FVisible := Value;
    FWinXPBar.ItemVisibilityChanged(Self);
    FWinXPBar.ResizeToMaxHeight;
  end;
end;

{ TdxWinXPBarItems }

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Create
  Author:    mh
  Date:      25-Okt-2002
  Arguments: WinXPBar: TdxCustomWinXPBar
  Result:    None
-----------------------------------------------------------------------------}

constructor TdxWinXPBarItems.Create(WinXPBar: TdxCustomWinXPBar);
begin
  inherited Create(TdxWinXPBarItem);
  FWinXPBar := WinXPBar;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Add
  Author:    mh
  Date:      25-Okt-2002
  Arguments: None
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Add: TdxWinXPBarItem;
begin
  Result := TdxWinXPBarItem(inherited Add);
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Add (Action)
  Author:    mh
  Date:      29-Okt-2002
  Arguments: Action: TBasicAction
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Add(Action: TBasicAction): TdxWinXPBarItem;
begin
  Result := Add;
  Result.Action := Action;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Add (DataObject)
  Author:    mh
  Date:      29-Okt-2002
  Arguments: DataObject: TObject
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Add(DataObject: TObject): TdxWinXPBarItem;
begin
  Result := Add;
  Result.DataObject := DataObject;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Insert
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Index: Integer
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Insert(Index: Integer): TdxWinXPBarItem;
begin
  Result := TdxWinXPBarItem(inherited Insert(Index));
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Insert (Action)
  Author:    mh
  Date:      29-Okt-2002
  Arguments: Index: Integer; DataObject: TObject
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Insert(Index: Integer; Action: TBasicAction): TdxWinXPBarItem;
begin
  Result := Insert(Index);
  Result.Action := Action;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Insert (DataObject)
  Author:    mh
  Date:      29-Okt-2002
  Arguments: Index: Integer; DataObject: TObject
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Insert(Index: Integer; DataObject: TObject): TdxWinXPBarItem;
begin
  Result := Insert(Index);
  Result.DataObject := DataObject;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.GetOwner
  Author:    mh
  Date:      25-Okt-2002
  Arguments: None
  Result:    TPersistent
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.GetOwner: TPersistent;
begin
  Result := FWinXPBar;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.GetItem
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Index: Integer
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.GetItem(Index: Integer): TdxWinXPBarItem;
begin
  Result := TdxWinXPBarItem(inherited GetItem(Index));
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.SetItem
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Index: Integer; Value: TdxWinXPBarItem
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItems.SetItem(Index: Integer; Value: TdxWinXPBarItem);
begin
  inherited SetItem(Index, Value);
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Update
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Item: TCollectionItem
  Result:    None
-----------------------------------------------------------------------------}

procedure TdxWinXPBarItems.Update(Item: TCollectionItem);
begin
  FWinXPBar.SortVisibleItems(True);
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Find (Name)
  Author:    mh
  Date:      25-Okt-2002
  Arguments: const AName: string
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Find(const AName: string): TdxWinXPBarItem;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to Count - 1 do
  if Items[i].Name = AName then
  begin
    Result := Items[i];
    Break;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Find (Action)
  Author:    mh
  Date:      30-Okt-2002
  Arguments: const Action: TBasicAction
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Find(const Action: TBasicAction): TdxWinXPBarItem;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to Count - 1 do
  if Items[i].Action = Action then
  begin
    Result := Items[i];
    Break;
  end;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarItems.Find (ByObject)
  Author:    mh
  Date:      29-Okt-2002
  Arguments: const DataObject: TObject
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarItems.Find(const DataObject: TObject): TdxWinXPBarItem;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to Count - 1 do
  if Items[i].DataObject = DataObject then
  begin
    Result := Items[i];
    Break;
  end;
end;

{ TdxWinXPBarVisibleItems }

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarVisibleItems.Create
  Author:    mh
  Date:      25-Okt-2002
  Arguments: WinXPBar: TdxCustomWinXPBar
  Result:    None
-----------------------------------------------------------------------------}

constructor TdxWinXPBarVisibleItems.Create(WinXPBar: TdxCustomWinXPBar);
begin
  inherited Create;
  FItems := TList.Create;
  FWinXPBar := WinXPBar;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarVisibleItems.Destroy
  Author:    mh
  Date:      25-Okt-2002
  Arguments: None
  Result:    None
-----------------------------------------------------------------------------}

destructor TdxWinXPBarVisibleItems.Destroy;
begin
  FItems.Free;
  inherited;
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarVisibleItems.GetItem
  Author:    mh
  Date:      25-Okt-2002
  Arguments: Index: Integer
  Result:    TdxWinXPBarItem
-----------------------------------------------------------------------------}

function TdxWinXPBarVisibleItems.GetItem(Index: Integer): TdxWinXPBarItem;
begin
  Result := nil;
  if Index < FItems.Count then
    Result := FItems[Index];
end;

{-----------------------------------------------------------------------------
  Procedure: TdxWinXPBarVisibleItems.Count
  Author:    mh
  Date:      25-Okt-2002
  Arguments: None
  Result:    Integer
-----------------------------------------------------------------------------}

function TdxWinXPBarVisibleItems.Count: Integer;