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

Adds registration of the default TWSLazDeviceAPIs class when the WS lacks an implementation

Browse Source 
git-svn-id: trunk@34947 -
This commit is contained in:
sekelsenmat 2012-01-26 10:44:08 +00:00
parent 2ef6d922c8
commit ca2975464a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/widgetset/wslazdeviceapis.pas
View File

@ -74,9 +74,8 @@ const
Done: Boolean = False;
begin
if Done then exit;
WSRegisterLazDeviceAPIs;
// if not WSRegisterArrow then
// RegisterWSComponent(TArrow, TWSArrow);
if not WSRegisterLazDeviceAPIs() then
RegisterWSLazDeviceAPIs(TWSLazDeviceAPIs);
Done := True;
end;