Rev 9645 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9645 | Rev 9913 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016, 2018, 2020-2022 Anton Krotov |
2 | Copyright 2016, 2018, 2020-2023 Anton Krotov |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
| 5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
| 6 | the Free Software Foundation, either version 3 of the License, or |
6 | the Free Software Foundation, either version 3 of the License, or |
| Line 22... | Line 22... | ||
| 22 | CONST |
22 | CONST |
| 23 | topen* = 0; |
23 | topen* = 0; |
| 24 | tsave* = 1; |
24 | tsave* = 1; |
| 25 | tdir* = 2; |
25 | tdir* = 2; |
| Line -... | Line 26... | ||
| - | 26 | ||
| - | 27 | libName = "proc_lib.obj"; |
|
| 26 | 28 | ||
| Line 27... | Line 29... | ||
| 27 | TYPE |
29 | TYPE |
| Line 28... | Line 30... | ||
| 28 | 30 | ||
| Line 60... | Line 62... | ||
| 60 | VAR |
62 | VAR |
| Line 61... | Line 63... | ||
| 61 | 63 | ||
| Line 62... | Line 64... | ||
| 62 | filter_area: tFilterArea; |
64 | filter_area: tFilterArea; |
| 63 | 65 | ||
| Line 64... | Line 66... | ||
| 64 | 66 | ||
| 65 | PROCEDURE [stdcall, "proc_lib.obj", ""] OpenDialog_init (od: Dialog); END; |
67 | PROCEDURE [stdcall, libName, ""] OpenDialog_init (od: Dialog); END; |
| 66 | PROCEDURE [stdcall, "proc_lib.obj", ""] OpenDialog_start (od: Dialog); END; |
68 | PROCEDURE [stdcall, libName, ""] OpenDialog_start (od: Dialog); END; |
| 67 | 69 | ||