LYSK пишет:
| цитата: |
| EDIT EXTENDED не реагирует на SET LANGUAGE to RUSSIAN |
|
Да, это так, поскольку НЕ переведены на русский соответствующие массивы в файле h_init.prg:
// EDIT EXTENDED
_HMG_aLangButton := { ;
"&Close", ; // 1
"&New", ; // 2
"&Modify", ; // 3
"&Delete", ; // 4
"&Find", ; // 5
"&Print", ; // 6
"&Cancel", ; // 7
"&Ok", ; // 8
"&Copy", ; // 9
"&Activate Filter", ; // 10
"&Deactivate Filter", ; // 11
"&Restore" } // 12
_HMG_aLangLabel := { ;
"None", ; // 1
"Record", ; // 2
"Total", ; // 3
"Active order", ; // 4
"Options", ; // 5
"New record", ; // 6
"Modify record", ; // 7
"Select record", ; // 8
"Find record", ; // 9
"Print options", ; // 10
"Available fields", ; // 11
"Fields to print", ; // 12
"Available printers", ; // 13
"First record to print", ; // 14
"Last record to print", ; // 15
"Delete record", ; // 16
"Preview", ; // 17
"View page thumbnails", ; // 18
"Filter Condition: ", ; // 19
"Filtered: ", ; // 20
"Filtering Options" , ; // 21
"Database Fields" , ; // 22
"Comparison Operator", ; // 23
"Filter Value", ; // 24
"Select Field To Filter", ; // 25
"Select Comparison Operator", ; // 26
"Equal", ; // 27
"Not Equal", ; // 28
"Greater Than", ; // 29
"Lower Than", ; // 30
"Greater or Equal Than", ; // 31
"Lower or Equal Than" } // 32
_HMG_aLangUser := { ;
ABM_CRLF + "Can't find an active area. " + ABM_CRLF + "Please select any area before call EDIT " + ABM_CRLF, ; // 1
"Type the field value (any text)", ; // 2
"Type the field value (any number)", ; // 3
"Select the date", ; // 4
"Check for true value", ; // 5
"Enter the field value", ; // 6
"Select any record and press OK", ; // 7
ABM_CRLF + "You are going to delete the active record " + ABM_CRLF + "Are you sure? " + ABM_CRLF, ; // 8
ABM_CRLF + "There isn't any active order " + ABM_CRLF + "Please select one " + ABM_CRLF, ; // 9
ABM_CRLF + "Can't do searches by fields memo or logic " + ABM_CRLF, ; // 10
ABM_CRLF + "Record not found " + ABM_CRLF, ; // 11
"Select the field to include to list", ; // 12
"Select the field to exclude from list", ; // 13
"Select the printer", ; // 14
"Push button to include field", ; // 15
"Push button to exclude field", ; // 16
"Push button to select the first record to print", ; // 17
"Push button to select the last record to print", ; // 18
ABM_CRLF + "No more fields to include " + ABM_CRLF, ; // 19
ABM_CRLF + "First select the field to include " + ABM_CRLF, ; // 20
ABM_CRLF + "No more fields to exlude " + ABM_CRLF, ; // 21
ABM_CRLF + "First select th field to exclude " + ABM_CRLF, ; // 22
ABM_CRLF + "You don't select any field " + ABM_CRLF + "Please select the fields to include on print " + ABM_CRLF, ; // 23
ABM_CRLF + "Too many fields " + ABM_CRLF + "Reduce number of fields " + ABM_CRLF, ; // 24
ABM_CRLF + "Printer not ready " + ABM_CRLF, ; // 25
"Ordered by", ; // 26
"From record", ; // 27
"To record", ; // 28
"Yes", ; // 29
"No", ; // 30
"Page:", ; // 31
ABM_CRLF + "Please select a printer " + ABM_CRLF, ; // 32
"Filtered by", ; // 33
ABM_CRLF + "There is an active filter " + ABM_CRLF, ; // 34
ABM_CRLF + "Can't filter by memo fields " + ABM_CRLF, ; // 35
ABM_CRLF + "Select the field to filter " + ABM_CRLF, ; // 36
ABM_CRLF + "Select any operator to filter " + ABM_CRLF, ; // 37
ABM_CRLF + "Type any value to filter " + ABM_CRLF, ; // 38
ABM_CRLF + "There isn't any active filter " + ABM_CRLF, ; // 39
ABM_CRLF + "Deactivate filter? " + ABM_CRLF, ; // 40
ABM_CRLF + "Record locked by another user " + ABM_CRLF, ; // 41
ABM_CRLF + "You are going to restore the deleted record " + ABM_CRLF + "Are you sure? " + ABM_CRLF } // 42
Переопредели их в начале программы, и все будет OK
) 
) и заплатка для класса TReg32 
- участник сейчас на форуме
- участник вне форума