paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 00:38:10 +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)
public
// function OrdValueToVisualValue(OrdValue: longint): string; override;
// procedure SetValue(const NewValue: ansistring); override;
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
end;
@ -280,24 +279,19 @@ begin
end;
{ TTabOrderPropEditor }
{
function TTabOrderPropEditor.OrdValueToVisualValue(OrdValue: longint): string;
function TTabOrderPropEditor.GetAttributes: TPropertyAttributes;
begin
Result:=inherited OrdValueToVisualValue(OrdValue);
Result:=(inherited GetAttributes)+[paDialog];
end;
procedure TTabOrderPropEditor.SetValue(const NewValue: ansistring);
begin
inherited SetValue(NewValue);
end;
}
procedure TTabOrderPropEditor.Edit;
begin
ShowTabOrderEditor(Self);
end;
initialization
RegisterPropertyEditor(TypeInfo(Integer), TControl, 'TabOrder', TTabOrderPropEditor);
RegisterPropertyEditor(TypeInfo(TTabOrder), TControl, 'TabOrder', TTabOrderPropEditor);
end.