sskinmanager.pas

AlphaControls是一个Delphi标准控件的集合

end;

{ TsSkinImage }

procedure TsSkinImage.Assign(Source: TPersistent);
begin
  inherited Assign(Source);
end;

constructor TsSkinImage.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  FImage := TBitmap.Create;
end;

destructor TsSkinImage.Destroy;
begin
  if Assigned(FImage) then FreeAndNil(FImage);
  inherited Destroy;
end;

procedure TsSkinImage.SetClassName(const Value: string);
begin
  FClassName := Value;
end;

procedure TsSkinImage.SetImage(const Value: TBitmap);
begin
  FImage.Assign(Value);
end;

procedure TsSkinImage.SetName(const Value: string);
begin
  if FName <> Value then begin
    FName := Value;
  end;
end;

procedure TsSkinImage.SetPropertyName(const Value: string);
begin
  FPropertyName := Value;
end;

{ TsSkinGeneral }

procedure TsSkinGeneral.Assign(Source: TPersistent);
begin
  inherited;
end;

constructor TsSkinGeneral.Create(Collection: TCollection);
begin
  inherited;
end;

destructor TsSkinGeneral.Destroy;
begin
  inherited;
end;

{
procedure TsSkinGeneral.SetClassName(const Value: string);
begin
  FClassName := Value;
end;
}
procedure TsSkinGeneral.SetFadingEnabled(const Value: boolean);
begin
  FFadingEnabled := Value;
end;

procedure TsSkinGeneral.SetFadingIntervalIn(const Value: integer);
begin
  FFadingIntervalIn := Value;
end;

procedure TsSkinGeneral.SetFadingIntervalOut(const Value: integer);
begin
  FFadingIntervalOut := Value;
end;

procedure TsSkinGeneral.SetFadingIterations(const Value: integer);
begin
  FFadingIterations := Value;
end;

procedure TsSkinGeneral.SetFontColor(const Value: string);
begin
  FFontColor := Value;
end;

{
procedure TsSkinGeneral.SetGeneralData(var Value: TsGeneralData);
begin
  FGeneralData.ClassName                 := Value.ClassName                   ;
  FGeneralData.ParentClassName           := Value.ParentClassName             ;
  FGeneralData.PaintingColor             := Value.PaintingColor               ;
  FGeneralData.PaintingBevel             := Value.PaintingBevel               ;
  FGeneralData.PaintingBevelWidth        := Value.PaintingBevelWidth          ;
  FGeneralData.ShadowBlur                := Value.ShadowBlur                  ;
  FGeneralData.ShadowOffset              := Value.ShadowOffset                ;
  FGeneralData.ShadowColor               := Value.ShadowColor                 ;
  FGeneralData.ShadowTransparency        := Value.ShadowTransparency          ;
  FGeneralData.ShadowEnabled             := Value.ShadowEnabled               ;
  FGeneralData.PaintingTransparency      := Value.PaintingTransparency        ;
  FGeneralData.GradientPercent           := Value.GradientPercent             ;
  FGeneralData.ImagePercent              := Value.ImagePercent                ;
  FGeneralData.GradientData              := Value.GradientData                ;
  FGeneralData.GradientArray             := Value.GradientArray               ;
  FGeneralData.ShowFocus                 := Value.ShowFocus                   ;
  FGeneralData.FadingEnabled             := Value.FadingEnabled               ;
  FGeneralData.FadingIntervalIn          := Value.FadingIntervalIn            ;
  FGeneralData.FadingIntervalOut         := Value.FadingIntervalOut           ;
  FGeneralData.FadingIterations          := Value.FadingIterations            ;
  FGeneralData.HotPaintingColor          := Value.HotPaintingColor            ;
  FGeneralData.HotPaintingTransparency   := Value.HotPaintingTransparency     ;
  FGeneralData.HotPaintingBevel          := Value.HotPaintingBevel            ;
  FGeneralData.HotPaintingBevelWidth     := Value.HotPaintingBevelWidth       ;
  FGeneralData.HotGradientPercent        := Value.HotGradientPercent          ;
  FGeneralData.HotGradientData           := Value.HotGradientData             ;
  FGeneralData.HotGradientArray          := Value.HotGradientArray            ;
  FGeneralData.HotImagePercent           := Value.HotImagePercent             ;
  FGeneralData.HotFontColor              := Value.HotFontColor                ;
  FGeneralData.FontColor                 := Value.FontColor                   ;
  FGeneralData.PaintingColorBorderTop    := Value.PaintingColorBorderTop      ;
  FGeneralData.PaintingColorBorderBottom := Value.PaintingColorBorderBottom   ;
  FGeneralData.SelectionColor            := Value.SelectionColor              ;
  FGeneralData.SelectionBorderBevel      := Value.SelectionBorderBevel        ;
  FGeneralData.SelectionBorderWidth      := Value.SelectionBorderWidth        ;
end;
}
{
procedure TsSkinGeneral.SetGradientArray(const Value: TsGradArray);
begin
  FGradientArray := Value;
end;
}
procedure TsSkinGeneral.SetGradientData(const Value: string);
begin
  FGradientData := Value;
