Предновогодняя раздача фрэймворков на http://www.urfin.narod.ru

1) Фриварный виндовый файл-серверный движок (ADF).
Каркас для разработки приложений на VFP9.

2) Фриварный досовый файл-серверный движок (NT).
Каркас для разработки приложений на FPD2.6a

Движки предназначены для раздербанивания и доработки рашпилем.

Вдруг кому пригодится ...
На http://urfin.narod.ru лежит летняя версия фрэймвёрка на VFP9 SP2.
Исходники предназначены для раздербанивания.

Подключается так : SET PROCEDURE TO Resources.app

Примеры вызовов из фрэймвёрка :
1) В методе AddMemuItem() формы _menu.scx стоит вызов функции DefinePictureBar(iOrder, lcParent, lcPicture).
2) В методе Init() класса frmSimple библиотеки main.vcx стоит вызов другой функции SetIconProperty(This, toForm.cPicture)
и т.п.
Гляньте исходники resource.prg из архива resources2k9.rar (на сайте "приложение - ресурсный файл с графическими примитивами") - всё станет ясно.

* ЗАГРУЗКА КАРТИНКИ КАК СТРОКИ
* ПРИМЕР ПРИМЕНЕНИЯ : ThisForm.imgPicture.PictureVal = GetPictureAsString('0000001.BMP')

FUNCTION GetPictureAsString
LPARAMETERS tcPicture AS String
ASSERT VARTYPE(tcPicture) = 'C'
RETURN IIF(FILE(tcPicture), FILETOSTR(tcPicture), '')

* ЗАГРУЗКА КАРТИНКИ КАК ОБЪЕКТА
* ПРИМЕР ПРИМЕНЕНИЯ : ThisForm.oleImageList.Images.Add(GetPictureAsObject('0000001.BMP'))

FUNCTION GetPictureAsObject
LPARAMETERS tcPicture AS String
ASSERT VARTYPE(tcPicture) = 'C'
RETURN IIF(FILE(tcPicture), LOADPICTURE(tcPicture), .NULL.)

* ПРИСВОЕНИЕ СВОЙСТВА PICTURE
* ПРИМЕР ПРИМЕНЕНИЯ : SetPictureProperty(ThisForm.imgPicture, '0000001.BMP')

FUNCTION SetPictureProperty
LPARAMETERS toObject AS Image, tcPicture AS String, tnIndex AS Integer
ASSERT VARTYPE(toObject) = 'O'
ASSERT VARTYPE(tcPicture) = 'C'
tcPicture = IIF(FILE(tcPicture), tcPicture, '')
IF VARTYPE(tnIndex) = 'N'
toObject.Picture[tnIndex] = tcPicture
ELSE
toObject.Picture = tcPicture
ENDIF
RETURN !EMPTY(tcPicture)

* ПРИСВОЕНИЕ СВОЙСТВА ICON
* ПРИМЕР ПРИМЕНЕНИЯ : SetIconProperty(ThisForm, '0000001.ICO')

FUNCTION SetIconProperty
LPARAMETERS toObject AS Form, tcIcon AS String
ASSERT VARTYPE(toObject) = 'O'
ASSERT VARTYPE(tcIcon) = 'C'
toObject.Icon = IIF(FILE(tcIcon), tcIcon, '')
RETURN FILE(tcIcon)

* СОЗДАНИЕ ПУНКТА МЕНЮ С КАРТИНКОЙ
* ПРИМЕР ПРИМЕНЕНИЯ : DefinePictureBar(1, '_1', '00000001.BMP')

FUNCTION DefinePictureBar
LPARAMETERS tnIndex AS Integer, tcParent AS String, tcPicture AS String
ASSERT VARTYPE(tnIndex) = 'N'
ASSERT VARTYPE(tcParent) = 'C'
ASSERT VARTYPE(tcPicture) = 'C'
tcPicture = IIF(FILE(tcPicture), tcPicture, '')
DEFINE BAR tnIndex OF (tcParent) PROMPT '' PICTURE (tcPicture)
RETURN FILE(tcPicture)

* ПОЛУЧИМ КОЛЛЕКЦИЮ ИМЕН ФАЙЛОВ ПО РАСШИРЕНИЮ
* ПРИМЕР ПРИМЕНЕНИЯ :
* loCollection = GetResourceCollection('BMP')
* FOR EACH lcFileName IN loCollection
* ENDFOR

FUNCTION GetResourceCollection
LPARAMETERS tcFileExtension AS String
ASSERT VARTYPE(tcFileExtension) = 'C'
LOCAL loCollection AS Collection, lnResource AS Integer, lcResource AS String
loCollection = CREATEOBJECT('Collection')
FOR lnResource = 1 TO 999
lcResource = TRANSFORM(lnResource, '@L 99999999') + '.' + tcFileExtension
IF FILE(lcResource)
loCollection.Add(lcResource)
ENDIF
ENDFOR
RETURN loCollection