Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7983 | Rev 8097 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016, 2018 Anton Krotov |
2 | Copyright 2016, 2018, 2020 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 | TYPE |
22 | TYPE |
| Line 23... | Line 23... | ||
| 23 | 23 | ||
| Line 24... | Line 24... | ||
| 24 | DRAW_WINDOW = PROCEDURE; |
24 | DRAW_WINDOW = PROCEDURE; |
| 25 | 25 | ||
| 26 | TDialog = RECORD |
26 | TDialog = RECORD |
| 27 | type, |
27 | _type, |
| 28 | procinfo, |
28 | procinfo, |
| 29 | com_area_name, |
29 | com_area_name, |
| 30 | com_area, |
30 | com_area, |
| Line 64... | Line 64... | ||
| 64 | od.Y := Height; |
64 | od.Y := Height; |
| 65 | Dialog_start(od) |
65 | Dialog_start(od) |
| 66 | END |
66 | END |
| 67 | END Show; |
67 | END Show; |
| Line 68... | Line 68... | ||
| 68 | 68 | ||
| 69 | PROCEDURE Create*(draw_window: DRAW_WINDOW; type: INTEGER; def_path, filter: ARRAY OF CHAR): Dialog; |
69 | PROCEDURE Create*(draw_window: DRAW_WINDOW; _type: INTEGER; def_path, filter: ARRAY OF CHAR): Dialog; |
| Line 70... | Line 70... | ||
| 70 | VAR res: Dialog; n, i: INTEGER; |
70 | VAR res: Dialog; n, i: INTEGER; |
| 71 | 71 | ||
| 72 | PROCEDURE replace(VAR str: ARRAY OF CHAR; c1, c2: CHAR); |
72 | PROCEDURE replace(VAR str: ARRAY OF CHAR; c1, c2: CHAR); |
| Line 86... | Line 86... | ||
| 86 | IF res # NIL THEN |
86 | IF res # NIL THEN |
| 87 | NEW(res.filter_area); |
87 | NEW(res.filter_area); |
| 88 | IF res.filter_area # NIL THEN |
88 | IF res.filter_area # NIL THEN |
| 89 | res.s_com_area_name := "FFFFFFFF_open_dialog"; |
89 | res.s_com_area_name := "FFFFFFFF_open_dialog"; |
| 90 | res.com_area := 0; |
90 | res.com_area := 0; |
| 91 | res.type := type; |
91 | res._type := _type; |
| 92 | res.draw_window := draw_window; |
92 | res.draw_window := draw_window; |
| 93 | COPY(def_path, res.s_dir_default_path); |
93 | COPY(def_path, res.s_dir_default_path); |
| 94 | COPY(filter, res.filter_area.filter); |
94 | COPY(filter, res.filter_area.filter); |
| Line 95... | Line 95... | ||
| 95 | 95 | ||