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

lcl: cleanup

Browse Source 
git-svn-id: trunk@24161 -
This commit is contained in:
paul 2010-03-22 03:55:06 +00:00
parent 4d8114c3f6
commit c93ed80353
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/editbtn.pas
View File

@ -430,14 +430,13 @@ type
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
// CalcEdit properties
property CalculatorLayout : TCalculatorLayout read FLayout write Flayout;
property AsFloat : Double read GetAsFloat write SetAsFloat;
property AsInteger : Integer read GetAsInteger write SetAsInteger;
property OnAcceptValue : TAcceptValueEvent read FOnAcceptValue write FOnAcceptValue;
property DialogTitle : String read FDialogTitle write FDialogTitle Stored TitleStored;
property DialogTitle : String read FDialogTitle write FDialogTitle stored TitleStored;
// TEditButton properties.
property ButtonWidth;
property DirectInput;
@ -1194,11 +1193,6 @@ begin
FdialogTitle:=rsCalculator;
end;
destructor TCalcEdit.Destroy;
begin
inherited Destroy;
end;
procedure Register;
begin
RegisterComponents('Misc', [TEditButton,TFileNameEdit,TDirectoryEdit,

2
lcl/include/control.inc
View File

@ -1172,7 +1172,7 @@ var
begin
Result := 0;
{$IFDEF VerboseDrag}
DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=',IntToStr(ord(ADragMessage)));
DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=', GetEnumName(TypeInfo(TDragMessage), Ord(ADragMessage)));
{$ENDIF}
case ADragMessage of