paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 23:52:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: don't use initialization section with resources in extdlgs, include resources only if calculator panel is used.

Browse Source 
git-svn-id: trunk@23638 -
This commit is contained in:
paul 2010-02-05 09:19:06 +00:00
parent 7d8f24dd25
commit f8a1f56fb6
4 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -4093,7 +4093,6 @@ lcl/dynhasharray.pp svneol=native#text/pascal
lcl/dynqueue.pas svneol=native#text/pascal
lcl/editbtn.pas svneol=native#text/pascal
lcl/extctrls.pp svneol=native#text/pascal
lcl/extdlgs.lrs svneol=native#text/pascal
lcl/extdlgs.pas svneol=native#text/pascal
lcl/extendedstrings.pas svneol=native#text/pascal
lcl/extgraphics.pas svneol=native#text/pascal
@ -4806,6 +4805,7 @@ lcl/lazconfigstorage.pas svneol=native#text/pascal
lcl/lazhelphtml.pas svneol=native#text/pascal
lcl/lazhelpintf.pas svneol=native#text/pascal
lcl/lazlinkedlist.pas svneol=native#text/pascal
lcl/lcl_calc_images.lrs svneol=native#text/pascal
lcl/lcl_dbgrid_images.lrs svneol=native#text/pascal
lcl/lcl_dbnav_images.lrs svneol=native#text/pascal
lcl/lcl_dock_images.lrs svneol=native#text/pascal

14
lcl/extdlgs.pas
View File

@ -601,6 +601,7 @@ type
protected
procedure ErrorBeep;
procedure TextChange; virtual;
class procedure WSRegisterClass; override;
public
constructor CreateLayout(AOwner: TComponent; ALayout: TCalculatorLayout);
procedure CalcKeyPress(Sender: TObject; var Key: char);
@ -703,6 +704,15 @@ begin
FOnTextChange(Self);
end;
class procedure TCalculatorPanel.WSRegisterClass;
begin
inherited WSRegisterClass;
if RegisterCalculatorPanel then
begin
{$i lcl_calc_images.lrs}
end;
end;
procedure TCalculatorPanel.ErrorBeep;
begin
@ -1318,8 +1328,4 @@ begin
FreeAndNil(DF);
end;
initialization
{$i extdlgs.lrs}
end.

0
lcl/extdlgs.lrs → lcl/lcl_calc_images.lrs
View File

12
lcl/widgetset/wsextdlgs.pp
View File

@ -105,6 +105,7 @@ type
procedure RegisterSavePictureDialog;
procedure RegisterCalculatorDialog;
procedure RegisterCalculatorForm;
function RegisterCalculatorPanel: Boolean;
//procedure RegisterCalendarDialogForm;
procedure RegisterCalendarDialog;
@ -178,6 +179,17 @@ begin
Done := True;
end;
function RegisterCalculatorPanel: Boolean;
const
Done: Boolean = False;
begin
Result := False;
if Done then exit;
// WSRegisterCalculatorPanel;
Done := True;
Result := True;
end;
(*procedure RegisterCalendarDialogForm;
const
Done: Boolean = False;