end;

procedure TsSkinGeneral.SetGradientPercent(const Value: integer);
begin
  FGradientPercent := Value;
end;

procedure TsSkinGeneral.SetHotFontColor(const Value: string);
begin
  FHotFontColor := Value;
end;
{
procedure TsSkinGeneral.SetHotGradientArray(const Value: TsGradArray);
begin
  FHotGradientArray := Value;
end;
}
procedure TsSkinGeneral.SetHotGradientData(const Value: string);
begin
  FHotGradientData := Value;
end;

procedure TsSkinGeneral.SetHotGradientPercent(const Value: integer);
begin
  FHotGradientPercent := Value;
end;

procedure TsSkinGeneral.SetHotImagePercent(const Value: integer);
begin
  FHotImagePercent := Value;
end;

procedure TsSkinGeneral.SetHotPaintingBevel(const Value: TsControlBevel);
begin
  FHotPaintingBevel := Value;
end;

procedure TsSkinGeneral.SetHotPaintingBevelWidth(const Value: integer);
begin
  FHotPaintingBevelWidth := Value;
end;

procedure TsSkinGeneral.SetHotPaintingColor(const Value: TColor);
begin
  FHotPaintingColor := Value;
end;

procedure TsSkinGeneral.SetHotPaintingTransparency(const Value: integer);
begin
  FHotPaintingTransparency := Value;
end;

procedure TsSkinGeneral.SetImagePercent(const Value: integer);
begin
  FImagePercent := Value;
end;

procedure TsSkinGeneral.SetName(const Value: string);
begin
  FName := Value;
end;

procedure TsSkinGeneral.SetPaintingBevel(const Value: TsControlBevel);
begin
  FPaintingBevel := Value;
end;

procedure TsSkinGeneral.SetPaintingBevelWidth(const Value: integer);
begin
  FPaintingBevelWidth := Value;
end;

procedure TsSkinGeneral.SetPaintingColor(const Value: TColor);
begin
  FPaintingColor := Value;
end;

procedure TsSkinGeneral.SetPaintingColorBorderBottom(const Value: TColor);
begin
  FPaintingColorBorderBottom := Value;
end;

procedure TsSkinGeneral.SetPaintingColorBorderTop(const Value: TColor);
begin
  FPaintingColorBorderTop := Value;
end;

procedure TsSkinGeneral.SetPaintingTransparency(const Value: integer);
begin
  FPaintingTransparency := Value;
end;

procedure TsSkinGeneral.SetParentClassName(const Value: string);
begin
  FParentClassName := Value;
end;

procedure TsSkinGeneral.SetReservedBoolean(const Value: boolean);
begin
  FReservedBoolean := Value;
end;

procedure TsSkinGeneral.SetSectionName(const Value: string);
begin
  FSectionName := Value;
