Отправлено: 13.08.10 11:51. Заголовок: Помощь начинающему

Люди подскажите пожалуйста как распечатать текстовый файл с предпросмотром. Смотрел пример BmpViewer. Но а как для текстого файла такое сделать незнаю.

 Отправлено: 13.08.10 11:55. Заголовок: Badim пишет: Люди п..

Badim пишет:

цитата:

Люди подскажите пожалуйста как распечатать текстовый файл с предпросмотром.

notepad myfile.txt

 Отправлено: 13.08.10 11:59. Заголовок: Средствами MiniGUI..

Средствами MiniGUI

 Отправлено: 14.08.10 01:21. Заголовок: Выдрал у себя из про..

Выдрал у себя из проекта. Идею возьми...

Скрытый текст

FUNCTION Main PUBLIC cFoldTemp, lYearPapkaCopy, lUnzip, lDelete, cPath PUBLIC cPathFrom, cPathTo, cMASK, cFolder, cLogoFile PUBLIC cMyProgramm, cMyCopyright, lDir2x3x M->cPathFrom := "" ; M->cPathTo := "" ; M->cMASK := "" ; M->cFolder := "" ; M->cLogoFile := "" M->lUnzip := .F. ; M->lDelete := .F. ; M->lYearPapkaCopy := .F. ; M->cPath := "" ; M->lDir2x3x := .F. //Узнаём текущий путь M->cPath := SubStr( ExeName(), 1, RAt( "\", ExeName() ) - 0 ) cIni := SubStr( ExeName(), 1, RAt( ".", ExeName() ) - 1 ) + '.ini' // Чтение параметров из INI-файла ReadIniFile() // Создаём папки ..\REPORT и C:\Windows\Temp\@SBANK TestFolder() // загружаем форму Load Window FormA // Присваеваем форме свойства // Загружаем значения текстовых полей из переменных SetFormAProp() LoadLogotype() // центрируем FormA.Center // стартуем FormA.Activate RETURN Nil // загружаем форму отчётов FUNCTION LoadReport() Load Window fReport GetReportFiles() fReport.Center fReport.Activate RETURN Nil // Функция заполнения поля данными FUNCTION GetReportFiles() LOCAL ADir := { }, nI, cFile // Получаем список файлов в папке отчётов с маской ТХТ ADir := Directory( M->cPath + M->cFolder + "*.txt" ) FOR nI := Len( ADir ) TO 1 STEP - 1 cFile := SubStr( ADir[ nI, 1 ], 1, Len( ADir[ nI, 1 ] ) - 4 ) // Добавляем элемент из массива //cFile:=IIf(nI==Len(ADir),cFile+" (Последний отчёт)",cFile) fReport.List_1.AddItem( cFile ) // Присваиваем номер по порядку fReport.List_1.Value := nI NEXT // Возвращаемся к началу списка fReport.List_1.Value := 1 RETURN Nil // Выбираем файл отчёта по его номеру FUNCTION SelectReportFile( lUseNotepad ) LOCAL nn := fReport.List_1.Value, cVal, cTemp IF lUseNotepad == .T. cVal := AllTrim( fReport.List_1.Item( nn ) ) cTemp := M->cPath + M->cFolder + cVal + ".txt" ShellExecute(, "open", "notepad.exe", cTemp,, 1 ) ELSE cVal := AllTrim( fReport.List_1.Item( nn ) ) cTemp := M->cPath + M->cFolder + cVal + ".txt" fReport.Edit_1.Value := MemoRead( cTemp ) ENDIF RETURN Nil

//// Делаем форму, а на форме там .... типа того:
Скрытый текст

DEFINE WINDOW TEMPLATE AT 140 , 235 WIDTH 730 HEIGHT 350 TITLE "Список всех отчётов..." ICON "iProgramm" MODAL NOSIZE NOSYSMENU BACKCOLOR {251,214,136} DEFINE LISTBOX List_1 ROW 10 COL 10 WIDTH 173 HEIGHT 296 ONCHANGE SelectReportFile(.F.) ONDBLCLICK SelectReportFile(.T.) END LISTBOX

Это кусок моей проги "Программа копирования файлов оплат из СБЕРБАНКА (клиент-банк)"

 Отправлено: 16.08.10 07:58. Заголовок: Что то всеравно не т..

Что то всеравно не то в MiniGUI есть samples там есть BmpViewer. Что то типа такого
Скрытый текст

Static Procedure FilePrint() *--------------------------------------------------------* Local nScale := 1 / 3.937, nX, nY, nH, nW IF !Empty( cFile ) .AND. File( cFile ) INIT PRINTSYS SELECT BY DIALOG IF HBPRNERROR != 0 RETURN ENDIF SET UNITS MM // Sets @... units to milimeters SET PAPERSIZE DMPAPER_A4 // Sets paper size to A4 IF nHeight >= nWidth SET ORIENTATION PORTRAIT // Sets paper orientation to portrait nH := 250 nW := 170 ELSE SET ORIENTATION LANDSCAPE // Sets paper orientation to landscape nH := 170 nW := 250 ENDIF SET BIN DMBIN_FIRST // Use first bin SET QUALITY DMRES_HIGH // Sets print quality to high SET COLORMODE DMCOLOR_COLOR // Set print color mode to color SET PREVIEW ON // Enables print preview SET PREVIEW RECT 0, 0, nScrHeight, nScrWidth START DOC NAME Left(PROGRAM, 9) START PAGE DO WHILE .T. nX := Round( nHeight * nScale, 0 ) nY := Round( nWidth * nScale, 0 ) IF ( nX <= nH .AND. nY <= nW ) .OR. nScale < 0.15 EXIT ENDIF nScale -= 0.05 ENDDO @ 15,20 PICTURE cFile SIZE nX, nY END PAGE END DOC RELEASE PRINTSYS ENDIF Return

 Отправлено: 16.08.10 08:00. Заголовок: Вместо "@ 15,20 ..

Вместо "@ 15,20 PICTURE cFile SIZE nX, nY" надо загрузить текстовый файл

 Отправлено: 06.09.10 10:42. Заголовок: Здравствуйте! На фор..

Здравствуйте!
На форме в mini GUI у меня есть несколько окн, как в Run Time поменять фокус на объектах
Не ругайтесь я только начал осваивать))

 Отправлено: 06.09.10 10:57. Заголовок: Извините за беспокой..

Извините за беспокойства разобрался