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

LCL: Start replacing TEditButton with TButtonEdit component.

Browse Source 
The old TEditButton implementation is (for the time being) compilable with -dUSEOLDEDITBUTTON

git-svn-id: trunk@44623 -
This commit is contained in:
bart 2014-04-06 15:19:13 +00:00
parent 1c21a9a593
commit bee933f2ab
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/buttonedit.pas
View File

@ -763,7 +763,7 @@ procedure Register;
implementation implementation
{$IFDEF USEBUTTONEDIT} {$IFnDEF USEOLDEDITBUTTON}
{$R lcl_edbtnimg.res} {$R lcl_edbtnimg.res}
{$ENDIF} {$ENDIF}
@ -1999,7 +1999,7 @@ end;
procedure Register; procedure Register;
begin begin
{$IFDEF USEBUTTONEDIT} {$IFnDEF USEOLDEDITBUTTON}
RegisterComponents('Misc', [TButtonEdit,TFileNameEdit,TDirectoryEdit, RegisterComponents('Misc', [TButtonEdit,TFileNameEdit,TDirectoryEdit,
TDateEdit,TCalcEdit]); TDateEdit,TCalcEdit]);
{$ENDIF} {$ENDIF}

6
lcl/editbtn.pas
View File

@ -22,7 +22,7 @@ unit EditBtn;
interface interface
{$IFDEF USEBUTTONEDIT} {$IFnDEF USEOLDEDITBUTTON}
uses uses
Classes, ButtonEdit; Classes, ButtonEdit;
@ -660,7 +660,7 @@ procedure Register;
implementation implementation
{$IFDEF USEBUTTONEDIT} {$IFnDEF USEOLDEDITBUTTON}
{$ELSE} {$ELSE}
@ -1638,7 +1638,7 @@ end;
procedure Register; procedure Register;
begin begin
{$IFnDEF USEBUTTONEDIT} {$IFDEF USEOLDEDITBUTTON}
RegisterComponents('Misc', [TEditButton,TFileNameEdit,TDirectoryEdit, RegisterComponents('Misc', [TEditButton,TFileNameEdit,TDirectoryEdit,
TDateEdit,TCalcEdit]); TDateEdit,TCalcEdit]);
{$ELSE} {$ELSE}