end;

procedure TsSkinGeneral.SetSelectionBorderBevel(
  const Value: TsEditorBevel);
begin
  FSelectionBorderBevel := Value;
end;

procedure TsSkinGeneral.SetSelectionBorderWidth(const Value: integer);
begin
  FSelectionBorderWidth := Value;
end;

procedure TsSkinGeneral.SetSelectionColor(const Value: TColor);
begin
  FSelectionColor := Value;
end;

procedure TsSkinGeneral.SetShadowBlur(const Value: integer);
begin
  FShadowBlur := Value;
end;

procedure TsSkinGeneral.SetShadowColor(const Value: TColor);
begin
  FShadowColor := Value;
end;

procedure TsSkinGeneral.SetShadowDontUse(const Value: boolean);
begin
  FShadowDontUse := Value;
end;

procedure TsSkinGeneral.SetShadowEnabled(const Value: boolean);
begin
  FShadowEnabled := Value;
end;

procedure TsSkinGeneral.SetShadowOffset(const Value: integer);
begin
  FShadowOffset := Value;
end;

procedure TsSkinGeneral.SetShadowTransparency(const Value: integer);
begin
  FShadowTransparency := Value;
end;

procedure TsSkinGeneral.SetShowFocus(const Value: boolean);
begin
  FShowFocus := Value;
end;

{ TsSkinGenerals }

constructor TsSkinGenerals.Create(AOwner: TsStoredSkin);
begin
  inherited Create(TsSkinGeneral);
  FOwner := AOwner;
end;

destructor TsSkinGenerals.Destroy;
begin
  FOwner := nil;
  inherited Destroy;
end;

function TsSkinGenerals.GetItem(Index: Integer): TsSkinGeneral;
begin
  Result := TsSkinGeneral(inherited GetItem(Index))
end;

function TsSkinGenerals.GetOwner: TPersistent;
begin
  Result := FOwner;
end;

procedure TsSkinGenerals.SetItem(Index: Integer; Value: TsSkinGeneral);
begin
  inherited SetItem(Index, Value);
end;

procedure TsSkinGenerals.Update(Item: TCollectionItem);
begin
  inherited;
end;

{ TsSkinPattern }

procedure TsSkinPattern.Assign(Source: TPersistent);
begin
  inherited Assign(Source);
end;

constructor TsSkinPattern.Create(Collection: TCollection);
begin
  inherited Create(Collection);
  FImage := TJpegImage.Create;
end;

destructor TsSkinPattern.Destroy;
begin
  if Assigned(FImage) then FreeAndNil(FImage);
  inherited Destroy;
end;

procedure TsSkinPattern.SetClassName(const Value: string);
begin
  FClassName := Value;
end;

procedure TsSkinPattern.SetImage(const Value: TJpegImage);
begin
  FImage.Assign(Value);
end;

procedure TsSkinPattern.SetName(const Value: string);
begin
  if FName <> Value then begin
    FName := Value;
  end;
end;

procedure TsSkinPattern.SetPropertyName(const Value: string);
begin
  FPropertyName := Value;
end;

{ TsSkinPatterns }

constructor TsSkinPatterns.Create(AOwner: TsStoredSkin);
begin
  inherited Create(TsSkinPattern);
  FOwner := AOwner;
end;

destructor TsSkinPatterns.Destroy;
begin
  FOwner := nil;
  inherited Destroy;
end;

function TsSkinPatterns.GetItem(Index: Integer): TsSkinPattern;
begin
  Result := TsSkinPattern(inherited GetItem(Index))
end;

function TsSkinPatterns.GetOwner: TPersistent;
begin
  Result := FOwner;
end;

procedure TsSkinPatterns.SetItem(Index: Integer; Value: TsSkinPattern);
begin
  inherited SetItem(Index, Value);
end;

procedure TsSkinPatterns.Update(Item: TCollectionItem);
begin
  inherited;
end;

end.