Rev 8097 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8097 | Rev 8859 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016, 2018, 2020 Anton Krotov |
2 | Copyright 2016, 2018, 2020, 2021 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 17... | Line 17... | ||
| 17 | 17 | ||
| Line 18... | Line 18... | ||
| 18 | MODULE OpenDlg; |
18 | MODULE OpenDlg; |
| Line -... | Line 19... | ||
| - | 19 | ||
| - | 20 | IMPORT sys := SYSTEM, KOSAPI; |
|
| - | 21 | ||
| - | 22 | CONST |
|
| - | 23 | topen* = 0; |
|
| 19 | 24 | tsave* = 1; |
|
| Line 20... | Line 25... | ||
| 20 | IMPORT sys := SYSTEM, KOSAPI; |
25 | tdir* = 2; |
| Line 21... | Line 26... | ||
| 21 | 26 | ||
| 22 | TYPE |
27 | TYPE |
| 23 | 28 | ||
| 24 | DRAW_WINDOW = PROCEDURE; |
29 | DRAW_WINDOW = PROCEDURE; |
| 25 | 30 | ||
| 26 | TDialog = RECORD |
31 | TDialog = RECORD |
| 27 | _type, |
32 | _type*, |