paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +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
{$IFDEF USEBUTTONEDIT}
{$IFnDEF USEOLDEDITBUTTON}
{$R lcl_edbtnimg.res}
{$ENDIF}
@ -1999,7 +1999,7 @@ end;
procedure Register;
begin
{$IFDEF USEBUTTONEDIT}
{$IFnDEF USEOLDEDITBUTTON}
RegisterComponents('Misc', [TButtonEdit,TFileNameEdit,TDirectoryEdit,
TDateEdit,TCalcEdit]);
{$ENDIF}

6
lcl/editbtn.pas
View File

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