paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 13:45:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: property editor for TControl.TabOrder

Browse Source 
git-svn-id: trunk@30427 -
This commit is contained in:
mattias 2011-04-22 14:46:32 +00:00
parent ef3f193b45
commit 72ce7a70f6
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
designer/taborderdlg.pas
View File

@ -65,8 +65,7 @@ type
TTabOrderPropEditor = class(TIntegerPropertyEditor) TTabOrderPropEditor = class(TIntegerPropertyEditor)
public public
// function OrdValueToVisualValue(OrdValue: longint): string; override; function GetAttributes: TPropertyAttributes; override;
// procedure SetValue(const NewValue: ansistring); override;
procedure Edit; override; procedure Edit; override;
end; end;
@ -280,24 +279,19 @@ begin
end; end;
{ TTabOrderPropEditor } { TTabOrderPropEditor }
{
function TTabOrderPropEditor.OrdValueToVisualValue(OrdValue: longint): string; function TTabOrderPropEditor.GetAttributes: TPropertyAttributes;
begin begin
Result:=inherited OrdValueToVisualValue(OrdValue); Result:=(inherited GetAttributes)+[paDialog];
end; end;
procedure TTabOrderPropEditor.SetValue(const NewValue: ansistring);
begin
inherited SetValue(NewValue);
end;
}
procedure TTabOrderPropEditor.Edit; procedure TTabOrderPropEditor.Edit;
begin begin
ShowTabOrderEditor(Self); ShowTabOrderEditor(Self);
end; end;
initialization initialization
RegisterPropertyEditor(TypeInfo(Integer), TControl, 'TabOrder', TTabOrderPropEditor); RegisterPropertyEditor(TypeInfo(TTabOrder), TControl, 'TabOrder', TTabOrderPropEditor);
end. end.