| 1,5 → 1,5 |
|---|
| (* |
| Copyright 2016 KolibriOS team |
| (* |
| Copyright 2016, 2018 KolibriOS team |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU Lesser General Public License as published by |
| 101,7 → 101,7 |
|---|
| PROCEDURE main; |
| VAR Lib: INTEGER; |
| |
| PROCEDURE GetProc(v: INTEGER; name: ARRAY OF CHAR); |
| PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR); |
| VAR a: INTEGER; |
| BEGIN |
| a := KOSAPI.GetProcAdr(name, Lib); |
| 112,10 → 112,10 |
|---|
| BEGIN |
| Lib := KOSAPI.LoadLib("/rd/1/lib/RasterWorks.obj"); |
| ASSERT(Lib # 0); |
| GetProc(sys.ADR(drawText), "drawText"); |
| GetProc(sys.ADR(cntUTF_8), "cntUTF-8"); |
| GetProc(sys.ADR(charsFit), "charsFit"); |
| GetProc(sys.ADR(strWidth), "strWidth"); |
| GetProc(Lib, sys.ADR(drawText), "drawText"); |
| GetProc(Lib, sys.ADR(cntUTF_8), "cntUTF-8"); |
| GetProc(Lib, sys.ADR(charsFit), "charsFit"); |
| GetProc(Lib, sys.ADR(strWidth), "strWidth"); |
| END main; |
| |
| |