pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix streaming of SubCaption property

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1436 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-01-12 18:29:54 +00:00
parent 9aa37ba20f
commit 5148aebbc0
1 changed files with 25 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/smnetgradient/smnetgradient.pas
View File

@ -60,6 +60,8 @@ type
TCustomNetGradient = class;
{ TSubCaption }
TSubCaption = class(TPersistent)
private
{ Private-Deklarationen }
@ -73,6 +75,7 @@ type
procedure OnFontChanged(Sender: TObject);
protected
{ Protected declarations }
procedure Assign(Source: TPersistent); override;
procedure SetCaption(const Value: TCaption); virtual;
procedure SetFont(Value: TFont); virtual;
procedure SetMarginLeft(Value: Integer); virtual;
@ -131,6 +134,7 @@ type
procedure SetNumberOfColors(Value: TNumberOfColors);
procedure SetFont(AFont: TFont);
procedure SetCaption(const Value: String);
procedure SetSubCaption(const Value: TSubCaption);
procedure SetTextTop(Value: Integer);
procedure SetTextLeft(Value: Integer);
{ Fill procedure }
@ -162,7 +166,7 @@ type
property Caption: String read FCaption write SetCaption;
property TextTop: Integer read FTextTop write SetTextTop;
property TextLeft: Integer read FTextLeft write SetTextLeft;
property SubCaption: TSubCaption read FSubCaption;
property SubCaption: TSubCaption read FSubCaption write SetSubCaption;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -368,6 +372,11 @@ begin
Changed;
end;
end;
procedure TCustomNetGradient.SetSubCaption(const Value: TSubCaption);
begin
FSubCaption.Assign(Value);
end;
// Set the Position of the Caption (Top)
procedure TCustomNetGradient.SetTextTop(Value: Integer);
@ -797,6 +806,21 @@ begin
Parent.Changed;
end;
procedure TSubCaption.Assign(Source: TPersistent);
begin
if Source is TSubCaption then
begin
FCaption := TSubCaption(Source).Caption;
FHotTrack := TSubCaption(Source).HotTrack;
FMarginLeft := TSubCaption(Source).MarginLeft;
FMarginTop := TSubCaption(Source).MarginTop;
FVisible := TSubCaption(Source).Visible;
Font := TSubCaption(Source).Font;
end
else
inherited Assign(Source);
end;
procedure TSubCaption.SetMarginLeft(Value: Integer);
begin
if Value <> FMarginLeft then