paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 02:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: TCustomLabel.Caption is now editable again in OI

Browse Source 
git-svn-id: trunk@1409 -
This commit is contained in:
lazarus 2002-02-09 02:30:33 +00:00
parent be55569a2d
commit 88e11d7a41
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
designer/propedits.pp
View File

@ -615,7 +615,7 @@ type
PropertyEditor editor for the Caption property when the Caption can be multiline.
Brings up the dialog for entering text. }
TCaptionMultilinePropertyEditor = class(TClassPropertyEditor)
TCaptionMultilinePropertyEditor = class(TCaptionPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
@ -899,7 +899,7 @@ type
FComponentName:TComponentName;
FShortCut: TShortCut;
FTabOrder:integer;
FCaption:TCaption;
FCaption: TCaption;
FLines:TStrings;
FColumns: TListColumns;
FModalResult:TModalResult;
@ -910,17 +910,17 @@ type
destructor Destroy; override;
published
property PropCount:integer read FCount;
property DummyComponent:TComponent read FComponent write FComponent;
property DummyName:TComponentName read FComponentName write FComponentName;
property DummyComponent:TComponent read FComponent;
property DummyName:TComponentName read FComponentName;
property TabOrder:integer read FTabOrder;
property Caption:TCaption read FCaption;
property Lines:TStrings read FLines;
property Columns:TListColumns read FColumns write FColumns;
property ModalResult:TModalResult read FModalResult write FModalResult;
property ShortCut: TShortCut read FShortCut write FShortCut;
property Date: TDateProperty read FDate write FDate;
property Time: TTimePropertyEditor read FTime write FTime;
property DateTime: TDateTimePropertyEditor read FDateTime write FDateTime;
property Columns:TListColumns read FColumns;
property ModalResult:TModalResult read FModalResult;
property ShortCut: TShortCut read FShortCut;
property Date: TDateProperty read FDate;
property Time: TTimePropertyEditor read FTime;
property DateTime: TDateTimePropertyEditor read FDateTime;
end;
//==============================================================================
@ -3387,7 +3387,6 @@ begin
RegisterPropertyEditor(DummyClassForPropTypes.PTypeInfos('AnsiString'),
TCustomLabel, 'Caption', TCaptionMultilinePropertyEditor);
end;
procedure FinalPropEdits;