diff --git a/.github/CONTRIBUTING.md b/.github/CONTRIBUTING.md index 9170664..c9da38e 100644 --- a/.github/CONTRIBUTING.md +++ b/.github/CONTRIBUTING.md @@ -1,152 +1,122 @@ -# How to contribute to FoxBin2Prg - -## Bug report? -- Please check [issues](https://github.com/fdbozzo/foxbin2prg/issues) if the bug is reported -- If you're unable to find an open issue addressing the problem, open a new one. Be sure to include a title and clear description, as much relevant information as possible, and a code sample or an executable test case demonstrating the expected behavior that is not occurring. -- Please add your current configuration creating a config file via - -``` -DO FOXBIN2PRG.PRG WITH '-C','path-to-source\FoxBin.cfg' -``` -**Do not include your normal config** - -### Did you write a patch that fixes a bug? -- Open a new GitHub merge request with the patch. -- Ensure the PR description clearly describes the problem and solution. - - Include the relevant version number if applicable. -- See [New version](#new-version) for additional tasks - -## Coding conventions - -Start reading our code and you'll get the hang of it. We optimize for readability: - -- Beautification is done like: - - Keywords: Mixed case - - Symbols: First occurence - - Indentation Tabs, 1 - - Indent anything then Comments -- Please do not run BeautifyX with mDots insertion against the code. -- We ALWAYS put spaces after list items and method parameters (`[1, 2, 3]`, not `[1,2,3]`), around operators (`x = 1`, not `x=1`). -- This is open source software. Consider the people who will read your code, and make it look nice for them. It's sort of like driving a car: Perhaps you love doing donuts when you're alone, but with passengers the goal is to make the ride as smooth as possible. -- Please kindly add comments where and what you change - -## New version -Please note, there are some tasks to set up a new version. -Stuff is a bit scattered, so this is where to look up. -1. Please create a fork at github - - See this [guide](https://www.dataschool.io/how-to-contribute-on-github/) for setting up and using a fork - - If already forked, pull the recent state, or get most recent version otherwise. -2. On top of _FoxBin2Prg.prg_ there are two version numbers: -`#DEFINE DN_FB2PRG_VERSION 1.20` -`#DEFINE DC_FB2PRG_VERSION_REAL '1.20.00'` -3. Please set the **minor** part of _DC_FB2PRG_VERSION_REAL_ to a new number. - **Do not** alter the **1.20** part. This is written to the text files. - Alteration might force that the files must be newly commited, what is not everybodies taste. -4. Add a meaningful description of the change in the changes list on top of _FoxBin2Prg.prg_. - The most recent entries for changes in the middle of this section around _* _, - The most recent bugs are listed above _* _ -5. Alter version in _README.md_ -6. Add a description to _docs\Change_Log.md_ -7. Please alter the footer of *.md files touched to recent date. -8. If a change to the config files is made please add the description to the various properties (multi lang) - - _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_cfg:_ for general settings - - _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_tab_cfg:_ for settings per table -9. Create a template _foxbin2prg.cfg.txt_ for general settings or _foxbin2prg.dbf.cfg.txt_ for the settings per table. - - Do this even if no change to the setting to change the version number inside this files. - - Or change version number in those files manually - - **Note**. If you are not on an English comp, set the value _Language: EN_ in your local _foxbin2prg.cfg_ to create English files. - - run like: - ``` - CD Path_Top_Project - DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt" - DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbc.txt" - ``` -10. If a change to the parameters is made, change _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_ properties. -11. For changed functionality, add descriptive text on the appropriate _.md_ file in _docs_ folder. -12. Alter the version number for the EXE to the version used above. -13. Compile to EXE **in VFP9 SP2** -14. Change Thor ([see below](#thor-conventions)) -15. Commit -16. Push to your fork -17. Create a pull request - -## Thor conventions -This project is part of [VFPX](https://vfpx.github.io/) and published via [Thor](https://github.com/VFPX/Thor). -There are some considerations to make to add a new version to Thor. -Please check [Supporting Thor Updater](https://vfpx.github.io/thorupdate/) -In special: -- Update _Project.txt_, in special the version number -- and run the script included, or - - add files to _FoxBin2Prg.zip_, namely - - FoxBin2Prg.prg, - - FoxBin2Prg.exe, - - the config files templates - - Update the version number in _FoxBin2PrgVersion.txt_ - -- Right-click CreateThorUpdate.ps1 in the ThorUpdater folder and choose Run with PowerShell - -## Updating from @lshceffler's fork - -- Quit any code / IDE working on your FoxBin2Prg directory -- Create a file in the FoxBin2Prg folder named get_fork.sh with the following content: - -``` -#!/bin/sh -############################################################ -# -#get_fork.sh -# -#get a second branch to work in parallel -#because we can not simple merge -# -#Lutz Scheffler 2023-09-03 -# -############################################################ - -#create a new remote to fork lscheffler -git remote add sf git@github.com:lscheffler/foxbin2prg.git -#read lscheffler -git fetch sf - -#create a new branch "lutz" and switch into it -git switch -c lutz -#reset this branch to the last common anchestor between lscheffler/fork_mod and fdbozzo/master -git reset --hard c31b8106652 - -#connect the new branch with lscheffler/fork_mod -git branch --set-upstream-to=sf/fork_mod lutz -#set branch to top of his remote branch -git pull - -#switch back to master -git switch master -#create a new folder on drive, that shows the lscheffler data -git worktree add ../FoxBin2Prg_Lutz lutz - -#you can now work in the one and in the other directory -#that means you can copy files from the one to the other via normal function -#or you can pick data from the one to the other like - -#for example FoxBin2Prg.prg -#git checkout lutz FoxBin2Prg.prg - -#the file is not in the index, you can alter and then add and commit -``` - -- Right-click the FoxBin2Prg directory, and choose Git Bash Here -- Run "./get_fork.sh" - -This will create a new directory "FoxBin2Prg_Lutz" in the parent of "FoxBin2Prg", with the recent state of my fork. You can work in this folder exactly the same way as in "FoxBin2Prg" (if you need the exe files, notice the README.md), only the branch is different. Those are two branches of the same repo, so one can work with git commands. - -Now you can work / copy the files via explorer, or, as suggested in the file attached, you can tell git to do the work. - -Open the bash in "FoxBin2Prg" directory, and run: - -``` -git checkout lutz -``` - -Then follow the earlier instructions for committing. - ----- -Last changed: _2023/09/04_ ![Picture](../docs/pictures/vfpxpoweredby_alternative.gif) +# How to contribute to FoxBin2Prg + +## Bug report? +- Please check [issues](https://github.com/fdbozzo/foxbin2prg/issues) if the bug is reported +- If you're unable to find an open issue addressing the problem, open a new one. Be sure to include a title and clear description, as much relevant information as possible, and a code sample or an executable test case demonstrating the expected behavior that is not occurring. +- Please add your current configuration creating a config file via +``` +CD 'path-to-source' +DO FOXBIN2PRG.PRG WITH '-C','FoxBin.cfg' +``` +**Do not include your normal config** + +### Did you write a patch that fixes a bug? +- Open a new GitHub merge request with the patch. +- Ensure the PR description clearly describes the problem and solution. + - Include the relevant version number if applicable. +- See [New version](#new-version) for additional tasks + +## Coding conventions +Start reading our code and you'll get the hang of it. We optimize for readability: + +- Beautification is done like: + - Keywords: Mixed case + - Symbols: First occurence + - Indentation Tabs, 1 + - Indent anything then Comments +- Please do not run BeautifyX with mDots insertion against the code. +- We ALWAYS put spaces after list items and method parameters (`[1, 2, 3]`, not `[1,2,3]`), around operators (`x = 1`, not `x=1`). +- This is open source software. Consider the people who will read your code, and make it look nice for them. It's sort of like driving a car: Perhaps you love doing donuts when you're alone, but with passengers the goal is to make the ride as smooth as possible. +- Please kindly add comments where and what you change + +## New version +Please note, there are some tasks to set up a new version. +Stuff is a bit scattered, so this is where to look up. +- New fork + 1. Please create a fork at github + - See this [guide](https://www.dataschool.io/how-to-contribute-on-github/) for setting up and using a fork + 2. clone your fork to your computer +- Existing fork + 1. If already forked, gather the recent state of the master to your fork (for example: "Sync fork" in github on top of your repository) + 2. Pull the recent state, + 3. or get most recent version otherwise. +**Note: You must run FoxBin2Prg against itself to create the binaries and exes:** +``` +CD "path_to_FoxBin2Prg" +*This uses a special configuration +DO ReCreate_FoxBin2Prg.prg +``` +**Note: Do not run FoxBin2Prg.prg directly.** +3. Do your changes +4. On top of _FoxBin2Prg.prg_ there are two version numbers: +``` +#DEFINE DN_FB2PRG_VERSION 1.21 +#DEFINE DC_FB2PRG_VERSION_REAL '1.21.01' +``` +5. Please set the **minor** part of _DC_FB2PRG_VERSION_REAL_ to a new number. + **Do not** alter the **1.21** part. This is written to the text files. + Alteration might force that the files must be newly commited, what is not everybodies taste. + The value might be altered, if the file structure of the text files is changed. +6. Add a meaningful description of the change in the changes list on top of _FoxBin2Prg.prg_. + The most recent entries for changes in the middle of this section around _* _, + The most recent bugs are listed above _* _ +7. Alter version in _README.md_ +8. Add a description to _docs\ChangeLog.md_ +9. If a change to the config files is made, please add the description to the various properties (multi lang) + - _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_cfg:_ for general settings + - _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_tab_cfg:_ for settings per table +10. If a change to the parameters is made, change _C_FOXBIN2PRG_SYNTAX_INFO_EXAMPLE_LOC_ properties. +11. For changed functionality, add descriptive text on the appropriate _.md_ file in _docs_ folder. +12. Please alter the footer of \*.md files touched to recent date. +13. Alter the version number for the EXE to the version used above. +14. Create the text representation of the binary sources running like +``` +CD "path_to_FoxBin2Prg" +*This uses a special configuration +DO Create_FoxBin2Prg.prg +``` +**Note: Do not run FoxBin2Prg.prg directly.** +15. **The following steps are not neccesary, if you use *VPXDeployment* to create a new version that is applicable for Thor use.** +16. Compile to EXE **in VFP9 SP2** +17. Change Thor ([see below](#thor-conventions)) +18. commit +19. push to your fork +20. Create a pull request + +## Thor conventions +This project is part of [VFPX](https://vfpx.github.io/) and published via [Thor](https://github.com/VFPX/Thor). +Some steps must be done to create the information for Thor +### Using VFPXDeployment +The standard procedure to create the Thor files is runing VFPXDeployment via Thor. +1. If you add or remove files to FoxBin2Prg, that you need in the release: + - alter *BuildProcess/installedfiles.txt*, see [here](https://github.com/VFPX/VFPXDeployment/blob/main/docs/Documentation.md#installedfilestxt) + - open the *Helper/Clean_ThorFolder.prg* file + - navigate to *Get_CompareFiles procedure* + - alter the TEXT .. ENDTEXT section to remove all files deleted and add new files, check the block for examples. + - There is a programm *Helper/GetRevisions.prg* to create the list, but this need to run VFPXDeployment one time to create the INSTALLEDFILES directory before. +2. Run VFPXDeployment. It will set version number to EXE, compile, set several documentation and create the files for Thor. +3. commit +4. push to your fork +5. create a pull request + +### Without VFPXDeployment +If you do not use VFPXDeployment +There are some considerations to make to add a new version to Thor. +Please check [Supporting Thor Updater](https://vfpx.github.io/thorupdate/) +In special: +- Update _Project.txt_, in special the version number +- update the *Helper/Clean_ThorFolder.prg* file, see above +- add files to _FoxBin2Prg.zip_, namely + - FoxBin2Prg.prg, + - FoxBin2Prg.exe, + - the config files templates + - Clean_ThorFolder.prg +- Update the version number in _FoxBin2PrgVersion.txt_ +- Update the changelog in _FoxBin2PrgVersion.txt_ +- The use of CreateThorUpdate.ps1 is not longer recommended. +- Right-click CreateThorUpdate.ps1 in the ThorUpdater folder and choose *Run with PowerShell*. + +Thanks + +---- +Last changed: _2023/12/05_ ![Picture](../docs/pictures/vfpxpoweredby_alternative.gif) diff --git a/.gitignore b/.gitignore index dd6729a..d400fa9 100644 --- a/.gitignore +++ b/.gitignore @@ -1,21 +1,92 @@ #exclude general -*.bak -*.tmp -*.prj -*.pui -*.orig -*.err -/*.dbf -/*.CDX -/*.fxp -/*.fpt +*.* -TESTS/DATOS_READONLY/*.FXP +#include general +#dbx data +#!*.dbf +#!*.cdx +#!*.fpt -*special, exclude local config -foxbin2prg.cfg +#!*.dbc +#!*.dc[tx] + +#grafics +!*.bmp +!*.msk +!*.ico +!*.cdr +!*.cur + +#programms +!*.prg +!*.fpw + +#header +!*.h + +#libs (by FoxBin2prg) +#!*.vc[xt] +#!*.pj[xt] +#!*.fr[xt] +#!*.mn[xt] +#!*.sc[xt] +#!*.lb[xt] + +#FoxBin2prg +!*.vc2 +!*.pj2 +!*.fr2 +!*.mn2 +!*.sc2 +!*.lb2 +!*.d[bc]2 + +#include special +#default git +!*.gitignore +!/desktop.ini +!data/*.jpg +!/FileName_Caps.EXE +!/Fb2P_Diff.EXE +!/"CLEAR ALL.exe" + +#gitlab +!*.md +!/.gitlab/ + +#diverse +!*.reg +!README.md + +#exclude special +foxuser_9.* +_command.prg +*ref.* +debug*.* +Sicherungskopie*.* +include/projsub.h +include/projekt_switch.h +include/projekt_user.h +Factory_Init.* #nix von hier default/ temp/ tmp/ + +bin2txt.* + +#exclude general + +*special, settings to create foxbin2prg binary +!/foxbin2prg_self.cfg + +#re-include +#!foxbin2prg_keywords.* + +#Thor special +!/BuildProcess/*.prg +!/BuildProcess/*.txt +!/BuildProcess/*.md +!/BuildProcess/*.gitignore +!/ThorUpdater/*.* diff --git a/BuildProcess/Substitute.txt b/BuildProcess/Substitute.txt new file mode 100644 index 0000000..1c33352 --- /dev/null +++ b/BuildProcess/Substitute.txt @@ -0,0 +1,2 @@ +#List of additional files that will be substituded when running VFPXDeployment for FoxBin2PRG +docs\ChangeLog.md \ No newline at end of file diff --git a/BuildProcess/Thor_Update_FoxBin2PRG.prg b/BuildProcess/Thor_Update_FoxBin2PRG.prg new file mode 100644 index 0000000..a52b247 --- /dev/null +++ b/BuildProcess/Thor_Update_FoxBin2PRG.prg @@ -0,0 +1,45 @@ +lparameters; + toUpdateObject +local; + lcRepositoryURL as string, ; + lcDownloadsBranch as string, ; + lcDownloadsURL as string, ; + lcVersionFileURL as string, ; + lcZIPFileURL as string, ; + lcRegisterWithThor as string + +* Get the URL for the version and ZIP files. + +lcRepositoryURL = 'https://github.com/fdbozzo/foxbin2prg' + && the URL for the project's repository +* Note: If you use a more recent version of git, your default branch may not be "master". +lcDownloadsBranch = 'master' +lcDownloadsURL = strtran(m.lcRepositoryURL, 'github.com', ; + 'raw.githubusercontent.com') + '/' + m.lcDownloadsBranch + '/ThorUpdater/' +lcVersionFileURL = m.lcDownloadsURL + 'FoxBin2PRGVersion.txt' &&'FoxBin2PRGVersion.txt' + && the URL for the file containing code to get the available version number +lcZIPFileURL = m.lcDownloadsURL + 'FoxBin2PRG.zip' + && the URL for the zip file containing the project + + +text to lcRegisterWithThor noshow textmerge + messagebox('From the Thor menu, choose "More -> Open Folder -> Components" to see the folder where FoxBin2PRG was installed', 0, 'FoxBin2PRG Installed', 5000) +endtext + +* Set the properties of the passed updater object. + +with m.toUpdateObject + .ApplicationName = 'FoxBin2PRG' + .VersionLocalFilename = 'FoxBin2PRGVersionFile.txt' + .VersionFileURL = m.lcVersionFileURL + .SourceFileUrl = m.lcZIPFileURL + .Component = 'Yes' + .Link = m.lcRepositoryURL + .LinkPrompt = 'FoxBin2PRG Home Page' + .ProjectCreationDate = date(2023, 8, 6) + .RegisterWithThor = m.lcRegisterWithThor +endwith + +return m.toUpdateObject + +*created by VFPX Deployment, 06.08.2023 15:23:02 \ No newline at end of file diff --git a/BuildProcess/VersionTemplate.txt b/BuildProcess/VersionTemplate.txt new file mode 100644 index 0000000..0c956cd --- /dev/null +++ b/BuildProcess/VersionTemplate.txt @@ -0,0 +1,160 @@ +@@@ Edit this template if necessary. Note the use of placeholders such as +{APPNAME} and {APPID}; they are substituted with the correct values when +the deployment process is run, so no need to edit those. Also, this file is +textmerged so some text may not appear in the generated {APPID}Version.txt. +Also, any text between @@@ and \\\ is removed. + +\\\lparameters toUpdateObject + +* Set the properties of the passed updater object.@@@ You likely won't need to +* edit this code. One possible change is versioning: if you want to use the +* Julian date as a minor version number, edit the AvailableVersion setting to: +* +* .AvailableVersion = '{APPNAME}-{VERSION}.{JULIAN}-update-{VERSIONDATE}' +* +* or possibly: +* +* .AvailableVersion = '{APPNAME}-{VERSION}-{JULIAN}-{VERSIONDATE}'\\\ + +with toUpdateObject + .VersionNumber = '{VERSION} - {VERSIONDATE}' + .AvailableVersion = '{APPNAME}-{VERSION}-update-{VERSIONDATE}' + .Notes = GetNotes() + .RegisterWithThor = GetRegisterWithThor() +endwith +return toUpdateObject + + +*!* procedure GetRegisterWithThor +*!* local lcCommand +*!* text to lcCommand noshow +*!* lcBase = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder') +*!* IF FILE(m.lcBase+"clean_copied_memo.prg") THEN +*!* *remove old crap +*!* DO m.lcBase+"clean_thorfolder.prg" WITH lcBase +*!* ENDIF &&FILE(m.lcBase+"clean_copied_memo.prg") +*!* +*!* DELETE FILE (m.lcBase+"clean_thorfolder.*") +*!* +*!* endtext +*!* +*!* return lcCommand +*!* endproc &&GetRegisterWithThor + +* Get the notes for the project.@@@ Edit this code as necessary. If you specify +* the name of a change log file as the ChangeLog setting in ProjectSettings.txt, +* the contents of that file are substituted for the CHANGELOG placeholder so +* there's no need to edit this.\\\ + +procedure GetNotes +local lcNotes +text to lcNotes noshow +A 2-way conversor for Visual FoxPro 9 binary files intended to be used with SCM tools (Full or only Diff and Merge operations) or just for backup + +Supported formats are: PJX, PJM, SCX, VCX, FRX, LBX, MNX, DBC, DBF, FKY, MEM + +To fix a bug, this version changes the text file header. It is suggested to create all text files and commit in one step. + +Developed by Fernando D. Bozzo - GitHub: https://github.com/fdbozzo/foxbin2prg +{CHANGELOG} +endtext +return lcNotes + +@@@* Register the tool with Thor. This template code assumes the tool is an APP +* file named {AppID}.app, where AppID is the AppID setting in ProjectSettings.txt. +* If that isn't the case, edit the Code property as necessary. + +\\\* Register the tool with Thor. Note: Thor replaces ##InstallFolder## with the +* installation path for the tool when this code is executed. + +<> +procedure GetRegisterWithThor + local lcCommand + text to lcCommand noshow +* "{APPNAME}" is a tool created by VFPX Deployment: +* Create the tool under Thor Tools. + +loThorInfo = Execscript (_Screen.cThorDispatcher, 'Thor Register=') +with loThorInfo + +* Required properties. + + .PRGName = 'Thor_Tool_{APPID}' + .FolderName = '##InstallFolder##' + .Prompt = '{APPNAME}' + +* Optional properties. + + .Description = '{APPNAME}' + +* These are used to group and sort tools when they are displayed in menus or +* the Thor form. + + .Category = '{CATEGORY}' + .CanRunAtStartUp = .F. + +* This is the code to execute when the tool is selected. + + .Code = "do ('##InstallFolder##{APPID}.app')" + +* Register the tool with Thor. + + llRegister = .Register() +endwith + endtext + + return lcCommand +endproc &&GetRegisterWithThor +<><> +* "{APPNAME}" is a Component. No procedure GetRegisterWithThor created by VFPX Deployment +<> + +@@@* Register the tool with Thor. This template code assumes the tool is an APP +* file named {AppID}.app, where AppID is the AppID setting in ProjectSettings.txt. +* If that isn't the case, edit the Code property as necessary. + +\\\* Register the tool with Thor. Note: Thor replaces ##InstallFolder## with the +* installation path for the tool when this code is executed. + +procedure GetRegisterWithThor +local lcCommand +text to lcCommand noshow +<> +* "{APPNAME}" is a tool created by VFPX Deployment: +* Create the tool under Thor Tools. + +loThorInfo = Execscript (_Screen.cThorDispatcher, 'Thor Register=') +with loThorInfo + +* Required properties. + + .PRGName = 'Thor_Tool_{APPID}' + .FolderName = '##InstallFolder##' + .Prompt = '{APPNAME}' + +* Optional properties. + + .Description = '{APPNAME}' + +* These are used to group and sort tools when they are displayed in menus or +* the Thor form. + + .Category = '{CATEGORY}' + .CanRunAtStartUp = .F. + +* This is the code to execute when the tool is selected. + + .Code = "do ('##InstallFolder##{APPID}.app')" + +* Register the tool with Thor. + + llRegister = .Register() +endwith +<> +<> +* "{APPNAME}" is a Component. No code created by VFPX Deployment +<> +endtext +return lcCommand + +*created by VFPX Deployment, <> \ No newline at end of file diff --git a/BuildProcess/afterbuild.prg b/BuildProcess/afterbuild.prg new file mode 100644 index 0000000..8f5221d --- /dev/null +++ b/BuildProcess/afterbuild.prg @@ -0,0 +1,14 @@ +* This program should can tasks like +* - FoxBin2Prg, if the automatic way was not used +* - git processing like add, commit or push +* - set debug info On in pjx or include file +* +* The program runs after +* - FoxBin2Prg is, if enabled, run +* - Thor files are created and zipped +* - git is, if enabled, run +* +* This program can use the public +* variables discussed in the documentation as necessary. + +return diff --git a/BuildProcess/buildme.prg b/BuildProcess/buildme.prg new file mode 100644 index 0000000..13058ee --- /dev/null +++ b/BuildProcess/buildme.prg @@ -0,0 +1,76 @@ +*BuildMe.prg for [add your application] +* +* This program should perform any build tasks necessary for the project, such +* as updating version numbers in code or include files. This program can use the public +* variables discussed in the documentation as necessary. +LOCAL; + lcVerno as String,; + lnProject as Integer,; + llFound as Boolean,; + loProject as Project + +*Get FoxBin2Prg verno from FoxBin2Prg.prg +lcVerno = "VERNO" +DO foxbin2prg.prg WITH lcVerno + +*Set Thor verno +pcVersion = m.lcVerno +pcFullVersion = m.lcVerno +pcPJXFile = pcPJXFile &&"foxbin2prg.pjx" +*Set FoxBin2Prg.exe verno +For lnProject = 1 To _vfp.Projects.Count + If Upper(Fullpath(m.pcPJXFile))==Upper(_vfp.Projects(m.lnProject).Name) Then + _vfp.Projects(m.lnProject).VersionNumber = m.lcVerno + llFound = .T. + Exit + + Endif &&Upper(Fullpath(m.pcPJXFile))==Upper(_vfp.Projects(m.lnProject).Name) +Endfor &&lnProject + +If !m.llFound + If _Vfp.Projects.Count>0 + loProject = _vfp.ActiveProject + Endif &&_Vfp.Projects.Count>0 + + MODIFY PROJECT (Fullpath(m.pcPJXFile)) Noshow Nowait Noprojecthook + _vfp.ActiveProject.VersionNumber = m.lcVerno + _vfp.ActiveProject.Close + + If _Vfp.Projects.Count>0 + _vfp.ActiveProject = m.loProject + Endif &&_Vfp.Projects.Count>0 +Endif &&!m.llFound + +* ToDo +llFound = FILE(Fullpath("FOXBIN2PRG.CFG")) +If m.llFound + rename FOXBIN2PRG.CFG to FOXBIN2PRG.CFG.tmp +Endif &&m.llFound + +strtofile("Language: EN","FOXBIN2PRG.CFG") +DO foxbin2prg.prg WITH "-c", "foxbin2prg.cfg.txt" +DO foxbin2prg.prg WITH "-t", "foxbin2prg.dbf.cfg.txt" +delete file FOXBIN2PRG.CFG + +If m.llFound + rename FOXBIN2PRG.CFG.tmp to FOXBIN2PRG.CFG +Endif &&m.llFound + +*set english on +*export foxbin2prg.cfg.txt and foxbin2prg.dbf.cfg.txt +*set english off + +return + +*Stuff we can do: +* - get version number (pcVersion) from an include file +* - set version number (pcVersion) to an include file +* - set version number to pjx used +* - set debug info off in pjx or include file +* - If FoxBin2Prg internal to VFPXDeployment is not fitting, run own way +* - create pcFullVersion like you use in the .VersionNumber of Version*.txt file for use in README.md +* (else it will use pcVersion) +* like the example in the Version text template: +pcFullVersion = pcVersion+' - ' + pcJulian +* - copy files to ../InstalledFiles subfolder +* - modify documentation diff --git a/BuildProcess/installedfiles.txt b/BuildProcess/installedfiles.txt new file mode 100644 index 0000000..e7f8022 --- /dev/null +++ b/BuildProcess/installedfiles.txt @@ -0,0 +1,69 @@ +#Folder +#.git/ +#.github/ +#.gitignore +#BuildProcess/ +#CONFIG/ +#Documentacion/ +#FileName_Caps/ +#INSTALLEDFILES/ +#TESTS/ +#ThorUpdater/ +#WinMergePortable/ +#data/ +#docs/ +#tool/ +#xThorUpdater/ + +#to ignore +#.gitattributes +#VFP9RENU.dll* +#vfp9r.dll* +#filetypes.conf +#ignore.conf + +#to move +#FoxBin2PRGVersionFile.txt + +#---------------------- +#Fb2P_Diff +Fb2P_Diff\Fb2P_Diff.exe||\Fb2P_Diff.exe + +#FileName_Caps +\FileName_Caps.exe +\FileName_Caps.cfg + +#fb2p_diff.exe +\fb2p_diff.exe + +#CLEAR ALL.exe +\CLEAR ALL.exe + +#Foxbin2prg +#default +\*.vbs + +#config +\FOXBIN2PRG.CFG.TXT +\FOXBIN2PRG.DBF.CFG.TXT +Config\config.fpw + +#prg +\foxbin2prg.exe +\foxbin2prg.ico +\foxbin2prg.jpg +#we ignore the pjx for Thor, if somebody needs it, he can clone the repo +#\foxbin2prg.pjt +#\foxbin2prg.pjx +\foxbin2prg.prg +\foxbin2prg_keywords.cdx +\foxbin2prg_keywords.dbf +\props_*.txt + +\LICENSE + +######## + +\readme.md + +WinMergePortable\ diff --git a/BuildProcess/projectsettings.txt b/BuildProcess/projectsettings.txt new file mode 100644 index 0000000..d37b3dd --- /dev/null +++ b/BuildProcess/projectsettings.txt @@ -0,0 +1,73 @@ +*ProjectSettings.txt to create Thor deployment +*See https://github.com/VFPX/VFPXDeployment/blob/main/docs/Documentation.md for help. +*Paths relative are based on git toplevel folder + +*The name to show in Thor. Mandatory +AppName = FoxBin2PRG + +*The ID for Thor operation. Mandatory +AppID = FoxBin2PRG + +*Version number +*A string, or enter pjx to use _VFP.ActiveProject.VersionNumber or, if defined PJXFile +*SF 20230806: überdenken, wie das hier und pjx und prg zusammengeht +Version = 1.0 + +*Component of Thor or Tool. Use No for Tool. +Component = Yes + +*Remote repository on a git server. There are two ways for the remote repository. +*- the builder assumes https://github.com/VFPX/{AppId} +*- or enter the URL here (uncomment to use): +Repository = https://github.com/fdbozzo/foxbin2prg + +*The changelog file. Might be merged into the {AppID}Version.txt +*The file installed as template (uncomment to use): +*ChangeLog = docs\ChangeLog.md + +*Create VFPX community folders and files. Will not overwrite existing files. +*Include_VFPX = Yes + +*Do not create Thor folders and files (uncomment to use): +*Include_Thor = No + + +* The remaining lines are options to are not mandatory uncomment the options to use * + +*"Yes" to auto run FoxBin2prg (Default), else "No" to not run. +RunBin2Prg = No + +*"Yes" to auto run git (Default), else "No" to not run. +RunGit = No + +*The release date formatted as YYYY-MM-DD; if omitted, today +*VersionDate = 1973-09-11 + +*Yes (Default) to prompt for Version if not specified +*Prompt = Yes + +*The category to use when adding to the Thor menu. If omitted, "Applications". only when Component is No. +*Category = {My} + +*The relative path to the PJX file to compile. Omit this if that isn't required. +PJXFile = FoxBin2Prg.pjx +*The path to the APP or EXE to build from the project, with the extension +AppFile = FoxBin2Prg.exe +*Builds the project specified in PJXFile without the RECOMPILE clause. +*Recompile = No + +*A comma-separated list of relative paths to which FoxBin2PRG is to be applied. +*Bin2PRGFolder = {MySource1,MySource1} + +*A different name for the staging folder. +*InstalledFilesFolder = {MyInstallFolder} + +*Remove all files from InstalledFiles folder if InstalledFiles.txt is given +*Clear_InstalledFiles = No + +*add a gitignore to InstalledFiles directory to not add this directory to git repository +gitIgnore_InstalledFiles = Yes + +*A different name for version file used to publish info on the remote server. +*A help with old projects using a different name for the version file +*VersionFile_Remote = {AppID}Version.txt \ No newline at end of file diff --git a/Create_Foxbin2Prg.prg b/Create_Foxbin2Prg.prg new file mode 100644 index 0000000..cab00d5 --- /dev/null +++ b/Create_Foxbin2Prg.prg @@ -0,0 +1,6 @@ +*Create config templates +DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt",FULLPATH("Create_FoxBin2Prg.cfg","") +DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbf.cfg.txt",FULLPATH("Create_FoxBin2Prg.cfg","") + +*create binaries +DO FOXBIN2PRG.PRG WITH JUSTPATH(FULLPATH("","")),"Bin2Prg",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","") diff --git a/FOXBIN2PRG.DBF.CFG.TXT b/FOXBIN2PRG.DBF.CFG.TXT index 743d547..9de1450 100644 --- a/FOXBIN2PRG.DBF.CFG.TXT +++ b/FOXBIN2PRG.DBF.CFG.TXT @@ -1,6 +1,6 @@ *################################################################################################################ *-- Individual DBF configuration file (syntax: filename.dbf.cfg) Defaults see FoxBin2prg.cfg -*Version: v1.20.07 +*Version: v1.21.01 ***************************************************************************************************************** *DBF_Conversion_Support: <0,1,2,4,8> && 0=No support, 1=Generate Header TXT only (Diff), 2=Generate Header TXT and BIN (Merge/Only Structure!), 4=Generate TXT with DATA (Diff), 8=Export and Import DATA (Merge/Structure & Data) diff --git a/Fb2P_Diff/fb2p_diff.dataenvironment.sc2 b/Fb2P_Diff/fb2p_diff.dataenvironment.sc2 deleted file mode 100644 index 36922ff..0000000 --- a/Fb2P_Diff/fb2p_diff.dataenvironment.sc2 +++ /dev/null @@ -1,19 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.20" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - * - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - * - -ENDDEFINE diff --git a/Fb2P_Diff/fb2p_diff.dataenvironment.sct b/Fb2P_Diff/fb2p_diff.dataenvironment.sct deleted file mode 100644 index 95c025d..0000000 Binary files a/Fb2P_Diff/fb2p_diff.dataenvironment.sct and /dev/null differ diff --git a/Fb2P_Diff/fb2p_diff.dataenvironment.scx b/Fb2P_Diff/fb2p_diff.dataenvironment.scx deleted file mode 100644 index 0a824df..0000000 Binary files a/Fb2P_Diff/fb2p_diff.dataenvironment.scx and /dev/null differ diff --git a/Fb2P_Diff/fb2p_diff.frmdiff.sc2 b/Fb2P_Diff/fb2p_diff.frmdiff.sc2 deleted file mode 100644 index a723da3..0000000 --- a/Fb2P_Diff/fb2p_diff.frmdiff.sc2 +++ /dev/null @@ -1,1471 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.20" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS frmdiff AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="pgfDiff" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_File2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtFile2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdFile2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.txtDiffToolName" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.lbl_DiffTool" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.cmdDiff" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.shpFile2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagFilesDiff.chkShowCall" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.lbl_DiffTool" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolConfig" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cboDiffToolName" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmgEditPanel" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdResetAll" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSave" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdCancel" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdSetDefault" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.txtDiffToolPath" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.Label2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgfDiff.pagDiffToolConfig.cmdDiffToolPath" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="chkAlwaysOnTop" UniqueID="" Timestamp="" /> - - * - *m: cancel && Specifies if a CommandButton is the Cancel button. - *m: checkfilenames_dt - *m: create_default_cfg - *m: deletetool - *m: difftoolchanged - *m: difftoolcombo_refresh - *m: edittool - *m: filesdiff - *m: initialize - *m: load_cfg_data - *m: newtool - *m: resetalltools - *m: savetool - *m: save_cfg_data - *m: updateglobalenabled - *p: colorgreen - *p: coloryellow - *p: c_cfg_data && Contenido del archivo de configuración - *p: c_cfg_file && Ruta del archivo de configuración - *p: c_curdir && Ruta actual de la llamada - *p: c_fb2p_diff_fullpath && Ruta de este form - *p: difftoolconfig && Configuration for the Diff tool - *p: difftoolname && Name of the Diff tool - *p: difftoolpath - *p: filename1 - *p: filename1_dt - *p: filename2 - *p: filename2_dt - *p: lastfilename1 - *p: lastfilename2 - *p: l_editmode - *p: l_showcallonly && Show Diff Call Only, but don't Diff. (For testing) - *p: n_editoption - *p: n_selectedtoolindex - *p: n_toolcount - *p: ofb2p - *a: a_tools[1,3] - *p: _memberdata && XML Metadata for customizable properties - * - - * - AllowOutput = .F. - AlwaysOnTop = .T. - AutoCenter = .T. - BackColor = 255,255,255 - Caption = "Diff VFP 9 binary files (scx,vcx,mnx,pjx,frx,lbx,dbc,dbf)" - colorgreen = (RGB(35,245,24)) - coloryellow = (RGB(239,245,165)) - c_cfg_data = - c_cfg_file = - c_curdir = - c_fb2p_diff_fullpath = - difftoolconfig = - difftoolname = - difftoolpath = - DoCreate = .T. - filename1 = - filename1_dt = {} - filename2 = - filename2_dt = {} - Height = 191 - Icon = fb2p_diff.ico - lastfilename1 = - lastfilename2 = - l_editmode = .F. - l_showcallonly = .F. - MaxButton = .F. - Name = "frmDiff" - n_editoption = 0 - n_selectedtoolindex = 0 - n_toolcount = 0 - ofb2p = .NULL. - ShowTips = .T. - ShowWindow = 2 - Width = 760 - _memberdata = - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * - - ADD OBJECT 'chkAlwaysOnTop' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 8, ; - BackStyle = 0, ; - Caption = "Always on top", ; - ControlSource = "thisform.alwaysontop", ; - Height = 17, ; - Left = 652, ; - Name = "chkAlwaysOnTop", ; - TabIndex = 2, ; - Top = 8, ; - Value = .F., ; - Width = 96 - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'pgfDiff' AS pageframe WITH ; - Anchor = 15, ; - ErasePage = .T., ; - Height = 180, ; - Left = 8, ; - Name = "pgfDiff", ; - PageCount = 2, ; - TabIndex = 1, ; - TabStyle = 1, ; - Top = 4, ; - Width = 744, ; - Page1.Caption = "Files Diff", ; - Page1.Name = "pagFilesDiff", ; - Page2.Caption = "Diff tool configure", ; - Page2.Name = "pagDiffToolConfig" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cboDiffToolName' AS combobox WITH ; - Anchor = 10, ; - BorderColor = 0,128,192, ; - Height = 24, ; - Left = 63, ; - Name = "cboDiffToolName", ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - Style = 2, ; - TabIndex = 1, ; - Top = 12, ; - Width = 572 - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdCancel' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "Cancel", ; - Height = 27, ; - Left = 639, ; - Name = "cmdCancel", ; - TabIndex = 8, ; - Top = 116, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdDiffToolPath' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "...", ; - Height = 27, ; - Left = 695, ; - Name = "cmdDiffToolPath", ; - TabIndex = 3, ; - Top = 42, ; - Width = 28 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdResetAll' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "Reset All", ; - Height = 27, ; - Left = 399, ; - Name = "cmdResetAll", ; - TabIndex = 6, ; - Top = 116, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSave' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "Save", ; - Height = 27, ; - Left = 551, ; - Name = "cmdSave", ; - TabIndex = 7, ; - Top = 116, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmdSetDefault' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "Set Default", ; - Height = 27, ; - Left = 639, ; - Name = "cmdSetDefault", ; - TabIndex = 9, ; - Top = 10, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.cmgEditPanel' AS commandgroup WITH ; - Anchor = 2, ; - BackStyle = 0, ; - BorderStyle = 0, ; - ButtonCount = 3, ; - ControlSource = "THISFORM.n_EditOption", ; - Height = 36, ; - Left = 63, ; - Name = "cmgEditPanel", ; - SpecialEffect = 1, ; - TabIndex = 5, ; - Top = 112, ; - Value = 1, ; - Width = 268, ; - Command1.Caption = "New tool", ; - Command1.Height = 27, ; - Command1.Left = 4, ; - Command1.Name = "cmdNew", ; - Command1.Top = 4, ; - Command1.Width = 84, ; - Command2.Caption = "Edit tool", ; - Command2.Height = 27, ; - Command2.Left = 92, ; - Command2.Name = "cmdEdit", ; - Command2.Top = 4, ; - Command2.Width = 84, ; - Command3.Caption = "Delete tool", ; - Command3.Height = 27, ; - Command3.Left = 180, ; - Command3.Name = "cmdDelete", ; - Command3.Top = 4, ; - Command3.Width = 84 - *< END OBJECT: BaseClass="commandgroup" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label1' AS label WITH ; - BackStyle = 0, ; - Caption = "Config", ; - Height = 17, ; - Left = 15, ; - Name = "Label1", ; - TabIndex = 11, ; - Top = 80, ; - Width = 48 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.Label2' AS label WITH ; - BackStyle = 0, ; - Caption = "Path", ; - Height = 17, ; - Left = 15, ; - Name = "Label2", ; - TabIndex = 12, ; - Top = 48, ; - Width = 48 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.lbl_DiffTool' AS label WITH ; - BackStyle = 0, ; - Caption = "Diff tool", ; - Height = 17, ; - Left = 15, ; - Name = "lbl_DiffTool", ; - TabIndex = 10, ; - Top = 16, ; - Width = 48 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolConfig' AS textbox WITH ; - Anchor = 10, ; - BorderColor = 0,128,192, ; - Enabled = .F., ; - Format = "T", ; - Height = 23, ; - Left = 63, ; - MaxLength = 255, ; - Name = "txtDiffToolConfig", ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - TabIndex = 4, ; - ToolTipText = "Keywords: <>, <>", ; - Top = 76, ; - Width = 660 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'pgfDiff.pagDiffToolConfig.txtDiffToolPath' AS textbox WITH ; - Anchor = 10, ; - BorderColor = 0,128,192, ; - Enabled = .F., ; - Format = "T", ; - Height = 23, ; - Left = 63, ; - MaxLength = 255, ; - Name = "txtDiffToolPath", ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - TabIndex = 2, ; - ToolTipText = "Keywords: <>, <>", ; - Top = 44, ; - Width = 628 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.chkShowCall' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 8, ; - BackStyle = 0, ; - Caption = "Only show Diff call (for testing)", ; - ControlSource = "THISFORM.l_ShowCallOnly", ; - Height = 17, ; - Left = 443, ; - Name = "chkShowCall", ; - TabIndex = 2, ; - Top = 116, ; - Value = .F., ; - Width = 192 - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.cmdDiff' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "Diff", ; - Height = 60, ; - Left = 643, ; - Name = "cmdDiff", ; - TabIndex = 6, ; - Top = 80, ; - Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile1' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "...", ; - Height = 27, ; - Left = 667, ; - Name = "cmdFile1", ; - TabIndex = 2, ; - Top = 10, ; - Width = 28 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.cmdFile2' AS commandbutton WITH ; - Anchor = 8, ; - Caption = "...", ; - Height = 27, ; - Left = 667, ; - Name = "cmdFile2", ; - TabIndex = 4, ; - Top = 42, ; - Width = 28 - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_DiffTool' AS label WITH ; - BackStyle = 0, ; - Caption = "Diff tool", ; - Height = 17, ; - Left = 11, ; - Name = "lbl_DiffTool", ; - TabIndex = 9, ; - Top = 88, ; - Width = 48 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File1' AS label WITH ; - BackStyle = 0, ; - Caption = "File 1", ; - Height = 17, ; - Left = 11, ; - Name = "lbl_File1", ; - TabIndex = 7, ; - Top = 16, ; - Width = 36 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.lbl_File2' AS label WITH ; - BackStyle = 0, ; - Caption = "File 2", ; - Height = 17, ; - Left = 11, ; - Name = "lbl_File2", ; - TabIndex = 8, ; - Top = 48, ; - Width = 36 - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile1' AS shape WITH ; - Anchor = 8, ; - BorderStyle = 0, ; - Curvature = 10, ; - Height = 23, ; - Left = 699, ; - Name = "shpFile1", ; - SpecialEffect = 1, ; - ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ; - Top = 12, ; - Width = 24 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.shpFile2' AS shape WITH ; - Anchor = 8, ; - BorderStyle = 0, ; - Curvature = 10, ; - Height = 23, ; - Left = 699, ; - Name = "shpFile2", ; - SpecialEffect = 1, ; - ToolTipText = "TXTStatus: Green=Unchanged, Yellow=Changed", ; - Top = 44, ; - Width = 24 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.txtDiffToolName' AS textbox WITH ; - Anchor = 10, ; - BorderColor = 232,232,232, ; - ControlSource = "THISFORM.diffToolName", ; - Enabled = .F., ; - Format = "T", ; - Height = 23, ; - Left = 63, ; - MaxLength = 255, ; - Name = "txtDiffToolName", ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - TabIndex = 5, ; - Top = 84, ; - Width = 564 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile1' AS textbox WITH ; - Anchor = 10, ; - BorderColor = 0,128,192, ; - ControlSource = "THISFORM.filename1", ; - Format = "T", ; - Height = 23, ; - Left = 63, ; - MaxLength = 255, ; - Name = "txtFile1", ; - OLEDropMode = 1, ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - TabIndex = 1, ; - Top = 12, ; - Width = 600 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'pgfDiff.pagFilesDiff.txtFile2' AS textbox WITH ; - Anchor = 10, ; - BorderColor = 0,128,192, ; - ControlSource = "THISFORM.filename2", ; - Format = "T", ; - Height = 23, ; - Left = 63, ; - MaxLength = 255, ; - Name = "txtFile2", ; - OLEDropMode = 1, ; - SelectOnEntry = .T., ; - SpecialEffect = 1, ; - TabIndex = 3, ; - Top = 44, ; - Width = 600 - *< END OBJECT: BaseClass="textbox" /> - - PROCEDURE Activate - *-- activate - THISFORM.updateGlobalEnabled() - - ENDPROC - - PROCEDURE cancel && Specifies if a CommandButton is the Cancel button. - *-- cancel - THISFORM.l_EditMode = .F. - THISFORM.updateGlobalEnabled() - - WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName - .Style = 2 && Dropdown List - .RowSourceType= 5 - .RowSource = 'THISFORM.a_Tools' - .ControlSource = 'THISFORM.diffToolName' - .Value = THISFORM.diffToolName - THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = THISFORM.diffToolConfig - THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = THISFORM.diffToolPath - .SetFocus() - ENDWITH - - ENDPROC - - PROCEDURE checkfilenames_dt - LPARAMETERS tnFilename - - LOCAL laFile1(1,5), laFile2(1,5), ltFilename1_dt, ltFilename2_dt, lnCodError, lcMessage, lnIcon ; - , lcFilename1, lcFilename2, lcExt, lcExt2, lcDir, lcFilename1_dt, lcFilename2_dt ; - , loFB2P as c_foxbin2prg OF foxbin2prg.prg - - #DEFINE CR_LF CHR(13)+CHR(10) - - TRY - lnCodError = 0 - STORE '' TO lcMessage, lcFilename1, lcFilename2, lcExt, lcExt2, lcDir - loFB2P = THIS.oFB2P - tnFilename = EVL(tnFilename, 0) - - DO CASE - CASE INLIST(tnFilename, 0, 1) AND EMPTY(THIS.filename1) - EXIT - CASE INLIST(tnFilename, 0, 2) AND EMPTY(THIS.filename2) - EXIT - ENDCASE - - IF INLIST(tnFilename, 0, 1) THEN - lcExt = JUSTEXT(THIS.filename1) - lcDir = JUSTPATH(THIS.filename1) - lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir ) - lcFilename1 = FORCEEXT( THIS.filename1, lcExt2 ) - - IF ADIR(laFile1, lcFilename1) = 1 THEN - lcFilename1_dt = '{^' + TRANSFORM( DTOS( laFile1(1,3) ), '@R ####/##/##' ) + ' ' + laFile1(1,4) + '}' - ltFilename1_dt = EVALUATE( lcFilename1_dt ) - - DO CASE - CASE EMPTY(THIS.filename1_dt) - THIS.filename1_dt = ltFilename1_dt - THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen - THIS.lastFilename1 = THIS.filename1 - - CASE NOT THIS.filename1 == THIS.lastFilename1 - THIS.filename1_dt = ltFilename1_dt - THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen - THIS.lastFilename1 = THIS.filename1 - - CASE THIS.filename1_dt <> ltFilename1_dt - THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorYellow - - OTHERWISE - THIS.pgfDiff.pagFilesDiff.shpFile1.BackColor= THIS.colorGreen - - ENDCASE - ENDIF - - ENDIF - - IF INLIST(tnFilename, 0, 2) THEN - lcExt = JUSTEXT(THIS.filename2) - lcDir = JUSTPATH(THIS.filename2) - lcExt2 = loFB2P.get_Ext2FromExt( lcExt, lcDir ) - lcFilename2 = FORCEEXT( THIS.filename2, lcExt2 ) - - IF ADIR(laFile2, lcFilename2) = 1 THEN - lcFilename2_dt = '{^' + TRANSFORM( DTOS( laFile2(1,3) ), '@R ####/##/##' ) + ' ' + laFile2(1,4) + '}' - ltFilename2_dt = EVALUATE( lcFilename2_dt ) - - DO CASE - CASE EMPTY(THIS.filename2_dt) - THIS.filename2_dt = ltFilename2_dt - THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen - THIS.lastFilename2 = THIS.filename2 - - CASE NOT THIS.filename2 == THIS.lastFilename2 - THIS.filename2_dt = ltFilename2_dt - THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen - THIS.lastFilename2 = THIS.filename2 - - CASE THIS.filename2_dt <> ltFilename2_dt - THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorYellow - - OTHERWISE - THIS.pgfDiff.pagFilesDiff.shpFile2.BackColor= THIS.colorGreen - - ENDCASE - ENDIF - ENDIF - - CATCH TO loEx - lnCodError = loEx.ErrorNo - lnIcon = 16 - *IF NOT EMPTY(loEx.UserValue) - loEx.UserValue = CR_LF ; - + 'lcDir = ' + TRANSFORM(lcDir) + CR_LF ; - + 'lcExt = ' + TRANSFORM(lcExt) + CR_LF ; - + 'lcExt2 = ' + TRANSFORM(lcExt2) + CR_LF ; - + 'tnFilename = ' + TRANSFORM(tnFilename) + CR_LF ; - + 'filename1 = "' + THIS.filename1 + '"' + CR_LF ; - + 'lcFilename1 = "' + lcFilename1 + '"' + CR_LF ; - + 'lcFilename1_dt = ' + TRANSFORM(lcFilename1_dt) + CR_LF ; - + 'laFile1(1,3) = ' + TRANSFORM(laFile1(1,3)) + CR_LF ; - + 'laFile1(1,4) = ' + TRANSFORM(laFile1(1,4)) + CR_LF ; - + 'filename2 = "' + THIS.filename2 + '"' + CR_LF ; - + 'lcFilename2 = "' + lcFilename2 + '"' + CR_LF ; - + 'lcFilename2_dt = ' + TRANSFORM(lcFilename2_dt) + CR_LF ; - + 'laFile2(1,3) = ' + TRANSFORM(laFile2(1,3)) + CR_LF ; - + 'laFile2(1,4) = ' + TRANSFORM(laFile2(1,4)) + CR_LF - *ENDIF - TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4 - Error <>, <> - Procedure <>, Line <> - LineContents: <> - Details: <> - UserValue: <> - ENDTEXT - - FINALLY - IF lnCodError > 0 THEN - MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg checkFilenames_dt' ) - ENDIF - - ENDTRY - - #UNDEF CR_LF - - ENDPROC - - PROCEDURE create_default_cfg - *-- create_Default_CFG - LOCAL lcPath - - lcPath = EVL( JUSTPATH(THISFORM.c_CFG_File), JUSTPATH(SYS(16)) ) - - IF LEFT(lcPath,10) == 'PROCEDURE ' THEN - lcPath = SUBSTR( lcPath, AT(' ', lcPath, 2) + 1 ) - ENDIF - - *-- Configuración de Herramientas DIFF predefinidas - THIS.n_ToolCount = 1 - DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 ) - THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'WinMergePortable' - THIS.a_Tools( THIS.n_ToolCount, 2 ) = '/e /x /u /maximize <> <>' - THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>WinMergePortable\WinMergePortable.exe' - - THIS.n_ToolCount = 2 - DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 ) - THIS.a_Tools( THIS.n_ToolCount, 1 ) = 'Beyond Compare 2' - THIS.a_Tools( THIS.n_ToolCount, 2 ) = '<> <>' - THIS.a_Tools( THIS.n_ToolCount, 3 ) = '<>Beyond Compare 2\BC2.exe' - - *-- - THIS.diffToolName = THIS.a_Tools( 1, 1 ) - THIS.diffToolConfig = THIS.a_Tools( 1, 2 ) - THIS.diffToolPath = THIS.a_Tools( 1, 3 ) - THIS.save_CFG_Data() - THIS.diffToolCombo_Refresh() - THIS.diffToolChanged() - THIS.Refresh() - - ENDPROC - - PROCEDURE deletetool - *-- deleteTool - LOCAL locboDiffToolName as ComboBox, loTxtDiffToolCfg as TextBox, loTxtDiffToolPath as TextBox, lnListIndex - - locboDiffToolName = THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName - loTxtDiffToolCfg = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig - loTxtDiffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath - - IF MESSAGEBOX( '¿Confirm Delete?',4+32+256+4096, 'FoxBin2Prg: Delete tool config' ) = 6 THEN - - IF THIS.n_ToolCount > 0 THEN - lnListIndex = locboDiffToolName.ListIndex - THIS.n_ToolCount = THIS.n_ToolCount - 1 - - IF THIS.n_ToolCount > 0 THEN - ADEL(THIS.a_Tools, lnListIndex) - DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 ) - ELSE - THIS.a_Tools = '' - ENDIF - - IF THIS.n_ToolCount > 0 THEN - IF lnListIndex > THIS.n_ToolCount THEN - lnListIndex = THIS.n_ToolCount - ENDIF - locboDiffToolName.ListIndex = lnListIndex - THIS.diffToolConfig = THIS.a_Tools(lnListIndex,2) - THIS.diffToolPath = THIS.a_Tools(lnListIndex,3) - loTxtDiffToolCfg.Value = THIS.diffToolConfig - loTxtDiffToolPath.Value = THIS.diffToolPath - ELSE - locboDiffToolName.ListIndex = 0 - THIS.diffToolName = '' - THIS.diffToolPath = '' - THIS.diffToolConfig = '' - loTxtDiffToolCfg.Value = '' - loTxtDiffToolPath.Value = '' - ENDIF - - locboDiffToolName.RowSource = locboDiffToolName.RowSource - locboDiffToolName.Refresh() - THIS.save_CFG_Data() - THIS.updateGlobalEnabled() - ENDIF - ENDIF - - ENDPROC - - PROCEDURE Destroy - *-- destroy - THIS.oFB2P = NULL - - IF _VFP.StartMode = 0 THEN - lcFB2P_App = 'foxbin2prg.prg' - ELSE - lcFB2P_App = 'foxbin2prg.exe' - ENDIF - - DO CASE - CASE ATC( lcFB2P_App, SET("Procedure") ) > 0 - RELEASE PROCEDURE (lcFB2P_App) - CASE ATC( FORCEEXT(lcFB2P_App, 'FXP'), SET("Procedure") ) > 0 - RELEASE PROCEDURE (FORCEEXT(lcFB2P_App, 'FXP')) - ENDCASE - - ENDPROC - - PROCEDURE difftoolchanged - *-- diffToolChanged - - WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName - IF .ListCount > 0 THEN - THISFORM.diffToolConfig = THISFORM.a_Tools(.ListIndex,2) - THISFORM.diffToolPath = THISFORM.a_Tools(.ListIndex,3) - THISFORM.n_SelectedToolIndex = .ListIndex - .Parent.txtDiffToolConfig.Value = THISFORM.diffToolConfig - .Parent.txtDiffToolPath.Value = THISFORM.diffToolPath - ENDIF - ENDWITH - - ENDPROC - - PROCEDURE difftoolcombo_refresh - WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName - IF THIS.l_EditMode THEN - .Clear() - .ControlSource = '' - .RowSourceType = 1 && Value - .RowSource = '' - .Style = 0 && Dropdown Combo - .AddItem(THIS.diffToolName) - .Value = THIS.diffToolName - .SelectOnEntry = .T. - ELSE - .Style = 2 && Dropdown List - .RowSourceType = 5 && Array - .RowSource = 'THISFORM.a_Tools' - .ControlSource = 'THISFORM.diffToolName' - .Value = THIS.diffToolName - - IF .ListIndex > THIS.n_ToolCount THEN - .ListIndex = THIS.n_ToolCount - ENDIF - - THIS.n_SelectedToolIndex = .ListIndex - ENDIF - ENDWITH - - ENDPROC - - PROCEDURE edittool - *-- editTool - - THISFORM.l_EditMode = .T. - THISFORM.updateGlobalEnabled() - - WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName - THISFORM.diffToolCombo_Refresh() - .SetFocus() - ENDWITH - - ENDPROC - - PROCEDURE filesdiff - *-- filesDiff - - LOCAL laFile(1,5), lcMessage, lnIcon, lcFilename1, lcFilename2, lcDiffToolConfig ; - , llAlwaysOnTop, lnCodError, lcDiffToolPath ; - , loShell AS WScript.Shell ; - , loEx as Exception ; - , loFB2P as c_foxbin2prg OF foxbin2prg.prg - - #DEFINE CR_LF CHR(13)+CHR(10) - - TRY - loFB2P = THIS.oFB2P - lnCodError = 0 - - WITH THISFORM as Form - llAlwaysOnTop = .AlwaysOnTop - lcFilename1 = '"' + FORCEEXT( .filename1, loFB2P.get_Ext2FromExt( JUSTEXT(.filename1), JUSTPATH(.filename1) ) ) + '"' - lcFilename2 = '"' + FORCEEXT( .filename2, loFB2P.get_Ext2FromExt( JUSTEXT(.filename2), JUSTPATH(.filename2) ) ) + '"' - - lcDiffToolConfig = THIS.diffToolConfig - lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 ) - lcDiffToolConfig = STRTRAN( lcDiffToolConfig, '<>', '<>', 1, 1, 1 ) - lcDiffToolConfig = TEXTMERGE(lcDiffToolConfig) - - lcDiffToolPath = '"' + THISFORM.diffToolPath + '"' - lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 ) - lcDiffToolPath = STRTRAN( lcDiffToolPath, '<>', '<>', 1, 1, 1 ) - lcDiffToolPath = TEXTMERGE(lcDiffToolPath) - - IF THISFORM.l_ShowCallOnly THEN - MESSAGEBOX( lcDiffToolPath + ' ' + lcDiffToolConfig ) - EXIT - ENDIF - - IF ADIR(laFile, .Filename1) = 0 THEN - lcMessage = 'File not found' - ERROR lcMessage + ': [' + .Filename1 + ']' - ENDIF - - IF ADIR(laFile, .Filename2) = 0 THEN - lcMessage = 'File not found' - ERROR lcMessage + ': [' + .Filename2 + ']' - ENDIF - - IF ADIR(laFile, lcDiffToolPath) = 0 THEN - lcMessage = 'File not found' - ERROR lcMessage + ': [' + lcDiffToolPath + ']' - ENDIF - - IF NOT loFB2P.hasSupport_Bin2Prg( .filename1 ) - lcMessage = 'File type not supported' - ERROR lcMessage + ': [' + .filename1 + ']' - ENDIF - - lcMessage = 'File is in use [' + .filename1 + ']' - USE (.filename1) EXCLUSIVE - USE - - IF NOT loFB2P.hasSupport_Bin2Prg( .filename2 ) - lcMessage = 'File type not supported' - ERROR lcMessage + ': [' + .filename1 + ']' - ENDIF - - lcMessage = 'File is in use [' + .filename2 + ']' - USE (.filename2) EXCLUSIVE - USE - - lcMessage = .Filename1 - loFB2P.execute( .Filename1, '', '', '', '1', '0', '0', NULL, NULL, .T. ) - - lcMessage = .Filename2 - loFB2P.execute( .Filename2, '', '', '', '1', '0', '0', NULL, NULL, .T. ) - - lcMessage = '' - - IF llAlwaysOnTop THEN - THIS.AlwaysOnTop = .F. - ENDIF - - loShell = CREATEOBJECT('WScript.Shell') - - THIS.filename1_dt = {//::} - THIS.filename2_dt = {//::} - THIS.checkFilenames_dt() - - lnResp = loShell.Run( lcDiffToolPath + ' ' + lcDiffToolConfig, 1, 1) - - IF lnResp = 0 THEN - *-- OK - THIS.checkFilenames_dt() - ELSE - MESSAGEBOX( 'DIFF operation returned the code ' + TRANSFORM(lnResp), 0+48, 'FoxBin2Prg: Diff VFP 9 binary files' ) - ENDIF - - *THIS.lastFilename1 = THIS.filename1 - *THIS.lastFilename2 = THIS.filename2 - - ENDWITH - - CATCH TO loEx WHEN loEx.ErrorNo = 3 - lnCodError = loEx.ErrorNo - lnIcon = 48 - - CATCH TO loEx WHEN loEx.ErrorNo = 1098 - lnCodError = loEx.ErrorNo - lnIcon = 48 - lcMessage = loEx.Message - - CATCH TO loEx - lnCodError = loEx.ErrorNo - lnIcon = 16 - IF NOT EMPTY(lcMessage) - loEx.UserValue = lcMessage - ENDIF - TEXT TO lcMessage TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4 - Error <>, <> - Procedure <>, Line <> - LineContents: <> - Details: <> - UserValue: <> - ENDTEXT - - FINALLY - IF lnCodError > 0 THEN - MESSAGEBOX( lcMessage, 0+lnIcon, 'FoxBin2Prg Diff Status' ) - ENDIF - - THIS.AlwaysOnTop = llAlwaysOnTop - STORE NULL TO loShell, loFB2P - RELEASE loShell, loFB2P - ENDTRY - - #UNDEF CR_LF - - RETURN - - ENDPROC - - PROCEDURE Init - LOCAL lcSys16, lnPosProg - - *-- init - THISFORM.MinHeight = THISFORM.Height - THISFORM.MaxHeight = THISFORM.Height - THISFORM.MinWidth = THISFORM.Width - - THISFORM.a_Tools = '' - - lcSys16 = SYS(16) - IF LEFT(lcSys16,10) == 'PROCEDURE ' - lnPosProg = AT(" ", lcSys16, 2) + 1 - ELSE - lnPosProg = 1 - ENDIF - - THIS.c_CurDir = SYS(5) + CURDIR() && Directorio actual, que no necesariamente es donde está FoxBin2Prg - THIS.c_fb2p_diff_FullPath = SUBSTR( lcSys16, lnPosProg ) - THIS.c_CFG_File = FORCEEXT( THIS.c_fb2p_diff_FullPath, 'CFG' ) - - ENDPROC - - PROCEDURE initialize - *-- initialize - LOCAL lcFB2P_App - - IF VARTYPE(THIS.oFB2P) <> "O" OR ISNULL(THIS.oFB2P) - IF _VFP.StartMode = 0 THEN - lcFB2P_App = 'foxbin2prg.prg' - ELSE - lcFB2P_App = 'foxbin2prg.exe' - ENDIF - - SET PROCEDURE TO (lcFB2P_App) - THIS.oFB2P = CREATEOBJECT('c_foxbin2prg') - ENDIF - - THIS.load_CFG_Data() - THIS.diffToolCombo_Refresh() - THIS.diffToolChanged() - THIS.updateGlobalEnabled() - - ENDPROC - - PROCEDURE load_cfg_data - *-- load_CFG_Data - LOCAL laFile(1,5), llCreateNewCFGFile, I, lcDiffTool - - #DEFINE CR_LF CHR(13) + CHR(10) - - *-- Estructura de CFG_Data: - *-- tool-nametool-config - *-- tool-nametool-config - *-- tool-name - - IF ADIR(laFile, THIS.c_CFG_File) = 1 - THIS.c_CFG_Data = FILETOSTR( THIS.c_CFG_File ) - - DO CASE - CASE EMPTY(THIS.c_CFG_Data) OR EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) ) - llCreateNewCFGFile = .T. - CASE EMPTY( STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) ) - THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) - THIS.c_CFG_Data = THIS.c_CFG_Data + CR_LF + '' + THIS.diffToolName + '' - THIS.save_CFG_Data() - OTHERWISE - THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) - ENDCASE - ELSE - llCreateNewCFGFile = .T. - ENDIF - - *-- Si no hay CFG, creo uno por defecto - IF llCreateNewCFGFile - THIS.create_Default_CFG() - ENDIF - - *-- Lo cargo en el combobox - THIS.diffToolName = STREXTRACT(THIS.c_CFG_Data, '', '', 1, 1) - THIS.n_ToolCount = 0 - - FOR I = 1 TO OCCURS('', THIS.c_CFG_Data ) - THIS.n_ToolCount = THIS.n_ToolCount + 1 - DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 ) - lcDiffTool = STREXTRACT(THIS.c_CFG_Data, '', '', I, 1) - THIS.a_Tools( THIS.n_ToolCount, 1 ) = STREXTRACT(lcDiffTool, '', '', 1, 1) - THIS.a_Tools( THIS.n_ToolCount, 2 ) = STREXTRACT(lcDiffTool, '', '', 1, 1) - THIS.a_Tools( THIS.n_ToolCount, 3 ) = STREXTRACT(lcDiffTool, '', '', 1, 1) - - IF EMPTY(THIS.diffToolConfig) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN - THIS.diffToolConfig = THIS.a_Tools( THIS.n_ToolCount, 2 ) - ENDIF - - IF EMPTY(THIS.diffToolPath) AND THIS.a_Tools( THIS.n_ToolCount, 1 ) == THIS.diffToolName THEN - THIS.diffToolPath = THIS.a_Tools( THIS.n_ToolCount, 3 ) - ENDIF - ENDFOR - - #UNDEF CR_LF - - ENDPROC - - PROCEDURE newtool - *-- newTool - - THISFORM.l_EditMode = .T. - THISFORM.updateGlobalEnabled() - - WITH THISFORM.pgfDiff.pagDiffToolConfig.cboDiffToolName - .RowSourceType= 0 - .RowSource = '' - .ControlSource = '' - .Style = 0 && Dropdown Combo - .Value = '' - .SetFocus() - ENDWITH - - THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value = '' - THISFORM.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value = '' - - ENDPROC - - PROCEDURE QueryUnload - CLEAR EVENTS - - ENDPROC - - PROCEDURE resetalltools - *-- resetAllTools - THIS.cancel() - THIS.create_Default_CFG() - THIS.initialize() - THIS.updateGlobalEnabled() - - ENDPROC - - PROCEDURE savetool - *-- saveTool - LOCAL lnItem - - THIS.l_EditMode = .F. - THIS.updateGlobalEnabled() - - WITH THIS.pgfDiff.pagDiffToolConfig.cboDiffToolName - THIS.diffToolName = .Text - THIS.diffToolConfig = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolConfig.Value - THIS.diffToolPath = THIS.pgfDiff.pagDiffToolConfig.txtDiffToolPath.Value - - IF THIS.n_EditOption = 1 THEN - *-- New tool - THIS.n_ToolCount = THIS.n_ToolCount + 1 - DIMENSION THIS.a_Tools( THIS.n_ToolCount, 3 ) - lnItem = THIS.n_ToolCount - ELSE - *-- Edit tool - lnItem = THIS.n_SelectedToolIndex - ENDIF - - THIS.a_Tools( lnItem, 1 ) = THIS.diffToolName - THIS.a_Tools( lnItem, 2 ) = THIS.diffToolConfig - THIS.a_Tools( lnItem, 3 ) = THIS.diffToolPath - THIS.diffToolCombo_Refresh() - .SetFocus() - - THIS.n_SelectedToolIndex = .ListIndex - THIS.save_CFG_Data() - THIS.updateGlobalEnabled() - ENDWITH - - ENDPROC - - PROCEDURE save_cfg_data - *-- save_CFG_Data - LOCAL I - - #DEFINE CR_LF CHR(13) + CHR(10) - - THIS.c_CFG_Data = '' - - TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+4 - <<>> - ENDTEXT - - FOR I = 1 TO THIS.n_ToolCount - TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - <<>> - <<>> <> - <<>> <> - <<>> <> - <<>> - ENDTEXT - ENDFOR - - IF EMPTY(THIS.diffToolName) THEN - IF NOT EMPTY(THIS.a_Tools(1,1)) THEN - TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - <<>> <> - ENDTEXT - ENDIF - ELSE - TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - <<>> <> - ENDTEXT - ENDIF - - TEXT TO THISFORM.c_CFG_Data ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2+4 - <<>> - ENDTEXT - - STRTOFILE( THIS.c_CFG_Data, THIS.c_CFG_File ) - - #UNDEF CR_LF - - ENDPROC - - PROCEDURE updateglobalenabled - *-- updateGlobalEnabled - LOCAL lopagFilesDiff as Page, loPagConfig as Page, cmgPanel as CommandGroup - - WITH THIS AS Form - lopagFilesDiff = .pgfDiff.pagFilesDiff - loPagConfig = .pgfDiff.pagDiffToolConfig - cmgPanel = loPagConfig.cmgEditPanel - - *-- Edit? - loPagConfig.txtDiffToolConfig.Enabled = .l_EditMode - loPagConfig.txtDiffToolPath.Enabled = .l_EditMode - cmgPanel.cmdNew.Enabled = NOT .l_EditMode - cmgPanel.cmdEdit.Enabled = NOT .l_EditMode AND .n_ToolCount > 0 - cmgPanel.cmdDelete.Enabled = NOT .l_EditMode AND .n_ToolCount > 0 - loPagConfig.cmdDiffToolPath.Enabled = .l_EditMode - loPagConfig.cmdSetDefault.Enabled = NOT .l_EditMode AND .n_ToolCount > 0 - loPagConfig.cmdSave.Enabled = .l_EditMode - loPagConfig.cmdCancel.Enabled = .l_EditMode - lopagFilesDiff.Enabled = NOT .l_EditMode - - *-- cmdDiff - lopagFilesDiff.cmdDiff.Enabled = NOT .l_EditMode ; - AND NOT EMPTY(.filename1) AND NOT EMPTY(.filename2) ; - AND NOT .filename1 == .filename2 ; - AND NOT EMPTY(.diffToolName) AND NOT EMPTY(.diffToolPath) AND NOT EMPTY(.diffToolConfig) - - THIS.checkFilenames_dt() - ENDWITH && THISFORM - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.Activate - THISFORM.updateGlobalEnabled() - THIS.cboDiffToolName.SetFocus() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.DropDown - IF THISFORM.l_EditMode OR THIS.ListCount = 0 THEN - NODEFAULT - ENDIF - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cboDiffToolName.InteractiveChange - IF NOT THISFORM.l_EditMode - THISFORM.diffToolChanged() - ENDIF - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmdCancel.Click - THISFORM.cancel() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmdDiffToolPath.Click - LOCAL lcFile - - lcFile = GETFILE('exe') - - IF NOT EMPTY(lcFile) THEN - THIS.Parent.txtDiffToolPath.Value = lcFile - THIS.Parent.txtDiffToolPath.Refresh() - *THISFORM.updateGlobalEnabled() - ENDIF - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmdResetAll.Click - THISFORM.resetAllTools() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmdSave.Click - THISFORM.saveTool() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmdSetDefault.Click - THISFORM.save_CFG_Data() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdDelete.Click - THISFORM.deleteTool() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdEdit.Click - THISFORM.editTool() - - ENDPROC - - PROCEDURE pgfDiff.pagDiffToolConfig.cmgEditPanel.cmdNew.Click - THISFORM.newTool() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.Activate - THISFORM.updateGlobalEnabled() - THIS.txtFile1.SetFocus() - *THIS.txtDiffToolName.Refresh() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.cmdDiff.Click - THISFORM.filesDiff() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.cmdFile1.Click - LOCAL lcFile - - lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf') - - IF NOT EMPTY(lcFile) THEN - THISFORM.filename1 = lcFile - THIS.Parent.txtFile1.Refresh() - THISFORM.updateGlobalEnabled() - ENDIF - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.cmdFile2.Click - LOCAL lcFile - - lcFile = GETFILE('scx;vcx;mnx;pjx;frx;lbx;dbc;dbf') - - IF NOT EMPTY(lcFile) THEN - THISFORM.filename2 = lcFile - THIS.Parent.txtFile2.Refresh() - THISFORM.updateGlobalEnabled() - ENDIF - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile1.InteractiveChange - THISFORM.updateGlobalEnabled() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragDrop - LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord - LOCAL aValues, i, cText, nOperation - - *-- Check to see whether the user wants to copy or move - *IF nShift == 1 - nOperation = 1 &&DROPEFFECT_COPY - *ELSE - * nOperation = 2 &&DROPEFFECT_MOVE - *ENDIF - - *Thisform.LockScreen = .T. - - DO CASE - CASE oDataObject.GetFormat(1) && Text - cText = oDataObject.GetData(1) - - *-- Add the text as a new item in the list - *This.AddItem( cText ) - *? 2, cText - - CASE oDataObject.GetFormat(15) && Files CF_DROP - DIMENSION aValues[1] - oDataObject.GetData(15, @aValues ) - - *-- Add each filename as a new item in the list - *!* FOR i = 1 to alen(aValues) - *!* This.AddItem(aValues[m.i]) - *!* NEXT - *? 3, aValues[1] - THIS.Value = aValues[1] - ENDCASE - - *Thisform.LockScreen = .F. - - *-- Set the nEffect parameter for communication back to the source object - nEffect = nOperation - *NODEFAULT - THISFORM.updateGlobalEnabled() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile1.OLEDragOver - LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState - - DO CASE - CASE nState == 0 &&DRAG_ENTER - DO CASE - *CASE oDataObject.GetFormat("OLE Variant Array") && Array - * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE - - CASE oDataObject.GetFormat(1) && Text - This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE - - CASE oDataObject.GetFormat(15) && Files CF_HDROP - This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - *This.OLEDropEffects = 4 &&DROPEFFECT_LINK - This.OLEDropEffects = 1 &&DROPEFFECT_COPY - OTHERWISE - This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL - ENDCASE - - CASE nState == 1 && Drag Leave - CASE nState == 2 && Drag Over - ENDCASE - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile1.Valid - THISFORM.updateGlobalEnabled() - *THISFORM.checkFilenames_dt(1) - THIS.Refresh() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile2.InteractiveChange - THISFORM.updateGlobalEnabled() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragDrop - LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord - LOCAL aValues, i, cText, nOperation - - *-- Check to see whether the user wants to copy or move - *IF nShift == 1 - nOperation = 1 &&DROPEFFECT_COPY - *ELSE - * nOperation = 2 &&DROPEFFECT_MOVE - *ENDIF - - *Thisform.LockScreen = .T. - - DO CASE - CASE oDataObject.GetFormat(1) && Text - cText = oDataObject.GetData(1) - - *-- Add the text as a new item in the list - *This.AddItem( cText ) - *? 2, cText - - CASE oDataObject.GetFormat(15) && Files CF_DROP - DIMENSION aValues[1] - oDataObject.GetData(15, @aValues ) - - *-- Add each filename as a new item in the list - *!* FOR i = 1 to alen(aValues) - *!* This.AddItem(aValues[m.i]) - *!* NEXT - *? 3, aValues[1] - THIS.Value = aValues[1] - ENDCASE - - *Thisform.LockScreen = .F. - - *-- Set the nEffect parameter for communication back to the source object - nEffect = nOperation - *NODEFAULT - THISFORM.updateGlobalEnabled() - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile2.OLEDragOver - LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState - - DO CASE - CASE nState == 0 &&DRAG_ENTER - DO CASE - *CASE oDataObject.GetFormat("OLE Variant Array") && Array - * This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - * This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE - - CASE oDataObject.GetFormat(1) && Text - This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - This.OLEDropEffects = 1+2 &&DROPEFFECT_COPY + DROPEFFECT_MOVE - - CASE oDataObject.GetFormat(15) && Files CF_HDROP - This.OLEDropHasData = 1 &&DROPHASDATA_USEFUL - *This.OLEDropEffects = 4 &&DROPEFFECT_LINK - This.OLEDropEffects = 1 &&DROPEFFECT_COPY - OTHERWISE - This.OLEDropHasData = 0 &&DROPHASDATA_NOTUSEFUL - ENDCASE - - CASE nState == 1 && Drag Leave - CASE nState == 2 && Drag Over - ENDCASE - - ENDPROC - - PROCEDURE pgfDiff.pagFilesDiff.txtFile2.Valid - THISFORM.updateGlobalEnabled() - *THISFORM.checkFilenames_dt(2) - THIS.Refresh() - - ENDPROC - -ENDDEFINE diff --git a/Fb2P_Diff/fb2p_diff.frmdiff.sct b/Fb2P_Diff/fb2p_diff.frmdiff.sct deleted file mode 100644 index d92b35d..0000000 Binary files a/Fb2P_Diff/fb2p_diff.frmdiff.sct and /dev/null differ diff --git a/Fb2P_Diff/fb2p_diff.frmdiff.scx b/Fb2P_Diff/fb2p_diff.frmdiff.scx deleted file mode 100644 index 5735bf8..0000000 Binary files a/Fb2P_Diff/fb2p_diff.frmdiff.scx and /dev/null differ diff --git a/Fb2P_Diff/fb2p_diff.pj2 b/Fb2P_Diff/fb2p_diff.pj2 index 3c21bd1..e13e649 100644 --- a/Fb2P_Diff/fb2p_diff.pj2 +++ b/Fb2P_Diff/fb2p_diff.pj2 @@ -1,8 +1,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.20" SourceFile="fb2p_diff.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.21" SourceFile="fb2p_diff.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * LPARAMETERS tcDir diff --git a/Fb2P_Diff/fb2p_diff.sc2 b/Fb2P_Diff/fb2p_diff.sc2 index 5f3b350..fb1c1b9 100644 --- a/Fb2P_Diff/fb2p_diff.sc2 +++ b/Fb2P_Diff/fb2p_diff.sc2 @@ -1,11 +1,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.20" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.21" SourceFile="fb2p_diff.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * -*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas -*< EXTERNAL_CLASS: Name="dataenvironment" Baseclass="dataenvironment" /> -*< EXTERNAL_CLASS: Name="frmdiff" Baseclass="form" /> * \ No newline at end of file diff --git a/FileName_Caps/Filename_caps.pj2 b/FileName_Caps/Filename_caps.pj2 index 2f69969..3317e9d 100644 --- a/FileName_Caps/Filename_caps.pj2 +++ b/FileName_Caps/Filename_caps.pj2 @@ -1,8 +1,7 @@ *-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="filename_caps.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.21" SourceFile="filename_caps.pjx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * LPARAMETERS tcDir @@ -50,8 +49,8 @@ MODIFY PROJECT 'Filename_caps.pjx' NOWAIT NOSHOW NOPROJECTHOOK loProject = _VFP.Projects('Filename_caps.pjx') WITH loProject.FILES - .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" /> - .ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" /> + .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" /> + .ADD('filename_caps.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" /> * .ITEM('__newproject.f2b').Remove() @@ -63,13 +62,12 @@ WITH loProject.FILES * * - .ITEM(lcCurdir + 'config\config.fpw').Type = 'T' + .ITEM("config\config.fpw").Type = 'T' * ENDWITH WITH loProject * - .SetMain(lcCurdir + 'filename_caps.prg') .Debug = .T. .Encrypted = .F. *<.CmntStyle = 1 /> diff --git a/FileName_Caps/Filename_caps.pjt b/FileName_Caps/Filename_caps.pjt deleted file mode 100644 index 97cb46e..0000000 Binary files a/FileName_Caps/Filename_caps.pjt and /dev/null differ diff --git a/FileName_Caps/Filename_caps.pjx b/FileName_Caps/Filename_caps.pjx deleted file mode 100644 index 0abe35c..0000000 Binary files a/FileName_Caps/Filename_caps.pjx and /dev/null differ diff --git a/Helper/Read_InstallFiles.prg b/Helper/Read_InstallFiles.prg new file mode 100644 index 0000000..a00eacc --- /dev/null +++ b/Helper/Read_InstallFiles.prg @@ -0,0 +1,153 @@ +LPARAMETERS; + tcDirectory + +*set step on +tcDirectory = EXECSCRIPT(_SCREEN.cThorDispatcher, 'Thor_Proc_GetFoxBin2PrgFolder') +DO CASE + CASE VARTYPE(tcDirectory)#'C' + CASE !INLIST(UPPER(tcDirectory),'?','/?','-?','/Help','-Help') + OTHERWISE + tcDirectory = JUSTFNAME(SYS(16)) + InfoScreen(tcDirectory) + RETURN +ENDCASE + +ADDPROPERTY(_SCREEN,'gvX1',tcDirectory) + +CLEAR ALL + +LOCAL; + lcDir,; + lcExt,; + lcErr,; + lcOldPath,; + lcDirectory,; + llNewGUID,; + lcResult + + +lcDirectory = _SCREEN.gvX1 +REMOVEPROPERTY(_SCREEN,'gvX1') + +lcOldPath = FULLPATH(CURDIR()) + +DO CASE + CASE EMPTY(lcDirectory) + lcDir = '' + CASE !DIRECTORY(lcDirectory) AND !FILE(lcDirectory) + lcDir = '' + CASE DIRECTORY(lcDirectory) + lcDir = ADDBS(lcDirectory) + OTHERWISE + MESSAGEBOX('Nicht unterstützter Dateityp.') + RETURN +ENDCASE + +IF EMPTY(lcDir) THEN + CLEAR + lcDir = GETDIR('','','',64) + IF ALLTRIM(lcDir)=='' THEN + RETURN + ENDIF &&ALLTRIM(lcDir)=='' +ENDIF &&EMPTY(lcDir) + +PUBLIC; + poRegExp + +*!* poRegExp = CREATEOBJECT('VBScript.RegExp') +*!* WITH poRegExp +*!* .IgnoreCase = .T. +*!* .GLOBAL = .T. +*!* .MultiLine = .T. +*!* ENDWITH &&poRegExp + +lcErr = '' +lcResult = '' +ScanDir(lcDir,@lcErr,lcDir,@lcResult) +_CLIPTEXT = lcResult + +IF !EMPTY(lcErr) THEN + MESSAGEBOX('Fehler in der Zwischenablage gespeichert',0+48) + _CLIPTEXT = SUBSTR(lcErr,3) +ENDIF &&!EMPTY(lcErr) +poRegExp = .NULL. +RELEASE; + poRegExp + +CD (lcOldPath) + +RETURN lcResult + +PROCEDURE InfoScreen + LPARAMETERS; + tcProgram + + LOCAL; + lcTemp AS CHARACTER,; + lnOldMemoW AS INTEGER + + TEXT TO lcTEMP NOSHOW textmerge +<> +Creates a list of files in a given subdirectory with subdirectories. +Usage: +<> [/?] [cDirectory] + /? Displays this text + cDirectory optional directory to start from, subdirectories will be included +Return is in clipboard + ENDTEXT + + lnOldMemoW = SET("Memowidth") + SET MEMOWIDTH TO 100 + ?lcTemp FONT 'Courier',6 + SET MEMOWIDTH TO lnOldMemoW +ENDPROC &&InfoScreen + +PROCEDURE ScanDir + LPARAMETERS; + tcDir,; + tcErr,; + tcDir2,; + tcResult + + LOCAL; + lnLoop1,; + lcOldDir + + LOCAL ARRAY; + laDir(1) + +* SET STEP ON + lcOldDir = FULLPATH(CURDIR()) + CD (tcDir) + FOR lnLoop1 = 1 TO ADIR(laDir,'','D') + IF INLIST(laDir(lnLoop1,1),'.','..') THEN + LOOP + ENDIF &&INLIST(laDir(lnLoop1,1),'.','..') + ScanDir(ADDBS(tcDir+laDir(lnLoop1,1)),@tcErr,tcDir2,@tcResult) + ENDFOR &&lnLoop1 + Dir_Action(tcDir,@tcErr,tcDir2,@tcResult) + + CD (lcOldDir) +ENDPROC &&ScanDir + +PROCEDURE Dir_Action + LPARAMETERS; + tcDir,; + tcErr,; + tcDir2,; + tcResult + + LOCAL; + lnStart AS INTEGER + + LOCAL ARRAY; + laDir(1) + + tcDir2 = STRTRAN(tcDir,tcDir2,'') + + FOR lnStart = 1 TO ADIR(laDir,'*.*') + tcResult = tcResult+0h0d0a+laDir(lnStart,1) + ENDFOR &&lnStart + + RETURN +ENDPROC &&Dir_Action diff --git a/clean_copied_memo.prg b/Helper/clean_copied_memo.prg similarity index 100% rename from clean_copied_memo.prg rename to Helper/clean_copied_memo.prg diff --git a/Helper/clean_thorfolder.prg b/Helper/clean_thorfolder.prg new file mode 100644 index 0000000..519b1d3 --- /dev/null +++ b/Helper/clean_thorfolder.prg @@ -0,0 +1,469 @@ +LPARAMETERS; +tcDirectory + +DO CASE + CASE VARTYPE(tcDirectory)#'C' + CASE !INLIST(UPPER(tcDirectory),'?','/?','-?','/Help','-Help') + OTHERWISE + tcDirectory = JUSTFNAME(SYS(16)) + InfoScreen(tcDirectory) + RETURN +ENDCASE + +ADDPROPERTY(_SCREEN,'gvX1',tcDirectory) + +CLEAR ALL + +LOCAL; + lcDir,; + lcExt,; + lcErr,; + lcOldPath,; + lcDirectory,; + llNewGUID + +LOCAL ARRAY; + laActual(1) + +lcDirectory = _SCREEN.gvX1 +REMOVEPROPERTY(_SCREEN,'gvX1') + +lcOldPath = FULLPATH(CURDIR()) + +DO CASE + CASE EMPTY(lcDirectory) + lcDir = '' + CASE !DIRECTORY(lcDirectory) AND !FILE(lcDirectory) + lcDir = '' + CASE DIRECTORY(lcDirectory) + lcDir = ADDBS(lcDirectory) + OTHERWISE + MESSAGEBOX('Nicht unterstützter Dateityp.') + RETURN +ENDCASE + +IF EMPTY(lcDir) THEN + CLEAR + lcDir = GETDIR('','','',64) + IF ALLTRIM(lcDir)=='' THEN + RETURN + ENDIF &&ALLTRIM(lcDir)=='' +ENDIF &&EMPTY(lcDir) + +PUBLIC; + poRegExp + +*!* poRegExp = CREATEOBJECT('VBScript.RegExp') +*!* WITH poRegExp +*!* .IgnoreCase = .T. +*!* .GLOBAL = .T. +*!* .MultiLine = .T. +*!* ENDWITH &&poRegExp + +lcErr = '' +lcResult = '' +Get_CompareFiles(@laActual) +ScanDir(lcDir,@lcErr,lcDir,@laActual) +CD +IF !EMPTY(lcErr) THEN + MESSAGEBOX('Fehler in der Zwischenablage gespeichert',0+48) + _CLIPTEXT = SUBSTR(lcErr,3) +ENDIF &&!EMPTY(lcErr) +poRegExp = .NULL. +RELEASE; + poRegExp + +CD (lcOldPath) + +PROCEDURE InfoScreen + LPARAMETERS; + tcProgram + + LOCAL; + lcTemp AS CHARACTER,; + lnOldMemoW AS INTEGER + + TEXT TO lcTEMP NOSHOW textmerge +<> +Removes files from old installation out og Thor installation directroy for FoxBin2Prg +Compares with a list of files, change proc Get_CompareFiles to add or remove files. +Run Read_InstallFiles.prg against INSTALLEDFILES directory to get the list of files. +Usage: +<> [/?] [cDirectory] + /? Displays this text + cDirectory optional directory to start from, subdirectories will be included + ENDTEXT + lnOldMemoW = SET("Memowidth") + SET MEMOWIDTH TO 100 + ?lcTemp FONT 'Courier',6 + SET MEMOWIDTH TO lnOldMemoW +ENDPROC &&InfoScreen + +PROCEDURE ScanDir + LPARAMETERS; + tcDir,; + tcErr,; + tcDir2,; + taActual + + LOCAL; + lnLoop1,; + lcOldDir + + LOCAL ARRAY; + laDir(1) + +* SET STEP ON + lcOldDir = FULLPATH(CURDIR()) + CD (tcDir) + FOR lnLoop1 = 1 TO ADIR(laDir,'','D') + IF INLIST(laDir(lnLoop1,1),'.','..') THEN + LOOP + ENDIF &&INLIST(laDir(lnLoop1,1),'.','..') + ScanDir(ADDBS(tcDir+laDir(lnLoop1,1)),@tcErr,tcDir2,@taActual) + ENDFOR &&lnLoop1 + Dir_Action(tcDir,@tcErr,tcDir2,@taActual) + CD (lcOldDir) +ENDPROC &&ScanDir + +PROCEDURE Dir_Action + LPARAMETERS; + tcDir,; + tcErr,; + tcDir2,; + taActual + + LOCAL; + lnStart AS INTEGER + + EXTERNAL ARRAY; + taActual + + LOCAL ARRAY; + laDir(1) + + tcDir2 = STRTRAN(tcDir,tcDir2,'') + + FOR lnStart = 1 TO ADIR(laDir,'*.*') + IF EMPTY(ASCAN(taActual,tcDir2+laDir(lnStart,1))) THEN + DELETE FILE JUSTFNAME(laDir(lnStart,1)) + ENDIF &&EMPTY(ASCAN(taActual,tcDir2+laDir(lnStart,1))) + + ENDFOR &&lnStart + + DIMENSION ; + laDir(1) + + laDir = .F. + ADIR(laDir,'*.*') + IF EMPTY(laDir(1,1)) THEN + CD .. + TRY + RMDIR JUSTFNAME(JUSTPATH(m.tcDir)) + CATCH +*incase there is a folder, the cheap ignore + ?m.tcDir + ENDTRY + ENDIF &&EMPTY(laDir(1,1)) + + RETURN +ENDPROC &&Dir_Action + +PROCEDURE Get_CompareFiles + LPARAMETERS; + taActual + + EXTERNAL ARRAY; + taActual + + LOCAL; + lcTemp AS STRING + + TEXT TO lctemp NOSHOW +CONFIG\CONFIG.FPW +WINMERGEPORTABLE\APP\APPINFO\LAUNCHER\SPLASH.JPG +WINMERGEPORTABLE\APP\APPINFO\LAUNCHER\WINMERGEPORTABLE.INI +WINMERGEPORTABLE\APP\APPINFO\APPICON.ICO +WINMERGEPORTABLE\APP\APPINFO\APPICON_128.PNG +WINMERGEPORTABLE\APP\APPINFO\APPICON_16.PNG +WINMERGEPORTABLE\APP\APPINFO\APPICON_32.PNG +WINMERGEPORTABLE\APP\APPINFO\APPINFO.INI +WINMERGEPORTABLE\APP\APPINFO\INSTALLER.INI +WINMERGEPORTABLE\APP\DEFAULTDATA\SETTINGS\WINMERGE.REG +WINMERGEPORTABLE\APP\WINMERGE\DOCS\CHANGELOG.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BASQUE.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BRAZILIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-BULGARIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CATALAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CHINESESIMPLIFIED.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CHINESETRADITIONAL.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-CROATIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-DUTCH.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-FRENCH.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-GALICIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-GREEK.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-JAPANESE.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-ROMANIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SERBIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SPANISH.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-SWEDISH.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-TURKISH.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README-UKRAINIAN.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\README.TXT +WINMERGEPORTABLE\APP\WINMERGE\DOCS\RELEASENOTES.HTML +WINMERGEPORTABLE\APP\WINMERGE\DOCS\WINMERGE.CHM +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\ADAMULTI.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\ASPNET.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\CSHARP_LOOSE.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\DELPHI.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\FILEFILTER.TMPL +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\FRONTPAGE.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MASM.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_GNUC_LOOSE.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_VB_LOOSE.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MERGE_VC_LOOSE.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\MICROSOFT_VISUAL_FOXPRO_FOXBIN2PRG.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\SOURCECONTROL.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\SYMBIAN.FLT +WINMERGEPORTABLE\APP\WINMERGE\FILTERS\XML_HTML.FLT +WINMERGEPORTABLE\APP\WINMERGE\LANG\AF.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\AR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\AST.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\AZ.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\BA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\BE.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\BG.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\BN.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\BR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\CA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\CS.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\CY.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\DA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\DE.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\EL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\EN.TTT +WINMERGEPORTABLE\APP\WINMERGE\LANG\EO.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\ES.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\ET.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\EU.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\EXT.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\FA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\FI.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\FR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\FUR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\FY.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\GL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\GU.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\HE.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\HI.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\HR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\HU.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\HY.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\ID.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\IO.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\IS.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\IT.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\JA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\KA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\KK.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\KO.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\KU-CKB.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\KU.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\LT.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\LV.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\MK.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\MN.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\MR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\MS.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\NB.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\NE.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\NL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\NN.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\PA-IN.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\PL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\PS.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\PT-BR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\PT.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\RO.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\RU.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SI.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SK.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SQ.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SR-SPC.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SR-SPL.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\SV.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\TA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\TH.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\TR.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\TT.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\UG.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\UK.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\UZ.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\VA.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\VI.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\ZH-CN.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANG\ZH-TW.TXT +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BASQUE.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BRAZILIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\BULGARIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CATALAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CHINESESIMPLIFIED.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CHINESETRADITIONAL.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CROATIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\CZECH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\DANISH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\DUTCH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\FRENCH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GALICIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GERMAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\GREEK.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\HUNGARIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\ITALIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\JAPANESE.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\KOREAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\NORWEGIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\PERSIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\POLISH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\PORTUGUESE.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\ROMANIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\RUSSIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SERBIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SLOVAK.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SLOVENIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SPANISH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\SWEDISH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\TURKISH.PO +WINMERGEPORTABLE\APP\WINMERGE\LANGUAGES\UKRAINIAN.PO +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\COMPAREMSEXCELFILES.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\COMPAREMSWORDFILES.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\DISPLAYXMLFILES.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\EDITOR ADDIN.SCT +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORECOLUMNS.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORECOMMENTSC.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNOREFIELDSCOMMA.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNOREFIELDSTAB.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\IGNORELEADINGLINENUMBERS.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\INSERT DATETIME.SCT +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\WATCHBEGINNINGOFLOG.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGEPLUGINS\WATCHENDOFLOG.DLL +WINMERGEPORTABLE\APP\WINMERGE\7Z.DLL +WINMERGEPORTABLE\APP\WINMERGE\7ZIP_PAD.XML +WINMERGEPORTABLE\APP\WINMERGE\CONTRIBUTORS.TXT +WINMERGEPORTABLE\APP\WINMERGE\FILES.TXT +WINMERGEPORTABLE\APP\WINMERGE\IGNORESECTIONMARKERS.INI +WINMERGEPORTABLE\APP\WINMERGE\LIBEXPAT.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z910U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z911.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z911U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z912.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z912U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z913.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z913U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z914.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z914U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z915.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z915U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z916.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z916U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z917.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z917U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z918.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z918U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z919.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z919U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z920.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGE7Z920U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MERGELANG.DLL +WINMERGEPORTABLE\APP\WINMERGE\MFC90.DLL +WINMERGEPORTABLE\APP\WINMERGE\MFC90U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MFCM90.DLL +WINMERGEPORTABLE\APP\WINMERGE\MFCM90U.DLL +WINMERGEPORTABLE\APP\WINMERGE\MICROSOFT.VC90.CRT.MANIFEST +WINMERGEPORTABLE\APP\WINMERGE\MICROSOFT.VC90.MFC.MANIFEST +WINMERGEPORTABLE\APP\WINMERGE\MSVCM90.DLL +WINMERGEPORTABLE\APP\WINMERGE\MSVCP90.DLL +WINMERGEPORTABLE\APP\WINMERGE\MSVCR90.DLL +WINMERGEPORTABLE\APP\WINMERGE\PCRE.DLL +WINMERGEPORTABLE\APP\WINMERGE\WINMERGEU.EXE +WINMERGEPORTABLE\DATA\SETTINGS\WINMERGE.REG +WINMERGEPORTABLE\DATA\SETTINGS\WINMERGEPORTABLESETTINGS.INI +WINMERGEPORTABLE\OTHER\HELP\IMAGES\DONATION_BUTTON.PNG +WINMERGEPORTABLE\OTHER\HELP\IMAGES\FAVICON.ICO +WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_BACKGROUND_FOOTER.PNG +WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_BACKGROUND_HEADER.PNG +WINMERGEPORTABLE\OTHER\HELP\IMAGES\HELP_LOGO_TOP.PNG +WINMERGEPORTABLE\OTHER\SOURCE\APPNAMEPORTABLE.INI +WINMERGEPORTABLE\OTHER\SOURCE\LAUNCHERLICENSE.TXT +WINMERGEPORTABLE\OTHER\SOURCE\PORTABLEAPPS.COMINSTALLERCUSTOM.NSH +WINMERGEPORTABLE\OTHER\SOURCE\README.TXT +WINMERGEPORTABLE\HELP.HTML +WINMERGEPORTABLE\WINMERGEPORTABLE.EXE +.GITIGNORE +CONVERT_VFP9_BIN_2_PRG.VBS +CONVERT_VFP9_PRG_2_BIN.VBS +FB2P_DIFF.EXE +FILENAME_CAPS.CFG +FILENAME_CAPS.EXE +FOXBIN2PRG.CFG.TXT +FOXBIN2PRG.DBF.CFG.TXT +FOXBIN2PRG.EXE +FOXBIN2PRG.ICO +FOXBIN2PRG.JPG +FOXBIN2PRG.PRG +FOXBIN2PRGVERSIONFILE.TXT +FOXBIN2PRG_KEYWORDS.CDX +FOXBIN2PRG_KEYWORDS.DBF +LICENSE +NORMALIZE_FILENAMES.VBS +PROPS_ALL.TXT +PROPS_CHECKBOX.TXT +PROPS_COLLECTION.TXT +PROPS_COMBOBOX.TXT +PROPS_COMMANDBUTTON.TXT +PROPS_COMMANDGROUP.TXT +PROPS_CONTAINER.TXT +PROPS_CONTROL.TXT +PROPS_CURSOR.TXT +PROPS_CURSORADAPTER.TXT +PROPS_DATAENVIRONMENT.TXT +PROPS_EDITBOX.TXT +PROPS_FORM.TXT +PROPS_FORMSET.TXT +PROPS_GRID.TXT +PROPS_GRID_COLUMN.TXT +PROPS_GRID_HEADER.TXT +PROPS_HYPERLINK.TXT +PROPS_IMAGE.TXT +PROPS_LABEL.TXT +PROPS_LINE.TXT +PROPS_LISTBOX.TXT +PROPS_OLEBOUND.TXT +PROPS_OPTIONGROUP.TXT +PROPS_OPTIONGROUP_OPTION.TXT +PROPS_PAGEFRAME.TXT +PROPS_PAGEFRAME_PAGE.TXT +PROPS_PRE_V1_19_22.TXT +PROPS_PROJECTHOOK.TXT +PROPS_RELATION.TXT +PROPS_REPORTLISTENER.TXT +PROPS_SEPARATOR.TXT +PROPS_SHAPE.TXT +PROPS_SPINNER.TXT +PROPS_TEXTBOX.TXT +PROPS_TIMER.TXT +PROPS_TOOLBAR.TXT +PROPS_XMLADAPTER.TXT +PROPS_XMLFIELD.TXT +PROPS_XMLTABLE.TXT +README.MD +VFP9_FOXBIN2PRG.VBS +FOXBIN2PRG.CFG +CLEAN_THORFOLDER.PRG +CLEAN_THORFOLDER.FXP + ENDTEXT &&lcTemp + + ALINES(taActual,lcTemp) +ENDPROC &&Get_CompareFiles + diff --git a/Helper/getrevisions.prg b/Helper/getrevisions.prg new file mode 100644 index 0000000..2edd527 --- /dev/null +++ b/Helper/getrevisions.prg @@ -0,0 +1,21 @@ +*-- Para Fidel +#DEFINE HISTORIAL_I '* ' +#DEFINE HISTORIAL_F '* ' + +LOCAL lcHistorial, laLinea(1), laHistorial(1,4) +lcHistorial = STREXTRACT( FILETOSTR('FOXBIN2PRG.PRG'), HISTORIAL_I, HISTORIAL_F ) +SET MEMOWIDTH TO 220 && Solo para prueba. Quitar en la función +CLEAR && Solo para prueba. Quitar en la función +*-- Formato a leer: +*-- [* 04/11/2013 FDBOZZO v1.0 Creación inicial de las clases y soporte de los archivos VCX/SCX/PJX] +FOR I = 1 TO ALINES(laLinea, lcHistorial, 1+4+8) + DIMENSION laHistorial(I,4) + laHistorial(I,1) = GETWORDNUM( laLinea(I), 2 ) + laHistorial(I,2) = GETWORDNUM( laLinea(I), 3 ) + laHistorial(I,3) = GETWORDNUM( laLinea(I), 4 ) + laHistorial(I,4) = SUBSTR( laLinea(I), AT(laHistorial(I,3), laLinea(I)) + LEN(laHistorial(I,3)) + 1 ) + *-- Este '?' es solo de prueba + ? '['+laHistorial(I,1)+']', '['+laHistorial(I,2)+']', '['+laHistorial(I,3)+']', '['+laHistorial(I,4)+']' +ENDFOR + +*-- En este punto tenés el array laHistorial con 1 columna para cada dato. \ No newline at end of file diff --git a/Helper/preparar_SpecialProps_desde_Lista.prg b/Helper/preparar_SpecialProps_desde_Lista.prg new file mode 100644 index 0000000..69ab508 --- /dev/null +++ b/Helper/preparar_SpecialProps_desde_Lista.prg @@ -0,0 +1,12 @@ +LOCAL I, lcStrIn, lcStrOut, laStr(1), lcLeftDelim, lcRightDelim, lcStr, lnLines, lnPosDlr +ON KEY LABEL CTRL+R DO preparar_specialprops_desde_lista.prg +lcStrOut = '' +lcStrIn = _CLIPTEXT +lnLines = ALINES(laStr, lcStrIn) +lnPosDlr = AT('.',laStr(1)) + +FOR I = 1 TO lnLines + lcStrOut = lcStrOut + CHR(13) + ".SortSpecialProps_Form_Add( '" + laStr(I) + "', @I )" +ENDFOR + +_CLIPTEXT = SUBSTR( lcStrOut, 2 ) diff --git a/Helper/readme.md b/Helper/readme.md new file mode 100644 index 0000000..fa19948 --- /dev/null +++ b/Helper/readme.md @@ -0,0 +1,5 @@ +# FoxBin2Prg/Helper + +Programs used to assist with the program, inherited from Fernando + +Last changed: _2023/08/26_ diff --git a/INSTALLEDFILES/license b/INSTALLEDFILES/license new file mode 100644 index 0000000..892f2c8 --- /dev/null +++ b/INSTALLEDFILES/license @@ -0,0 +1,21 @@ +MIT License + +Copyright (c) 2014 Fernando D. Bozzo + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/README.md b/README.md index f251946..8b47b0d 100644 --- a/README.md +++ b/README.md @@ -1,140 +1,178 @@ -# FoxBin2Prg v1.20.07 -**Binary/Text Converting program for Microsoft Visual FoxPro** - -![VFPX Logo](https://vfpx.github.io/images/vfpxbanner_small.gif) ---- - -## What is FOXBIN2PRG? -It is a program intended to be used with **SCM tools** (Source Code Managers, like VSS, CVS, SVN) -and *DVCS tools* (Version Control Systems such as Git, Mercurial, Plastic, and others), -or as **standalone** program for **Diff** (viewing differences) and **Merge** operations. -Foxbin2prg can substitute for **SccText/X**, **TwoFox** and others, -and enhance their functionality, generating bidirectional PRG-Style versions of Foxpro binary files that allow recreating the original binary file. - -## Advantages: - -* It generates "PRG" _style_ text files from Foxpro binary files for use in SCM and VCS systems and for visual comparison. - - (it's not really a prg, and can not be compiled, but it reads like one to Foxpro developers.) -* It enables the change of the Text version as easy as modifying a PRG. -* All the program code for any binary file (a form, a report, a class) is in just one text file, to simplify its maintainability. -* You can regenerate the original binaries from the text files, so it is useful as backup -* The extensions are configurable if you create a FOXBIN2PRG.CFG file -* Inheritance of CFG configuration files between directories -* Methods and properties of Text versions are alphabetically sorted for easy comparison -* You can set the "UseClassPerFile" setting to create individual files by class or DBC member. - - (Which violates number three above, but it may be what you want.) -* Takes advantage of the Win32 API using foxbin2prg as an object -* It has compatibility with SccText/X at the parameter level so that it can be used as substitute for SccText with SourceSafe. (Not that we recommend SourceSafe.) -* Productivity: You can create a shortcut in the "SendTo" folder on your user Windows Profile, so you can "send" the selected file (pjx,pj2,etc) to Foxbin2prg.exe and make on-the-fly conversions -* You can modify the TX2 Prg-Style versions of your objects with MODIFY COMMAND (without compile) to see colored syntax, or even use the Document View to navigate the procedures -* Get back your SourceSafe projects (.pjx) from their .pjm file - -The program supports conversions between PJX,SCX,VCX,FRX,LBX,DBC,DBF and MNX files, for which it generates TEXT versions with extension PJ2,SC2,VC2,FR2,LB2,DC2,DB2 and MN2. If you want, the created text file extensions can be reconfigured to be compatibilize with SourceSafe. - -## Examples -### Redefine extensions of _Text_ -Here is an example of a FOXBIN2PRG.CFG configuration file if you need to change extensions for using it with a specific VSS (SourceSafe) -``` -extension: SC2=SCA -extension: VC2=VCA -extension: PJ2=PJA -extension: MN2=MNA -extension: FR2=FRA -extension: LB2=LBA -extension: DB2=DBA -extension: DC2=DCA -``` - -### Use FoxBin2Prg -``` -DO FOXBIN2PRG.PRG WITH "\archivo.scx" ==> Generates the TEXT version sc2 extension -DO FOXBIN2PRG.PRG WITH "\archivo.sc2" ==> Regenerates the binary version with scx extension - -DO FOXBIN2PRG.PRG WITH "","Prg2Bin" ==> Generates the TEXT of the path, that is directory or file -DO FOXBIN2PRG.PRG WITH "","Bin2Prg" ==> Regenerates the binary version of the path, that is directory or file - -DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest settings -DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings -``` - -### Interactive list of options -``` -DO FOXBIN2PRG.PRG WITH "?" -``` - -### Use with MS Windows SendTo -You can create up to three different shortcuts pointing to FoxBin2Prg.exe and in your "SendTo" folder in your Windows profile. This allows you to "send" a selected file (pjx,pj2,etc) to the selected option, and make on-the-fly conversions. (Make sure you have the option for seeing known file extensions turned on!): - -#### Process directories or individual files to _Text_ -- Name: - `FoxBin2Prg - Binary2Text.lnk` -- Right-click/Properties/destination_ - `\foxbin2prg.exe "BIN2PRG-SHOWMSG"` -#### Process directories or individual files to _Binary_ -- Name: - `FoxBin2Prg - Text2Binary.lnk` -- Right-click/Properties/destination_ - `\foxbin2prg.exe "PRG2BIN-SHOWMSG"` -#### Process individual files or directories asking what to convert -- Name: - `FoxBin2Prg.lnk` -- Right-click/Properties/destination_ - `\foxbin2prg.exe "INTERACTIVE-SHOWMSG"` - -##### How to use the links -Select a file, right-click, SendTo -> FoxBin2Prg - -## LOCALIZATION: -Is automatic starting at v1.19.38 (Languages: EN,ES,FR,DE) - -## FINAL NOTE: -This program is Open Source and "libre", and I don't make any guaranties that it fulfills your expectations or that it will be free of bugs. -I will try to fix bugs if my obligations let me do it. - -## LICENCE: -This work is licensed under the Creative Commons Attribution 4.0 International License. -To view a copy of this license, visit http://creativecommons.org/licenses/by/4.0/. - ---- -## Changes -See [Changes](./docs/ChangeLog.md) - -### Changes to Settings -To get the new settings in config file, use the new create-a-template function: - -``` -DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest default settings -DO FOXBIN2PRG.PRG WITH "-C","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with active settings -DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings -``` - ----- -## Limitations -If dealing with project files, FoxBin2Prg will fail if files of the project are not stored on the drive of the project. -See [issue #93](https://github.com/fdbozzo/foxbin2prg/issues/93). - ----- -## Usage -For usage see [documentation](./docs/FoxBin2Prg.md) - ----- - -## Helping with FoxBin2PRG -See [contribution](./.github/CONTRIBUTING.md) - ---- - -## Note -The spanish documentation is not longer maintained - it would fade. -For fast access a quick run is [introduced](#use-foxbin2prg), more [complex](./docs/FoxBin2Prg_Run.md#usage-1), and a large [documentation](./docs/FoxBin2Prg.md) exists too. -If you do not access FoxBin2Prg via [Thor](https://github.com/VFPX/Thor) remind yourself to compile the exe first. - -If you like to see Fernando's blog, or value his work: -- Blog: http://fdbozzo.blogspot.com.es/ -- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=fdbozzo%40gmail%2ecom&lc=ES&item_name=FoxBin2Prg&item_number=FoxBin2Prg&currency_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted) - ----- - -Last changed: _2023/09/23_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif) \ No newline at end of file +# FoxBin2Prg +## Version 1.21.01 +**Binary/Text Converting program for Microsoft Visual FoxPro** + +## Lutz Scheffler + +This is the perpetuation of [Fernando D. Bozzo](https://github.com/fdbozzo) foxbin2prg. + +The spanish documentation is not longer maintained. +Remind yourself to compile the exe first. + +## Regenerate after download / clone / pull +**Note: If you have cloned or pulled the project, you must run it against itself to create the binaries and exes.** +Run +``` +CD "path_to_FoxBin2Prg" +*This uses a special configuration +DO ReCreate_FoxBin2Prg.prg +``` +**Note: Do not run FoxBin2Prg.prg directly.** + +--- +If you like to value my work, support the Geeks at +[![Virtual Fox Fest!](https://virtualfoxfest.com/images/ZoomFoxSmall.png)](https://virtualfoxfest.com/) or [![Southwest Fox!](http://www.swfox.net/images/KokoWhite.jpg)](https://www.swfox.net). +I also do not reject invitations to a beer, next time in Arizona. + +--- +If you like to see Fernandos blog, or value his work: +- Blog: http://fdbozzo.blogspot.com.es/ +- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=fdbozzo%40gmail%2ecom&lc=ES&item_name=FoxBin2Prg&item_number=FoxBin2Prg&currency_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted) + + Thank you for your support! + +---- +## Important Note +To fix a bug, this version changes the text file header. +It is suggested to create all text files and commit in one step. + +---- +## Contribution +See [contribution](./.github/CONTRIBUTING.md) + +--- + +## What is FOXBIN2PRG? +It is a program intended to be used with **SCM tools** (Source Code Managers, like VSS, CVS, SVN) +and *DVCS tools* (Version Control Systems such as Git, Mercurial, Plastic, and others), +or as **standalone** program for **Diff** (viewing differences) and **Merge** operations. +Foxbin2prg can substitute for **SccText/X**, **TwoFox** and others, +and enhance their functionality, generating bidirectional PRG-Style versions of Foxpro binary files that allow recreating the original binary file. + +## Advantages: + +* It generates "PRG" _style_ text files from Foxpro binary files for use in SCM and VCS systems and for visual comparison. + + (it's not really a prg, and can not be compiled, but it reads like one to Foxpro developers.) +* It enables the change of the Text version as easy as modifying a PRG. +* All the program code for any binary file (a form, a report, a class) is in just one text file, to simplify its maintainability. +* You can regenerate the original binaries from the text files, so it is useful as backup +* The extensions are configurable if you create a FOXBIN2PRG.CFG file +* Inheritance of CFG configuration files between directories +* Methods and properties of Text versions are alphabetically sorted for easy comparison +* You can set the "UseClassPerFile" setting to create individual files by class or DBC member. + + (Which violates number three above, but it may be what you want.) +* Takes advantage of the Win32 API using foxbin2prg as an object +* It has compatibility with SccText/X at the parameter level so that it can be used as substitute for SccText with SourceSafe. (Not that we recommend SourceSafe.) +* Productivity: You can create a shortcut in the "SendTo" folder on your user Windows Profile, so you can "send" the selected file (pjx,pj2,etc) to Foxbin2prg.exe and make on-the-fly conversions +* You can modify the TX2 Prg-Style versions of your objects with MODIFY COMMAND (without compile) to see colored syntax, or even use the Document View to navigate the procedures +* Get back your SourceSafe projects (.pjx) from their .pjm file + +The program supports conversions between PJX,SCX,VCX,FRX,LBX,DBC,DBF and MNX files, for which it generates TEXT versions with extension PJ2,SC2,VC2,FR2,LB2,DC2,DB2 and MN2. If you want, the created text file extensions can be reconfigured to be compatibilize with SourceSafe. + +## Examples +### Redefine extensions of _Text_ +Here is an example of a FOXBIN2PRG.CFG configuration file if you need to change extensions for using it with a specific VSS (SourceSafe) +``` +extension: SC2=SCA +extension: VC2=VCA +extension: PJ2=PJA +extension: MN2=MNA +extension: FR2=FRA +extension: LB2=LBA +extension: DB2=DBA +extension: DC2=DCA +``` + +### Use FoxBin2Prg +``` +DO FOXBIN2PRG.PRG WITH "\archivo.scx" ==> Generates the TEXT version sc2 extension +DO FOXBIN2PRG.PRG WITH "\archivo.sc2" ==> Regenerates the binary version with scx extension + +DO FOXBIN2PRG.PRG WITH "","Prg2Bin" ==> Generates the TEXT of the path, that is directory or file +DO FOXBIN2PRG.PRG WITH "","Bin2Prg" ==> Regenerates the binary version of the path, that is directory or file + +DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest settings +DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings +``` + +### Interactive list of options +``` +DO FOXBIN2PRG.PRG WITH "?" +``` + +### Use with MS Windows SendTo +You can create up to three different shortcuts pointing to FoxBin2Prg.exe and in your "SendTo" folder in your Windows profile. This allows you to "send" a selected file (pjx,pj2,etc) to the selected option, and make on-the-fly conversions. (Make sure you have the option for seeing known file extensions turned on!): + +#### Process directories or individual files to _Text_ +- Name: + `FoxBin2Prg - Binary2Text.lnk` +- Right-click/Properties/destination_ + `\foxbin2prg.exe "BIN2PRG-SHOWMSG"` +#### Process directories or individual files to _Binary_ +- Name: + `FoxBin2Prg - Text2Binary.lnk` +- Right-click/Properties/destination_ + `\foxbin2prg.exe "PRG2BIN-SHOWMSG"` +#### Process individual files or directories asking what to convert +- Name: + `FoxBin2Prg.lnk` +- Right-click/Properties/destination_ + `\foxbin2prg.exe "INTERACTIVE-SHOWMSG"` + +##### How to use the links +Select a file, right-click, SendTo -> FoxBin2Prg + +## LOCALIZATION: +Is automatic starting at v1.19.38 (Languages: EN,ES,FR,DE) + +## FINAL NOTE: +This program is Open Source and "libre", and I don't make any guaranties that it fulfills your expectations or that it will be free of bugs. +I will try to fix bugs if my obligations let me do it. + +## LICENCE: +This work is licensed under the Creative Commons Attribution 4.0 International License. +To view a copy of this license, visit http://creativecommons.org/licenses/by/4.0/. + +--- +## Changes +See [Changes](./docs/ChangeLog.md) + +### Changes to Settings +To get the new settings in config file, use the new create-a-template function: + +``` +DO FOXBIN2PRG.PRG WITH "-c","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with newest default settings +DO FOXBIN2PRG.PRG WITH "-C","template.cfg" ==> Generates a template for FoxBin2Prg.cfg config file with active settings +DO FOXBIN2PRG.PRG WITH "-t","template.dbf.cfg" ==> Generates a template for table.dbf.cfg per table config file with newest settings +``` + +---- +## Limitations +If dealing with project files, FoxBin2Prg will fail if files of the project are not stored on the drive of the project. +See [issue #93](https://github.com/fdbozzo/foxbin2prg/issues/93). + +---- +## Usage +For usage see [documentation](./docs/FoxBin2Prg.md) + +---- + +## Helping with FoxBin2PRG +See [contribution](./.github/CONTRIBUTING.md) + +--- + +## Note +The spanish documentation is not longer maintained - it would fade. +For fast access a quick run is [introduced](#use-foxbin2prg), more [complex](./docs/FoxBin2Prg_Run.md#usage-1), and a large [documentation](./docs/FoxBin2Prg.md) exists too. +If you do not access FoxBin2Prg via [Thor](https://github.com/VFPX/Thor) remind yourself to compile the exe first. + +If you like to see Fernando's blog, or value his work: +- Blog: http://fdbozzo.blogspot.com.es/ +- [![DONATE!](http://www.pngall.com/wp-content/uploads/2016/05/PayPal-Donate-Button-PNG-File-180x100.png)](https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=fdbozzo%40gmail%2ecom&lc=ES&item_name=FoxBin2Prg&item_number=FoxBin2Prg&currency_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted) + +---- + +Last changed: _2023/12/05_ ![Picture](./docs/pictures/vfpxpoweredby_alternative.gif) diff --git a/ReCreate_FoxBin2Prg.prg b/ReCreate_FoxBin2Prg.prg new file mode 100644 index 0000000..95d042d --- /dev/null +++ b/ReCreate_FoxBin2Prg.prg @@ -0,0 +1,13 @@ +*ReCreate all FoxBin2Prg files from there text representation and compile + +DO FoxBin2Prg.PRG WITH JUSTPATH(FULLPATH("","")),"Prg2Bin",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","") + +BUILD PROJECT FoxBin2Prg.EXE FROM FoxBin2Prg.pjx RECOMPILE + +CD Fb2P_Diff +BUILD PROJECT Fb2P_Diff.EXE FROM Fb2P_Diff.pjx RECOMPILE + +CD ..\FileName_Caps +BUILD PROJECT FileName_Caps.EXE FROM FileName_Caps.pjx RECOMPILE +CD .. + diff --git a/TESTS/.gitignore b/TESTS/.gitignore new file mode 100644 index 0000000..4937a4d --- /dev/null +++ b/TESTS/.gitignore @@ -0,0 +1,92 @@ +#exclude general +*.* + +#include general +#dbx data +#!*.dbf +#!*.cdx +#!*.fpt + +#!*.dbc +#!*.dc[tx] + +#grafics +!*.bmp +!*.msk +!*.ico +!*.cdr +!*.cur + +#programms +!*.prg +!*.fpw + +#header +!*.h + +#libs (by FoxBin2prg) +!*.vc[xt] +!*.pj[xt] +!*.fr[xt] +!*.mn[xt] +!*.sc[xt] +!*.lb[xt] + +#FoxBin2prg +#!*.vc2 +#!*.pj2 +#!*.fr2 +#!*.mn2 +#!*.sc2 +#!*.lb2 +#!*.d[bc]2 + +#include special +#default git +!*.gitignore +!/desktop.ini +!data/*.jpg +!/FileName_Caps.EXE +!/Fb2P_Diff.EXE +!/"CLEAR ALL.exe" + +#gitlab +!*.md +!/.gitlab/ + +#diverse +!*.reg +!README.md + +#exclude special +foxuser_9.* +_command.prg +*ref.* +debug*.* +Sicherungskopie*.* +include/projsub.h +include/projekt_switch.h +include/projekt_user.h +Factory_Init.* + +#nix von hier +default/ +temp/ +tmp/ + +bin2txt.* + +#exclude general + +*special, settings to create foxbin2prg binary +!/foxbin2prg_self.cfg + +#re-include +#!foxbin2prg_keywords.* + +#Thor special +!/BuildProcess/*.prg +!/BuildProcess/*.txt +!/BuildProcess/*.md +!/BuildProcess/*.gitignore +!/ThorUpdater/*.* diff --git a/TESTS/DATOS_READONLY/FB2P_DBC.DC2 b/TESTS/DATOS_READONLY/FB2P_DBC.DC2 deleted file mode 100644 index 6cc2582..0000000 --- a/TESTS/DATOS_READONLY/FB2P_DBC.DC2 +++ /dev/null @@ -1,1236 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbc.dbc" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* - - - FB2P_DBC - Comentario de los eventos o de la BDD??? - 11 - .T. - eventsfile.prg - - - - REMOTE_CONNECTION_DBF - - Visual FoxPro Tables - foxuser_fdb - - .F. - .T. - 15 - .F. - 1 - .F. - 0 - 4096 - - 0 - 1 - - 100 - - - REMOTE_CONNECTION_ORACLE - - - - DRIVER={Oracle en OraClient11g_home1};SERVER=BDDServer;UID=BDDUser;PWD=BDDPwd;DBQ=CARTERA;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA - .F. - .T. - 15 - .F. - 3 - .F. - 10 - 8192 - - 180 - 1 - - 100 - - - - - - - - FB2P_DEPTO - Comentario de "fb2p_depto" - fb2p_depto.dbf - __ri_delete_fb2p_depto() - - - depto - fb2p_depto_record_rule_validation() - fb2p_depto_record_rule_validation_message() - - - - depto - - depto_field_comment - "Depto." - cl_optiongroup - c:\desa\foxbin2prg\tests\datos_readonly\fb2p_test.vcx - ! - XXXXXXXXXX - depto_field_validation_rule() - depto_field_validation_message() - - - descrip - - - - - - - - - - - - - - - depto - - .T. - - - descrip - - .F. - - - - - - -
"Depto.Caption"Descripción
- - - NOMBRELARGODELDBF - Comentario de la tabla "fb2p_dbf" - fb2p_dbf.dbf - del_trg() - __ri_insert_nombrelargodeldbf().AND.(ins_trg()) - __ri_update_nombrelargodeldbf().AND.(upd_trg()) - id - edad>10 - "Mensaje de error de la regla edad > 10" - - - - nombre - - Comentario de "Nombre" - "." - - - A - !XXXXXXXXXXXXXXXXXXXXXXXXXXXXX - .NOT.EMPTY(nombre) - "El nombre está vacío" - - - edad - - - - - - - - - - - - id - - - - - - - - - - - - bigtext - - - - - - - - - - - - depto - - - - - - - - - - - - - - - depto - - .F. - - - edad_nd - - .F. - - - edad - - .T. - - - i_nombre - - .F. - - - id - - .T. - - - nombre - - .F. - - - notdeleted - - .F. - - - - - - Relation 1 - NOMBRELARGODELDBF - FB2P_DEPTO - DEPTO - DEPTO - - - - -
"Nombre:"
- - - - - - - RV_DB_DEBUG_SETUP - - STROSNC.DB_DEBUG_SETUP - SELECT Db_debug_setup.PK_NAME, Db_debug_setup.ENABLED, Db_debug_setup.EVALUACION, Db_debug_setup.PK_METODO, Db_debug_setup.NIVELDEBUG, Db_debug_setup.F_DESDE, Db_debug_setup.F_HASTA, Db_debug_setup.DIRECCION_IP, Db_debug_setup.USUARIO FROM STROSNC.DB_DEBUG_SETUP Db_debug_setup ORDER BY Db_debug_setup.PK_NAME, Db_debug_setup.PK_METODO - .T. - 1 - .T. - remote_connection_Oracle - .T. - .T. - 100 - -1 - .F. - - .T. - - - .F. - .T. - 2 - 1 - 255 - 3 - - - - pk_name - - - C(30) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.PK_NAME - - - enabled - - - N(3) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.ENABLED - - - evaluacion - - - M - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.EVALUACION - - - pk_metodo - - - C(30) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.PK_METODO - - - niveldebug - - - N(3) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.NIVELDEBUG - - - f_desde - - - T - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.F_DESDE - - - f_hasta - - - T - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.F_HASTA - - - direccion_ip - - - C(30) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.DIRECCION_IP - - - usuario - - - C(30) - - - - - - .F. - - - .F. - STROSNC.DB_DEBUG_SETUP.USUARIO - - - - - - - - - - VISTA_LOCAL - - fb2p_dbc!nombrelargodeldbf - SELECT Fb2p_depto.descrip, Nombrelargodeldbf.nombre, Nombrelargodeldbf.edad, Nombrelargodeldbf.id, Nombrelargodeldbf.depto FROM fb2p_dbc!fb2p_depto INNER JOIN fb2p_dbc!nombrelargodeldbf ON Fb2p_depto.depto = Nombrelargodeldbf.depto - .F. - 1 - .T. - - .F. - .T. - 100 - -1 - .T. - - .F. - - - .T. - .F. - 1 - 1 - 255 - 3 - - - - descrip - - - C(50) - - - - - - .F. - - - .F. - fb2p_dbc!fb2p_depto.descrip - - - nombre - - - C(30) - - - - - - .F. - - - .T. - fb2p_dbc!nombrelargodeldbf.nombre - - - edad - - - N(3) - - - - - - .F. - - - .T. - fb2p_dbc!nombrelargodeldbf.edad - - - id - - - I - - - - - - .T. - - - .F. - fb2p_dbc!nombrelargodeldbf.id - - - depto - - - C(10) - - - - - - .F. - - - .T. - fb2p_dbc!nombrelargodeldbf.depto - - - - - - - - - - VW_LOCAL_ENCUESTAS - - - SELECT ENCUESTAS.Promotor,ENCUESTAS.Idenc,ENCUESTAS.Calific,ENCUESTAS.Fecha, ENCUESTAS.Resultado FROM C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\ENCUESTAS.DBF ENCUESTAS - .F. - 1 - .T. - - .F. - .T. - 100 - -1 - .T. - - .F. - - - .F. - .T. - 1 - 1 - 255 - 3 - - - - promotor - - - C(20) - - - - - - .F. - - - .F. - promotor - - - idenc - - - C(20) - - - - - - .F. - - - .F. - idenc - - - calific - - - C(2) - - - - - - .F. - - - .F. - calific - - - fecha - - - D - - - - - - .F. - - - .F. - fecha - - - resultado - - - C(10) - - - - - - .F. - - - .F. - resultado - - - - - - - - - - VW_ORA_CONVENIOS - - CONVENIOS - SELECT CONVENIOS.ID_CONVENIO,CONVENIOS.NOMBRE_CONVENIO,CONVENIOS.HISTORICO FROM CONVENIOS - .F. - 1 - .T. - remote_connection_Oracle - .F. - .T. - 100 - -1 - .T. - - .F. - - - .F. - .T. - 2 - 1 - 255 - 3 - - - - id_convenio - - - C(15) - - - - - - .F. - - - .T. - CONVENIOS.ID_CONVENIO - - - nombre_convenio - - - C(250) - - - - - - .F. - - - .T. - CONVENIOS.NOMBRE_CONVENIO - - - historico - - - C(1) - - - - - - .F. - - - .T. - CONVENIOS.HISTORICO - - - - - - - - - - VW_ORA_DUAL - - DUAL - SELECT DUAL.DUMMY FROM DUAL - .F. - 1 - .T. - REMOTE_CONNECTION_ORACLE - .F. - .T. - 100 - -1 - .T. - - .F. - - - .F. - .T. - 2 - 1 - 255 - 3 - - - - dummy - Dummy - Dummy_field_comment - C(1) - Depto. - cl_optiongroup - fb2p_test.vcx - ! - XXXXXXXXXX - .F. - dummy_field_validation_rule() - dummy_field_validation_message - .T. - DUAL.DUMMY - - - - - - - - - - - 1 - =TABLEUPDATE() - ENDIF - ENDIF NOT already DELETED - ENDIF - UNLOCK RECORD (RECNO()) - llRetVal=pnerror=0 - RETURN llRetVal - -PROCEDURE RIUPDATE - LPARAMETERS tcFieldName,tcNewValue,tcCascadeParent - LOCAL llRetVal - llRetVal=.T. - IF ISRLOCKED() OR !RLOCK() - llRetVal=.F. - ELSE - IF EVAL(tcFieldName)<>tcNewValue - PRIVATE pcCascadeParent - pcCascadeParent=UPPER(IIF(TYPE("tcCascadeParent")<>"C","",tcCascadeParent)) - REPLACE (tcFieldName) WITH tcNewValue - IF CURSORGETPROP('BUFFERING') > 1 - =TABLEUPDATE() - ENDIF - ENDIF VALUES don't already match - ENDIF it's locked already, or I was able to lock it - UNLOCK RECORD (RECNO()) - llRetVal=pnerror=0 - RETURN llRetVal - -PROCEDURE rierror - PARAMETERS tnErrNo,tcMessage,tcCode,tcProgram - LOCAL lnErrorRows,lnXX - lnErrorRows=ALEN(gaErrors,1) - IF TYPE('gaErrors[lnErrorRows,1]')<>"L" - DIMENSION gaErrors[lnErrorRows+1,alen(gaErrors,2)] - lnErrorRows=lnErrorRows+1 - ENDIF - gaErrors[lnErrorRows,1]=tnErrNo - gaErrors[lnErrorRows,2]=tcMessage - gaErrors[lnErrorRows,3]=tcCode - gaErrors[lnErrorRows,4]="" - lnXX=1 - DO WHILE !EMPTY(PROGRAM(lnXX)) - gaErrors[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+; - PROGRAM(lnXX) - lnXX=lnXX+1 - ENDDO - gaErrors[lnErrorRows,5]=pcParentDBF - gaErrors[lnErrorRows,6]=pnParentRec - gaErrors[lnErrorRows,7]=pcParentID - gaErrors[lnErrorRows,8]=pcParentExpr - gaErrors[lnErrorRows,9]=pcChildDBF - gaErrors[lnErrorRows,10]=pnChildRec - gaErrors[lnErrorRows,11]=pcChildID - gaErrors[lnErrorRows,12]=pcChildExpr - RETURN tnErrNo - - -PROCEDURE riopen - PARAMETERS tcTable,tcOrder - - LOCAL lcCurWkArea,lcNewWkArea,lnInUseSpot,lnOccurs,lnOccurance - lnInUseSpot=0 - lnOccurs = OCCURS(UPPER(tcTable)+"*",UPPER(pcRIcursors)) - FOR lnOccurance = 1 TO lnOccurs - lnInUseSpot=ATC(tcTable+"*",pcRIcursors,lnOccurance) - IF ISDIGIT(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) OR; - EMPTY(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) - EXIT - ENDIF - lnInUseSpot=0 - ENDFOR - - IF lnInUseSpot=0 - lcCurWkArea=SELECT() - SELECT 0 - lcNewWkArea=SELECT() - IF NOT EMPTY(tcOrder) - USE (tcTable) AGAIN ORDER (tcOrder) ; - ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE - ELSE - USE (tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) SHARE - ENDIF - IF pnerror=0 - pcRIcursors=pcRIcursors+UPPER(tcTable)+"?"+STR(SELECT(),5) - ELSE - lcNewWkArea=0 - ENDIF something bad happened WHILE attempting TO OPEN the FILE - ELSE - lcNewWkArea=VAL(SUBSTR(pcRIcursors,lnInUseSpot+LEN(tcTable)+1,5)) - pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTable)+"*"+STR(lcNewWkArea,5),; - UPPER(tcTable)+"?"+STR(lcNewWkArea,5)) - IF NOT EMPTY(tcOrder) - SET ORDER TO (tcOrder) IN (lcNewWkArea) - ENDIF sent an ORDER - IF pnerror<>0 - lcNewWkArea=0 - ENDIF something bad happened WHILE setting ORDER - ENDIF - RETURN (lcNewWkArea) - - -PROCEDURE riend - PARAMETERS tlSuccess - LOCAL lnXX,lnSpot,lcWorkArea - IF tlSuccess - END TRANSACTION - ELSE - SET DELETED OFF - ROLLBACK - SET DELETED ON - ENDIF - IF EMPTY(pcRIolderror) - ON ERROR - ELSE - ON ERROR &pcRIolderror. - ENDIF - FOR lnXX=1 TO OCCURS("*",pcRIcursors) - lnSpot=ATC("*",pcRIcursors,lnXX)+1 - USE IN (VAL(SUBSTR(pcRIcursors,lnSpot,5))) - ENDFOR - IF pcOldCompat = "ON" - SET COMPATIBLE ON - ENDIF - IF pcOldDele="OFF" - SET DELETED OFF - ENDIF - IF pcOldExact="ON" - SET EXACT ON - ENDIF - IF pcOldTalk="ON" - SET TALK ON - ENDIF - DO CASE - CASE EMPTY(pcOldDBC) - SET DATA TO - CASE pcOldDBC<>DBC() - SET DATA TO (pcOldDBC) - ENDCASE - RETURN .T. - - -PROCEDURE rireuse - * rireuse.prg - PARAMETERS tcTableName,tcWkArea - pcRIcursors = STRTRAN(pcRIcursors,UPPER(tcTableName)+"?"+STR(tcWkArea,5),; - UPPER(tcTableName)+"*"+STR(tcWkArea,5)) - RETURN .T. - - ******************************************************************************** - ** "Referential integrity delete trigger for" fb2p_depto -PROCEDURE __RI_DELETE_fb2p_depto - LOCAL llRetVal - llRetVal = .T. - PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID - PRIVATE pcParentExpr,pcChildExpr - STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr - STORE 0 TO pnParentRec,pnChildRec - IF _TRIGGERLEVEL=1 - BEGIN TRANSACTION - PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; - pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC - pcOldTalk=SET("TALK") - SET TALK OFF - pcOldDele=SET("DELETED") - pcOldExact=SET("EXACT") - pcOldCompat=SET("COMPATIBLE") - SET COMPATIBLE OFF - SET DELETED ON - SET EXACT OFF - pcRIcursors="" - pcRIwkareas="" - pcRIolderror=ON("error") - pnerror=0 - ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM()) - IF TYPE('gaErrors(1)')<>"U" - RELEASE gaErrors - ENDIF - PUBLIC gaErrors(1,12) - pcOldDBC=DBC() - SET DATA TO ("FB2P_DBC") - ENDIF FIRST TRIGGER - LOCAL lcParentID && parent's value to be sought in child - LOCAL lcChildWkArea && child work area handle returned by riopen - LOCAL lcParentWkArea - LOCAL llDelHeaderarea - LOCAL lcStartArea - lcStartArea=SELECT() - llRetVal=.T. - lcParentWkArea=SELECT() - SELECT (lcParentWkArea) - pcParentDBF=DBF() - pnParentRec=RECNO() - STORE DEPTO TO lcParentID,pcParentID - pcParentExpr="DEPTO" - lcChildWkArea=riopen("nombrelargodeldbf","depto") - IF lcChildWkArea<=0 - IF _TRIGGERLEVEL=1 - DO riend WITH .F. - ENDIF AT the END OF the highest TRIGGER LEVEL - RETURN .F. - ENDIF NOT able TO OPEN the CHILD WORK area - pcChildDBF=DBF(lcChildWkArea) - SELECT (lcChildWkArea) - SEEK lcParentID - SCAN WHILE DEPTO=lcParentID AND llRetVal - pnChildRec=RECNO() - pcChildID=DEPTO - pcChildExpr="DEPTO" - llRetVal=RIDELETE() - ENDSCAN GET ALL OF the nombrelargodeldbf RECORDS - =rireuse("nombrelargodeldbf",lcChildWkArea) - IF NOT llRetVal - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ENDIF - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ** "End of Referential integrity Delete trigger for" fb2p_depto - ******************************************************************************** - - ******************************************************************************** -PROCEDURE __RI_UPDATE_nombrelargodeldbf - ** "Referential integrity update trigger for" nombrelargodeldbf - LOCAL llRetVal - llRetVal = .T. - PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID - PRIVATE pcParentExpr,pcChildExpr - STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr - STORE 0 TO pnParentRec,pnChildRec - IF _TRIGGERLEVEL=1 - BEGIN TRANSACTION - PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; - pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC - pcOldTalk=SET("TALK") - SET TALK OFF - pcOldDele=SET("DELETED") - pcOldExact=SET("EXACT") - pcOldCompat=SET("COMPATIBLE") - SET COMPATIBLE OFF - SET DELETED ON - SET EXACT OFF - pcRIcursors="" - pcRIwkareas="" - pcRIolderror=ON("error") - pnerror=0 - ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM()) - IF TYPE('gaErrors(1)')<>"U" - RELEASE gaErrors - ENDIF - PUBLIC gaErrors(1,12) - pcOldDBC=DBC() - SET DATA TO ("FB2P_DBC") - ENDIF FIRST TRIGGER - LOCAL lcParentID && parent's value to be sought in child - LOCAL lcOldParentID && previous parent id value - LOCAL lcChildWkArea && child work area handle returned by riopen - LOCAL lcChildID && child's value to be sought in parent - LOCAL lcOldChildID && old child id value - LOCAL lcParentWkArea && parentwork area handle returned by riopen - LOCAL lcStartArea - lcStartArea=SELECT() - llRetVal=.T. - lcChildWkArea=SELECT() - IF _TRIGGERLEVEL=1 OR TYPE("pccascadeparent")#"C" OR (NOT pcCascadeParent=="FB2P_DEPTO") - SELECT (lcChildWkArea) - lcChildID=DEPTO - lcOldChildID=OLDVAL("DEPTO") - pcChildDBF=DBF(lcChildWkArea) - pnChildRec=RECNO(lcChildWkArea) - pcChildID=lcOldChildID - pcChildExpr="DEPTO" - IF ISNULL(lcChildID) OR ISNULL(lcOldChildID) OR lcChildID <> lcOldChildID - lcParentWkArea=riopen("fb2p_depto","depto") - IF lcParentWkArea<=0 - IF _TRIGGERLEVEL=1 - DO riend WITH .F. - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN .F. - ENDIF NOT able TO OPEN the CHILD WORK area - pcParentDBF=DBF(lcParentWkArea) - llRetVal=SEEK(lcChildID,lcParentWkArea) - pnParentRec=RECNO(lcParentWkArea) - IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ; - ISFLOCKED(lcParentWkArea)) - IF RLOCK(lcParentWkArea) - UNLOCK RECORD pnParentRec IN (lcParentWkArea) - ELSE - =rireuse("tparen",lcParentWkArea) - pnerror = rierror(-1,"Insert restrict rule violated.","","") - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ENDIF - ENDIF - =rireuse("fb2p_depto",lcParentWkArea) - IF NOT llRetVal - pnerror = rierror(-1,"Insert restrict rule violated.","","") - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ENDIF no PARENT - ENDIF THIS VALUE was changed - ENDIF NOT PART OF a CASCADE FROM "fb2p_depto" - lcParentWkArea=lcChildWkArea - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ** "End of Referential integrity Update trigger for" nombrelargodeldbf - ******************************************************************************** - - ******************************************************************************** - ** "Referential integrity insert trigger for" nombrelargodeldbf -PROCEDURE __RI_INSERT_nombrelargodeldbf - LOCAL llRetVal - llRetVal = .T. - PRIVATE pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildID - PRIVATE pcParentExpr,pcChildExpr - STORE "" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr - STORE 0 TO pnParentRec,pnChildRec - IF _TRIGGERLEVEL=1 - BEGIN TRANSACTION - PRIVATE pcRIcursors,pcRIwkareas,pcRIolderror,pnerror,; - pcOldDele,pcOldExact,pcOldTalk,pcOldCompat,pcOldDBC - pcOldTalk=SET("TALK") - SET TALK OFF - pcOldDele=SET("DELETED") - pcOldExact=SET("EXACT") - pcOldCompat=SET("COMPATIBLE") - SET COMPATIBLE OFF - SET DELETED ON - SET EXACT OFF - pcRIcursors="" - pcRIwkareas="" - pcRIolderror=ON("error") - pnerror=0 - ON ERROR pnerror=rierror(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM()) - IF TYPE('gaErrors(1)')<>"U" - RELEASE gaErrors - ENDIF - PUBLIC gaErrors(1,12) - pcOldDBC=DBC() - SET DATA TO ("FB2P_DBC") - ENDIF FIRST TRIGGER - LOCAL lcChildID && child's value to be sought in parent - LOCAL lcParentWkArea && parentwork area handle returned by riopen - LOCAL lcChildWkArea && child's work area - LOCAL lcStartArea - lcStartArea=SELECT() - llRetVal=.T. - lcChildWkArea=SELECT() - SELECT (lcChildWkArea) - lcChildID=DEPTO - pcChildDBF=DBF(lcChildWkArea) - pnChildRec=RECNO(lcChildWkArea) - pcChildID=lcChildID - pcChildExpr="DEPTO" - lcParentWkArea=riopen("fb2p_depto","depto") - IF lcParentWkArea<=0 - IF _TRIGGERLEVEL=1 - DO riend WITH .F. - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN .F. - ENDIF NOT able TO OPEN the CHILD WORK area - pcParentDBF=DBF(lcParentWkArea) - llRetVal=SEEK(lcChildID,lcParentWkArea) - pnParentRec=RECNO(lcParentWkArea) - IF llRetVal AND NOT (ISRLOCKED(pnParentRec, lcParentWkArea) OR ; - ISFLOCKED(lcParentWkArea)) - IF RLOCK(lcParentWkArea) - UNLOCK RECORD pnParentRec IN (lcParentWkArea) - ELSE - =rireuse("tparen",lcParentWkArea) - pnerror = rierror(-1,"Insert restrict rule violated.","","") - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ENDIF - ENDIF - =rireuse("fb2p_depto",lcParentWkArea) - IF NOT llRetVal - pnerror = rierror(-1,"Insert restrict rule violated.","","") - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ENDIF - IF _TRIGGERLEVEL=1 - DO riend WITH llRetVal - ENDIF AT the END OF the highest TRIGGER LEVEL - SELECT (lcStartArea) - RETURN llRetVal - ** "End of Referential integrity insert trigger for" nombrelargodeldbf - ******************************************************************************** - **__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER** - - ]]> - \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/FB2P_DBF.DB2 b/TESTS/DATOS_READONLY/FB2P_DBF.DB2 deleted file mode 100644 index 48af5b3..0000000 --- a/TESTS/DATOS_READONLY/FB2P_DBF.DB2 +++ /dev/null @@ -1,181 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_dbf.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* - - - - 1252 - 2014/01/06 - fb2p_dbc.dbc - 0x00000031 - Visual FoxPro, autoincrement enabled - - - - NOMBRE - C - 30 - 0 - .F. - .F. - .NOT.EMPTY(nombre) - "El nombre está vacío" - "." - edad>10 - "Mensaje de error de la regla edad > 10" - NOMBRELARGODELDBF - __ri_insert_nombrelargodeldbf().AND.(ins_trg()) - __ri_update_nombrelargodeldbf().AND.(upd_trg()) - del_trg() - Comentario de la tabla "fb2p_dbf" - 0 - 0 - - - EDAD - N - 3 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - ID - I - 4 - 0 - .F. - .F. - - - - - - - - - - - 30 - 2 - - - BIGTEXT - M - 4 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - DEPTO - C - 10 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - - - FB2P_DBF.CDX - - - - ID - PRIMARY - ID - - ASCENDING - MACHINE - - - EDAD_ND - REGULAR - EDAD - .NOT.DELETED() - ASCENDING - MACHINE - - - NOTDELETED - BINARY - .NOT.DELETED() - - ASCENDING - MACHINE - - - EDAD - CANDIDATE - EDAD - - DESCENDING - MACHINE - - - DEPTO - REGULAR - DEPTO - .NOT.DELETED().AND..T. - ASCENDING - GENERAL - - - NOMBRE - REGULAR - NOMBRE - .NOT.DELETED().AND..T..AND..T. - ASCENDING - GENERAL - - - I_NOMBRE - REGULAR - NOMBRE - .NOT.DELETED().AND..T..AND..NOT..F. - DESCENDING - GENERAL - - - -
diff --git a/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2 b/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2 deleted file mode 100644 index e5e7456..0000000 --- a/TESTS/DATOS_READONLY/Menu_Comments_Procedure.mn2 +++ /dev/null @@ -1,33 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="menu_comments_procedure.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -*1 -*REPLACE - -* -DEFINE MENU _MSYSMENU BAR -DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3 - -ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr - - *---------------------------------- - DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4 - DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ; - KEY ALT+1, "ALT+1" && Do something depending on App version - ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2)) - - DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors" && Setup some very effective error handling - ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P - -DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\ \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/Menu_LineBreak.mn2 b/TESTS/DATOS_READONLY/Menu_LineBreak.mn2 deleted file mode 100644 index 6ccf1d7..0000000 --- a/TESTS/DATOS_READONLY/Menu_LineBreak.mn2 +++ /dev/null @@ -1,38 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="menu_linebreak.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -*1 -*REPLACE - -* -DEFINE MENU _MSYSMENU BAR -DEFINE PAD _40O0YW62F OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3 - -ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr - - *---------------------------------- - DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4 - DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ; - KEY ALT+1, "ALT+1" && Do something depending on App version - ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2)) - - DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors" - ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P - -DEFINE PAD _40O0YW62G OF _MSYSMENU PROMPT "E\a line break in it - -ON SELECTION PAD _40O101BHZ OF _MSYSMENU messageb("Hello!") - -* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 b/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 deleted file mode 100644 index 888f4aa..0000000 --- a/TESTS/DATOS_READONLY/classlib_method_order_bug_test.vc2 +++ /dev/null @@ -1,205 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="classlib_method_order_bug_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS grdbase AS grid - *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Column1.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column1.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column2.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Column2.Text1" UniqueID="" Timestamp="" /> - - * - *m: canresort - *m: commoncolumnclick && Generic column click handler - *m: createtag && Create a grid indexd tag for sorting - *m: resizecover - *m: visible_assign - * - - ColumnCount = 2 - Height = 200 - Name = "grdbase" - Width = 320 - Column1.Name = "Column1" - Column2.Name = "Column2" - - ADD OBJECT 'Column1.Header1' AS header WITH ; - Caption = "Header1", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'Column1.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Column2.Header1' AS header WITH ; - Caption = "Header1", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'Column2.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - PROCEDURE canresort - * - * CanResort - * - RETURN .T. - ENDPROC - - PROCEDURE Click - * - * Do some things here - * - DODEFAULT() - ENDPROC - - PROCEDURE commoncolumnclick && Generic column click handler - * - * Common behavior when clicked - * - LPARAMETERS toColumn - ENDPROC - - PROCEDURE createtag && Create a grid indexd tag for sorting - * - * Index on each column's ControlSource - * - ENDPROC - - PROCEDURE DblClick - * - * Double-clicked! - * - RETURN DODEFAULT() - ENDPROC - - PROCEDURE Destroy - * - * Destroy the grid - * - RETURN .T. - ENDPROC - - PROCEDURE Resize - * - * React to resizing the grid - * - ENDPROC - - PROCEDURE resizecover - * - * ResizeCover if one exists - * - ENDPROC - - PROCEDURE visible_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.Visible = m.vNewVal - - ENDPROC - - PROCEDURE When - * - * When what? - * - ENDPROC - - PROCEDURE Column1.Text1.Click - * - * Call common method - * - this.Parent.Parent.commoncolumnclick(this) - ENDPROC - - PROCEDURE Column2.Text1.Click - * - * Call common method - * - this.Parent.Parent.commoncolumnclick(this) - ENDPROC - -ENDDEFINE - -DEFINE CLASS grdgeneral AS grdbase OF "classlib_method_order_bug_test.vcx" - *< CLASSDATA: Baseclass="grid" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Name = "grdgeneral" - Column1.Header1.Name = "Header1" - Column1.Name = "Column1" - Column1.Text1.Name = "Text1" - Column2.Header1.Name = "Header1" - Column2.Name = "Column2" - Column2.Text1.Name = "Text1" - - PROCEDURE canresort - * - * Call default logic. - * - IF NOT DODEFAULT() - RETURN .F. - ENDIF - ENDPROC - - PROCEDURE commoncolumnclick && Generic column click handler - *!****************************************************************************** - *!* Method: grdGeneral::CommonColumnClick() - *!* Returns: Logical - LPARAMETERS toColumn - - * - * Call default logic. - * - IF NOT DODEFAULT() - RETURN .F. - ENDIF - - * - * Measure Success - * - LOCAL llSuccess as Boolean - llSuccess = .T. - - ** TODO - - * - * Return logical, success(T) or failure(F) - * - RETURN llSuccess - ENDPROC - - PROCEDURE Init - * - * Call default logic. - * - IF NOT DODEFAULT() - RETURN .F. - ENDIF - ENDPROC - - PROCEDURE Column1.Text1.Click - * - * Call default logic. - * - IF NOT DODEFAULT() - RETURN .F. - ENDIF - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/encuestas.db2 b/TESTS/DATOS_READONLY/encuestas.db2 deleted file mode 100644 index d4c6ae5..0000000 --- a/TESTS/DATOS_READONLY/encuestas.db2 +++ /dev/null @@ -1,144 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="encuestas.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* - - - - - 1252 - - - 0x00000030 - Visual FoxPro - - - - PROMOTOR - C - 20 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - IDENC - C - 20 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - CALIFIC - C - 2 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - FECHA - D - 8 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - RESULTADO - C - 10 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - - - - - - - PEPE - id1 - Q - 1969/11/25 - - - - - PEPE - id2 - NQ - 1969/11/25 - - - - - - -
- diff --git a/TESTS/DATOS_READONLY/f_checkbox.sc2 b/TESTS/DATOS_READONLY/f_checkbox.sc2 deleted file mode 100644 index 05a45b7..0000000 --- a/TESTS/DATOS_READONLY/f_checkbox.sc2 +++ /dev/null @@ -1,833 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_checkbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_checkbox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_checkbox2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_checkbox3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Check3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_checkbox4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Check4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_checkbox6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Check6" UniqueID="" Timestamp="" /> - - DoCreate = .T. - Left = 0 - Name = "F_base1" - Top = 0 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "CHECKBOX NORMAL" - Label1.Name = "Label1" - Label2.Caption = "CHECKBOX SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Check1' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (17), ; - HelpContextID = 0, ; - Left = (64), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (72), ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (152), ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Check2' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 64, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 96, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 152, ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Cl_checkbox1' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 340, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 72, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'Cl_checkbox2' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 340, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 96, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'Container1' AS container WITH ; - Height = 76, ; - Left = 24, ; - Name = "Container1", ; - Top = 152, ; - Width = 516 - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Container1.Check3' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 40, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 152, ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Container1.Check4' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 40, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 40, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 152, ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Container1.Cl_checkbox3' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 316, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'Container1.Cl_checkbox4' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 316, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 40, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 113, ; - Left = 24, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 276, ; - Width = 517, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Check5' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 35, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 152, ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Pageframe1.Page1.Check6' AS checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox normal", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 35, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Check6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 40, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 152, ; - WordWrap = .F. - *< END OBJECT: BaseClass="checkbox" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_checkbox5' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 311, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_checkbox6' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Checkbox subclasado", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 21, ; - HelpContextID = 0, ; - Left = 311, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_checkbox6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - PictureMargin = 0, ; - PicturePosition = 13, ; - PictureSpacing = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 40, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 156, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_combobox.sc2 b/TESTS/DATOS_READONLY/f_combobox.sc2 deleted file mode 100644 index e46ebb6..0000000 --- a/TESTS/DATOS_READONLY/f_combobox.sc2 +++ /dev/null @@ -1,1247 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_combobox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_ComboDropdown1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_ComboDropdown1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.ComboDropdown1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboDropdown1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboList1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.ComboDropdown1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="ComboDropdown1" UniqueID="" Timestamp="" /> - - DoCreate = .T. - Name = "F_base1" - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "COMBOBOX NORMAL" - Label1.Name = "Label1" - Label2.Caption = "COMBOBOX SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_ComboDropdown1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 328, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 44, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'Cl_ComboList1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 328, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 7, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 76, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'ComboDropdown1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (24), ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = (48), ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (44), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (200) - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'ComboList1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 48, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 8, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 76, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'Container1' AS container WITH ; - Height = 97, ; - Left = 28, ; - Name = "Container1", ; - TabIndex = 9, ; - Top = 116, ; - Width = 512 - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Container1.Cl_ComboDropdown1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 300, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 20, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'Container1.Cl_ComboList1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 300, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 7, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 52, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'Container1.ComboDropdown1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 20, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 20, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'Container1.ComboList1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 20, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 8, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 52, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 153, ; - Left = 28, ; - Name = "Pageframe1", ; - PageCount = 2, ; - TabIndex = 10, ; - Top = 236, ; - Width = 513, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_ComboDropdown1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 299, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 12, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_ComboList1' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 299, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 7, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 44, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'Pageframe1.Page1.ComboDropdown1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 19, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboDropdown1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .T., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 12, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: BaseClass="combobox" /> - - ADD OBJECT 'Pageframe1.Page1.ComboList1' AS combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 255,255,0, ; - BorderStyle = 1, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 19, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "ComboList1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 2, ; - TabIndex = 8, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 44, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 200 - *< END OBJECT: BaseClass="combobox" /> - - PROCEDURE Cl_ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Cl_ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.Cl_ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.Cl_ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.Cl_ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.Cl_ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.ComboDropdown1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.ComboList1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_commandgroup.sc2 b/TESTS/DATOS_READONLY/f_commandgroup.sc2 deleted file mode 100644 index 2beba0f..0000000 --- a/TESTS/DATOS_READONLY/f_commandgroup.sc2 +++ /dev/null @@ -1,1409 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_commandgroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_commandbutton1" UniqueID="" Timestamp="" /> - - DoCreate = .T. - Name = "F_base1" - Edit1.Name = "Edit1" - Edit1.Value = * En los OptionGroup subclasados, cuando el Option de la clase de base tiene Autosize=.T. y la instancia tiene Autosize=.F., ocurre esto: - Los option normales deben mantener su longitud y apariencia nuevos - Los option graficos deben mantener su longitud y apariencia, pero pierden en height (bug de VFP) * En los OptionGroup normales, no hay problemas y se deben mantener igual siempre * RECOMENDACIÓN: No usar Autosize=.T. en una clase de base - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "COMMANDGROUP NORMAL" - Label1.Name = "Label1" - Label2.Caption = "COMMANDGROUP SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_commandbutton1' AS cl_commandbutton WITH ; - Alignment = 2, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - Caption = "Este es el boton 2", ; - ColorScheme = 1, ; - ColorSource = 4, ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (27), ; - Left = (306), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_commandbutton1", ; - OLEDragPicture = ..\..\, ; - Picture = bmps\sobrepostal.bmp, ; - PictureMargin = 0, ; - PicturePosition = 4, ; - PictureSpacing = 0, ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Themes = .T., ; - ToolTipText = "", ; - Top = (392), ; - Visible = .T., ; - Width = (200), ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" /> - - ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 304, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_commandgroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 44, ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 228, ; - Command1.Alignment = 2, ; - Command1.Anchor = 0, ; - Command1.AutoSize = .F., ; - Command1.BackColor = 128,255,128, ; - Command1.Cancel = .F., ; - Command1.Caption = "Este es el botón de comando 1", ; - Command1.ColorScheme = 1, ; - Command1.ColorSource = 4, ; - Command1.Comment = "", ; - Command1.Default = .F., ; - Command1.DisabledBackColor = 0,128,192, ; - Command1.DisabledForeColor = 128,0,255, ; - Command1.DisabledPicture = bmps\treeview.bmp, ; - Command1.DownPicture = ..\..\, ; - Command1.DragIcon = ..\..\, ; - Command1.DragMode = 0, ; - Command1.Enabled = .T., ; - Command1.FontBold = .F., ; - Command1.FontCharSet = 0, ; - Command1.FontCondense = .F., ; - Command1.FontExtend = .F., ; - Command1.FontItalic = .F., ; - Command1.FontName = "Arial", ; - Command1.FontOutline = .F., ; - Command1.FontShadow = .F., ; - Command1.FontSize = 8, ; - Command1.FontStrikethru = .F., ; - Command1.FontUnderline = .F., ; - Command1.ForeColor = 0,0,0, ; - Command1.Height = 21, ; - Command1.HelpContextID = 0, ; - Command1.Left = 4, ; - Command1.MouseIcon = ..\..\, ; - Command1.MousePointer = 0, ; - Command1.Name = "Command1", ; - Command1.OLEDragMode = 0, ; - Command1.OLEDragPicture = ..\..\, ; - Command1.OLEDropEffects = 3, ; - Command1.OLEDropMode = 0, ; - Command1.Picture = bmps\sobrepostal.bmp, ; - Command1.PictureMargin = 0, ; - Command1.PicturePosition = 4, ; - Command1.PictureSpacing = 0, ; - Command1.RightToLeft = .F., ; - Command1.SpecialEffect = 0, ; - Command1.StatusBarText = "", ; - Command1.Style = 0, ; - Command1.TabStop = .T., ; - Command1.Tag = "", ; - Command1.TerminateRead = .F., ; - Command1.Themes = .T., ; - Command1.ToolTipText = "", ; - Command1.Top = 4, ; - Command1.Visible = .T., ; - Command1.WhatsThisHelpID = -1, ; - Command1.Width = 200, ; - Command1.WordWrap = .F., ; - Command2.Alignment = 2, ; - Command2.Anchor = 0, ; - Command2.AutoSize = .F., ; - Command2.BackColor = 128,255,128, ; - Command2.Cancel = .F., ; - Command2.Caption = "Este es el botón de comando 2", ; - Command2.ColorScheme = 1, ; - Command2.ColorSource = 4, ; - Command2.Comment = "", ; - Command2.Default = .F., ; - Command2.DisabledBackColor = 0,128,192, ; - Command2.DisabledForeColor = 128,0,255, ; - Command2.DisabledPicture = bmps\treeview.bmp, ; - Command2.DownPicture = ..\..\, ; - Command2.DragIcon = ..\..\, ; - Command2.DragMode = 0, ; - Command2.Enabled = .F., ; - Command2.FontBold = .F., ; - Command2.FontCharSet = 0, ; - Command2.FontCondense = .F., ; - Command2.FontExtend = .F., ; - Command2.FontItalic = .F., ; - Command2.FontName = "Arial", ; - Command2.FontOutline = .F., ; - Command2.FontShadow = .F., ; - Command2.FontSize = 8, ; - Command2.FontStrikethru = .F., ; - Command2.FontUnderline = .F., ; - Command2.ForeColor = 0,0,0, ; - Command2.Height = 21, ; - Command2.HelpContextID = 0, ; - Command2.Left = 4, ; - Command2.MouseIcon = ..\..\, ; - Command2.MousePointer = 0, ; - Command2.Name = "Command2", ; - Command2.OLEDragMode = 0, ; - Command2.OLEDragPicture = ..\..\, ; - Command2.OLEDropEffects = 3, ; - Command2.OLEDropMode = 0, ; - Command2.Picture = bmps\sobrepostal.bmp, ; - Command2.PictureMargin = 0, ; - Command2.PicturePosition = 4, ; - Command2.PictureSpacing = 0, ; - Command2.RightToLeft = .F., ; - Command2.SpecialEffect = 0, ; - Command2.StatusBarText = "", ; - Command2.Style = 0, ; - Command2.TabStop = .T., ; - Command2.Tag = "", ; - Command2.TerminateRead = .F., ; - Command2.Themes = .T., ; - Command2.ToolTipText = "", ; - Command2.Top = 28, ; - Command2.Visible = .T., ; - Command2.WhatsThisHelpID = -1, ; - Command2.Width = 200, ; - Command2.WordWrap = .F., ; - Command3.Alignment = 2, ; - Command3.Anchor = 0, ; - Command3.AutoSize = .F., ; - Command3.BackColor = 128,255,128, ; - Command3.Cancel = .F., ; - Command3.Caption = "Este es el botón de comando 3", ; - Command3.ColorScheme = 1, ; - Command3.ColorSource = 4, ; - Command3.Comment = "", ; - Command3.Default = .F., ; - Command3.DisabledBackColor = 0,128,192, ; - Command3.DisabledForeColor = 128,0,255, ; - Command3.DisabledPicture = bmps\treeview.bmp, ; - Command3.DownPicture = ..\..\, ; - Command3.DragIcon = ..\..\, ; - Command3.DragMode = 0, ; - Command3.Enabled = .T., ; - Command3.FontBold = .F., ; - Command3.FontCharSet = 0, ; - Command3.FontCondense = .F., ; - Command3.FontExtend = .F., ; - Command3.FontItalic = .F., ; - Command3.FontName = "Arial", ; - Command3.FontOutline = .F., ; - Command3.FontShadow = .F., ; - Command3.FontSize = 8, ; - Command3.FontStrikethru = .F., ; - Command3.FontUnderline = .F., ; - Command3.ForeColor = 0,0,0, ; - Command3.Height = 21, ; - Command3.HelpContextID = 0, ; - Command3.Left = 4, ; - Command3.MouseIcon = ..\..\, ; - Command3.MousePointer = 0, ; - Command3.Name = "Command3", ; - Command3.OLEDragMode = 0, ; - Command3.OLEDragPicture = ..\..\, ; - Command3.OLEDropEffects = 3, ; - Command3.OLEDropMode = 0, ; - Command3.Picture = bmps\sobrepostal.bmp, ; - Command3.PictureMargin = 0, ; - Command3.PicturePosition = 4, ; - Command3.PictureSpacing = 0, ; - Command3.RightToLeft = .F., ; - Command3.SpecialEffect = 0, ; - Command3.StatusBarText = "", ; - Command3.Style = 0, ; - Command3.TabStop = .T., ; - Command3.Tag = "", ; - Command3.TerminateRead = .F., ; - Command3.Themes = .T., ; - Command3.ToolTipText = "", ; - Command3.Top = 52, ; - Command3.Visible = .T., ; - Command3.WhatsThisHelpID = -1, ; - Command3.Width = 200, ; - Command3.WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'Command1' AS commandbutton WITH ; - Alignment = 2, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - Cancel = .F., ; - Caption = "Este es el boton 1", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Default = .F., ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (27), ; - HelpContextID = 0, ; - Left = (44), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Command1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureMargin = 0, ; - PicturePosition = 4, ; - PictureSpacing = 0, ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 10, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (392), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (200), ; - WordWrap = .F. - *< END OBJECT: BaseClass="commandbutton" /> - - ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (76), ; - HelpContextID = 0, ; - Left = (36), ; - MemberClass = "cl_commandbutton", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Commandgroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (44), ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (228), ; - Cl_commandbutton1.Alignment = 2, ; - Cl_commandbutton1.Anchor = 0, ; - Cl_commandbutton1.AutoSize = .F., ; - Cl_commandbutton1.BackColor = 128,255,128, ; - Cl_commandbutton1.Cancel = .F., ; - Cl_commandbutton1.Caption = "Este es el botón de comando 1", ; - Cl_commandbutton1.ColorScheme = 1, ; - Cl_commandbutton1.ColorSource = 4, ; - Cl_commandbutton1.Comment = "", ; - Cl_commandbutton1.Default = .F., ; - Cl_commandbutton1.DisabledBackColor = 0,128,192, ; - Cl_commandbutton1.DisabledForeColor = 128,0,255, ; - Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton1.DownPicture = ..\..\, ; - Cl_commandbutton1.DragIcon = ..\..\, ; - Cl_commandbutton1.DragMode = 0, ; - Cl_commandbutton1.Enabled = .T., ; - Cl_commandbutton1.FontBold = .F., ; - Cl_commandbutton1.FontCharSet = 0, ; - Cl_commandbutton1.FontCondense = .F., ; - Cl_commandbutton1.FontExtend = .F., ; - Cl_commandbutton1.FontItalic = .F., ; - Cl_commandbutton1.FontName = "Arial", ; - Cl_commandbutton1.FontOutline = .F., ; - Cl_commandbutton1.FontShadow = .F., ; - Cl_commandbutton1.FontSize = 8, ; - Cl_commandbutton1.FontStrikethru = .F., ; - Cl_commandbutton1.FontUnderline = .F., ; - Cl_commandbutton1.Height = 21, ; - Cl_commandbutton1.HelpContextID = 0, ; - Cl_commandbutton1.Left = 8, ; - Cl_commandbutton1.MouseIcon = ..\..\, ; - Cl_commandbutton1.MousePointer = 0, ; - Cl_commandbutton1.Name = "Cl_commandbutton1", ; - Cl_commandbutton1.OLEDragMode = 0, ; - Cl_commandbutton1.OLEDragPicture = ..\..\, ; - Cl_commandbutton1.OLEDropEffects = 3, ; - Cl_commandbutton1.OLEDropMode = 0, ; - Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton1.PictureMargin = 0, ; - Cl_commandbutton1.PicturePosition = 4, ; - Cl_commandbutton1.PictureSpacing = 0, ; - Cl_commandbutton1.RightToLeft = .F., ; - Cl_commandbutton1.SpecialEffect = 0, ; - Cl_commandbutton1.StatusBarText = "", ; - Cl_commandbutton1.Style = 0, ; - Cl_commandbutton1.TabStop = .T., ; - Cl_commandbutton1.Tag = "", ; - Cl_commandbutton1.TerminateRead = .F., ; - Cl_commandbutton1.Themes = .T., ; - Cl_commandbutton1.ToolTipText = "", ; - Cl_commandbutton1.Top = 4, ; - Cl_commandbutton1.Visible = .T., ; - Cl_commandbutton1.WhatsThisHelpID = -1, ; - Cl_commandbutton1.Width = 200, ; - Cl_commandbutton1.WordWrap = .F., ; - Cl_commandbutton2.Alignment = 2, ; - Cl_commandbutton2.Anchor = 0, ; - Cl_commandbutton2.AutoSize = .F., ; - Cl_commandbutton2.BackColor = 128,255,128, ; - Cl_commandbutton2.Cancel = .F., ; - Cl_commandbutton2.Caption = "Este es el botón de comando 2", ; - Cl_commandbutton2.ColorScheme = 1, ; - Cl_commandbutton2.ColorSource = 4, ; - Cl_commandbutton2.Comment = "", ; - Cl_commandbutton2.Default = .F., ; - Cl_commandbutton2.DisabledBackColor = 0,128,192, ; - Cl_commandbutton2.DisabledForeColor = 128,0,255, ; - Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton2.DownPicture = ..\..\, ; - Cl_commandbutton2.DragIcon = ..\..\, ; - Cl_commandbutton2.DragMode = 0, ; - Cl_commandbutton2.Enabled = .F., ; - Cl_commandbutton2.FontBold = .F., ; - Cl_commandbutton2.FontCharSet = 0, ; - Cl_commandbutton2.FontCondense = .F., ; - Cl_commandbutton2.FontExtend = .F., ; - Cl_commandbutton2.FontItalic = .F., ; - Cl_commandbutton2.FontName = "Arial", ; - Cl_commandbutton2.FontOutline = .F., ; - Cl_commandbutton2.FontShadow = .F., ; - Cl_commandbutton2.FontSize = 8, ; - Cl_commandbutton2.FontStrikethru = .F., ; - Cl_commandbutton2.FontUnderline = .F., ; - Cl_commandbutton2.Height = 21, ; - Cl_commandbutton2.HelpContextID = 0, ; - Cl_commandbutton2.Left = 8, ; - Cl_commandbutton2.MouseIcon = ..\..\, ; - Cl_commandbutton2.MousePointer = 0, ; - Cl_commandbutton2.Name = "Cl_commandbutton2", ; - Cl_commandbutton2.OLEDragMode = 0, ; - Cl_commandbutton2.OLEDragPicture = ..\..\, ; - Cl_commandbutton2.OLEDropEffects = 3, ; - Cl_commandbutton2.OLEDropMode = 0, ; - Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton2.PictureMargin = 0, ; - Cl_commandbutton2.PicturePosition = 4, ; - Cl_commandbutton2.PictureSpacing = 0, ; - Cl_commandbutton2.RightToLeft = .F., ; - Cl_commandbutton2.SpecialEffect = 0, ; - Cl_commandbutton2.StatusBarText = "", ; - Cl_commandbutton2.Style = 0, ; - Cl_commandbutton2.TabStop = .T., ; - Cl_commandbutton2.Tag = "", ; - Cl_commandbutton2.TerminateRead = .F., ; - Cl_commandbutton2.Themes = .T., ; - Cl_commandbutton2.ToolTipText = "", ; - Cl_commandbutton2.Top = 28, ; - Cl_commandbutton2.Visible = .T., ; - Cl_commandbutton2.WhatsThisHelpID = -1, ; - Cl_commandbutton2.Width = 200, ; - Cl_commandbutton2.WordWrap = .F., ; - Cl_commandbutton3.Alignment = 2, ; - Cl_commandbutton3.Anchor = 0, ; - Cl_commandbutton3.AutoSize = .F., ; - Cl_commandbutton3.BackColor = 128,255,128, ; - Cl_commandbutton3.Cancel = .F., ; - Cl_commandbutton3.Caption = "Este es el botón de comando 3", ; - Cl_commandbutton3.ColorScheme = 1, ; - Cl_commandbutton3.ColorSource = 4, ; - Cl_commandbutton3.Comment = "", ; - Cl_commandbutton3.Default = .F., ; - Cl_commandbutton3.DisabledBackColor = 0,128,192, ; - Cl_commandbutton3.DisabledForeColor = 128,0,255, ; - Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton3.DownPicture = ..\..\, ; - Cl_commandbutton3.DragIcon = ..\..\, ; - Cl_commandbutton3.DragMode = 0, ; - Cl_commandbutton3.Enabled = .T., ; - Cl_commandbutton3.FontBold = .F., ; - Cl_commandbutton3.FontCharSet = 0, ; - Cl_commandbutton3.FontCondense = .F., ; - Cl_commandbutton3.FontExtend = .F., ; - Cl_commandbutton3.FontItalic = .F., ; - Cl_commandbutton3.FontName = "Arial", ; - Cl_commandbutton3.FontOutline = .F., ; - Cl_commandbutton3.FontShadow = .F., ; - Cl_commandbutton3.FontSize = 8, ; - Cl_commandbutton3.FontStrikethru = .F., ; - Cl_commandbutton3.FontUnderline = .F., ; - Cl_commandbutton3.Height = 21, ; - Cl_commandbutton3.HelpContextID = 0, ; - Cl_commandbutton3.Left = 8, ; - Cl_commandbutton3.MouseIcon = ..\..\, ; - Cl_commandbutton3.MousePointer = 0, ; - Cl_commandbutton3.Name = "Cl_commandbutton3", ; - Cl_commandbutton3.OLEDragMode = 0, ; - Cl_commandbutton3.OLEDragPicture = ..\..\, ; - Cl_commandbutton3.OLEDropEffects = 3, ; - Cl_commandbutton3.OLEDropMode = 0, ; - Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton3.PictureMargin = 0, ; - Cl_commandbutton3.PicturePosition = 4, ; - Cl_commandbutton3.PictureSpacing = 0, ; - Cl_commandbutton3.RightToLeft = .F., ; - Cl_commandbutton3.SpecialEffect = 0, ; - Cl_commandbutton3.StatusBarText = "", ; - Cl_commandbutton3.Style = 0, ; - Cl_commandbutton3.TabStop = .T., ; - Cl_commandbutton3.Tag = "", ; - Cl_commandbutton3.TerminateRead = .F., ; - Cl_commandbutton3.Themes = .T., ; - Cl_commandbutton3.ToolTipText = "", ; - Cl_commandbutton3.Top = 52, ; - Cl_commandbutton3.Visible = .T., ; - Cl_commandbutton3.WhatsThisHelpID = -1, ; - Cl_commandbutton3.Width = 200, ; - Cl_commandbutton3.WordWrap = .F. - *< END OBJECT: BaseClass="commandgroup" /> - - ADD OBJECT 'Container1' AS container WITH ; - Height = 101, ; - Left = 28, ; - Name = "Container1", ; - Top = 140, ; - Width = 517 - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Container1.Cl_commandgroup1' AS cl_commandgroup WITH ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 0, ; - ButtonCount = 3, ; - Enabled = .F., ; - Height = 76, ; - Left = 276, ; - Name = "Cl_commandgroup1", ; - Top = 12, ; - Width = 228, ; - Command1.Alignment = 2, ; - Command1.Anchor = 0, ; - Command1.AutoSize = .F., ; - Command1.BackColor = 128,255,128, ; - Command1.Cancel = .F., ; - Command1.Caption = "Este es el botón de comando 1", ; - Command1.ColorScheme = 1, ; - Command1.ColorSource = 4, ; - Command1.Comment = "", ; - Command1.Default = .F., ; - Command1.DisabledBackColor = 0,128,192, ; - Command1.DisabledForeColor = 128,0,255, ; - Command1.DisabledPicture = bmps\treeview.bmp, ; - Command1.DownPicture = ..\..\, ; - Command1.DragIcon = ..\..\, ; - Command1.DragMode = 0, ; - Command1.Enabled = .T., ; - Command1.FontBold = .F., ; - Command1.FontCharSet = 0, ; - Command1.FontCondense = .F., ; - Command1.FontExtend = .F., ; - Command1.FontItalic = .F., ; - Command1.FontName = "Arial", ; - Command1.FontOutline = .F., ; - Command1.FontShadow = .F., ; - Command1.FontSize = 8, ; - Command1.FontStrikethru = .F., ; - Command1.FontUnderline = .F., ; - Command1.ForeColor = 0,0,0, ; - Command1.Height = 21, ; - Command1.HelpContextID = 0, ; - Command1.Left = 4, ; - Command1.MouseIcon = ..\..\, ; - Command1.MousePointer = 0, ; - Command1.Name = "Command1", ; - Command1.OLEDragMode = 0, ; - Command1.OLEDragPicture = ..\..\, ; - Command1.OLEDropEffects = 3, ; - Command1.OLEDropMode = 0, ; - Command1.Picture = bmps\sobrepostal.bmp, ; - Command1.PictureMargin = 0, ; - Command1.PicturePosition = 4, ; - Command1.PictureSpacing = 0, ; - Command1.RightToLeft = .F., ; - Command1.SpecialEffect = 0, ; - Command1.StatusBarText = "", ; - Command1.Style = 0, ; - Command1.TabStop = .T., ; - Command1.Tag = "", ; - Command1.TerminateRead = .F., ; - Command1.Themes = .T., ; - Command1.ToolTipText = "", ; - Command1.Top = 4, ; - Command1.Visible = .T., ; - Command1.WhatsThisHelpID = -1, ; - Command1.Width = 200, ; - Command1.WordWrap = .F., ; - Command2.Alignment = 2, ; - Command2.Anchor = 0, ; - Command2.AutoSize = .F., ; - Command2.BackColor = 128,255,128, ; - Command2.Cancel = .F., ; - Command2.Caption = "Este es el botón de comando 2", ; - Command2.ColorScheme = 1, ; - Command2.ColorSource = 4, ; - Command2.Comment = "", ; - Command2.Default = .F., ; - Command2.DisabledBackColor = 0,128,192, ; - Command2.DisabledForeColor = 128,0,255, ; - Command2.DisabledPicture = bmps\treeview.bmp, ; - Command2.DownPicture = ..\..\, ; - Command2.DragIcon = ..\..\, ; - Command2.DragMode = 0, ; - Command2.Enabled = .F., ; - Command2.FontBold = .F., ; - Command2.FontCharSet = 0, ; - Command2.FontCondense = .F., ; - Command2.FontExtend = .F., ; - Command2.FontItalic = .F., ; - Command2.FontName = "Arial", ; - Command2.FontOutline = .F., ; - Command2.FontShadow = .F., ; - Command2.FontSize = 8, ; - Command2.FontStrikethru = .F., ; - Command2.FontUnderline = .F., ; - Command2.ForeColor = 0,0,0, ; - Command2.Height = 21, ; - Command2.HelpContextID = 0, ; - Command2.Left = 4, ; - Command2.MouseIcon = ..\..\, ; - Command2.MousePointer = 0, ; - Command2.Name = "Command2", ; - Command2.OLEDragMode = 0, ; - Command2.OLEDragPicture = ..\..\, ; - Command2.OLEDropEffects = 3, ; - Command2.OLEDropMode = 0, ; - Command2.Picture = bmps\sobrepostal.bmp, ; - Command2.PictureMargin = 0, ; - Command2.PicturePosition = 4, ; - Command2.PictureSpacing = 0, ; - Command2.RightToLeft = .F., ; - Command2.SpecialEffect = 0, ; - Command2.StatusBarText = "", ; - Command2.Style = 0, ; - Command2.TabStop = .T., ; - Command2.Tag = "", ; - Command2.TerminateRead = .F., ; - Command2.Themes = .T., ; - Command2.ToolTipText = "", ; - Command2.Top = 28, ; - Command2.Visible = .T., ; - Command2.WhatsThisHelpID = -1, ; - Command2.Width = 200, ; - Command2.WordWrap = .F., ; - Command3.Alignment = 2, ; - Command3.Anchor = 0, ; - Command3.AutoSize = .F., ; - Command3.BackColor = 128,255,128, ; - Command3.Cancel = .F., ; - Command3.Caption = "Este es el botón de comando 3", ; - Command3.ColorScheme = 1, ; - Command3.ColorSource = 4, ; - Command3.Comment = "", ; - Command3.Default = .F., ; - Command3.DisabledBackColor = 0,128,192, ; - Command3.DisabledForeColor = 128,0,255, ; - Command3.DisabledPicture = bmps\treeview.bmp, ; - Command3.DownPicture = ..\..\, ; - Command3.DragIcon = ..\..\, ; - Command3.DragMode = 0, ; - Command3.Enabled = .T., ; - Command3.FontBold = .F., ; - Command3.FontCharSet = 0, ; - Command3.FontCondense = .F., ; - Command3.FontExtend = .F., ; - Command3.FontItalic = .F., ; - Command3.FontName = "Arial", ; - Command3.FontOutline = .F., ; - Command3.FontShadow = .F., ; - Command3.FontSize = 8, ; - Command3.FontStrikethru = .F., ; - Command3.FontUnderline = .F., ; - Command3.ForeColor = 0,0,0, ; - Command3.Height = 21, ; - Command3.HelpContextID = 0, ; - Command3.Left = 4, ; - Command3.MouseIcon = ..\..\, ; - Command3.MousePointer = 0, ; - Command3.Name = "Command3", ; - Command3.OLEDragMode = 0, ; - Command3.OLEDragPicture = ..\..\, ; - Command3.OLEDropEffects = 3, ; - Command3.OLEDropMode = 0, ; - Command3.Picture = bmps\sobrepostal.bmp, ; - Command3.PictureMargin = 0, ; - Command3.PicturePosition = 4, ; - Command3.PictureSpacing = 0, ; - Command3.RightToLeft = .F., ; - Command3.SpecialEffect = 0, ; - Command3.StatusBarText = "", ; - Command3.Style = 0, ; - Command3.TabStop = .T., ; - Command3.Tag = "", ; - Command3.TerminateRead = .F., ; - Command3.Themes = .T., ; - Command3.ToolTipText = "", ; - Command3.Top = 52, ; - Command3.Visible = .T., ; - Command3.WhatsThisHelpID = -1, ; - Command3.Width = 200, ; - Command3.WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'Container1.Commandgroup1' AS commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 8, ; - MemberClass = "cl_commandbutton", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Commandgroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 12, ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 228, ; - Cl_commandbutton1.Alignment = 2, ; - Cl_commandbutton1.Anchor = 0, ; - Cl_commandbutton1.AutoSize = .F., ; - Cl_commandbutton1.BackColor = 128,255,128, ; - Cl_commandbutton1.Cancel = .F., ; - Cl_commandbutton1.Caption = "Este es el botón de comando 1", ; - Cl_commandbutton1.ColorScheme = 1, ; - Cl_commandbutton1.ColorSource = 4, ; - Cl_commandbutton1.Comment = "", ; - Cl_commandbutton1.Default = .F., ; - Cl_commandbutton1.DisabledBackColor = 0,128,192, ; - Cl_commandbutton1.DisabledForeColor = 128,0,255, ; - Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton1.DownPicture = ..\..\, ; - Cl_commandbutton1.DragIcon = ..\..\, ; - Cl_commandbutton1.DragMode = 0, ; - Cl_commandbutton1.Enabled = .T., ; - Cl_commandbutton1.FontBold = .F., ; - Cl_commandbutton1.FontCharSet = 0, ; - Cl_commandbutton1.FontCondense = .F., ; - Cl_commandbutton1.FontExtend = .F., ; - Cl_commandbutton1.FontItalic = .F., ; - Cl_commandbutton1.FontName = "Arial", ; - Cl_commandbutton1.FontOutline = .F., ; - Cl_commandbutton1.FontShadow = .F., ; - Cl_commandbutton1.FontSize = 8, ; - Cl_commandbutton1.FontStrikethru = .F., ; - Cl_commandbutton1.FontUnderline = .F., ; - Cl_commandbutton1.Height = 21, ; - Cl_commandbutton1.HelpContextID = 0, ; - Cl_commandbutton1.Left = 8, ; - Cl_commandbutton1.MouseIcon = ..\..\, ; - Cl_commandbutton1.MousePointer = 0, ; - Cl_commandbutton1.Name = "Cl_commandbutton1", ; - Cl_commandbutton1.OLEDragMode = 0, ; - Cl_commandbutton1.OLEDragPicture = ..\..\, ; - Cl_commandbutton1.OLEDropEffects = 3, ; - Cl_commandbutton1.OLEDropMode = 0, ; - Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton1.PictureMargin = 0, ; - Cl_commandbutton1.PicturePosition = 4, ; - Cl_commandbutton1.PictureSpacing = 0, ; - Cl_commandbutton1.RightToLeft = .F., ; - Cl_commandbutton1.SpecialEffect = 0, ; - Cl_commandbutton1.StatusBarText = "", ; - Cl_commandbutton1.Style = 0, ; - Cl_commandbutton1.TabStop = .T., ; - Cl_commandbutton1.Tag = "", ; - Cl_commandbutton1.TerminateRead = .F., ; - Cl_commandbutton1.Themes = .T., ; - Cl_commandbutton1.ToolTipText = "", ; - Cl_commandbutton1.Top = 4, ; - Cl_commandbutton1.Visible = .T., ; - Cl_commandbutton1.WhatsThisHelpID = -1, ; - Cl_commandbutton1.Width = 200, ; - Cl_commandbutton1.WordWrap = .F., ; - Cl_commandbutton2.Alignment = 2, ; - Cl_commandbutton2.Anchor = 0, ; - Cl_commandbutton2.AutoSize = .F., ; - Cl_commandbutton2.BackColor = 128,255,128, ; - Cl_commandbutton2.Cancel = .F., ; - Cl_commandbutton2.Caption = "Este es el botón de comando 2", ; - Cl_commandbutton2.ColorScheme = 1, ; - Cl_commandbutton2.ColorSource = 4, ; - Cl_commandbutton2.Comment = "", ; - Cl_commandbutton2.Default = .F., ; - Cl_commandbutton2.DisabledBackColor = 0,128,192, ; - Cl_commandbutton2.DisabledForeColor = 128,0,255, ; - Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton2.DownPicture = ..\..\, ; - Cl_commandbutton2.DragIcon = ..\..\, ; - Cl_commandbutton2.DragMode = 0, ; - Cl_commandbutton2.Enabled = .F., ; - Cl_commandbutton2.FontBold = .F., ; - Cl_commandbutton2.FontCharSet = 0, ; - Cl_commandbutton2.FontCondense = .F., ; - Cl_commandbutton2.FontExtend = .F., ; - Cl_commandbutton2.FontItalic = .F., ; - Cl_commandbutton2.FontName = "Arial", ; - Cl_commandbutton2.FontOutline = .F., ; - Cl_commandbutton2.FontShadow = .F., ; - Cl_commandbutton2.FontSize = 8, ; - Cl_commandbutton2.FontStrikethru = .F., ; - Cl_commandbutton2.FontUnderline = .F., ; - Cl_commandbutton2.Height = 21, ; - Cl_commandbutton2.HelpContextID = 0, ; - Cl_commandbutton2.Left = 8, ; - Cl_commandbutton2.MouseIcon = ..\..\, ; - Cl_commandbutton2.MousePointer = 0, ; - Cl_commandbutton2.Name = "Cl_commandbutton2", ; - Cl_commandbutton2.OLEDragMode = 0, ; - Cl_commandbutton2.OLEDragPicture = ..\..\, ; - Cl_commandbutton2.OLEDropEffects = 3, ; - Cl_commandbutton2.OLEDropMode = 0, ; - Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton2.PictureMargin = 0, ; - Cl_commandbutton2.PicturePosition = 4, ; - Cl_commandbutton2.PictureSpacing = 0, ; - Cl_commandbutton2.RightToLeft = .F., ; - Cl_commandbutton2.SpecialEffect = 0, ; - Cl_commandbutton2.StatusBarText = "", ; - Cl_commandbutton2.Style = 0, ; - Cl_commandbutton2.TabStop = .T., ; - Cl_commandbutton2.Tag = "", ; - Cl_commandbutton2.TerminateRead = .F., ; - Cl_commandbutton2.Themes = .T., ; - Cl_commandbutton2.ToolTipText = "", ; - Cl_commandbutton2.Top = 28, ; - Cl_commandbutton2.Visible = .T., ; - Cl_commandbutton2.WhatsThisHelpID = -1, ; - Cl_commandbutton2.Width = 200, ; - Cl_commandbutton2.WordWrap = .F., ; - Cl_commandbutton3.Alignment = 2, ; - Cl_commandbutton3.Anchor = 0, ; - Cl_commandbutton3.AutoSize = .F., ; - Cl_commandbutton3.BackColor = 128,255,128, ; - Cl_commandbutton3.Cancel = .F., ; - Cl_commandbutton3.Caption = "Este es el botón de comando 3", ; - Cl_commandbutton3.ColorScheme = 1, ; - Cl_commandbutton3.ColorSource = 4, ; - Cl_commandbutton3.Comment = "", ; - Cl_commandbutton3.Default = .F., ; - Cl_commandbutton3.DisabledBackColor = 0,128,192, ; - Cl_commandbutton3.DisabledForeColor = 128,0,255, ; - Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton3.DownPicture = ..\..\, ; - Cl_commandbutton3.DragIcon = ..\..\, ; - Cl_commandbutton3.DragMode = 0, ; - Cl_commandbutton3.Enabled = .T., ; - Cl_commandbutton3.FontBold = .F., ; - Cl_commandbutton3.FontCharSet = 0, ; - Cl_commandbutton3.FontCondense = .F., ; - Cl_commandbutton3.FontExtend = .F., ; - Cl_commandbutton3.FontItalic = .F., ; - Cl_commandbutton3.FontName = "Arial", ; - Cl_commandbutton3.FontOutline = .F., ; - Cl_commandbutton3.FontShadow = .F., ; - Cl_commandbutton3.FontSize = 8, ; - Cl_commandbutton3.FontStrikethru = .F., ; - Cl_commandbutton3.FontUnderline = .F., ; - Cl_commandbutton3.Height = 21, ; - Cl_commandbutton3.HelpContextID = 0, ; - Cl_commandbutton3.Left = 8, ; - Cl_commandbutton3.MouseIcon = ..\..\, ; - Cl_commandbutton3.MousePointer = 0, ; - Cl_commandbutton3.Name = "Cl_commandbutton3", ; - Cl_commandbutton3.OLEDragMode = 0, ; - Cl_commandbutton3.OLEDragPicture = ..\..\, ; - Cl_commandbutton3.OLEDropEffects = 3, ; - Cl_commandbutton3.OLEDropMode = 0, ; - Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton3.PictureMargin = 0, ; - Cl_commandbutton3.PicturePosition = 4, ; - Cl_commandbutton3.PictureSpacing = 0, ; - Cl_commandbutton3.RightToLeft = .F., ; - Cl_commandbutton3.SpecialEffect = 0, ; - Cl_commandbutton3.StatusBarText = "", ; - Cl_commandbutton3.Style = 0, ; - Cl_commandbutton3.TabStop = .T., ; - Cl_commandbutton3.Tag = "", ; - Cl_commandbutton3.TerminateRead = .F., ; - Cl_commandbutton3.Themes = .T., ; - Cl_commandbutton3.ToolTipText = "", ; - Cl_commandbutton3.Top = 52, ; - Cl_commandbutton3.Visible = .T., ; - Cl_commandbutton3.WhatsThisHelpID = -1, ; - Cl_commandbutton3.Width = 200, ; - Cl_commandbutton3.WordWrap = .F. - *< END OBJECT: BaseClass="commandgroup" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 132, ; - Left = 28, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 256, ; - Width = 517, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_commandgroup1' AS cl_commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 275, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_commandgroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 8, ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 228, ; - Command1.Alignment = 2, ; - Command1.Anchor = 0, ; - Command1.AutoSize = .F., ; - Command1.BackColor = 128,255,128, ; - Command1.Cancel = .F., ; - Command1.Caption = "Este es el botón de comando 1", ; - Command1.ColorScheme = 1, ; - Command1.ColorSource = 4, ; - Command1.Comment = "", ; - Command1.Default = .F., ; - Command1.DisabledBackColor = 0,128,192, ; - Command1.DisabledForeColor = 128,0,255, ; - Command1.DisabledPicture = bmps\treeview.bmp, ; - Command1.DownPicture = ..\..\, ; - Command1.DragIcon = ..\..\, ; - Command1.DragMode = 0, ; - Command1.Enabled = .T., ; - Command1.FontBold = .F., ; - Command1.FontCharSet = 0, ; - Command1.FontCondense = .F., ; - Command1.FontExtend = .F., ; - Command1.FontItalic = .F., ; - Command1.FontName = "Arial", ; - Command1.FontOutline = .F., ; - Command1.FontShadow = .F., ; - Command1.FontSize = 8, ; - Command1.FontStrikethru = .F., ; - Command1.FontUnderline = .F., ; - Command1.ForeColor = 0,0,0, ; - Command1.Height = 21, ; - Command1.HelpContextID = 0, ; - Command1.Left = 4, ; - Command1.MouseIcon = ..\..\, ; - Command1.MousePointer = 0, ; - Command1.Name = "Command1", ; - Command1.OLEDragMode = 0, ; - Command1.OLEDragPicture = ..\..\, ; - Command1.OLEDropEffects = 3, ; - Command1.OLEDropMode = 0, ; - Command1.Picture = bmps\sobrepostal.bmp, ; - Command1.PictureMargin = 0, ; - Command1.PicturePosition = 4, ; - Command1.PictureSpacing = 0, ; - Command1.RightToLeft = .F., ; - Command1.SpecialEffect = 0, ; - Command1.StatusBarText = "", ; - Command1.Style = 0, ; - Command1.TabStop = .T., ; - Command1.Tag = "", ; - Command1.TerminateRead = .F., ; - Command1.Themes = .T., ; - Command1.ToolTipText = "", ; - Command1.Top = 4, ; - Command1.Visible = .T., ; - Command1.WhatsThisHelpID = -1, ; - Command1.Width = 200, ; - Command1.WordWrap = .F., ; - Command2.Alignment = 2, ; - Command2.Anchor = 0, ; - Command2.AutoSize = .F., ; - Command2.BackColor = 128,255,128, ; - Command2.Cancel = .F., ; - Command2.Caption = "Este es el botón de comando 2", ; - Command2.ColorScheme = 1, ; - Command2.ColorSource = 4, ; - Command2.Comment = "", ; - Command2.Default = .F., ; - Command2.DisabledBackColor = 0,128,192, ; - Command2.DisabledForeColor = 128,0,255, ; - Command2.DisabledPicture = bmps\treeview.bmp, ; - Command2.DownPicture = ..\..\, ; - Command2.DragIcon = ..\..\, ; - Command2.DragMode = 0, ; - Command2.Enabled = .F., ; - Command2.FontBold = .F., ; - Command2.FontCharSet = 0, ; - Command2.FontCondense = .F., ; - Command2.FontExtend = .F., ; - Command2.FontItalic = .F., ; - Command2.FontName = "Arial", ; - Command2.FontOutline = .F., ; - Command2.FontShadow = .F., ; - Command2.FontSize = 8, ; - Command2.FontStrikethru = .F., ; - Command2.FontUnderline = .F., ; - Command2.ForeColor = 0,0,0, ; - Command2.Height = 21, ; - Command2.HelpContextID = 0, ; - Command2.Left = 4, ; - Command2.MouseIcon = ..\..\, ; - Command2.MousePointer = 0, ; - Command2.Name = "Command2", ; - Command2.OLEDragMode = 0, ; - Command2.OLEDragPicture = ..\..\, ; - Command2.OLEDropEffects = 3, ; - Command2.OLEDropMode = 0, ; - Command2.Picture = bmps\sobrepostal.bmp, ; - Command2.PictureMargin = 0, ; - Command2.PicturePosition = 4, ; - Command2.PictureSpacing = 0, ; - Command2.RightToLeft = .F., ; - Command2.SpecialEffect = 0, ; - Command2.StatusBarText = "", ; - Command2.Style = 0, ; - Command2.TabStop = .T., ; - Command2.Tag = "", ; - Command2.TerminateRead = .F., ; - Command2.Themes = .T., ; - Command2.ToolTipText = "", ; - Command2.Top = 28, ; - Command2.Visible = .T., ; - Command2.WhatsThisHelpID = -1, ; - Command2.Width = 200, ; - Command2.WordWrap = .F., ; - Command3.Alignment = 2, ; - Command3.Anchor = 0, ; - Command3.AutoSize = .F., ; - Command3.BackColor = 128,255,128, ; - Command3.Cancel = .F., ; - Command3.Caption = "Este es el botón de comando 3", ; - Command3.ColorScheme = 1, ; - Command3.ColorSource = 4, ; - Command3.Comment = "", ; - Command3.Default = .F., ; - Command3.DisabledBackColor = 0,128,192, ; - Command3.DisabledForeColor = 128,0,255, ; - Command3.DisabledPicture = bmps\treeview.bmp, ; - Command3.DownPicture = ..\..\, ; - Command3.DragIcon = ..\..\, ; - Command3.DragMode = 0, ; - Command3.Enabled = .T., ; - Command3.FontBold = .F., ; - Command3.FontCharSet = 0, ; - Command3.FontCondense = .F., ; - Command3.FontExtend = .F., ; - Command3.FontItalic = .F., ; - Command3.FontName = "Arial", ; - Command3.FontOutline = .F., ; - Command3.FontShadow = .F., ; - Command3.FontSize = 8, ; - Command3.FontStrikethru = .F., ; - Command3.FontUnderline = .F., ; - Command3.ForeColor = 0,0,0, ; - Command3.Height = 21, ; - Command3.HelpContextID = 0, ; - Command3.Left = 4, ; - Command3.MouseIcon = ..\..\, ; - Command3.MousePointer = 0, ; - Command3.Name = "Command3", ; - Command3.OLEDragMode = 0, ; - Command3.OLEDragPicture = ..\..\, ; - Command3.OLEDropEffects = 3, ; - Command3.OLEDropMode = 0, ; - Command3.Picture = bmps\sobrepostal.bmp, ; - Command3.PictureMargin = 0, ; - Command3.PicturePosition = 4, ; - Command3.PictureSpacing = 0, ; - Command3.RightToLeft = .F., ; - Command3.SpecialEffect = 0, ; - Command3.StatusBarText = "", ; - Command3.Style = 0, ; - Command3.TabStop = .T., ; - Command3.Tag = "", ; - Command3.TerminateRead = .F., ; - Command3.Themes = .T., ; - Command3.ToolTipText = "", ; - Command3.Top = 52, ; - Command3.Visible = .T., ; - Command3.WhatsThisHelpID = -1, ; - Command3.Width = 200, ; - Command3.WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'Pageframe1.Page1.Commandgroup1' AS commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 255,128,0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 11, ; - MemberClass = "cl_commandbutton", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Commandgroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 8, ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 228, ; - Cl_commandbutton1.Alignment = 2, ; - Cl_commandbutton1.Anchor = 0, ; - Cl_commandbutton1.AutoSize = .F., ; - Cl_commandbutton1.BackColor = 128,255,128, ; - Cl_commandbutton1.Cancel = .F., ; - Cl_commandbutton1.Caption = "Este es el botón de comando 1", ; - Cl_commandbutton1.ColorScheme = 1, ; - Cl_commandbutton1.ColorSource = 4, ; - Cl_commandbutton1.Comment = "", ; - Cl_commandbutton1.Default = .F., ; - Cl_commandbutton1.DisabledBackColor = 0,128,192, ; - Cl_commandbutton1.DisabledForeColor = 128,0,255, ; - Cl_commandbutton1.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton1.DownPicture = ..\..\, ; - Cl_commandbutton1.DragIcon = ..\..\, ; - Cl_commandbutton1.DragMode = 0, ; - Cl_commandbutton1.Enabled = .T., ; - Cl_commandbutton1.FontBold = .F., ; - Cl_commandbutton1.FontCharSet = 0, ; - Cl_commandbutton1.FontCondense = .F., ; - Cl_commandbutton1.FontExtend = .F., ; - Cl_commandbutton1.FontItalic = .F., ; - Cl_commandbutton1.FontName = "Arial", ; - Cl_commandbutton1.FontOutline = .F., ; - Cl_commandbutton1.FontShadow = .F., ; - Cl_commandbutton1.FontSize = 8, ; - Cl_commandbutton1.FontStrikethru = .F., ; - Cl_commandbutton1.FontUnderline = .F., ; - Cl_commandbutton1.Height = 21, ; - Cl_commandbutton1.HelpContextID = 0, ; - Cl_commandbutton1.Left = 8, ; - Cl_commandbutton1.MouseIcon = ..\..\, ; - Cl_commandbutton1.MousePointer = 0, ; - Cl_commandbutton1.Name = "Cl_commandbutton1", ; - Cl_commandbutton1.OLEDragMode = 0, ; - Cl_commandbutton1.OLEDragPicture = ..\..\, ; - Cl_commandbutton1.OLEDropEffects = 3, ; - Cl_commandbutton1.OLEDropMode = 0, ; - Cl_commandbutton1.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton1.PictureMargin = 0, ; - Cl_commandbutton1.PicturePosition = 4, ; - Cl_commandbutton1.PictureSpacing = 0, ; - Cl_commandbutton1.RightToLeft = .F., ; - Cl_commandbutton1.SpecialEffect = 0, ; - Cl_commandbutton1.StatusBarText = "", ; - Cl_commandbutton1.Style = 0, ; - Cl_commandbutton1.TabStop = .T., ; - Cl_commandbutton1.Tag = "", ; - Cl_commandbutton1.TerminateRead = .F., ; - Cl_commandbutton1.Themes = .T., ; - Cl_commandbutton1.ToolTipText = "", ; - Cl_commandbutton1.Top = 4, ; - Cl_commandbutton1.Visible = .T., ; - Cl_commandbutton1.WhatsThisHelpID = -1, ; - Cl_commandbutton1.Width = 200, ; - Cl_commandbutton1.WordWrap = .F., ; - Cl_commandbutton2.Alignment = 2, ; - Cl_commandbutton2.Anchor = 0, ; - Cl_commandbutton2.AutoSize = .F., ; - Cl_commandbutton2.BackColor = 128,255,128, ; - Cl_commandbutton2.Cancel = .F., ; - Cl_commandbutton2.Caption = "Este es el botón de comando 2", ; - Cl_commandbutton2.ColorScheme = 1, ; - Cl_commandbutton2.ColorSource = 4, ; - Cl_commandbutton2.Comment = "", ; - Cl_commandbutton2.Default = .F., ; - Cl_commandbutton2.DisabledBackColor = 0,128,192, ; - Cl_commandbutton2.DisabledForeColor = 128,0,255, ; - Cl_commandbutton2.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton2.DownPicture = ..\..\, ; - Cl_commandbutton2.DragIcon = ..\..\, ; - Cl_commandbutton2.DragMode = 0, ; - Cl_commandbutton2.Enabled = .F., ; - Cl_commandbutton2.FontBold = .F., ; - Cl_commandbutton2.FontCharSet = 0, ; - Cl_commandbutton2.FontCondense = .F., ; - Cl_commandbutton2.FontExtend = .F., ; - Cl_commandbutton2.FontItalic = .F., ; - Cl_commandbutton2.FontName = "Arial", ; - Cl_commandbutton2.FontOutline = .F., ; - Cl_commandbutton2.FontShadow = .F., ; - Cl_commandbutton2.FontSize = 8, ; - Cl_commandbutton2.FontStrikethru = .F., ; - Cl_commandbutton2.FontUnderline = .F., ; - Cl_commandbutton2.Height = 21, ; - Cl_commandbutton2.HelpContextID = 0, ; - Cl_commandbutton2.Left = 8, ; - Cl_commandbutton2.MouseIcon = ..\..\, ; - Cl_commandbutton2.MousePointer = 0, ; - Cl_commandbutton2.Name = "Cl_commandbutton2", ; - Cl_commandbutton2.OLEDragMode = 0, ; - Cl_commandbutton2.OLEDragPicture = ..\..\, ; - Cl_commandbutton2.OLEDropEffects = 3, ; - Cl_commandbutton2.OLEDropMode = 0, ; - Cl_commandbutton2.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton2.PictureMargin = 0, ; - Cl_commandbutton2.PicturePosition = 4, ; - Cl_commandbutton2.PictureSpacing = 0, ; - Cl_commandbutton2.RightToLeft = .F., ; - Cl_commandbutton2.SpecialEffect = 0, ; - Cl_commandbutton2.StatusBarText = "", ; - Cl_commandbutton2.Style = 0, ; - Cl_commandbutton2.TabStop = .T., ; - Cl_commandbutton2.Tag = "", ; - Cl_commandbutton2.TerminateRead = .F., ; - Cl_commandbutton2.Themes = .T., ; - Cl_commandbutton2.ToolTipText = "", ; - Cl_commandbutton2.Top = 28, ; - Cl_commandbutton2.Visible = .T., ; - Cl_commandbutton2.WhatsThisHelpID = -1, ; - Cl_commandbutton2.Width = 200, ; - Cl_commandbutton2.WordWrap = .F., ; - Cl_commandbutton3.Alignment = 2, ; - Cl_commandbutton3.Anchor = 0, ; - Cl_commandbutton3.AutoSize = .F., ; - Cl_commandbutton3.BackColor = 128,255,128, ; - Cl_commandbutton3.Cancel = .F., ; - Cl_commandbutton3.Caption = "Este es el botón de comando 3", ; - Cl_commandbutton3.ColorScheme = 1, ; - Cl_commandbutton3.ColorSource = 4, ; - Cl_commandbutton3.Comment = "", ; - Cl_commandbutton3.Default = .F., ; - Cl_commandbutton3.DisabledBackColor = 0,128,192, ; - Cl_commandbutton3.DisabledForeColor = 128,0,255, ; - Cl_commandbutton3.DisabledPicture = bmps\treeview.bmp, ; - Cl_commandbutton3.DownPicture = ..\..\, ; - Cl_commandbutton3.DragIcon = ..\..\, ; - Cl_commandbutton3.DragMode = 0, ; - Cl_commandbutton3.Enabled = .T., ; - Cl_commandbutton3.FontBold = .F., ; - Cl_commandbutton3.FontCharSet = 0, ; - Cl_commandbutton3.FontCondense = .F., ; - Cl_commandbutton3.FontExtend = .F., ; - Cl_commandbutton3.FontItalic = .F., ; - Cl_commandbutton3.FontName = "Arial", ; - Cl_commandbutton3.FontOutline = .F., ; - Cl_commandbutton3.FontShadow = .F., ; - Cl_commandbutton3.FontSize = 8, ; - Cl_commandbutton3.FontStrikethru = .F., ; - Cl_commandbutton3.FontUnderline = .F., ; - Cl_commandbutton3.Height = 21, ; - Cl_commandbutton3.HelpContextID = 0, ; - Cl_commandbutton3.Left = 8, ; - Cl_commandbutton3.MouseIcon = ..\..\, ; - Cl_commandbutton3.MousePointer = 0, ; - Cl_commandbutton3.Name = "Cl_commandbutton3", ; - Cl_commandbutton3.OLEDragMode = 0, ; - Cl_commandbutton3.OLEDragPicture = ..\..\, ; - Cl_commandbutton3.OLEDropEffects = 3, ; - Cl_commandbutton3.OLEDropMode = 0, ; - Cl_commandbutton3.Picture = bmps\sobrepostal.bmp, ; - Cl_commandbutton3.PictureMargin = 0, ; - Cl_commandbutton3.PicturePosition = 4, ; - Cl_commandbutton3.PictureSpacing = 0, ; - Cl_commandbutton3.RightToLeft = .F., ; - Cl_commandbutton3.SpecialEffect = 0, ; - Cl_commandbutton3.StatusBarText = "", ; - Cl_commandbutton3.Style = 0, ; - Cl_commandbutton3.TabStop = .T., ; - Cl_commandbutton3.Tag = "", ; - Cl_commandbutton3.TerminateRead = .F., ; - Cl_commandbutton3.Themes = .T., ; - Cl_commandbutton3.ToolTipText = "", ; - Cl_commandbutton3.Top = 52, ; - Cl_commandbutton3.Visible = .T., ; - Cl_commandbutton3.WhatsThisHelpID = -1, ; - Cl_commandbutton3.Width = 200, ; - Cl_commandbutton3.WordWrap = .F. - *< END OBJECT: BaseClass="commandgroup" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_containers.sc2 b/TESTS/DATOS_READONLY/f_containers.sc2 deleted file mode 100644 index 7e78c20..0000000 --- a/TESTS/DATOS_READONLY/f_containers.sc2 +++ /dev/null @@ -1,338 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_containers.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Oleboundcontrol1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_olebound1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_control1" UniqueID="" Timestamp="" /> - - DoCreate = .T. - Name = "F_base1" - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "CONTAINER NORMAL" - Label1.Name = "Label1" - Label2.Caption = "CONTAINER SUBCLASADO" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_container1' AS cl_container WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 255,255,0, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ForeColor = 0,0,0, ; - Height = 68, ; - HelpContextID = 0, ; - Left = 296, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_container1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\fondogris.bmp, ; - SpecialEffect = 2, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - ToolTipText = "", ; - Top = 36, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 244 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" /> - - ADD OBJECT 'Cl_control1' AS cl_control WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ForeColor = 0,0,0, ; - Height = (61), ; - HelpContextID = 0, ; - Left = (296), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_control1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - SpecialEffect = 2, ; - Style = 0, ; - TabIndex = 12, ; - TabStop = .T., ; - Tag = "", ; - ToolTipText = "", ; - Top = (196), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (242) - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" /> - - ADD OBJECT 'Cl_olebound1' AS cl_olebound WITH ; - Anchor = 0, ; - AutoActivate = 2, ; - AutoSize = .F., ; - AutoVerbMenu = .T., ; - Comment = "", ; - ControlSource = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 57, ; - HelpContextID = 0, ; - HostName = "", ; - Left = 296, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_olebound1", ; - Sizable = .T., ; - StatusBarText = "", ; - Stretch = 0, ; - TabStop = .T., ; - Tag = "", ; - ToolTipText = "", ; - Top = 120, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 244 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="oleboundcontrol" /> - - ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ; - ActivePage = 2, ; - Anchor = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ErasePage = .T., ; - Height = 116, ; - HelpContextID = 0, ; - Left = 300, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_pageframe1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PageCount = 3, ; - RightToLeft = .F., ; - StatusBarText = "", ; - TabOrientation = 0, ; - Tabs = .T., ; - TabStop = .T., ; - TabStretch = 1, ; - TabStyle = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 280, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 256, ; - Page1.Name = "Page1", ; - Page2.Name = "Page2", ; - Page3.Caption = "Page3", ; - Page3.Name = "Page3" - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" /> - - ADD OBJECT 'Container1' AS container WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 255,255,0, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ForeColor = 0,0,0, ; - Height = (68), ; - HelpContextID = 0, ; - Left = (28), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Container1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\fondogris.bmp, ; - SpecialEffect = 2, ; - StatusBarText = "", ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - ToolTipText = "", ; - Top = (36), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (244) - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Oleboundcontrol1' AS oleboundcontrol WITH ; - Anchor = 0, ; - AutoActivate = 2, ; - AutoSize = .F., ; - AutoVerbMenu = .T., ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (57), ; - HelpContextID = 0, ; - HostName = "", ; - Left = (28), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Oleboundcontrol1", ; - Sizable = .T., ; - StatusBarText = "", ; - Stretch = 0, ; - TabStop = .T., ; - Tag = "", ; - ToolTipText = "", ; - Top = (120), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (244) - *< END OBJECT: BaseClass="oleboundcontrol" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ActivePage = 2, ; - Anchor = 0, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ErasePage = .T., ; - Height = (117), ; - HelpContextID = 0, ; - Left = (24), ; - MemberClass = "cl_page", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Pageframe1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PageCount = 3, ; - RightToLeft = .F., ; - StatusBarText = "", ; - TabOrientation = 0, ; - Tabs = .T., ; - TabStop = .T., ; - TabStretch = 1, ; - TabStyle = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = (280), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (256), ; - Cl_page1.BackColor = 240,240,240, ; - Cl_page1.Caption = "Página 1", ; - Cl_page1.ColorSource = 4, ; - Cl_page1.Comment = "", ; - Cl_page1.DragIcon = ..\..\, ; - Cl_page1.DragMode = 0, ; - Cl_page1.Enabled = .T., ; - Cl_page1.FontBold = .F., ; - Cl_page1.FontCharSet = 0, ; - Cl_page1.FontCondense = .F., ; - Cl_page1.FontExtend = .F., ; - Cl_page1.FontItalic = .F., ; - Cl_page1.FontName = "Arial", ; - Cl_page1.FontOutline = .F., ; - Cl_page1.FontShadow = .F., ; - Cl_page1.FontSize = 8, ; - Cl_page1.FontStrikethru = .F., ; - Cl_page1.FontUnderline = .F., ; - Cl_page1.ForeColor = 0,0,0, ; - Cl_page1.HelpContextID = 0, ; - Cl_page1.MouseIcon = ..\..\, ; - Cl_page1.MousePointer = 0, ; - Cl_page1.Name = "Cl_page1", ; - Cl_page1.OLEDragMode = 0, ; - Cl_page1.OLEDragPicture = ..\..\, ; - Cl_page1.OLEDropEffects = 3, ; - Cl_page1.OLEDropMode = 0, ; - Cl_page1.PageOrder = 1, ; - Cl_page1.Picture = ..\..\, ; - Cl_page1.StatusBarText = "", ; - Cl_page1.Tag = "", ; - Cl_page1.ToolTipText = "", ; - Cl_page1.WhatsThisHelpID = -1, ; - Cl_page2.Caption = "Página 2", ; - Cl_page2.Name = "Cl_page2", ; - Cl_page2.PageOrder = 2, ; - Cl_page3.Caption = "Página 3", ; - Cl_page3.Name = "Cl_page3", ; - Cl_page3.PageOrder = 3 - *< END OBJECT: BaseClass="pageframe" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_form_aa.sc2 b/TESTS/DATOS_READONLY/f_form_aa.sc2 deleted file mode 100644 index 699fcbd..0000000 --- a/TESTS/DATOS_READONLY/f_form_aa.sc2 +++ /dev/null @@ -1,2843 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" /> - - DataSource = .NULL. - Name = "Dataenvironment" - TabStop = .F. - Visible = .F. - -ENDDEFINE - -DEFINE CLASS f_form_aa AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_grid1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_grid1.Column6.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.checkbox" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.collection" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.combobox" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.commandgroup" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.commandbutton" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.container" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.control" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.editbox" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.hyperlink" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.image" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.label" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.line" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.listbox" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.optiongroup" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.option" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.spinner" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.textbox" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.timer" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="pgf.Page1.Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> - - * - *m: add_control - *m: run_tests - *p: l_activated - *p: n_controles_count - *p: valor - *a: a_controles[1,0] - * - - AllowOutput = .T. - AlwaysOnBottom = .F. - AlwaysOnTop = .T. - AutoCenter = .F. - BackColor = 192,192,192 - BindControls = .T. - BorderStyle = 3 - BufferMode = 0 - Caption = "AllControls_Test" - ClipControls = .T. - Closable = .T. - ColorSource = 4 - Comment = "" - ContinuousScroll = .T. - ControlBox = .T. - c_testname = AllControls_Test - DataSession = 2 - DEClass = "cl_dataenvironment" - DEClassLibrary = lib_controles.vcx - DefHeight = - DefLeft = - DefOleLCID = 0 - DefTop = - DefWidth = - Desktop = .F. - Dockable = 0 - DoCreate = .T. - DrawMode = 13 - DrawStyle = 0 - DrawWidth = 1 - Enabled = .T. - FillColor = 0,0,0 - FillStyle = 1 - FontBold = .F. - FontCharSet = 0 - FontCondense = .F. - FontExtend = .F. - FontItalic = .F. - FontName = "Arial" - FontOutline = .F. - FontShadow = .F. - FontSize = 9 - FontStrikethru = .F. - FontUnderline = .F. - ForeColor = 0,0,0 - HalfHeightCaption = .F. - Height = (460) - HelpContextID = 0 - HScrollSmallChange = 10 - Icon = bmps\container.ico - KeyPreview = .F. - Left = (2) - LockScreen = .F. - l_activated = .F. - MacDesktop = 0 - MaxButton = .T. - MaxHeight = -1 - MaxLeft = -1 - MaxTop = -1 - MaxWidth = -1 - MDIForm = .F. - MinButton = .T. - MinHeight = -1 - MinWidth = -1 - MouseIcon = ..\..\ - MousePointer = 0 - Movable = .T. - Name = "f_form_aa" - n_controles_count = 0 - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - Picture = bmps\fondogris.bmp - RightToLeft = .F. - ScaleMode = 3 - ScrollBars = 3 - ShowInTaskBar = .T. - ShowTips = .F. - ShowWindow = 0 - SizeBox = .F. - TabIndex = 1 - TabStop = .T. - Tag = "" - Themes = .T. - TitleBar = 1 - Top = (4) - valor = .F. - Visible = .T. - VScrollSmallChange = 10 - WhatsThisButton = .F. - WhatsThisHelp = .F. - WhatsThisHelpID = -1 - Width = (998) - WindowState = 0 - WindowType = 0 - ZoomBox = .F. - Edit1.Height = 144 - Edit1.Left = 764 - Edit1.Name = "Edit1" - Edit1.RightToLeft = .F. - Edit1.Top = 32 - Edit1.Width = 212 - Label3.BackColor = 128,255,128 - Label3.Height = 17 - Label3.Left = 764 - Label3.Name = "Label3" - Label3.RightToLeft = .F. - Label3.Top = 8 - Label3.Width = 212 - cmdCapturar.Height = 27 - cmdCapturar.Left = 764 - cmdCapturar.Name = "cmdCapturar" - cmdCapturar.RightToLeft = .F. - cmdCapturar.Top = 392 - cmdCapturar.Width = 212 - Label1.BackColor = 128,255,128 - Label1.Caption = "CONTROLES" - Label1.Height = 17 - Label1.Left = 12 - Label1.Name = "Label1" - Label1.RightToLeft = .F. - Label1.Top = 8 - Label1.Width = 268 - Label2.BackColor = 128,255,128 - Label2.Caption = "TESTS" - Label2.Height = 17 - Label2.Left = 296 - Label2.Name = "Label2" - Label2.RightToLeft = .F. - Label2.Top = 8 - Label2.Width = 460 - - ADD OBJECT 'Cl_grid1' AS cl_grid WITH ; - AllowAddNew = .F., ; - AllowAutoColumnFit = 0, ; - AllowCellSelection = .T., ; - AllowHeaderSizing = .F., ; - AllowRowSizing = .F., ; - Anchor = 0, ; - BackColor = 255,255,217, ; - ChildOrder = "", ; - ColumnCount = 6, ; - Comment = "", ; - DeleteMark = .F., ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 9, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - GridLineColor = 0,0,0, ; - GridLines = 3, ; - GridLineWidth = 1, ; - HeaderHeight = 18, ; - Height = 424, ; - HelpContextID = 0, ; - Highlight = .T., ; - HighlightBackColor = 51,153,255, ; - HighlightForeColor = 255,255,255, ; - HighlightRow = .T., ; - HighlightRowLineWidth = 1, ; - HighlightStyle = 0, ; - Left = 296, ; - LinkMaster = "", ; - LockColumns = 0, ; - LockColumnsLeft = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_grid1", ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Optimize = .F., ; - Panel = 1, ; - PanelLink = .T., ; - Partition = 0, ; - ReadOnly = .F., ; - RecordMark = .T., ; - RecordSource = "C_TESTS", ; - RecordSourceType = 1, ; - RelationalExpr = "", ; - RightToLeft = .F., ; - RowHeight = 18, ; - ScrollBars = 2, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SplitBar = .F., ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 32, ; - Value = 0, ; - View = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 460, ; - COLUMN1.Alignment = 3, ; - COLUMN1.BackColor = 255,255,217, ; - COLUMN1.Bound = .T., ; - COLUMN1.ColumnOrder = 1, ; - COLUMN1.Comment = "", ; - COLUMN1.ControlSource = "c_ctlname", ; - COLUMN1.CurrentControl = "Text1", ; - COLUMN1.DynamicAlignment = "", ; - COLUMN1.DynamicBackColor = "", ; - COLUMN1.DynamicCurrentControl = "", ; - COLUMN1.DynamicFontBold = "", ; - COLUMN1.DynamicFontItalic = "", ; - COLUMN1.DynamicFontName = "", ; - COLUMN1.DynamicFontOutline = "", ; - COLUMN1.DynamicFontShadow = "", ; - COLUMN1.DynamicFontSize = "", ; - COLUMN1.DynamicFontStrikethru = "", ; - COLUMN1.DynamicFontUnderline = "", ; - COLUMN1.DynamicForeColor = "", ; - COLUMN1.DynamicInputMask = "", ; - COLUMN1.Enabled = .T., ; - COLUMN1.FontBold = .F., ; - COLUMN1.FontCharSet = 0, ; - COLUMN1.FontCondense = .F., ; - COLUMN1.FontExtend = .F., ; - COLUMN1.FontItalic = .F., ; - COLUMN1.FontName = "Arial", ; - COLUMN1.FontOutline = .F., ; - COLUMN1.FontShadow = .F., ; - COLUMN1.FontSize = 9, ; - COLUMN1.FontStrikethru = .F., ; - COLUMN1.FontUnderline = .F., ; - COLUMN1.ForeColor = 0,0,0, ; - COLUMN1.Format = "", ; - COLUMN1.Header1.Alignment = 0, ; - COLUMN1.Header1.BackColor = 240,240,240, ; - COLUMN1.Header1.Caption = "Control", ; - COLUMN1.Header1.Comment = "", ; - COLUMN1.Header1.FontBold = .F., ; - COLUMN1.Header1.FontCharSet = 0, ; - COLUMN1.Header1.FontCondense = .F., ; - COLUMN1.Header1.FontExtend = .F., ; - COLUMN1.Header1.FontItalic = .F., ; - COLUMN1.Header1.FontName = "Arial", ; - COLUMN1.Header1.FontOutline = .F., ; - COLUMN1.Header1.FontShadow = .F., ; - COLUMN1.Header1.FontSize = 9, ; - COLUMN1.Header1.FontStrikethru = .F., ; - COLUMN1.Header1.FontUnderline = .F., ; - COLUMN1.Header1.ForeColor = 0,0,0, ; - COLUMN1.Header1.MouseIcon = ..\..\, ; - COLUMN1.Header1.MousePointer = 0, ; - COLUMN1.Header1.Name = "Header1", ; - COLUMN1.Header1.Picture = ..\..\, ; - COLUMN1.Header1.StatusBarText = "", ; - COLUMN1.Header1.Tag = "", ; - COLUMN1.Header1.ToolTipText = "", ; - COLUMN1.Header1.WordWrap = .F., ; - COLUMN1.InputMask = "", ; - COLUMN1.MouseIcon = ..\..\, ; - COLUMN1.MousePointer = 0, ; - COLUMN1.Movable = .T., ; - COLUMN1.Name = "COLUMN1", ; - COLUMN1.ReadOnly = .F., ; - COLUMN1.Resizable = .T., ; - COLUMN1.SelectOnEntry = .T., ; - COLUMN1.Sparse = .T., ; - COLUMN1.StatusBarText = "", ; - COLUMN1.Tag = "", ; - COLUMN1.Text1.Alignment = 3, ; - COLUMN1.Text1.Anchor = 0, ; - COLUMN1.Text1.AutoComplete = 0, ; - COLUMN1.Text1.AutoCompSource = "", ; - COLUMN1.Text1.AutoCompTable = "", ; - COLUMN1.Text1.BackColor = 255,255,217, ; - COLUMN1.Text1.BackStyle = 1, ; - COLUMN1.Text1.BorderColor = 100,100,100, ; - COLUMN1.Text1.BorderStyle = 0, ; - COLUMN1.Text1.Century = 1, ; - COLUMN1.Text1.ColorScheme = 1, ; - COLUMN1.Text1.ColorSource = 4, ; - COLUMN1.Text1.Comment = "", ; - COLUMN1.Text1.DateFormat = 0, ; - COLUMN1.Text1.DateMark = "", ; - COLUMN1.Text1.DisabledBackColor = 255,255,255, ; - COLUMN1.Text1.DisabledForeColor = 109,109,109, ; - COLUMN1.Text1.DragIcon = ..\..\, ; - COLUMN1.Text1.DragMode = 0, ; - COLUMN1.Text1.Enabled = .T., ; - COLUMN1.Text1.EnableHyperlinks = .F., ; - COLUMN1.Text1.FontBold = .F., ; - COLUMN1.Text1.FontCharSet = 0, ; - COLUMN1.Text1.FontCondense = .F., ; - COLUMN1.Text1.FontExtend = .F., ; - COLUMN1.Text1.FontItalic = .F., ; - COLUMN1.Text1.FontName = "Arial", ; - COLUMN1.Text1.FontOutline = .F., ; - COLUMN1.Text1.FontShadow = .F., ; - COLUMN1.Text1.FontSize = 9, ; - COLUMN1.Text1.FontStrikethru = .F., ; - COLUMN1.Text1.FontUnderline = .F., ; - COLUMN1.Text1.ForeColor = 0,0,0, ; - COLUMN1.Text1.Format = "", ; - COLUMN1.Text1.HelpContextID = 0, ; - COLUMN1.Text1.HideSelection = .T., ; - COLUMN1.Text1.Hours = 0, ; - COLUMN1.Text1.IMEMode = 0, ; - COLUMN1.Text1.InputMask = "", ; - COLUMN1.Text1.IntegralHeight = .F., ; - COLUMN1.Text1.MemoWindow = "", ; - COLUMN1.Text1.MouseIcon = ..\..\, ; - COLUMN1.Text1.MousePointer = 0, ; - COLUMN1.Text1.Name = "Text1", ; - COLUMN1.Text1.NullDisplay = "", ; - COLUMN1.Text1.OLEDragMode = 0, ; - COLUMN1.Text1.OLEDragPicture = ..\..\, ; - COLUMN1.Text1.OLEDropEffects = 3, ; - COLUMN1.Text1.OLEDropMode = 0, ; - COLUMN1.Text1.OLEDropTextInsertion = 0, ; - COLUMN1.Text1.OpenWindow = .F., ; - COLUMN1.Text1.PasswordChar = "", ; - COLUMN1.Text1.ReadOnly = .F., ; - COLUMN1.Text1.RightToLeft = .F., ; - COLUMN1.Text1.Seconds = 2, ; - COLUMN1.Text1.SelectedBackColor = 51,153,255, ; - COLUMN1.Text1.SelectedForeColor = 255,255,255, ; - COLUMN1.Text1.SelectOnEntry = .F., ; - COLUMN1.Text1.SpecialEffect = 0, ; - COLUMN1.Text1.StatusBarText = "", ; - COLUMN1.Text1.StrictDateEntry = 1, ; - COLUMN1.Text1.Style = 0, ; - COLUMN1.Text1.TabIndex = 1, ; - COLUMN1.Text1.TabStop = .T., ; - COLUMN1.Text1.Tag = "", ; - COLUMN1.Text1.TerminateRead = .F., ; - COLUMN1.Text1.Themes = .T., ; - COLUMN1.Text1.ToolTipText = "", ; - COLUMN1.Text1.Value = , ; - COLUMN1.Text1.Visible = .T., ; - COLUMN1.ToolTipText = "", ; - COLUMN1.Visible = .T., ; - COLUMN1.Width = 170, ; - COLUMN2.Alignment = 2, ; - COLUMN2.BackColor = 255,255,217, ; - COLUMN2.ControlSource = "c_Access", ; - COLUMN2.DynamicBackColor = 'ICASE( c_access="S", RGB(0,255,0), c_access="N", RGB(255,0,0), RGB(255,255,255) )', ; - COLUMN2.DynamicForeColor = 'ICASE( c_access="N", RGB(255,255,255), RGB(0,0,0) )', ; - COLUMN2.Enabled = .T., ; - COLUMN2.FontBold = .F., ; - COLUMN2.FontCharSet = 0, ; - COLUMN2.FontCondense = .F., ; - COLUMN2.FontExtend = .F., ; - COLUMN2.FontItalic = .F., ; - COLUMN2.FontName = "Arial", ; - COLUMN2.FontOutline = .F., ; - COLUMN2.FontShadow = .F., ; - COLUMN2.FontSize = 9, ; - COLUMN2.FontStrikethru = .F., ; - COLUMN2.FontUnderline = .F., ; - COLUMN2.ForeColor = 0,0,0, ; - COLUMN2.Header1.Alignment = 2, ; - COLUMN2.Header1.BackColor = 240,240,240, ; - COLUMN2.Header1.Caption = "Access", ; - COLUMN2.Header1.FontBold = .F., ; - COLUMN2.Header1.FontCharSet = 0, ; - COLUMN2.Header1.FontCondense = .F., ; - COLUMN2.Header1.FontExtend = .F., ; - COLUMN2.Header1.FontItalic = .F., ; - COLUMN2.Header1.FontName = "Arial", ; - COLUMN2.Header1.FontOutline = .F., ; - COLUMN2.Header1.FontShadow = .F., ; - COLUMN2.Header1.FontSize = 9, ; - COLUMN2.Header1.FontStrikethru = .F., ; - COLUMN2.Header1.FontUnderline = .F., ; - COLUMN2.Header1.Name = "Header1", ; - COLUMN2.Name = "COLUMN2", ; - COLUMN2.ReadOnly = .F., ; - COLUMN2.Text1.Alignment = 2, ; - COLUMN2.Text1.BackColor = 255,255,217, ; - COLUMN2.Text1.Enabled = .T., ; - COLUMN2.Text1.FontBold = .F., ; - COLUMN2.Text1.FontCharSet = 0, ; - COLUMN2.Text1.FontCondense = .F., ; - COLUMN2.Text1.FontExtend = .F., ; - COLUMN2.Text1.FontItalic = .F., ; - COLUMN2.Text1.FontName = "Arial", ; - COLUMN2.Text1.FontOutline = .F., ; - COLUMN2.Text1.FontShadow = .F., ; - COLUMN2.Text1.FontSize = 9, ; - COLUMN2.Text1.FontStrikethru = .F., ; - COLUMN2.Text1.FontUnderline = .F., ; - COLUMN2.Text1.ForeColor = 0,0,0, ; - COLUMN2.Text1.Name = "Text1", ; - COLUMN2.Text1.ReadOnly = .F., ; - COLUMN2.Text1.RightToLeft = .F., ; - COLUMN2.Text1.Visible = .T., ; - COLUMN2.Visible = .T., ; - COLUMN2.Width = 50, ; - COLUMN3.Alignment = 2, ; - COLUMN3.BackColor = 255,255,217, ; - COLUMN3.ControlSource = "c_Assign", ; - COLUMN3.DynamicBackColor = 'ICASE( c_assign="S", RGB(0,255,0), c_assign="N", RGB(255,0,0), RGB(255,255,255) )', ; - COLUMN3.DynamicForeColor = 'ICASE( c_assign="N", RGB(255,255,255), RGB(0,0,0) )', ; - COLUMN3.Enabled = .T., ; - COLUMN3.FontBold = .F., ; - COLUMN3.FontCharSet = 0, ; - COLUMN3.FontCondense = .F., ; - COLUMN3.FontExtend = .F., ; - COLUMN3.FontItalic = .F., ; - COLUMN3.FontName = "Arial", ; - COLUMN3.FontOutline = .F., ; - COLUMN3.FontShadow = .F., ; - COLUMN3.FontSize = 9, ; - COLUMN3.FontStrikethru = .F., ; - COLUMN3.FontUnderline = .F., ; - COLUMN3.ForeColor = 0,0,0, ; - COLUMN3.Header1.Alignment = 2, ; - COLUMN3.Header1.Caption = "Assign", ; - COLUMN3.Header1.FontBold = .F., ; - COLUMN3.Header1.FontCharSet = 0, ; - COLUMN3.Header1.FontCondense = .F., ; - COLUMN3.Header1.FontExtend = .F., ; - COLUMN3.Header1.FontItalic = .F., ; - COLUMN3.Header1.FontName = "Arial", ; - COLUMN3.Header1.FontOutline = .F., ; - COLUMN3.Header1.FontShadow = .F., ; - COLUMN3.Header1.FontSize = 9, ; - COLUMN3.Header1.FontStrikethru = .F., ; - COLUMN3.Header1.FontUnderline = .F., ; - COLUMN3.Header1.Name = "Header1", ; - COLUMN3.Name = "COLUMN3", ; - COLUMN3.ReadOnly = .F., ; - COLUMN3.Text1.Alignment = 2, ; - COLUMN3.Text1.BackColor = 255,255,217, ; - COLUMN3.Text1.Enabled = .T., ; - COLUMN3.Text1.FontBold = .F., ; - COLUMN3.Text1.FontCharSet = 0, ; - COLUMN3.Text1.FontCondense = .F., ; - COLUMN3.Text1.FontExtend = .F., ; - COLUMN3.Text1.FontItalic = .F., ; - COLUMN3.Text1.FontName = "Arial", ; - COLUMN3.Text1.FontOutline = .F., ; - COLUMN3.Text1.FontShadow = .F., ; - COLUMN3.Text1.FontSize = 9, ; - COLUMN3.Text1.FontStrikethru = .F., ; - COLUMN3.Text1.FontUnderline = .F., ; - COLUMN3.Text1.ForeColor = 0,0,0, ; - COLUMN3.Text1.Name = "Text1", ; - COLUMN3.Text1.ReadOnly = .F., ; - COLUMN3.Text1.RightToLeft = .F., ; - COLUMN3.Text1.Visible = .T., ; - COLUMN3.Visible = .T., ; - COLUMN3.Width = 50, ; - COLUMN4.Alignment = 2, ; - COLUMN4.BackColor = 255,255,217, ; - COLUMN4.ControlSource = "c_Value", ; - COLUMN4.DynamicBackColor = 'ICASE( c_value="S", RGB(0,255,0), c_value="N", RGB(255,0,0), RGB(255,255,255) )', ; - COLUMN4.DynamicForeColor = 'ICASE( c_value="N", RGB(255,255,255), RGB(0,0,0) )', ; - COLUMN4.Enabled = .T., ; - COLUMN4.FontBold = .F., ; - COLUMN4.FontCharSet = 0, ; - COLUMN4.FontCondense = .F., ; - COLUMN4.FontExtend = .F., ; - COLUMN4.FontItalic = .F., ; - COLUMN4.FontName = "Arial", ; - COLUMN4.FontOutline = .F., ; - COLUMN4.FontShadow = .F., ; - COLUMN4.FontSize = 9, ; - COLUMN4.FontStrikethru = .F., ; - COLUMN4.FontUnderline = .F., ; - COLUMN4.ForeColor = 0,0,0, ; - COLUMN4.Header1.Alignment = 2, ; - COLUMN4.Header1.Caption = "Value/Act", ; - COLUMN4.Header1.FontBold = .F., ; - COLUMN4.Header1.FontCharSet = 0, ; - COLUMN4.Header1.FontCondense = .F., ; - COLUMN4.Header1.FontExtend = .F., ; - COLUMN4.Header1.FontItalic = .F., ; - COLUMN4.Header1.FontName = "Arial", ; - COLUMN4.Header1.FontOutline = .F., ; - COLUMN4.Header1.FontShadow = .F., ; - COLUMN4.Header1.FontSize = 9, ; - COLUMN4.Header1.FontStrikethru = .F., ; - COLUMN4.Header1.FontUnderline = .F., ; - COLUMN4.Header1.Name = "Header1", ; - COLUMN4.Name = "COLUMN4", ; - COLUMN4.ReadOnly = .F., ; - COLUMN4.Text1.Alignment = 2, ; - COLUMN4.Text1.BackColor = 255,255,217, ; - COLUMN4.Text1.Enabled = .T., ; - COLUMN4.Text1.FontBold = .F., ; - COLUMN4.Text1.FontCharSet = 0, ; - COLUMN4.Text1.FontCondense = .F., ; - COLUMN4.Text1.FontExtend = .F., ; - COLUMN4.Text1.FontItalic = .F., ; - COLUMN4.Text1.FontName = "Arial", ; - COLUMN4.Text1.FontOutline = .F., ; - COLUMN4.Text1.FontShadow = .F., ; - COLUMN4.Text1.FontSize = 9, ; - COLUMN4.Text1.FontStrikethru = .F., ; - COLUMN4.Text1.FontUnderline = .F., ; - COLUMN4.Text1.ForeColor = 0,0,0, ; - COLUMN4.Text1.Name = "Text1", ; - COLUMN4.Text1.ReadOnly = .F., ; - COLUMN4.Text1.RightToLeft = .F., ; - COLUMN4.Text1.Visible = .T., ; - COLUMN4.Visible = .T., ; - COLUMN4.Width = 50, ; - COLUMN5.Alignment = 2, ; - COLUMN5.BackColor = 255,255,217, ; - COLUMN5.ControlSource = "c_ProgrChg", ; - COLUMN5.DynamicBackColor = 'ICASE( c_ProgrChg="S", RGB(0,255,0), c_ProgrChg="N", RGB(255,0,0), RGB(255,255,255) )', ; - COLUMN5.DynamicForeColor = 'ICASE( c_ProgrChg="N", RGB(255,255,255), RGB(0,0,0) )', ; - COLUMN5.Enabled = .T., ; - COLUMN5.FontBold = .F., ; - COLUMN5.FontCharSet = 0, ; - COLUMN5.FontCondense = .F., ; - COLUMN5.FontExtend = .F., ; - COLUMN5.FontItalic = .F., ; - COLUMN5.FontName = "Arial", ; - COLUMN5.FontOutline = .F., ; - COLUMN5.FontShadow = .F., ; - COLUMN5.FontSize = 9, ; - COLUMN5.FontStrikethru = .F., ; - COLUMN5.FontUnderline = .F., ; - COLUMN5.ForeColor = 0,0,0, ; - COLUMN5.Header1.Alignment = 2, ; - COLUMN5.Header1.Caption = "Prg.Chg", ; - COLUMN5.Header1.FontBold = .F., ; - COLUMN5.Header1.FontCharSet = 0, ; - COLUMN5.Header1.FontCondense = .F., ; - COLUMN5.Header1.FontExtend = .F., ; - COLUMN5.Header1.FontItalic = .F., ; - COLUMN5.Header1.FontName = "Arial", ; - COLUMN5.Header1.FontOutline = .F., ; - COLUMN5.Header1.FontShadow = .F., ; - COLUMN5.Header1.FontSize = 9, ; - COLUMN5.Header1.FontStrikethru = .F., ; - COLUMN5.Header1.FontUnderline = .F., ; - COLUMN5.Header1.Name = "Header1", ; - COLUMN5.Name = "COLUMN5", ; - COLUMN5.ReadOnly = .F., ; - COLUMN5.Text1.Alignment = 2, ; - COLUMN5.Text1.BackColor = 255,255,217, ; - COLUMN5.Text1.Enabled = .T., ; - COLUMN5.Text1.FontBold = .F., ; - COLUMN5.Text1.FontCharSet = 0, ; - COLUMN5.Text1.FontCondense = .F., ; - COLUMN5.Text1.FontExtend = .F., ; - COLUMN5.Text1.FontItalic = .F., ; - COLUMN5.Text1.FontName = "Arial", ; - COLUMN5.Text1.FontOutline = .F., ; - COLUMN5.Text1.FontShadow = .F., ; - COLUMN5.Text1.FontSize = 9, ; - COLUMN5.Text1.FontStrikethru = .F., ; - COLUMN5.Text1.FontUnderline = .F., ; - COLUMN5.Text1.ForeColor = 0,0,0, ; - COLUMN5.Text1.Name = "Text1", ; - COLUMN5.Text1.ReadOnly = .F., ; - COLUMN5.Text1.RightToLeft = .F., ; - COLUMN5.Text1.Visible = .T., ; - COLUMN5.Visible = .T., ; - COLUMN5.Width = 50, ; - Column6.Alignment = 2, ; - Column6.BackColor = 255,255,217, ; - Column6.ControlSource = "c_UI", ; - Column6.DynamicBackColor = 'ICASE( c_UI="S", RGB(0,255,0), c_UI="N", RGB(255,0,0), RGB(255,255,255) )', ; - Column6.DynamicForeColor = 'ICASE( c_UI="N", RGB(255,255,255), RGB(0,0,0) )', ; - Column6.Enabled = .T., ; - Column6.FontBold = .F., ; - Column6.FontCharSet = 0, ; - Column6.FontCondense = .F., ; - Column6.FontExtend = .F., ; - Column6.FontItalic = .F., ; - Column6.FontName = "Arial", ; - Column6.FontOutline = .F., ; - Column6.FontShadow = .F., ; - Column6.FontSize = 9, ; - Column6.FontStrikethru = .F., ; - Column6.FontUnderline = .F., ; - Column6.ForeColor = 0,0,0, ; - Column6.Name = "Column6", ; - Column6.ReadOnly = .F., ; - Column6.Visible = .T., ; - Column6.Width = 50 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" /> - - ADD OBJECT 'Cl_grid1.Column6.Header1' AS header WITH ; - Alignment = 2, ; - Caption = "UI", ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'Cl_grid1.Column6.Text1' AS textbox WITH ; - Alignment = 2, ; - BackColor = 255,255,217, ; - BorderStyle = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - RightToLeft = .F., ; - Visible = .T. - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Cl_image1' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 255,0,0, ; - BorderStyle = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 104, ; - HelpContextID = 0, ; - Left = 764, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\vfpxlogo.bmp, ; - RotateFlip = 0, ; - StatusBarText = "", ; - Stretch = 0, ; - Tag = "", ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 284, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 212, ; - ZOrderSet = 0 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Image1' AS image WITH ; - BorderColor = 255,0,0, ; - BorderStyle = 1, ; - Enabled = .T., ; - Height = 104, ; - Left = 764, ; - Name = "Image1", ; - Picture = bmps\vfpxlogo.bmp, ; - Top = 180, ; - Width = 212 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'pgf' AS cl_pageframe WITH ; - ActivePage = 2, ; - Anchor = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ErasePage = .T., ; - Height = 384, ; - HelpContextID = 0, ; - Left = 12, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "pgf", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PageCount = 2, ; - RightToLeft = .F., ; - StatusBarText = "", ; - TabIndex = 7, ; - TabOrientation = 1, ; - Tabs = .T., ; - TabStop = .T., ; - TabStretch = 1, ; - TabStyle = 0, ; - Tag = "", ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 28, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 268, ; - Page1.BackColor = 240,240,240, ; - Page1.Caption = "Page1", ; - Page1.ColorSource = 4, ; - Page1.Comment = "Sin comentarios", ; - Page1.DragIcon = ..\..\, ; - Page1.DragMode = 0, ; - Page1.Enabled = .T., ; - Page1.FontBold = .F., ; - Page1.FontCharSet = 0, ; - Page1.FontCondense = .F., ; - Page1.FontExtend = .F., ; - Page1.FontItalic = .F., ; - Page1.FontName = "Arial", ; - Page1.FontOutline = .F., ; - Page1.FontShadow = .F., ; - Page1.FontSize = 9, ; - Page1.FontStrikethru = .F., ; - Page1.FontUnderline = .F., ; - Page1.ForeColor = 0,0,0, ; - Page1.HelpContextID = 0, ; - Page1.MouseIcon = ..\..\, ; - Page1.MousePointer = 0, ; - Page1.Name = "Page1", ; - Page1.OLEDragMode = 0, ; - Page1.OLEDragPicture = ..\..\, ; - Page1.OLEDropEffects = 3, ; - Page1.OLEDropMode = 0, ; - Page1.PageOrder = 1, ; - Page1.Picture = ..\..\, ; - Page1.StatusBarText = "", ; - Page1.Tag = "", ; - Page1.ToolTipText = "", ; - Page1.WhatsThisHelpID = -1, ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2", ; - Page2.PageOrder = 2 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" /> - - ADD OBJECT 'pgf.Page1.checkbox' AS cl_checkbox WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - Caption = "Chk1", ; - Centered = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (21), ; - HelpContextID = 0, ; - Left = (7), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "checkbox", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\treeview.bmp, ; - PictureMargin = 0, ; - PicturePosition = 4, ; - PictureSpacing = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 1, ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (8), ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (199), ; - WordWrap = .F., ; - ZOrderSet = 1 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="checkbox" /> - - ADD OBJECT 'pgf.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (46), ; - HelpContextID = 0, ; - Left = 123, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_optiongroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 231, ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (112), ; - ZOrderSet = 20, ; - Option1.Alignment = 0, ; - Option1.Anchor = 0, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 192,192,192, ; - Option1.BackStyle = 1, ; - Option1.Caption = "Esta es la opc. 1", ; - Option1.ColorScheme = 1, ; - Option1.ColorSource = 4, ; - Option1.Comment = "", ; - Option1.ControlSource = "", ; - Option1.DisabledBackColor = 240,240,240, ; - Option1.DisabledForeColor = 109,109,109, ; - Option1.DisabledPicture = ..\..\, ; - Option1.DownPicture = ..\..\, ; - Option1.DragIcon = ..\..\, ; - Option1.DragMode = 0, ; - Option1.Enabled = .T., ; - Option1.FontBold = .F., ; - Option1.FontCondense = .F., ; - Option1.FontExtend = .F., ; - Option1.FontItalic = .F., ; - Option1.FontName = "Arial", ; - Option1.FontOutline = .F., ; - Option1.FontShadow = .F., ; - Option1.FontSize = 8, ; - Option1.FontStrikethru = .F., ; - Option1.FontUnderline = .F., ; - Option1.ForeColor = 0,0,0, ; - Option1.Height = 16, ; - Option1.HelpContextID = 0, ; - Option1.Left = 5, ; - Option1.MouseIcon = ..\..\, ; - Option1.MousePointer = 0, ; - Option1.Name = "Option1", ; - Option1.OLEDragMode = 0, ; - Option1.OLEDragPicture = ..\..\, ; - Option1.OLEDropEffects = 3, ; - Option1.OLEDropMode = 0, ; - Option1.Picture = bmps\scccheckout.bmp, ; - Option1.PictureMargin = 0, ; - Option1.PicturePosition = 4, ; - Option1.PictureSpacing = 0, ; - Option1.RightToLeft = .F., ; - Option1.SpecialEffect = 0, ; - Option1.StatusBarText = "", ; - Option1.Style = 0, ; - Option1.TabIndex = 1, ; - Option1.TabStop = .T., ; - Option1.Tag = "", ; - Option1.TerminateRead = .F., ; - Option1.Themes = .T., ; - Option1.ToolTipText = "", ; - Option1.Top = 5, ; - Option1.Value = 0, ; - Option1.Visible = .T., ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 98, ; - Option1.WordWrap = .F., ; - Option2.AutoSize = .F., ; - Option2.BackColor = 192,192,192, ; - Option2.Caption = "Esta es la opc. 2", ; - Option2.FontSize = 8, ; - Option2.Height = 16, ; - Option2.Left = 5, ; - Option2.Name = "Option2", ; - Option2.Picture = bmps\scccheckout.bmp, ; - Option2.PicturePosition = 4, ; - Option2.Style = 0, ; - Option2.Top = 24, ; - Option2.Value = 1, ; - Option2.Width = 102 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'pgf.Page1.collection' AS cl_collection WITH ; - Left = 218, ; - Name = "collection", ; - Top = 8 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" /> - - ADD OBJECT 'pgf.Page1.combobox' AS cl_combobox WITH ; - Alignment = 0, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 128,255,128, ; - BorderStyle = 1, ; - BoundColumn = 1, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 0, ; - ColumnLines = .T., ; - ColumnWidths = "", ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayCount = 0, ; - DisplayValue = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (20), ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IncrementalSearch = .T., ; - InputMask = "", ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = (7), ; - Margin = 0, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "combobox", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - Picture = bmps\treeview.bmp, ; - PictureSelectionDisplay = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (35), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (196), ; - ZOrderSet = 3 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="combobox" /> - - ADD OBJECT 'pgf.Page1.commandbutton' AS cl_commandbutton WITH ; - AutoSize = .F., ; - Caption = "Comando", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - FontSize = 8, ; - Height = (25), ; - Left = (99), ; - Name = "commandbutton", ; - Picture = bmps\treeview.bmp, ; - PicturePosition = 4, ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (63), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (80), ; - WordWrap = .F., ; - ZOrderSet = 5 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandbutton" /> - - ADD OBJECT 'pgf.Page1.commandgroup' AS cl_commandgroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (64), ; - HelpContextID = 0, ; - Left = (6), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "commandgroup", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 2, ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (60), ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (93), ; - ZOrderSet = 4, ; - Command1.Alignment = 2, ; - Command1.Anchor = 0, ; - Command1.AutoSize = .F., ; - Command1.BackColor = 192,192,192, ; - Command1.Cancel = .F., ; - Command1.Caption = "Comando1", ; - Command1.ColorScheme = 1, ; - Command1.ColorSource = 4, ; - Command1.Comment = "", ; - Command1.Default = .F., ; - Command1.DisabledBackColor = 240,240,240, ; - Command1.DisabledForeColor = 109,109,109, ; - Command1.DisabledPicture = ..\..\, ; - Command1.DownPicture = ..\..\, ; - Command1.DragIcon = ..\..\, ; - Command1.DragMode = 0, ; - Command1.Enabled = .T., ; - Command1.FontBold = .F., ; - Command1.FontCharSet = 0, ; - Command1.FontCondense = .F., ; - Command1.FontExtend = .F., ; - Command1.FontItalic = .F., ; - Command1.FontName = "Arial", ; - Command1.FontOutline = .F., ; - Command1.FontShadow = .F., ; - Command1.FontSize = 8, ; - Command1.FontStrikethru = .F., ; - Command1.FontUnderline = .F., ; - Command1.ForeColor = 0,0,0, ; - Command1.Height = 25, ; - Command1.HelpContextID = 0, ; - Command1.Left = 1, ; - Command1.MouseIcon = ..\..\, ; - Command1.MousePointer = 0, ; - Command1.Name = "Command1", ; - Command1.OLEDragMode = 0, ; - Command1.OLEDragPicture = ..\..\, ; - Command1.OLEDropEffects = 3, ; - Command1.OLEDropMode = 0, ; - Command1.Picture = bmps\sobrepostal.bmp, ; - Command1.PictureMargin = 0, ; - Command1.PicturePosition = 4, ; - Command1.PictureSpacing = 0, ; - Command1.RightToLeft = .F., ; - Command1.SpecialEffect = 0, ; - Command1.StatusBarText = "", ; - Command1.Style = 0, ; - Command1.TabIndex = 1, ; - Command1.TabStop = .T., ; - Command1.Tag = "", ; - Command1.TerminateRead = .F., ; - Command1.Themes = .T., ; - Command1.ToolTipText = "", ; - Command1.Top = 4, ; - Command1.Visible = .T., ; - Command1.WhatsThisHelpID = -1, ; - Command1.Width = 90, ; - Command1.WordWrap = .F., ; - Command2.AutoSize = .F., ; - Command2.BackColor = 192,192,192, ; - Command2.Caption = "Comando2", ; - Command2.FontSize = 8, ; - Command2.Height = 25, ; - Command2.Left = 1, ; - Command2.Name = "Command2", ; - Command2.Picture = bmps\sobrepostal.bmp, ; - Command2.PicturePosition = 4, ; - Command2.Top = 32, ; - Command2.Width = 90 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'pgf.Page1.container' AS cl_container WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ForeColor = 0,0,0, ; - Height = (24), ; - HelpContextID = 0, ; - Left = (227), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "container", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - SpecialEffect = 2, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 4, ; - TabStop = .T., ; - Tag = "", ; - test_aa = .F., ; - ToolTipText = "", ; - Top = (127), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (20), ; - ZOrderSet = 6 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="container" /> - - ADD OBJECT 'pgf.Page1.control' AS cl_control WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ForeColor = 0,0,0, ; - Height = (24), ; - HelpContextID = 0, ; - Left = (199), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "control", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - SpecialEffect = 2, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 5, ; - TabStop = .T., ; - Tag = "", ; - test_aa = .F., ; - ToolTipText = "", ; - Top = (127), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (20), ; - ZOrderSet = 7 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="control" /> - - ADD OBJECT 'pgf.Page1.editbox' AS cl_editbox WITH ; - AddLineFeeds = .F., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 128,255,128, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (41), ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = (183), ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "editbox", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (60), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (68), ; - ZOrderSet = 8 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" /> - - ADD OBJECT 'pgf.Page1.hyperlink' AS cl_hyperlink WITH ; - Comment = "", ; - Left = 199, ; - Name = "hyperlink", ; - Tag = "", ; - test_aa = .F., ; - Top = 103 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" /> - - ADD OBJECT 'pgf.Page1.image' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = 16, ; - HelpContextID = 0, ; - Left = 231, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "image", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\scccheckout.bmp, ; - RotateFlip = 0, ; - StatusBarText = "", ; - Stretch = 0, ; - Tag = "", ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 107, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16, ; - ZOrderSet = 10 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'pgf.Page1.label' AS cl_label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (17), ; - HelpContextID = 0, ; - Left = (6), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "label", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 7, ; - Tag = "", ; - test_aa = .F., ; - ToolTipText = "", ; - Top = (136), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (104), ; - WordWrap = .F., ; - ZOrderSet = 11 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" /> - - ADD OBJECT 'pgf.Page1.line' AS cl_line WITH ; - Anchor = 0, ; - BorderColor = 255,0,0, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .T., ; - Height = (8), ; - HelpContextID = 0, ; - Left = (121), ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "line", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - test_aa = .F., ; - ToolTipText = "", ; - Top = (136), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (50), ; - ZOrderSet = 12 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" /> - - ADD OBJECT 'pgf.Page1.listbox' AS cl_listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 128,255,128, ; - BoundColumn = 1, ; - BoundTo = .F., ; - ColorScheme = 1, ; - ColorSource = 4, ; - ColumnCount = 0, ; - ColumnLines = .T., ; - ColumnWidths = "", ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 255,255,255, ; - DisabledForeColor = 109,109,109, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DisplayValue = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = (60), ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = (7), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "listbox", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 8, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (164), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (224), ; - ZOrderSet = 13 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" /> - - ADD OBJECT 'pgf.Page1.option' AS cl_option WITH ; - AutoSize = .F., ; - Caption = "Esta es la opción B", ; - DefHeight = , ; - DefWidth = , ; - FontSize = 8, ; - Height = (16), ; - Left = 11, ; - Name = "option", ; - Top = 283, ; - Width = (110), ; - ZOrderSet = 15 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" /> - - ADD OBJECT 'pgf.Page1.optiongroup' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (46), ; - HelpContextID = 0, ; - Left = (7), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "optiongroup", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (232), ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (112), ; - ZOrderSet = 14, ; - Option1.Alignment = 0, ; - Option1.Anchor = 0, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 192,192,192, ; - Option1.BackStyle = 1, ; - Option1.Caption = "Esta es la opc. 1", ; - Option1.ColorScheme = 1, ; - Option1.ColorSource = 4, ; - Option1.Comment = "", ; - Option1.ControlSource = "", ; - Option1.DisabledBackColor = 240,240,240, ; - Option1.DisabledForeColor = 109,109,109, ; - Option1.DisabledPicture = ..\..\, ; - Option1.DownPicture = ..\..\, ; - Option1.DragIcon = ..\..\, ; - Option1.DragMode = 0, ; - Option1.Enabled = .T., ; - Option1.FontBold = .F., ; - Option1.FontCondense = .F., ; - Option1.FontExtend = .F., ; - Option1.FontItalic = .F., ; - Option1.FontName = "Arial", ; - Option1.FontOutline = .F., ; - Option1.FontShadow = .F., ; - Option1.FontSize = 8, ; - Option1.FontStrikethru = .F., ; - Option1.FontUnderline = .F., ; - Option1.ForeColor = 0,0,0, ; - Option1.Height = 41, ; - Option1.HelpContextID = 0, ; - Option1.Left = 5, ; - Option1.MouseIcon = ..\..\, ; - Option1.MousePointer = 0, ; - Option1.Name = "Option1", ; - Option1.OLEDragMode = 0, ; - Option1.OLEDragPicture = ..\..\, ; - Option1.OLEDropEffects = 3, ; - Option1.OLEDropMode = 0, ; - Option1.Picture = bmps\scccheckout.bmp, ; - Option1.PictureMargin = 0, ; - Option1.PicturePosition = 4, ; - Option1.PictureSpacing = 0, ; - Option1.RightToLeft = .F., ; - Option1.SpecialEffect = 0, ; - Option1.StatusBarText = "", ; - Option1.Style = 1, ; - Option1.TabIndex = 1, ; - Option1.TabStop = .T., ; - Option1.Tag = "", ; - Option1.TerminateRead = .F., ; - Option1.Themes = .T., ; - Option1.ToolTipText = "", ; - Option1.Top = 5, ; - Option1.Value = 0, ; - Option1.Visible = .T., ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 112, ; - Option1.WordWrap = .F., ; - Option2.AutoSize = .F., ; - Option2.BackColor = 192,192,192, ; - Option2.Caption = "Esta es la opc. 2", ; - Option2.FontSize = 8, ; - Option2.Height = 16, ; - Option2.Left = 5, ; - Option2.Name = "Option2", ; - Option2.Picture = bmps\scccheckout.bmp, ; - Option2.PicturePosition = 4, ; - Option2.Style = 1, ; - Option2.Top = 24, ; - Option2.Value = 1, ; - Option2.Width = 103 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'pgf.Page1.Pageframe1' AS pageframe WITH ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - ErasePage = .T., ; - Height = (61), ; - Left = (135), ; - MemberClass = "cl_page", ; - MemberClassLibrary = lib_controles.vcx, ; - Name = "Pageframe1", ; - PageCount = 2, ; - TabOrientation = 2, ; - Themes = .F., ; - Top = (284), ; - Width = (117), ; - ZOrderSet = 19, ; - Cl_page1.Caption = "Pg1", ; - Cl_page1.Name = "Cl_page1", ; - Cl_page2.BackColor = 255,193,132, ; - Cl_page2.Caption = "Pg2", ; - Cl_page2.Name = "Cl_page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'pgf.Page1.spinner' AS cl_spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 128,255,128, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (19), ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 11, ; - Margin = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "spinner", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabIndex = 9, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 303, ; - Value = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (108), ; - ZOrderSet = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" /> - - ADD OBJECT 'pgf.Page1.textbox' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 128,255,128, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DefHeight = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (19), ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 11, ; - Margin = 0, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "textbox", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - test_aa = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 327, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (108), ; - ZOrderSet = 17 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'pgf.Page1.timer' AS cl_timer WITH ; - Comment = "", ; - DefHeight = , ; - DefWidth = , ; - Enabled = .T., ; - Height = (23), ; - Interval = 0, ; - Left = 235, ; - Name = "timer", ; - Tag = "", ; - test_aa = .F., ; - Top = 255, ; - Width = (23) - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" /> - - PROCEDURE Activate - IF NOT THISFORM.l_activated - THISFORM.run_tests() - THISFORM.l_activated = .T. - ENDIF - - ENDPROC - - PROCEDURE add_control - LPARAMETERS toControl - - LOCAL lcCtlPath - - WITH THISFORM - lcCtlPath = SYS(1272, toControl) - - INSERT INTO C_TESTS ; - ( c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg, c_UI ) ; - VALUES ; - ( SUBSTR( lcCtlPath, LEN(.NAME) + 2), 'N', 'N', 'N', 'N', 'N' ) - ENDWITH - - ENDPROC - - PROCEDURE Load - CREATE CURSOR C_TESTS ( c_CtlName C(30), c_Access C(1), c_Assign C(1), c_Value C(1), c_ProgrChg C(1), c_UI C(1) ) - INDEX ON c_CtlName TAG c_CtlName - - ENDPROC - - PROCEDURE run_tests - TRY - LOCAL loEx AS Exception, loCtl - - WITH THISFORM AS Form - *-- c_CtlName, c_Access, c_Assign, c_Value, c_ProgrChg - THISFORM.pgf.page1.SETALL( "Tag", "" ) - THISFORM.pgf.ActivePage = 1 - - SCAN - *-- Test UI Enable - loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) ) - DO CASE - CASE NOT PEMSTATUS(loCtl, 'UIEnable',5) - REPLACE c_UI WITH "-" - CASE loCtl.Tag = "UI" - REPLACE c_UI WITH "S" - ENDCASE - ENDSCAN - - SCAN - *-- Test Access - loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) ) - loCtl.Tag = '' - IF loCtl.test_aa = "ACCESS_OK" - REPLACE c_Access WITH "S" - ENDIF - ENDSCAN - - SCAN - *-- Test Assign - loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) ) - loCtl.Tag = '' - loCtl.test_aa = "ASSIGN_OK" - IF loCtl.Tag = "ASSIGN_OK" - REPLACE c_Assign WITH "S" - ENDIF - ENDSCAN - - SCAN - *-- Test Valor/Activate - loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) ) - - DO CASE - CASE loCtl.Baseclass == 'Checkbox' - .valor = 1 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Combobox' - .valor = 3 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Commandgroup' - .valor = 2 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Editbox' - .valor = 'Texto editable' - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Listbox' - .valor = 3 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Optiongroup' - .valor = 2 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Optionbutton' - .valor = 2 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Spinner' - .valor = 123 - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Textbox' - .valor = "Mi texto" - loCtl.ControlSource = 'THISFORM.valor' - IF loCtl.Value = .valor - REPLACE c_Value WITH "S" - ENDIF - loCtl.ControlSource = '' - - CASE loCtl.Baseclass == 'Page' - loCtl.Parent.ActivePage = 2 - IF loCtl.Tag = 'AC' - REPLACE c_Value WITH "S" - ENDIF - - OTHERWISE - REPLACE c_Value WITH "-" - - ENDCASE - ENDSCAN - - SCAN - *-- Test ProgrammaticChange - loCtl = EVALUATE( "." + ALLTRIM(c_CtlName) ) - .Tag = '' - DO CASE - CASE loCtl.Baseclass == 'Checkbox' - loCtl.Value = 0 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Combobox' - loCtl.Value = 1 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Commandgroup' - loCtl.Value = 1 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Editbox' - loCtl.Value = 'Editado!' - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Listbox' - loCtl.Value = 1 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Optiongroup' - loCtl.Value = 1 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Spinner' - loCtl.Value = 321 - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - CASE loCtl.Baseclass == 'Textbox' - loCtl.Value = 'Editado!' - IF NOT EMPTY(.tag) - REPLACE c_ProgrChg WITH "S" - ENDIF - - OTHERWISE - REPLACE c_ProgrChg WITH "-" - - ENDCASE - - ENDSCAN - ENDWITH - - - CATCH TO loEx - THISFORM.edit1.Value = 'Error ' + TRANSFORM(loEx.ErrorNo) + CHR(13) ; - + loEx.Message + CHR(13) ; - + loEx.Procedure + ', Line ' + TRANSFORM(loEx.LineNo) + CHR(13) ; - + loEx.Details - - FINALLY - IF USED("C_TESTS") - SELECT C_TESTS - GO TOP - ENDIF - - ENDTRY - - ENDPROC - - PROCEDURE pgf.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.checkbox.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.checkbox.ProgrammaticChange - THISFORM.Tag = 'PC' - - ENDPROC - - PROCEDURE pgf.Page1.checkbox.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.checkbox.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.checkbox.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.Cl_optiongroup1.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.Cl_optiongroup1.ProgrammaticChange - THISFORM.Tag = 'PC' - - - ENDPROC - - PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.Cl_optiongroup1.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.Cl_optiongroup1.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.collection.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.collection.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.collection.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.combobox.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.combobox.ProgrammaticChange - THISFORM.Tag = 'PC' - - ENDPROC - - PROCEDURE pgf.Page1.combobox.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.combobox.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.combobox.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.commandbutton.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.commandbutton.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.commandbutton.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.commandbutton.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.commandgroup.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.commandgroup.ProgrammaticChange - THISFORM.Tag = 'PC' - - ENDPROC - - PROCEDURE pgf.Page1.commandgroup.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.commandgroup.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.commandgroup.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.container.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.container.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.container.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.container.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.control.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.control.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.control.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.control.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.editbox.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.editbox.ProgrammaticChange - THISFORM.Tag = 'PC' - - ENDPROC - - PROCEDURE pgf.Page1.editbox.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.editbox.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.editbox.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.hyperlink.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.hyperlink.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.hyperlink.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.image.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.image.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.image.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.image.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.label.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.label.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.label.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.label.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.line.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.line.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.line.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.line.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.listbox.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.listbox.ProgrammaticChange - THISFORM.Tag = 'PC' - - - ENDPROC - - PROCEDURE pgf.Page1.listbox.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.listbox.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.listbox.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.option.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.option.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.option.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.option.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.optiongroup.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.optiongroup.ProgrammaticChange - THISFORM.Tag = 'PC' - - - ENDPROC - - PROCEDURE pgf.Page1.optiongroup.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.optiongroup.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.optiongroup.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Activate - THIS.Tag = 'AC' - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.Cl_page2.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.Cl_page2.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.Init - this.Cl_page2.Init() - - ENDPROC - - PROCEDURE pgf.Page1.Pageframe1.UIEnable - LPARAMETERS lEnable - - IF lEnable - THISFORM.pgf.Tag = 'UI' - ENDIF - - - ENDPROC - - PROCEDURE pgf.Page1.spinner.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.spinner.ProgrammaticChange - THISFORM.Tag = 'PC' - - - ENDPROC - - PROCEDURE pgf.Page1.spinner.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.spinner.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.spinner.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.textbox.Init - THISFORM.add_control( THIS ) - - ENDPROC - - PROCEDURE pgf.Page1.textbox.ProgrammaticChange - THISFORM.Tag = 'PC' - - ENDPROC - - PROCEDURE pgf.Page1.textbox.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.textbox.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.Page1.textbox.UIEnable - LPARAMETERS lEnable - - IF lEnable - THIS.Tag = 'UI' - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.timer.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.Page1.timer.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - - PROCEDURE pgf.test_aa_access - IF EMPTY(THIS.Tag) - RETURN "ACCESS_OK" - ELSE - RETURN THIS.Tag - ENDIF - - ENDPROC - - PROCEDURE pgf.test_aa_assign - LPARAMETERS vNewVal - - THIS.test_aa = m.vNewVal - THIS.Tag = EVL(m.vNewVal,'') - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_form_aa2.sc2 b/TESTS/DATOS_READONLY/f_form_aa2.sc2 deleted file mode 100644 index e175f1f..0000000 --- a/TESTS/DATOS_READONLY/f_form_aa2.sc2 +++ /dev/null @@ -1,1331 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_aa2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" /> - - DataSource = .NULL. - Name = "Dataenvironment" - TabStop = .F. - Visible = .F. - -ENDDEFINE - -DEFINE CLASS f_form_aa1 AS f_form_aa OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - AlwaysOnTop = .T. - DefHeight = - DefLeft = - DefTop = - DoCreate = .T. - Height = (460) - Left = (2) - Name = "F_form_aa1" - Top = (4) - Cl_image1.Height = 104 - Cl_image1.Name = "Cl_image1" - Cl_image1.Width = 212 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - cmdCapturar.Name = "cmdCapturar" - Label1.Name = "Label1" - Label2.Name = "Label2" - Cl_grid1.AllowAddNew = .F. - Cl_grid1.AllowAutoColumnFit = 0 - Cl_grid1.AllowCellSelection = .T. - Cl_grid1.AllowHeaderSizing = .F. - Cl_grid1.AllowRowSizing = .F. - Cl_grid1.Anchor = 0 - Cl_grid1.BackColor = 255,255,217 - Cl_grid1.ChildOrder = "" - Cl_grid1.COLUMN1.Alignment = 3 - Cl_grid1.COLUMN1.BackColor = 255,255,217 - Cl_grid1.COLUMN1.Bound = .T. - Cl_grid1.COLUMN1.ColumnOrder = 1 - Cl_grid1.COLUMN1.Comment = "" - Cl_grid1.COLUMN1.ControlSource = "" - Cl_grid1.COLUMN1.CurrentControl = "Text1" - Cl_grid1.COLUMN1.DynamicAlignment = "" - Cl_grid1.COLUMN1.DynamicBackColor = "" - Cl_grid1.COLUMN1.DynamicCurrentControl = "" - Cl_grid1.COLUMN1.DynamicFontBold = "" - Cl_grid1.COLUMN1.DynamicFontItalic = "" - Cl_grid1.COLUMN1.DynamicFontName = "" - Cl_grid1.COLUMN1.DynamicFontOutline = "" - Cl_grid1.COLUMN1.DynamicFontShadow = "" - Cl_grid1.COLUMN1.DynamicFontSize = "" - Cl_grid1.COLUMN1.DynamicFontStrikethru = "" - Cl_grid1.COLUMN1.DynamicFontUnderline = "" - Cl_grid1.COLUMN1.DynamicForeColor = "" - Cl_grid1.COLUMN1.DynamicInputMask = "" - Cl_grid1.COLUMN1.Enabled = .T. - Cl_grid1.COLUMN1.FontBold = .F. - Cl_grid1.COLUMN1.FontCondense = .F. - Cl_grid1.COLUMN1.FontExtend = .F. - Cl_grid1.COLUMN1.FontItalic = .F. - Cl_grid1.COLUMN1.FontName = "Arial" - Cl_grid1.COLUMN1.FontOutline = .F. - Cl_grid1.COLUMN1.FontShadow = .F. - Cl_grid1.COLUMN1.FontSize = 9 - Cl_grid1.COLUMN1.FontStrikethru = .F. - Cl_grid1.COLUMN1.FontUnderline = .F. - Cl_grid1.COLUMN1.ForeColor = 0,0,0 - Cl_grid1.COLUMN1.Format = "" - Cl_grid1.COLUMN1.Header1.Alignment = 0 - Cl_grid1.COLUMN1.Header1.BackColor = 240,240,240 - Cl_grid1.COLUMN1.Header1.Caption = "Control" - Cl_grid1.COLUMN1.Header1.Comment = "" - Cl_grid1.COLUMN1.Header1.FontBold = .F. - Cl_grid1.COLUMN1.Header1.FontCondense = .F. - Cl_grid1.COLUMN1.Header1.FontExtend = .F. - Cl_grid1.COLUMN1.Header1.FontItalic = .F. - Cl_grid1.COLUMN1.Header1.FontName = "Arial" - Cl_grid1.COLUMN1.Header1.FontOutline = .F. - Cl_grid1.COLUMN1.Header1.FontShadow = .F. - Cl_grid1.COLUMN1.Header1.FontSize = 9 - Cl_grid1.COLUMN1.Header1.FontStrikethru = .F. - Cl_grid1.COLUMN1.Header1.FontUnderline = .F. - Cl_grid1.COLUMN1.Header1.ForeColor = 0,0,0 - Cl_grid1.COLUMN1.Header1.MouseIcon = ..\..\ - Cl_grid1.COLUMN1.Header1.MousePointer = 0 - Cl_grid1.COLUMN1.Header1.Name = "Header1" - Cl_grid1.COLUMN1.Header1.Picture = ..\..\ - Cl_grid1.COLUMN1.Header1.StatusBarText = "" - Cl_grid1.COLUMN1.Header1.Tag = "" - Cl_grid1.COLUMN1.Header1.ToolTipText = "" - Cl_grid1.COLUMN1.Header1.WordWrap = .F. - Cl_grid1.COLUMN1.InputMask = "" - Cl_grid1.COLUMN1.MouseIcon = ..\..\ - Cl_grid1.COLUMN1.MousePointer = 0 - Cl_grid1.COLUMN1.Movable = .T. - Cl_grid1.COLUMN1.Name = "COLUMN1" - Cl_grid1.COLUMN1.ReadOnly = .F. - Cl_grid1.COLUMN1.Resizable = .T. - Cl_grid1.COLUMN1.SelectOnEntry = .T. - Cl_grid1.COLUMN1.Sparse = .T. - Cl_grid1.COLUMN1.Text1.Alignment = 3 - Cl_grid1.COLUMN1.Text1.BackColor = 255,255,217 - Cl_grid1.COLUMN1.Text1.Enabled = .T. - Cl_grid1.COLUMN1.Text1.FontBold = .F. - Cl_grid1.COLUMN1.Text1.FontCondense = .F. - Cl_grid1.COLUMN1.Text1.FontExtend = .F. - Cl_grid1.COLUMN1.Text1.FontItalic = .F. - Cl_grid1.COLUMN1.Text1.FontName = "Arial" - Cl_grid1.COLUMN1.Text1.FontOutline = .F. - Cl_grid1.COLUMN1.Text1.FontShadow = .F. - Cl_grid1.COLUMN1.Text1.FontSize = 9 - Cl_grid1.COLUMN1.Text1.FontStrikethru = .F. - Cl_grid1.COLUMN1.Text1.FontUnderline = .F. - Cl_grid1.COLUMN1.Text1.ForeColor = 0,0,0 - Cl_grid1.COLUMN1.Text1.Name = "Text1" - Cl_grid1.COLUMN1.Text1.ReadOnly = .F. - Cl_grid1.COLUMN1.Text1.Visible = .T. - Cl_grid1.COLUMN1.Visible = .T. - Cl_grid1.COLUMN1.Width = 170 - Cl_grid1.COLUMN2.BackColor = 255,255,217 - Cl_grid1.COLUMN2.ControlSource = "" - Cl_grid1.COLUMN2.Enabled = .T. - Cl_grid1.COLUMN2.FontBold = .F. - Cl_grid1.COLUMN2.FontCondense = .F. - Cl_grid1.COLUMN2.FontExtend = .F. - Cl_grid1.COLUMN2.FontItalic = .F. - Cl_grid1.COLUMN2.FontName = "Arial" - Cl_grid1.COLUMN2.FontOutline = .F. - Cl_grid1.COLUMN2.FontShadow = .F. - Cl_grid1.COLUMN2.FontSize = 9 - Cl_grid1.COLUMN2.FontStrikethru = .F. - Cl_grid1.COLUMN2.FontUnderline = .F. - Cl_grid1.COLUMN2.ForeColor = 0,0,0 - Cl_grid1.COLUMN2.Header1.FontBold = .F. - Cl_grid1.COLUMN2.Header1.FontCondense = .F. - Cl_grid1.COLUMN2.Header1.FontExtend = .F. - Cl_grid1.COLUMN2.Header1.FontItalic = .F. - Cl_grid1.COLUMN2.Header1.FontName = "Arial" - Cl_grid1.COLUMN2.Header1.FontOutline = .F. - Cl_grid1.COLUMN2.Header1.FontShadow = .F. - Cl_grid1.COLUMN2.Header1.FontSize = 9 - Cl_grid1.COLUMN2.Header1.FontStrikethru = .F. - Cl_grid1.COLUMN2.Header1.FontUnderline = .F. - Cl_grid1.COLUMN2.Header1.Name = "Header1" - Cl_grid1.COLUMN2.Name = "COLUMN2" - Cl_grid1.COLUMN2.ReadOnly = .F. - Cl_grid1.COLUMN2.Text1.BackColor = 255,255,217 - Cl_grid1.COLUMN2.Text1.Enabled = .T. - Cl_grid1.COLUMN2.Text1.FontBold = .F. - Cl_grid1.COLUMN2.Text1.FontCondense = .F. - Cl_grid1.COLUMN2.Text1.FontExtend = .F. - Cl_grid1.COLUMN2.Text1.FontItalic = .F. - Cl_grid1.COLUMN2.Text1.FontName = "Arial" - Cl_grid1.COLUMN2.Text1.FontOutline = .F. - Cl_grid1.COLUMN2.Text1.FontShadow = .F. - Cl_grid1.COLUMN2.Text1.FontSize = 9 - Cl_grid1.COLUMN2.Text1.FontStrikethru = .F. - Cl_grid1.COLUMN2.Text1.FontUnderline = .F. - Cl_grid1.COLUMN2.Text1.ForeColor = 0,0,0 - Cl_grid1.COLUMN2.Text1.Name = "Text1" - Cl_grid1.COLUMN2.Text1.ReadOnly = .F. - Cl_grid1.COLUMN2.Text1.Visible = .T. - Cl_grid1.COLUMN2.Visible = .T. - Cl_grid1.COLUMN3.BackColor = 255,255,217 - Cl_grid1.COLUMN3.ControlSource = "" - Cl_grid1.COLUMN3.Enabled = .T. - Cl_grid1.COLUMN3.FontBold = .F. - Cl_grid1.COLUMN3.FontCondense = .F. - Cl_grid1.COLUMN3.FontExtend = .F. - Cl_grid1.COLUMN3.FontItalic = .F. - Cl_grid1.COLUMN3.FontName = "Arial" - Cl_grid1.COLUMN3.FontOutline = .F. - Cl_grid1.COLUMN3.FontShadow = .F. - Cl_grid1.COLUMN3.FontSize = 9 - Cl_grid1.COLUMN3.FontStrikethru = .F. - Cl_grid1.COLUMN3.FontUnderline = .F. - Cl_grid1.COLUMN3.ForeColor = 0,0,0 - Cl_grid1.COLUMN3.Header1.FontBold = .F. - Cl_grid1.COLUMN3.Header1.FontCondense = .F. - Cl_grid1.COLUMN3.Header1.FontExtend = .F. - Cl_grid1.COLUMN3.Header1.FontItalic = .F. - Cl_grid1.COLUMN3.Header1.FontName = "Arial" - Cl_grid1.COLUMN3.Header1.FontOutline = .F. - Cl_grid1.COLUMN3.Header1.FontShadow = .F. - Cl_grid1.COLUMN3.Header1.FontSize = 9 - Cl_grid1.COLUMN3.Header1.FontStrikethru = .F. - Cl_grid1.COLUMN3.Header1.FontUnderline = .F. - Cl_grid1.COLUMN3.Header1.Name = "Header1" - Cl_grid1.COLUMN3.Name = "COLUMN3" - Cl_grid1.COLUMN3.ReadOnly = .F. - Cl_grid1.COLUMN3.Text1.BackColor = 255,255,217 - Cl_grid1.COLUMN3.Text1.Enabled = .T. - Cl_grid1.COLUMN3.Text1.FontBold = .F. - Cl_grid1.COLUMN3.Text1.FontCondense = .F. - Cl_grid1.COLUMN3.Text1.FontExtend = .F. - Cl_grid1.COLUMN3.Text1.FontItalic = .F. - Cl_grid1.COLUMN3.Text1.FontName = "Arial" - Cl_grid1.COLUMN3.Text1.FontOutline = .F. - Cl_grid1.COLUMN3.Text1.FontShadow = .F. - Cl_grid1.COLUMN3.Text1.FontSize = 9 - Cl_grid1.COLUMN3.Text1.FontStrikethru = .F. - Cl_grid1.COLUMN3.Text1.FontUnderline = .F. - Cl_grid1.COLUMN3.Text1.ForeColor = 0,0,0 - Cl_grid1.COLUMN3.Text1.Name = "Text1" - Cl_grid1.COLUMN3.Text1.ReadOnly = .F. - Cl_grid1.COLUMN3.Text1.Visible = .T. - Cl_grid1.COLUMN3.Visible = .T. - Cl_grid1.COLUMN4.BackColor = 255,255,217 - Cl_grid1.COLUMN4.ControlSource = "" - Cl_grid1.COLUMN4.Enabled = .T. - Cl_grid1.COLUMN4.FontBold = .F. - Cl_grid1.COLUMN4.FontCondense = .F. - Cl_grid1.COLUMN4.FontExtend = .F. - Cl_grid1.COLUMN4.FontItalic = .F. - Cl_grid1.COLUMN4.FontName = "Arial" - Cl_grid1.COLUMN4.FontOutline = .F. - Cl_grid1.COLUMN4.FontShadow = .F. - Cl_grid1.COLUMN4.FontSize = 9 - Cl_grid1.COLUMN4.FontStrikethru = .F. - Cl_grid1.COLUMN4.FontUnderline = .F. - Cl_grid1.COLUMN4.ForeColor = 0,0,0 - Cl_grid1.COLUMN4.Header1.FontBold = .F. - Cl_grid1.COLUMN4.Header1.FontCondense = .F. - Cl_grid1.COLUMN4.Header1.FontExtend = .F. - Cl_grid1.COLUMN4.Header1.FontItalic = .F. - Cl_grid1.COLUMN4.Header1.FontName = "Arial" - Cl_grid1.COLUMN4.Header1.FontOutline = .F. - Cl_grid1.COLUMN4.Header1.FontShadow = .F. - Cl_grid1.COLUMN4.Header1.FontSize = 9 - Cl_grid1.COLUMN4.Header1.FontStrikethru = .F. - Cl_grid1.COLUMN4.Header1.FontUnderline = .F. - Cl_grid1.COLUMN4.Header1.Name = "Header1" - Cl_grid1.COLUMN4.Name = "COLUMN4" - Cl_grid1.COLUMN4.ReadOnly = .F. - Cl_grid1.COLUMN4.Text1.BackColor = 255,255,217 - Cl_grid1.COLUMN4.Text1.Enabled = .T. - Cl_grid1.COLUMN4.Text1.FontBold = .F. - Cl_grid1.COLUMN4.Text1.FontCondense = .F. - Cl_grid1.COLUMN4.Text1.FontExtend = .F. - Cl_grid1.COLUMN4.Text1.FontItalic = .F. - Cl_grid1.COLUMN4.Text1.FontName = "Arial" - Cl_grid1.COLUMN4.Text1.FontOutline = .F. - Cl_grid1.COLUMN4.Text1.FontShadow = .F. - Cl_grid1.COLUMN4.Text1.FontSize = 9 - Cl_grid1.COLUMN4.Text1.FontStrikethru = .F. - Cl_grid1.COLUMN4.Text1.FontUnderline = .F. - Cl_grid1.COLUMN4.Text1.ForeColor = 0,0,0 - Cl_grid1.COLUMN4.Text1.Name = "Text1" - Cl_grid1.COLUMN4.Text1.ReadOnly = .F. - Cl_grid1.COLUMN4.Text1.Visible = .T. - Cl_grid1.COLUMN4.Visible = .T. - Cl_grid1.COLUMN5.BackColor = 255,255,217 - Cl_grid1.COLUMN5.ControlSource = "" - Cl_grid1.COLUMN5.Enabled = .T. - Cl_grid1.COLUMN5.FontBold = .F. - Cl_grid1.COLUMN5.FontCondense = .F. - Cl_grid1.COLUMN5.FontExtend = .F. - Cl_grid1.COLUMN5.FontItalic = .F. - Cl_grid1.COLUMN5.FontName = "Arial" - Cl_grid1.COLUMN5.FontOutline = .F. - Cl_grid1.COLUMN5.FontShadow = .F. - Cl_grid1.COLUMN5.FontSize = 9 - Cl_grid1.COLUMN5.FontStrikethru = .F. - Cl_grid1.COLUMN5.FontUnderline = .F. - Cl_grid1.COLUMN5.ForeColor = 0,0,0 - Cl_grid1.COLUMN5.Header1.FontBold = .F. - Cl_grid1.COLUMN5.Header1.FontCondense = .F. - Cl_grid1.COLUMN5.Header1.FontExtend = .F. - Cl_grid1.COLUMN5.Header1.FontItalic = .F. - Cl_grid1.COLUMN5.Header1.FontName = "Arial" - Cl_grid1.COLUMN5.Header1.FontOutline = .F. - Cl_grid1.COLUMN5.Header1.FontShadow = .F. - Cl_grid1.COLUMN5.Header1.FontSize = 9 - Cl_grid1.COLUMN5.Header1.FontStrikethru = .F. - Cl_grid1.COLUMN5.Header1.FontUnderline = .F. - Cl_grid1.COLUMN5.Header1.Name = "Header1" - Cl_grid1.COLUMN5.Name = "COLUMN5" - Cl_grid1.COLUMN5.ReadOnly = .F. - Cl_grid1.COLUMN5.Text1.BackColor = 255,255,217 - Cl_grid1.COLUMN5.Text1.Enabled = .T. - Cl_grid1.COLUMN5.Text1.FontBold = .F. - Cl_grid1.COLUMN5.Text1.FontCondense = .F. - Cl_grid1.COLUMN5.Text1.FontExtend = .F. - Cl_grid1.COLUMN5.Text1.FontItalic = .F. - Cl_grid1.COLUMN5.Text1.FontName = "Arial" - Cl_grid1.COLUMN5.Text1.FontOutline = .F. - Cl_grid1.COLUMN5.Text1.FontShadow = .F. - Cl_grid1.COLUMN5.Text1.FontSize = 9 - Cl_grid1.COLUMN5.Text1.FontStrikethru = .F. - Cl_grid1.COLUMN5.Text1.FontUnderline = .F. - Cl_grid1.COLUMN5.Text1.ForeColor = 0,0,0 - Cl_grid1.COLUMN5.Text1.Name = "Text1" - Cl_grid1.COLUMN5.Text1.ReadOnly = .F. - Cl_grid1.COLUMN5.Text1.Visible = .T. - Cl_grid1.COLUMN5.Visible = .T. - Cl_grid1.Column6.BackColor = 255,255,217 - Cl_grid1.Column6.ControlSource = "" - Cl_grid1.Column6.Enabled = .T. - Cl_grid1.Column6.FontBold = .F. - Cl_grid1.Column6.FontCondense = .F. - Cl_grid1.Column6.FontExtend = .F. - Cl_grid1.Column6.FontItalic = .F. - Cl_grid1.Column6.FontName = "Arial" - Cl_grid1.Column6.FontOutline = .F. - Cl_grid1.Column6.FontShadow = .F. - Cl_grid1.Column6.FontSize = 9 - Cl_grid1.Column6.FontStrikethru = .F. - Cl_grid1.Column6.FontUnderline = .F. - Cl_grid1.Column6.ForeColor = 0,0,0 - Cl_grid1.Column6.Header1.FontBold = .F. - Cl_grid1.Column6.Header1.FontCondense = .F. - Cl_grid1.Column6.Header1.FontExtend = .F. - Cl_grid1.Column6.Header1.FontItalic = .F. - Cl_grid1.Column6.Header1.FontName = "Arial" - Cl_grid1.Column6.Header1.FontOutline = .F. - Cl_grid1.Column6.Header1.FontShadow = .F. - Cl_grid1.Column6.Header1.FontSize = 9 - Cl_grid1.Column6.Header1.FontStrikethru = .F. - Cl_grid1.Column6.Header1.FontUnderline = .F. - Cl_grid1.Column6.Header1.Name = "Header1" - Cl_grid1.Column6.Name = "Column6" - Cl_grid1.Column6.ReadOnly = .F. - Cl_grid1.Column6.Text1.BackColor = 255,255,217 - Cl_grid1.Column6.Text1.Enabled = .T. - Cl_grid1.Column6.Text1.FontBold = .F. - Cl_grid1.Column6.Text1.FontCondense = .F. - Cl_grid1.Column6.Text1.FontExtend = .F. - Cl_grid1.Column6.Text1.FontItalic = .F. - Cl_grid1.Column6.Text1.FontName = "Arial" - Cl_grid1.Column6.Text1.FontOutline = .F. - Cl_grid1.Column6.Text1.FontShadow = .F. - Cl_grid1.Column6.Text1.FontSize = 9 - Cl_grid1.Column6.Text1.FontStrikethru = .F. - Cl_grid1.Column6.Text1.FontUnderline = .F. - Cl_grid1.Column6.Text1.ForeColor = 0,0,0 - Cl_grid1.Column6.Text1.Name = "Text1" - Cl_grid1.Column6.Text1.ReadOnly = .F. - Cl_grid1.Column6.Text1.Visible = .T. - Cl_grid1.Column6.Visible = .T. - Cl_grid1.ColumnCount = 6 - Cl_grid1.Comment = "" - Cl_grid1.DeleteMark = .F. - Cl_grid1.DragIcon = ..\..\ - Cl_grid1.DragMode = 0 - Cl_grid1.Enabled = .T. - Cl_grid1.FontBold = .F. - Cl_grid1.FontCondense = .F. - Cl_grid1.FontExtend = .F. - Cl_grid1.FontItalic = .F. - Cl_grid1.FontName = "Arial" - Cl_grid1.FontOutline = .F. - Cl_grid1.FontShadow = .F. - Cl_grid1.FontSize = 9 - Cl_grid1.FontStrikethru = .F. - Cl_grid1.FontUnderline = .F. - Cl_grid1.ForeColor = 0,0,0 - Cl_grid1.GridLineColor = 0,0,0 - Cl_grid1.GridLines = 3 - Cl_grid1.GridLineWidth = 1 - Cl_grid1.HeaderHeight = 18 - Cl_grid1.HelpContextID = 0 - Cl_grid1.Highlight = .T. - Cl_grid1.HighlightBackColor = 51,153,255 - Cl_grid1.HighlightForeColor = 255,255,255 - Cl_grid1.HighlightRow = .T. - Cl_grid1.HighlightRowLineWidth = 1 - Cl_grid1.HighlightStyle = 0 - Cl_grid1.Left = 296 - Cl_grid1.LinkMaster = "" - Cl_grid1.LockColumns = 0 - Cl_grid1.LockColumnsLeft = 0 - Cl_grid1.MouseIcon = ..\..\ - Cl_grid1.MousePointer = 0 - Cl_grid1.Name = "Cl_grid1" - Cl_grid1.OLEDragPicture = ..\..\ - Cl_grid1.OLEDropEffects = 3 - Cl_grid1.OLEDropMode = 0 - Cl_grid1.Optimize = .F. - Cl_grid1.Panel = 1 - Cl_grid1.PanelLink = .T. - Cl_grid1.Partition = 0 - Cl_grid1.ReadOnly = .F. - Cl_grid1.RecordMark = .T. - Cl_grid1.RecordSource = "C_TESTS" - Cl_grid1.RecordSourceType = 1 - Cl_grid1.RelationalExpr = "" - Cl_grid1.RightToLeft = .F. - Cl_grid1.RowHeight = 18 - Cl_grid1.ScrollBars = 2 - Cl_grid1.SelectedItemBackColor = 51,153,255 - Cl_grid1.SelectedItemForeColor = 255,255,255 - Cl_grid1.SplitBar = .F. - Cl_grid1.StatusBarText = "" - Cl_grid1.TabIndex = 6 - Cl_grid1.TabStop = .T. - Cl_grid1.Tag = "" - Cl_grid1.Themes = .T. - Cl_grid1.ToolTipText = "" - Cl_grid1.Top = 32 - Cl_grid1.Value = 0 - Cl_grid1.View = 0 - Cl_grid1.Visible = .T. - Cl_grid1.WhatsThisHelpID = -1 - pgf.ActivePage = 2 - pgf.Anchor = 0 - pgf.ColorSource = 4 - pgf.Comment = "" - pgf.DragIcon = ..\..\ - pgf.DragMode = 0 - pgf.Enabled = .T. - pgf.ErasePage = .T. - pgf.Height = 388 - pgf.HelpContextID = 0 - pgf.Left = 12 - pgf.MouseIcon = ..\..\ - pgf.MousePointer = 0 - pgf.Name = "pgf" - pgf.OLEDragMode = 0 - pgf.OLEDragPicture = ..\..\ - pgf.OLEDropEffects = 3 - pgf.OLEDropMode = 0 - pgf.Page1.Checkbox.Alignment = 0 - pgf.Page1.Checkbox.Anchor = 0 - pgf.Page1.Checkbox.AutoSize = .F. - pgf.Page1.Checkbox.BackColor = 240,240,240 - pgf.Page1.Checkbox.BackStyle = 1 - pgf.Page1.Checkbox.Caption = "Chk1" - pgf.Page1.Checkbox.Centered = .F. - pgf.Page1.Checkbox.ColorScheme = 1 - pgf.Page1.Checkbox.ColorSource = 4 - pgf.Page1.Checkbox.Comment = "" - pgf.Page1.Checkbox.ControlSource = "" - pgf.Page1.Checkbox.DefHeight = - pgf.Page1.Checkbox.DefLeft = - pgf.Page1.Checkbox.DefTop = - pgf.Page1.Checkbox.DefWidth = - pgf.Page1.Checkbox.DisabledBackColor = 240,240,240 - pgf.Page1.Checkbox.DisabledForeColor = 109,109,109 - pgf.Page1.Checkbox.DisabledPicture = ..\..\ - pgf.Page1.Checkbox.DownPicture = ..\..\ - pgf.Page1.Checkbox.DragIcon = ..\..\ - pgf.Page1.Checkbox.DragMode = 0 - pgf.Page1.Checkbox.Enabled = .T. - pgf.Page1.Checkbox.FontBold = .F. - pgf.Page1.Checkbox.FontCondense = .F. - pgf.Page1.Checkbox.FontExtend = .F. - pgf.Page1.Checkbox.FontItalic = .F. - pgf.Page1.Checkbox.FontName = "Arial" - pgf.Page1.Checkbox.FontOutline = .F. - pgf.Page1.Checkbox.FontShadow = .F. - pgf.Page1.Checkbox.FontSize = 8 - pgf.Page1.Checkbox.FontStrikethru = .F. - pgf.Page1.Checkbox.FontUnderline = .F. - pgf.Page1.Checkbox.ForeColor = 0,0,0 - pgf.Page1.Checkbox.Height = (21) - pgf.Page1.Checkbox.HelpContextID = 0 - pgf.Page1.Checkbox.Left = (7) - pgf.Page1.Checkbox.MouseIcon = ..\..\ - pgf.Page1.Checkbox.MousePointer = 0 - pgf.Page1.Checkbox.Name = "Checkbox" - pgf.Page1.Checkbox.OLEDragMode = 0 - pgf.Page1.Checkbox.OLEDragPicture = ..\..\ - pgf.Page1.Checkbox.OLEDropEffects = 3 - pgf.Page1.Checkbox.OLEDropMode = 0 - pgf.Page1.Checkbox.Picture = bmps\treeview.bmp - pgf.Page1.Checkbox.PictureMargin = 0 - pgf.Page1.Checkbox.PicturePosition = 4 - pgf.Page1.Checkbox.PictureSpacing = 0 - pgf.Page1.Checkbox.ReadOnly = .F. - pgf.Page1.Checkbox.RightToLeft = .F. - pgf.Page1.Checkbox.SpecialEffect = 0 - pgf.Page1.Checkbox.StatusBarText = "" - pgf.Page1.Checkbox.Style = 1 - pgf.Page1.Checkbox.TabIndex = 1 - pgf.Page1.Checkbox.TabStop = .T. - pgf.Page1.Checkbox.Tag = "" - pgf.Page1.Checkbox.TerminateRead = .F. - pgf.Page1.Checkbox.test_aa = .F. - pgf.Page1.Checkbox.Themes = .T. - pgf.Page1.Checkbox.ToolTipText = "" - pgf.Page1.Checkbox.Top = (8) - pgf.Page1.Checkbox.Value = 0 - pgf.Page1.Checkbox.Visible = .T. - pgf.Page1.Checkbox.WhatsThisHelpID = -1 - pgf.Page1.Checkbox.Width = (199) - pgf.Page1.Checkbox.WordWrap = .F. - pgf.Page1.Cl_optiongroup1.DefHeight = - pgf.Page1.Cl_optiongroup1.DefWidth = - pgf.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1" - pgf.Page1.Cl_optiongroup1.Option1.Left = 5 - pgf.Page1.Cl_optiongroup1.Option1.Name = "Option1" - pgf.Page1.Cl_optiongroup1.Option1.Top = 5 - pgf.Page1.Cl_optiongroup1.Option2.Left = 5 - pgf.Page1.Cl_optiongroup1.Option2.Name = "Option2" - pgf.Page1.Cl_optiongroup1.Option2.Top = 24 - pgf.Page1.Collection.Comment = "" - pgf.Page1.Collection.KeySort = 0 - pgf.Page1.Collection.Name = "Collection" - pgf.Page1.Collection.Tag = "" - pgf.Page1.Collection.test_aa = .F. - pgf.Page1.ComboBox.Alignment = 0 - pgf.Page1.ComboBox.Anchor = 0 - pgf.Page1.ComboBox.BackColor = 255,255,255 - pgf.Page1.ComboBox.BorderColor = 128,255,128 - pgf.Page1.ComboBox.BorderStyle = 1 - pgf.Page1.ComboBox.BoundColumn = 1 - pgf.Page1.ComboBox.BoundTo = .F. - pgf.Page1.ComboBox.ColorScheme = 2 - pgf.Page1.ComboBox.ColorSource = 4 - pgf.Page1.ComboBox.ColumnCount = 0 - pgf.Page1.ComboBox.ColumnLines = .T. - pgf.Page1.ComboBox.ColumnWidths = "" - pgf.Page1.ComboBox.Comment = "" - pgf.Page1.ComboBox.ControlSource = "" - pgf.Page1.ComboBox.DefHeight = - pgf.Page1.ComboBox.DefLeft = - pgf.Page1.ComboBox.DefTop = - pgf.Page1.ComboBox.DefWidth = - pgf.Page1.ComboBox.DisabledBackColor = 240,240,240 - pgf.Page1.ComboBox.DisabledForeColor = 109,109,109 - pgf.Page1.ComboBox.DisabledItemBackColor = 255,255,255 - pgf.Page1.ComboBox.DisabledItemForeColor = 109,109,109 - pgf.Page1.ComboBox.DisplayCount = 0 - pgf.Page1.ComboBox.DisplayValue = - pgf.Page1.ComboBox.DragIcon = ..\..\ - pgf.Page1.ComboBox.DragMode = 0 - pgf.Page1.ComboBox.Enabled = .T. - pgf.Page1.ComboBox.FirstElement = 1 - pgf.Page1.ComboBox.FontBold = .F. - pgf.Page1.ComboBox.FontCondense = .F. - pgf.Page1.ComboBox.FontExtend = .F. - pgf.Page1.ComboBox.FontItalic = .F. - pgf.Page1.ComboBox.FontName = "Arial" - pgf.Page1.ComboBox.FontOutline = .F. - pgf.Page1.ComboBox.FontShadow = .F. - pgf.Page1.ComboBox.FontSize = 8 - pgf.Page1.ComboBox.FontStrikethru = .F. - pgf.Page1.ComboBox.FontUnderline = .F. - pgf.Page1.ComboBox.ForeColor = 0,0,0 - pgf.Page1.ComboBox.Format = "" - pgf.Page1.ComboBox.Height = (20) - pgf.Page1.ComboBox.HelpContextID = 0 - pgf.Page1.ComboBox.HideSelection = .T. - pgf.Page1.ComboBox.IMEMode = 0 - pgf.Page1.ComboBox.IncrementalSearch = .T. - pgf.Page1.ComboBox.InputMask = "" - pgf.Page1.ComboBox.ItemBackColor = 255,255,255 - pgf.Page1.ComboBox.ItemForeColor = 0,0,0 - pgf.Page1.ComboBox.ItemTips = .F. - pgf.Page1.ComboBox.Left = (7) - pgf.Page1.ComboBox.Margin = 0 - pgf.Page1.ComboBox.MaxLength = 0 - pgf.Page1.ComboBox.MouseIcon = ..\..\ - pgf.Page1.ComboBox.MousePointer = 0 - pgf.Page1.ComboBox.Name = "ComboBox" - pgf.Page1.ComboBox.NullDisplay = "" - pgf.Page1.ComboBox.NumberOfElements = 0 - pgf.Page1.ComboBox.OLEDragMode = 0 - pgf.Page1.ComboBox.OLEDragPicture = ..\..\ - pgf.Page1.ComboBox.OLEDropEffects = 3 - pgf.Page1.ComboBox.OLEDropMode = 0 - pgf.Page1.ComboBox.OLEDropTextInsertion = 0 - pgf.Page1.ComboBox.Picture = bmps\treeview.bmp - pgf.Page1.ComboBox.PictureSelectionDisplay = 0 - pgf.Page1.ComboBox.ReadOnly = .F. - pgf.Page1.ComboBox.RightToLeft = .F. - pgf.Page1.ComboBox.RowSource = "" - pgf.Page1.ComboBox.RowSourceType = 0 - pgf.Page1.ComboBox.SelectedBackColor = 51,153,255 - pgf.Page1.ComboBox.SelectedForeColor = 255,255,255 - pgf.Page1.ComboBox.SelectedItemBackColor = 51,153,255 - pgf.Page1.ComboBox.SelectedItemForeColor = 255,255,255 - pgf.Page1.ComboBox.SelectOnEntry = .F. - pgf.Page1.ComboBox.Sorted = .F. - pgf.Page1.ComboBox.SpecialEffect = 1 - pgf.Page1.ComboBox.StatusBarText = "" - pgf.Page1.ComboBox.Style = 0 - pgf.Page1.ComboBox.TabIndex = 1 - pgf.Page1.ComboBox.TabStop = .T. - pgf.Page1.ComboBox.Tag = "" - pgf.Page1.ComboBox.TerminateRead = .F. - pgf.Page1.ComboBox.test_aa = .F. - pgf.Page1.ComboBox.Themes = .T. - pgf.Page1.ComboBox.ToolTipText = "" - pgf.Page1.ComboBox.Top = (35) - pgf.Page1.ComboBox.Value = - pgf.Page1.ComboBox.Visible = .T. - pgf.Page1.ComboBox.WhatsThisHelpID = -1 - pgf.Page1.ComboBox.Width = (196) - pgf.Page1.CommandButton.Alignment = 2 - pgf.Page1.CommandButton.Anchor = 0 - pgf.Page1.CommandButton.AutoSize = .F. - pgf.Page1.CommandButton.BackColor = 240,240,240 - pgf.Page1.CommandButton.Cancel = .F. - pgf.Page1.CommandButton.Caption = "Comando" - pgf.Page1.CommandButton.ColorScheme = 1 - pgf.Page1.CommandButton.ColorSource = 4 - pgf.Page1.CommandButton.Comment = "" - pgf.Page1.CommandButton.Default = .F. - pgf.Page1.CommandButton.DefHeight = - pgf.Page1.CommandButton.DefLeft = - pgf.Page1.CommandButton.DefTop = - pgf.Page1.CommandButton.DefWidth = - pgf.Page1.CommandButton.DisabledBackColor = 240,240,240 - pgf.Page1.CommandButton.DisabledForeColor = 109,109,109 - pgf.Page1.CommandButton.DisabledPicture = ..\..\ - pgf.Page1.CommandButton.DownPicture = ..\..\ - pgf.Page1.CommandButton.DragIcon = ..\..\ - pgf.Page1.CommandButton.DragMode = 0 - pgf.Page1.CommandButton.Enabled = .T. - pgf.Page1.CommandButton.FontBold = .F. - pgf.Page1.CommandButton.FontCondense = .F. - pgf.Page1.CommandButton.FontExtend = .F. - pgf.Page1.CommandButton.FontItalic = .F. - pgf.Page1.CommandButton.FontName = "Arial" - pgf.Page1.CommandButton.FontOutline = .F. - pgf.Page1.CommandButton.FontShadow = .F. - pgf.Page1.CommandButton.FontSize = 8 - pgf.Page1.CommandButton.FontStrikethru = .F. - pgf.Page1.CommandButton.FontUnderline = .F. - pgf.Page1.CommandButton.ForeColor = 0,0,0 - pgf.Page1.CommandButton.Height = (25) - pgf.Page1.CommandButton.HelpContextID = 0 - pgf.Page1.CommandButton.Left = (99) - pgf.Page1.CommandButton.MouseIcon = ..\..\ - pgf.Page1.CommandButton.MousePointer = 0 - pgf.Page1.CommandButton.Name = "CommandButton" - pgf.Page1.CommandButton.OLEDragMode = 0 - pgf.Page1.CommandButton.OLEDragPicture = ..\..\ - pgf.Page1.CommandButton.OLEDropEffects = 3 - pgf.Page1.CommandButton.OLEDropMode = 0 - pgf.Page1.CommandButton.Picture = bmps\treeview.bmp - pgf.Page1.CommandButton.PictureMargin = 0 - pgf.Page1.CommandButton.PicturePosition = 4 - pgf.Page1.CommandButton.PictureSpacing = 0 - pgf.Page1.CommandButton.RightToLeft = .F. - pgf.Page1.CommandButton.SpecialEffect = 0 - pgf.Page1.CommandButton.StatusBarText = "" - pgf.Page1.CommandButton.Style = 0 - pgf.Page1.CommandButton.TabIndex = 3 - pgf.Page1.CommandButton.TabStop = .T. - pgf.Page1.CommandButton.Tag = "" - pgf.Page1.CommandButton.TerminateRead = .F. - pgf.Page1.CommandButton.test_aa = .F. - pgf.Page1.CommandButton.Themes = .T. - pgf.Page1.CommandButton.ToolTipText = "" - pgf.Page1.CommandButton.Top = (63) - pgf.Page1.CommandButton.Visible = .T. - pgf.Page1.CommandButton.WhatsThisHelpID = -1 - pgf.Page1.CommandButton.Width = (80) - pgf.Page1.CommandButton.WordWrap = .F. - pgf.Page1.CommandGroup.Anchor = 0 - pgf.Page1.CommandGroup.AutoSize = .F. - pgf.Page1.CommandGroup.BackColor = 240,240,240 - pgf.Page1.CommandGroup.BackStyle = 1 - pgf.Page1.CommandGroup.BorderColor = 100,100,100 - pgf.Page1.CommandGroup.BorderStyle = 1 - pgf.Page1.CommandGroup.ButtonCount = 2 - pgf.Page1.CommandGroup.ColorSource = 4 - pgf.Page1.CommandGroup.Command1.Left = 1 - pgf.Page1.CommandGroup.Command1.Name = "Command1" - pgf.Page1.CommandGroup.Command1.Top = 4 - pgf.Page1.CommandGroup.Command2.Left = 1 - pgf.Page1.CommandGroup.Command2.Name = "Command2" - pgf.Page1.CommandGroup.Command2.Top = 32 - pgf.Page1.CommandGroup.Comment = "" - pgf.Page1.CommandGroup.ControlSource = "" - pgf.Page1.CommandGroup.DefHeight = - pgf.Page1.CommandGroup.DefLeft = - pgf.Page1.CommandGroup.DefTop = - pgf.Page1.CommandGroup.DefWidth = - pgf.Page1.CommandGroup.DragIcon = ..\..\ - pgf.Page1.CommandGroup.DragMode = 0 - pgf.Page1.CommandGroup.Enabled = .T. - pgf.Page1.CommandGroup.Height = (64) - pgf.Page1.CommandGroup.HelpContextID = 0 - pgf.Page1.CommandGroup.Left = (6) - pgf.Page1.CommandGroup.MouseIcon = ..\..\ - pgf.Page1.CommandGroup.MousePointer = 0 - pgf.Page1.CommandGroup.Name = "CommandGroup" - pgf.Page1.CommandGroup.OLEDragMode = 0 - pgf.Page1.CommandGroup.OLEDragPicture = ..\..\ - pgf.Page1.CommandGroup.OLEDropEffects = 3 - pgf.Page1.CommandGroup.OLEDropMode = 0 - pgf.Page1.CommandGroup.SpecialEffect = 0 - pgf.Page1.CommandGroup.StatusBarText = "" - pgf.Page1.CommandGroup.TabIndex = 2 - pgf.Page1.CommandGroup.Tag = "" - pgf.Page1.CommandGroup.TerminateRead = .F. - pgf.Page1.CommandGroup.test_aa = .F. - pgf.Page1.CommandGroup.Themes = .T. - pgf.Page1.CommandGroup.ToolTipText = "" - pgf.Page1.CommandGroup.Top = (60) - pgf.Page1.CommandGroup.Value = 1 - pgf.Page1.CommandGroup.Visible = .T. - pgf.Page1.CommandGroup.WhatsThisHelpID = -1 - pgf.Page1.CommandGroup.Width = (93) - pgf.Page1.Container.Anchor = 0 - pgf.Page1.Container.BackColor = 240,240,240 - pgf.Page1.Container.BackStyle = 1 - pgf.Page1.Container.BorderColor = 100,100,100 - pgf.Page1.Container.BorderWidth = 1 - pgf.Page1.Container.ColorSource = 4 - pgf.Page1.Container.Comment = "" - pgf.Page1.Container.DefHeight = - pgf.Page1.Container.DefLeft = - pgf.Page1.Container.DefTop = - pgf.Page1.Container.DefWidth = - pgf.Page1.Container.DragIcon = ..\..\ - pgf.Page1.Container.DragMode = 0 - pgf.Page1.Container.Enabled = .T. - pgf.Page1.Container.ForeColor = 0,0,0 - pgf.Page1.Container.Height = (24) - pgf.Page1.Container.HelpContextID = 0 - pgf.Page1.Container.Left = (227) - pgf.Page1.Container.MouseIcon = ..\..\ - pgf.Page1.Container.MousePointer = 0 - pgf.Page1.Container.Name = "Container" - pgf.Page1.Container.OLEDragMode = 0 - pgf.Page1.Container.OLEDragPicture = ..\..\ - pgf.Page1.Container.OLEDropEffects = 3 - pgf.Page1.Container.OLEDropMode = 0 - pgf.Page1.Container.SpecialEffect = 2 - pgf.Page1.Container.StatusBarText = "" - pgf.Page1.Container.Style = 0 - pgf.Page1.Container.TabIndex = 4 - pgf.Page1.Container.TabStop = .T. - pgf.Page1.Container.Tag = "" - pgf.Page1.Container.test_aa = .F. - pgf.Page1.Container.ToolTipText = "" - pgf.Page1.Container.Top = (127) - pgf.Page1.Container.Visible = .T. - pgf.Page1.Container.WhatsThisHelpID = -1 - pgf.Page1.Container.Width = (20) - pgf.Page1.Control.Anchor = 0 - pgf.Page1.Control.BackColor = 240,240,240 - pgf.Page1.Control.BackStyle = 1 - pgf.Page1.Control.BorderColor = 100,100,100 - pgf.Page1.Control.BorderWidth = 1 - pgf.Page1.Control.ColorSource = 4 - pgf.Page1.Control.Comment = "" - pgf.Page1.Control.DefHeight = - pgf.Page1.Control.DefLeft = - pgf.Page1.Control.DefTop = - pgf.Page1.Control.DefWidth = - pgf.Page1.Control.DragIcon = ..\..\ - pgf.Page1.Control.DragMode = 0 - pgf.Page1.Control.Enabled = .T. - pgf.Page1.Control.ForeColor = 0,0,0 - pgf.Page1.Control.Height = (24) - pgf.Page1.Control.HelpContextID = 0 - pgf.Page1.Control.Left = (199) - pgf.Page1.Control.MouseIcon = ..\..\ - pgf.Page1.Control.MousePointer = 0 - pgf.Page1.Control.Name = "Control" - pgf.Page1.Control.OLEDragMode = 0 - pgf.Page1.Control.OLEDragPicture = ..\..\ - pgf.Page1.Control.OLEDropEffects = 3 - pgf.Page1.Control.OLEDropMode = 0 - pgf.Page1.Control.SpecialEffect = 2 - pgf.Page1.Control.StatusBarText = "" - pgf.Page1.Control.Style = 0 - pgf.Page1.Control.TabIndex = 5 - pgf.Page1.Control.TabStop = .T. - pgf.Page1.Control.Tag = "" - pgf.Page1.Control.test_aa = .F. - pgf.Page1.Control.ToolTipText = "" - pgf.Page1.Control.Top = (127) - pgf.Page1.Control.Visible = .T. - pgf.Page1.Control.WhatsThisHelpID = -1 - pgf.Page1.Control.Width = (20) - pgf.Page1.EditBox.DefHeight = - pgf.Page1.EditBox.DefLeft = - pgf.Page1.EditBox.DefTop = - pgf.Page1.EditBox.DefWidth = - pgf.Page1.EditBox.Name = "EditBox" - pgf.Page1.HyperLink.Comment = "" - pgf.Page1.HyperLink.Name = "HyperLink" - pgf.Page1.HyperLink.Tag = "" - pgf.Page1.HyperLink.test_aa = .F. - pgf.Page1.Image.Anchor = 0 - pgf.Page1.Image.BackStyle = 1 - pgf.Page1.Image.BorderColor = 100,100,100 - pgf.Page1.Image.BorderStyle = 0 - pgf.Page1.Image.ColorSource = 4 - pgf.Page1.Image.Comment = "" - pgf.Page1.Image.DefHeight = - pgf.Page1.Image.DefLeft = - pgf.Page1.Image.DragIcon = ..\..\ - pgf.Page1.Image.DragMode = 0 - pgf.Page1.Image.Enabled = .T. - pgf.Page1.Image.Height = (16) - pgf.Page1.Image.HelpContextID = 0 - pgf.Page1.Image.Left = (231) - pgf.Page1.Image.MouseIcon = ..\..\ - pgf.Page1.Image.MousePointer = 0 - pgf.Page1.Image.Name = "Image" - pgf.Page1.Image.OLEDragMode = 0 - pgf.Page1.Image.OLEDragPicture = ..\..\ - pgf.Page1.Image.OLEDropEffects = 3 - pgf.Page1.Image.OLEDropMode = 0 - pgf.Page1.Image.Picture = bmps\scccheckout.bmp - pgf.Page1.Image.RotateFlip = 0 - pgf.Page1.Image.StatusBarText = "" - pgf.Page1.Image.Stretch = 0 - pgf.Page1.Image.Tag = "" - pgf.Page1.Image.test_aa = .F. - pgf.Page1.Image.Themes = .T. - pgf.Page1.Image.ToolTipText = "" - pgf.Page1.Image.Top = 107 - pgf.Page1.Image.Visible = .T. - pgf.Page1.Image.WhatsThisHelpID = -1 - pgf.Page1.Image.Width = 16 - pgf.Page1.Label.Alignment = 0 - pgf.Page1.Label.Anchor = 0 - pgf.Page1.Label.AutoSize = .F. - pgf.Page1.Label.BackColor = 240,240,240 - pgf.Page1.Label.BackStyle = 1 - pgf.Page1.Label.BorderStyle = 0 - pgf.Page1.Label.Caption = "Label4" - pgf.Page1.Label.ColorScheme = 1 - pgf.Page1.Label.ColorSource = 4 - pgf.Page1.Label.Comment = "" - pgf.Page1.Label.DefHeight = - pgf.Page1.Label.DefLeft = - pgf.Page1.Label.DefTop = - pgf.Page1.Label.DefWidth = - pgf.Page1.Label.DisabledBackColor = 240,240,240 - pgf.Page1.Label.DisabledForeColor = 109,109,109 - pgf.Page1.Label.DragIcon = ..\..\ - pgf.Page1.Label.DragMode = 0 - pgf.Page1.Label.Enabled = .T. - pgf.Page1.Label.FontBold = .F. - pgf.Page1.Label.FontCondense = .F. - pgf.Page1.Label.FontExtend = .F. - pgf.Page1.Label.FontItalic = .F. - pgf.Page1.Label.FontName = "Arial" - pgf.Page1.Label.FontOutline = .F. - pgf.Page1.Label.FontShadow = .F. - pgf.Page1.Label.FontSize = 8 - pgf.Page1.Label.FontStrikethru = .F. - pgf.Page1.Label.FontUnderline = .F. - pgf.Page1.Label.ForeColor = 0,0,0 - pgf.Page1.Label.Height = (17) - pgf.Page1.Label.HelpContextID = 0 - pgf.Page1.Label.Left = (6) - pgf.Page1.Label.MouseIcon = ..\..\ - pgf.Page1.Label.MousePointer = 0 - pgf.Page1.Label.Name = "Label" - pgf.Page1.Label.OLEDragMode = 0 - pgf.Page1.Label.OLEDragPicture = ..\..\ - pgf.Page1.Label.OLEDropEffects = 3 - pgf.Page1.Label.OLEDropMode = 0 - pgf.Page1.Label.RightToLeft = .F. - pgf.Page1.Label.Rotation = 0 - pgf.Page1.Label.StatusBarText = "" - pgf.Page1.Label.Style = 0 - pgf.Page1.Label.TabIndex = 7 - pgf.Page1.Label.Tag = "" - pgf.Page1.Label.test_aa = .F. - pgf.Page1.Label.ToolTipText = "" - pgf.Page1.Label.Top = (136) - pgf.Page1.Label.Visible = .T. - pgf.Page1.Label.WhatsThisHelpID = -1 - pgf.Page1.Label.Width = (104) - pgf.Page1.Label.WordWrap = .F. - pgf.Page1.Line.Anchor = 0 - pgf.Page1.Line.BorderColor = 255,0,0 - pgf.Page1.Line.BorderStyle = 1 - pgf.Page1.Line.BorderWidth = 1 - pgf.Page1.Line.ColorSource = 4 - pgf.Page1.Line.Comment = "" - pgf.Page1.Line.DefHeight = - pgf.Page1.Line.DefLeft = - pgf.Page1.Line.DefTop = - pgf.Page1.Line.DefWidth = - pgf.Page1.Line.DragIcon = ..\..\ - pgf.Page1.Line.DragMode = 0 - pgf.Page1.Line.DrawMode = 13 - pgf.Page1.Line.Enabled = .T. - pgf.Page1.Line.Height = (8) - pgf.Page1.Line.HelpContextID = 0 - pgf.Page1.Line.Left = (121) - pgf.Page1.Line.LineSlant = "\" - pgf.Page1.Line.MouseIcon = ..\..\ - pgf.Page1.Line.MousePointer = 0 - pgf.Page1.Line.Name = "Line" - pgf.Page1.Line.OLEDragMode = 0 - pgf.Page1.Line.OLEDragPicture = ..\..\ - pgf.Page1.Line.OLEDropEffects = 3 - pgf.Page1.Line.OLEDropMode = 0 - pgf.Page1.Line.PolyPoints = "" - pgf.Page1.Line.Rotation = 0 - pgf.Page1.Line.StatusBarText = "" - pgf.Page1.Line.Tag = "" - pgf.Page1.Line.test_aa = .F. - pgf.Page1.Line.ToolTipText = "" - pgf.Page1.Line.Top = (136) - pgf.Page1.Line.Visible = .T. - pgf.Page1.Line.WhatsThisHelpID = -1 - pgf.Page1.Line.Width = (50) - pgf.Page1.ListBox.Anchor = 0 - pgf.Page1.ListBox.AutoHideScrollbar = 0 - pgf.Page1.ListBox.BorderColor = 128,255,128 - pgf.Page1.ListBox.BoundColumn = 1 - pgf.Page1.ListBox.BoundTo = .F. - pgf.Page1.ListBox.ColorScheme = 1 - pgf.Page1.ListBox.ColorSource = 4 - pgf.Page1.ListBox.ColumnCount = 0 - pgf.Page1.ListBox.ColumnLines = .T. - pgf.Page1.ListBox.ColumnWidths = "" - pgf.Page1.ListBox.Comment = "" - pgf.Page1.ListBox.ControlSource = "" - pgf.Page1.ListBox.DefHeight = - pgf.Page1.ListBox.DefLeft = - pgf.Page1.ListBox.DefTop = - pgf.Page1.ListBox.DefWidth = - pgf.Page1.ListBox.DisabledBackColor = 255,255,255 - pgf.Page1.ListBox.DisabledForeColor = 109,109,109 - pgf.Page1.ListBox.DisabledItemBackColor = 255,255,255 - pgf.Page1.ListBox.DisabledItemForeColor = 109,109,109 - pgf.Page1.ListBox.DisplayValue = - pgf.Page1.ListBox.DragIcon = ..\..\ - pgf.Page1.ListBox.DragMode = 0 - pgf.Page1.ListBox.Enabled = .T. - pgf.Page1.ListBox.FirstElement = 1 - pgf.Page1.ListBox.FontBold = .F. - pgf.Page1.ListBox.FontCondense = .F. - pgf.Page1.ListBox.FontExtend = .F. - pgf.Page1.ListBox.FontItalic = .F. - pgf.Page1.ListBox.FontName = "Arial" - pgf.Page1.ListBox.FontOutline = .F. - pgf.Page1.ListBox.FontShadow = .F. - pgf.Page1.ListBox.FontSize = 8 - pgf.Page1.ListBox.FontStrikethru = .F. - pgf.Page1.ListBox.FontUnderline = .F. - pgf.Page1.ListBox.Height = (60) - pgf.Page1.ListBox.HelpContextID = 0 - pgf.Page1.ListBox.IncrementalSearch = .T. - pgf.Page1.ListBox.IntegralHeight = .F. - pgf.Page1.ListBox.ItemBackColor = 255,255,255 - pgf.Page1.ListBox.ItemForeColor = 0,0,0 - pgf.Page1.ListBox.ItemTips = .F. - pgf.Page1.ListBox.Left = (7) - pgf.Page1.ListBox.MouseIcon = ..\..\ - pgf.Page1.ListBox.MousePointer = 0 - pgf.Page1.ListBox.MoverBars = .F. - pgf.Page1.ListBox.MultiSelect = .F. - pgf.Page1.ListBox.Name = "ListBox" - pgf.Page1.ListBox.NullDisplay = "" - pgf.Page1.ListBox.OLEDragMode = 0 - pgf.Page1.ListBox.OLEDragPicture = ..\..\ - pgf.Page1.ListBox.OLEDropEffects = 3 - pgf.Page1.ListBox.OLEDropMode = 0 - pgf.Page1.ListBox.Picture = ..\..\ - pgf.Page1.ListBox.RightToLeft = .F. - pgf.Page1.ListBox.RowSource = "" - pgf.Page1.ListBox.RowSourceType = 0 - pgf.Page1.ListBox.SelectedItemBackColor = 51,153,255 - pgf.Page1.ListBox.SelectedItemForeColor = 255,255,255 - pgf.Page1.ListBox.Sorted = .F. - pgf.Page1.ListBox.SpecialEffect = 1 - pgf.Page1.ListBox.StatusBarText = "" - pgf.Page1.ListBox.TabIndex = 8 - pgf.Page1.ListBox.TabStop = .T. - pgf.Page1.ListBox.Tag = "" - pgf.Page1.ListBox.TerminateRead = .F. - pgf.Page1.ListBox.test_aa = .F. - pgf.Page1.ListBox.Themes = .T. - pgf.Page1.ListBox.ToolTipText = "" - pgf.Page1.ListBox.Top = (164) - pgf.Page1.ListBox.Value = - pgf.Page1.ListBox.Visible = .T. - pgf.Page1.ListBox.WhatsThisHelpID = -1 - pgf.Page1.ListBox.Width = (224) - pgf.Page1.Name = "Page1" - pgf.Page1.option.Alignment = 0 - pgf.Page1.option.Anchor = 0 - pgf.Page1.option.AutoSize = .F. - pgf.Page1.option.BackColor = 240,240,240 - pgf.Page1.option.BackStyle = 1 - pgf.Page1.option.Caption = "Esta es la opción B" - pgf.Page1.option.ColorScheme = 1 - pgf.Page1.option.ColorSource = 4 - pgf.Page1.option.Comment = "" - pgf.Page1.option.ControlSource = "" - pgf.Page1.option.DefHeight = - pgf.Page1.option.DefLeft = - pgf.Page1.option.DefTop = - pgf.Page1.option.DefWidth = - pgf.Page1.option.DisabledBackColor = 240,240,240 - pgf.Page1.option.DisabledForeColor = 109,109,109 - pgf.Page1.option.DisabledPicture = ..\..\ - pgf.Page1.option.DownPicture = ..\..\ - pgf.Page1.option.DragIcon = ..\..\ - pgf.Page1.option.DragMode = 0 - pgf.Page1.option.Enabled = .T. - pgf.Page1.option.FontBold = .F. - pgf.Page1.option.FontCharSet = 0 - pgf.Page1.option.FontCondense = .F. - pgf.Page1.option.FontExtend = .F. - pgf.Page1.option.FontItalic = .F. - pgf.Page1.option.FontName = "Arial" - pgf.Page1.option.FontOutline = .F. - pgf.Page1.option.FontShadow = .F. - pgf.Page1.option.FontSize = 8 - pgf.Page1.option.FontStrikethru = .F. - pgf.Page1.option.FontUnderline = .F. - pgf.Page1.option.ForeColor = 0,0,0 - pgf.Page1.option.Height = (16) - pgf.Page1.option.HelpContextID = 0 - pgf.Page1.option.Left = (123) - pgf.Page1.option.MouseIcon = ..\..\ - pgf.Page1.option.MousePointer = 0 - pgf.Page1.option.Name = "option" - pgf.Page1.option.OLEDragMode = 0 - pgf.Page1.option.OLEDragPicture = ..\..\ - pgf.Page1.option.OLEDropEffects = 3 - pgf.Page1.option.OLEDropMode = 0 - pgf.Page1.option.Picture = ..\..\ - pgf.Page1.option.PictureMargin = 0 - pgf.Page1.option.PicturePosition = 13 - pgf.Page1.option.PictureSpacing = 0 - pgf.Page1.option.RightToLeft = .F. - pgf.Page1.option.SpecialEffect = 0 - pgf.Page1.option.StatusBarText = "" - pgf.Page1.option.Style = 0 - pgf.Page1.option.TabIndex = 1 - pgf.Page1.option.TabStop = .T. - pgf.Page1.option.Tag = "" - pgf.Page1.option.TerminateRead = .F. - pgf.Page1.option.test_aa = .F. - pgf.Page1.option.Themes = .T. - pgf.Page1.option.ToolTipText = "" - pgf.Page1.option.Top = (232) - pgf.Page1.option.Value = 0 - pgf.Page1.option.Visible = .T. - pgf.Page1.option.WhatsThisHelpID = -1 - pgf.Page1.option.Width = (110) - pgf.Page1.option.WordWrap = .F. - pgf.Page1.OptionGroup.Anchor = 0 - pgf.Page1.OptionGroup.AutoSize = .F. - pgf.Page1.OptionGroup.BackColor = 240,240,240 - pgf.Page1.OptionGroup.BackStyle = 1 - pgf.Page1.OptionGroup.BorderColor = 100,100,100 - pgf.Page1.OptionGroup.BorderStyle = 1 - pgf.Page1.OptionGroup.ButtonCount = 2 - pgf.Page1.OptionGroup.ColorSource = 4 - pgf.Page1.OptionGroup.Comment = "" - pgf.Page1.OptionGroup.ControlSource = "" - pgf.Page1.OptionGroup.DefHeight = - pgf.Page1.OptionGroup.DefLeft = - pgf.Page1.OptionGroup.DefTop = - pgf.Page1.OptionGroup.DefWidth = - pgf.Page1.OptionGroup.DragIcon = ..\..\ - pgf.Page1.OptionGroup.DragMode = 0 - pgf.Page1.OptionGroup.Enabled = .T. - pgf.Page1.OptionGroup.Height = (46) - pgf.Page1.OptionGroup.HelpContextID = 0 - pgf.Page1.OptionGroup.Left = (7) - pgf.Page1.OptionGroup.MemberClassLibrary = ..\..\ - pgf.Page1.OptionGroup.MouseIcon = ..\..\ - pgf.Page1.OptionGroup.MousePointer = 0 - pgf.Page1.OptionGroup.Name = "OptionGroup" - pgf.Page1.OptionGroup.OLEDragMode = 0 - pgf.Page1.OptionGroup.OLEDragPicture = ..\..\ - pgf.Page1.OptionGroup.OLEDropEffects = 3 - pgf.Page1.OptionGroup.OLEDropMode = 0 - pgf.Page1.OptionGroup.Option1.Height = 16 - pgf.Page1.OptionGroup.Option1.Left = 5 - pgf.Page1.OptionGroup.Option1.Name = "Option1" - pgf.Page1.OptionGroup.Option1.Top = 5 - pgf.Page1.OptionGroup.Option1.Width = 103 - pgf.Page1.OptionGroup.Option2.Height = 16 - pgf.Page1.OptionGroup.Option2.Left = 5 - pgf.Page1.OptionGroup.Option2.Name = "Option2" - pgf.Page1.OptionGroup.Option2.Top = 24 - pgf.Page1.OptionGroup.Option2.Value = 0 - pgf.Page1.OptionGroup.Option2.Width = 103 - pgf.Page1.OptionGroup.SpecialEffect = 0 - pgf.Page1.OptionGroup.StatusBarText = "" - pgf.Page1.OptionGroup.TabIndex = 1 - pgf.Page1.OptionGroup.Tag = "" - pgf.Page1.OptionGroup.TerminateRead = .F. - pgf.Page1.OptionGroup.test_aa = .F. - pgf.Page1.OptionGroup.Themes = .T. - pgf.Page1.OptionGroup.ToolTipText = "" - pgf.Page1.OptionGroup.Top = (232) - pgf.Page1.OptionGroup.Value = 0 - pgf.Page1.OptionGroup.Visible = .T. - pgf.Page1.OptionGroup.WhatsThisHelpID = -1 - pgf.Page1.OptionGroup.Width = (112) - pgf.Page1.Pageframe1.ActivePage = 1 - pgf.Page1.Pageframe1.Anchor = 0 - pgf.Page1.Pageframe1.Cl_page1.Name = "Cl_page1" - pgf.Page1.Pageframe1.Cl_page2.Name = "Cl_page2" - pgf.Page1.Pageframe1.ColorSource = 4 - pgf.Page1.Pageframe1.Comment = "" - pgf.Page1.Pageframe1.DefHeight = - pgf.Page1.Pageframe1.DefLeft = - pgf.Page1.Pageframe1.DefTop = - pgf.Page1.Pageframe1.DefWidth = - pgf.Page1.Pageframe1.DragIcon = ..\..\ - pgf.Page1.Pageframe1.DragMode = 0 - pgf.Page1.Pageframe1.Enabled = .T. - pgf.Page1.Pageframe1.ErasePage = .T. - pgf.Page1.Pageframe1.Height = (61) - pgf.Page1.Pageframe1.HelpContextID = 0 - pgf.Page1.Pageframe1.Left = (135) - pgf.Page1.Pageframe1.MemberClassLibrary = lib_controles.vcx - pgf.Page1.Pageframe1.MouseIcon = ..\..\ - pgf.Page1.Pageframe1.MousePointer = 0 - pgf.Page1.Pageframe1.Name = "Pageframe1" - pgf.Page1.Pageframe1.OLEDragMode = 0 - pgf.Page1.Pageframe1.OLEDragPicture = ..\..\ - pgf.Page1.Pageframe1.OLEDropEffects = 3 - pgf.Page1.Pageframe1.OLEDropMode = 0 - pgf.Page1.Pageframe1.PageCount = 2 - pgf.Page1.Pageframe1.RightToLeft = .F. - pgf.Page1.Pageframe1.StatusBarText = "" - pgf.Page1.Pageframe1.TabIndex = 10 - pgf.Page1.Pageframe1.TabOrientation = 2 - pgf.Page1.Pageframe1.Tabs = .T. - pgf.Page1.Pageframe1.TabStop = .T. - pgf.Page1.Pageframe1.TabStretch = 1 - pgf.Page1.Pageframe1.TabStyle = 0 - pgf.Page1.Pageframe1.Tag = "" - pgf.Page1.Pageframe1.Themes = .F. - pgf.Page1.Pageframe1.ToolTipText = "" - pgf.Page1.Pageframe1.Top = (284) - pgf.Page1.Pageframe1.Visible = .T. - pgf.Page1.Pageframe1.WhatsThisHelpID = -1 - pgf.Page1.Pageframe1.Width = (117) - pgf.Page1.PageOrder = 1 - pgf.Page1.Spinner.Alignment = 1 - pgf.Page1.Spinner.Anchor = 0 - pgf.Page1.Spinner.BackColor = 255,255,255 - pgf.Page1.Spinner.BorderColor = 128,255,128 - pgf.Page1.Spinner.BorderStyle = 1 - pgf.Page1.Spinner.ColorScheme = 1 - pgf.Page1.Spinner.ColorSource = 4 - pgf.Page1.Spinner.Comment = "" - pgf.Page1.Spinner.ControlSource = "" - pgf.Page1.Spinner.DefHeight = - pgf.Page1.Spinner.DefLeft = - pgf.Page1.Spinner.DefTop = - pgf.Page1.Spinner.DefWidth = - pgf.Page1.Spinner.DisabledBackColor = 240,240,240 - pgf.Page1.Spinner.DisabledForeColor = 109,109,109 - pgf.Page1.Spinner.DragIcon = ..\..\ - pgf.Page1.Spinner.DragMode = 0 - pgf.Page1.Spinner.Enabled = .T. - pgf.Page1.Spinner.FontBold = .F. - pgf.Page1.Spinner.FontCondense = .F. - pgf.Page1.Spinner.FontExtend = .F. - pgf.Page1.Spinner.FontItalic = .F. - pgf.Page1.Spinner.FontName = "Arial" - pgf.Page1.Spinner.FontOutline = .F. - pgf.Page1.Spinner.FontShadow = .F. - pgf.Page1.Spinner.FontSize = 8 - pgf.Page1.Spinner.FontStrikethru = .F. - pgf.Page1.Spinner.FontUnderline = .F. - pgf.Page1.Spinner.ForeColor = 0,0,0 - pgf.Page1.Spinner.Format = "" - pgf.Page1.Spinner.Height = (19) - pgf.Page1.Spinner.HelpContextID = 0 - pgf.Page1.Spinner.HideSelection = .T. - pgf.Page1.Spinner.Increment = 1.00 - pgf.Page1.Spinner.InputMask = "" - pgf.Page1.Spinner.KeyboardHighValue = 2147483647 - pgf.Page1.Spinner.KeyboardLowValue = -2147483647 - pgf.Page1.Spinner.Left = (11) - pgf.Page1.Spinner.Margin = 0 - pgf.Page1.Spinner.MouseIcon = ..\..\ - pgf.Page1.Spinner.MousePointer = 0 - pgf.Page1.Spinner.Name = "Spinner" - pgf.Page1.Spinner.NullDisplay = "" - pgf.Page1.Spinner.OLEDragMode = 0 - pgf.Page1.Spinner.OLEDragPicture = ..\..\ - pgf.Page1.Spinner.OLEDropEffects = 3 - pgf.Page1.Spinner.OLEDropMode = 0 - pgf.Page1.Spinner.OLEDropTextInsertion = 0 - pgf.Page1.Spinner.ReadOnly = .F. - pgf.Page1.Spinner.RightToLeft = .F. - pgf.Page1.Spinner.SelectedBackColor = 51,153,255 - pgf.Page1.Spinner.SelectedForeColor = 255,255,255 - pgf.Page1.Spinner.SelectOnEntry = .F. - pgf.Page1.Spinner.SpecialEffect = 1 - pgf.Page1.Spinner.SpinnerHighValue = 2147483647.00 - pgf.Page1.Spinner.SpinnerLowValue = -2147483647.00 - pgf.Page1.Spinner.StatusBarText = "" - pgf.Page1.Spinner.TabIndex = 9 - pgf.Page1.Spinner.TabStop = .T. - pgf.Page1.Spinner.Tag = "" - pgf.Page1.Spinner.TerminateRead = .F. - pgf.Page1.Spinner.test_aa = .F. - pgf.Page1.Spinner.Themes = .T. - pgf.Page1.Spinner.ToolTipText = "" - pgf.Page1.Spinner.Top = (292) - pgf.Page1.Spinner.Value = 0 - pgf.Page1.Spinner.Visible = .T. - pgf.Page1.Spinner.WhatsThisHelpID = -1 - pgf.Page1.Spinner.Width = (108) - pgf.Page1.TextBox.Alignment = 3 - pgf.Page1.TextBox.Anchor = 0 - pgf.Page1.TextBox.AutoComplete = 0 - pgf.Page1.TextBox.AutoCompSource = "" - pgf.Page1.TextBox.AutoCompTable = "" - pgf.Page1.TextBox.BackColor = 255,255,255 - pgf.Page1.TextBox.BackStyle = 1 - pgf.Page1.TextBox.BorderColor = 128,255,128 - pgf.Page1.TextBox.BorderStyle = 1 - pgf.Page1.TextBox.Century = 1 - pgf.Page1.TextBox.ColorScheme = 1 - pgf.Page1.TextBox.ColorSource = 4 - pgf.Page1.TextBox.Comment = "" - pgf.Page1.TextBox.ControlSource = "" - pgf.Page1.TextBox.DateFormat = 0 - pgf.Page1.TextBox.DateMark = "" - pgf.Page1.TextBox.DefHeight = - pgf.Page1.TextBox.DefLeft = - pgf.Page1.TextBox.DefTop = - pgf.Page1.TextBox.DefWidth = - pgf.Page1.TextBox.DisabledBackColor = 240,240,240 - pgf.Page1.TextBox.DisabledForeColor = 109,109,109 - pgf.Page1.TextBox.DragIcon = ..\..\ - pgf.Page1.TextBox.DragMode = 0 - pgf.Page1.TextBox.Enabled = .T. - pgf.Page1.TextBox.EnableHyperlinks = .F. - pgf.Page1.TextBox.FontBold = .F. - pgf.Page1.TextBox.FontCondense = .F. - pgf.Page1.TextBox.FontExtend = .F. - pgf.Page1.TextBox.FontItalic = .F. - pgf.Page1.TextBox.FontName = "Arial" - pgf.Page1.TextBox.FontOutline = .F. - pgf.Page1.TextBox.FontShadow = .F. - pgf.Page1.TextBox.FontSize = 8 - pgf.Page1.TextBox.FontStrikethru = .F. - pgf.Page1.TextBox.FontUnderline = .F. - pgf.Page1.TextBox.ForeColor = 0,0,0 - pgf.Page1.TextBox.Format = "" - pgf.Page1.TextBox.Height = (19) - pgf.Page1.TextBox.HelpContextID = 0 - pgf.Page1.TextBox.HideSelection = .T. - pgf.Page1.TextBox.Hours = 0 - pgf.Page1.TextBox.IMEMode = 0 - pgf.Page1.TextBox.InputMask = "" - pgf.Page1.TextBox.IntegralHeight = .F. - pgf.Page1.TextBox.Left = (11) - pgf.Page1.TextBox.Margin = 0 - pgf.Page1.TextBox.MaxLength = 0 - pgf.Page1.TextBox.MemoWindow = "" - pgf.Page1.TextBox.MouseIcon = ..\..\ - pgf.Page1.TextBox.MousePointer = 0 - pgf.Page1.TextBox.Name = "TextBox" - pgf.Page1.TextBox.NullDisplay = "" - pgf.Page1.TextBox.OLEDragMode = 0 - pgf.Page1.TextBox.OLEDragPicture = ..\..\ - pgf.Page1.TextBox.OLEDropEffects = 3 - pgf.Page1.TextBox.OLEDropMode = 0 - pgf.Page1.TextBox.OLEDropTextInsertion = 0 - pgf.Page1.TextBox.OpenWindow = .F. - pgf.Page1.TextBox.PasswordChar = "" - pgf.Page1.TextBox.ReadOnly = .F. - pgf.Page1.TextBox.RightToLeft = .F. - pgf.Page1.TextBox.Seconds = 2 - pgf.Page1.TextBox.SelectedBackColor = 51,153,255 - pgf.Page1.TextBox.SelectedForeColor = 255,255,255 - pgf.Page1.TextBox.SelectOnEntry = .F. - pgf.Page1.TextBox.SpecialEffect = 1 - pgf.Page1.TextBox.StatusBarText = "" - pgf.Page1.TextBox.StrictDateEntry = 1 - pgf.Page1.TextBox.Style = 0 - pgf.Page1.TextBox.TabIndex = 1 - pgf.Page1.TextBox.TabStop = .T. - pgf.Page1.TextBox.Tag = "" - pgf.Page1.TextBox.TerminateRead = .F. - pgf.Page1.TextBox.test_aa = .F. - pgf.Page1.TextBox.Themes = .T. - pgf.Page1.TextBox.ToolTipText = "" - pgf.Page1.TextBox.Top = (320) - pgf.Page1.TextBox.Value = - pgf.Page1.TextBox.Visible = .T. - pgf.Page1.TextBox.WhatsThisHelpID = -1 - pgf.Page1.TextBox.Width = (108) - pgf.Page1.Timer.Comment = "no comment" - pgf.Page1.Timer.DefHeight = - pgf.Page1.Timer.DefLeft = - pgf.Page1.Timer.DefTop = - pgf.Page1.Timer.DefWidth = - pgf.Page1.Timer.Enabled = .T. - pgf.Page1.Timer.Height = (23) - pgf.Page1.Timer.Interval = 0 - pgf.Page1.Timer.Left = (207) - pgf.Page1.Timer.Name = "Timer" - pgf.Page1.Timer.test_aa = .F. - pgf.Page1.Timer.Top = (252) - pgf.Page1.Timer.Width = (23) - pgf.Page2.Name = "Page2" - pgf.Page2.PageOrder = 2 - pgf.PageCount = 2 - pgf.RightToLeft = .F. - pgf.TabIndex = 7 - pgf.TabOrientation = 1 - pgf.Tabs = .T. - pgf.TabStop = .T. - pgf.TabStretch = 1 - pgf.TabStyle = 0 - pgf.Tag = "" - pgf.test_aa = .F. - pgf.Themes = .T. - pgf.ToolTipText = "" - pgf.Top = 28 - pgf.Visible = .T. - pgf.WhatsThisHelpID = -1 - pgf.Width = 268 - Image1.Height = 104 - Image1.Name = "Image1" - Image1.Width = 212 - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_form_controles.sc2 b/TESTS/DATOS_READONLY/f_form_controles.sc2 deleted file mode 100644 index a90be08..0000000 --- a/TESTS/DATOS_READONLY/f_form_controles.sc2 +++ /dev/null @@ -1,3137 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_form_controles.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Name = "Dataenvironment" - TabStop = .F. - Visible = .F. - -ENDDEFINE - -DEFINE CLASS f_base1 AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Label5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Shape2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Line2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image7" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image8" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image9" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Image10" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Cl_page2.Spinner2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Spinner1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Line2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image7" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image8" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image9" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Image10" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Spinner2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Label5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Shape2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Line2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image7" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image8" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image9" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Image10" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_pageframe1.Page2.Spinner2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_label1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_shape1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_line1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_spinner1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_label2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_shape2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_line2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image7" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image8" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image9" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_image10" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_spinner2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Timer1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_timer1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Hyperlink1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_hyperlink1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_collection1" UniqueID="" Timestamp="" /> - - AllowOutput = .T. - AlwaysOnBottom = .F. - AlwaysOnTop = .T. - AutoCenter = .F. - BackColor = 192,192,192 - BindControls = .T. - BorderStyle = 3 - BufferMode = 0 - Caption = "Form_y_Controles_Varios_Test" - ClipControls = .T. - Closable = .T. - ColorSource = 4 - Comment = "" - ContinuousScroll = .T. - ControlBox = .T. - DataSession = 1 - DEClass = "cl_dataenvironment" - DEClassLibrary = lib_controles.vcx - DefHeight = - DefLeft = - DefOleLCID = 0 - DefTop = - DefWidth = - Desktop = .F. - Dockable = 0 - DoCreate = .T. - DrawMode = 13 - DrawStyle = 0 - DrawWidth = 1 - Enabled = .T. - FillColor = 0,0,0 - FillStyle = 1 - FontBold = .F. - FontCharSet = 0 - FontCondense = .F. - FontExtend = .F. - FontItalic = .F. - FontName = "Arial" - FontOutline = .F. - FontShadow = .F. - FontSize = 8 - FontStrikethru = .F. - FontUnderline = .F. - ForeColor = 0,0,0 - HalfHeightCaption = .F. - Height = (424) - HelpContextID = 0 - HScrollSmallChange = 10 - Icon = bmps\container.ico - KeyPreview = .F. - Left = (2) - LockScreen = .F. - MacDesktop = 0 - MaxButton = .T. - MaxHeight = -1 - MaxLeft = -1 - MaxTop = -1 - MaxWidth = -1 - MDIForm = .F. - MinButton = .T. - MinHeight = -1 - MinWidth = -1 - MouseIcon = ..\..\ - MousePointer = 0 - Movable = .T. - Name = "F_base1" - OLEDragMode = 0 - OLEDragPicture = ..\..\ - OLEDropEffects = 3 - OLEDropMode = 0 - Picture = bmps\fondogris.bmp - RightToLeft = .F. - ScaleMode = 3 - ScrollBars = 0 - ShowInTaskBar = .T. - ShowTips = .F. - ShowWindow = 0 - SizeBox = .F. - TabIndex = 1 - TabStop = .T. - Tag = "" - Themes = .T. - TitleBar = 1 - Top = (3) - Visible = .T. - VScrollSmallChange = 10 - WhatsThisButton = .F. - WhatsThisHelp = .F. - WhatsThisHelpID = -1 - Width = (819) - WindowState = 0 - WindowType = 0 - ZoomBox = .F. - Edit1.Name = "Edit1" - Edit1.RightToLeft = .F. - Label3.Name = "Label3" - Label3.RightToLeft = .F. - cmdCapturar.Name = "cmdCapturar" - cmdCapturar.RightToLeft = .F. - Label1.Caption = "CONTROL NORMAL" - Label1.Name = "Label1" - Label1.RightToLeft = .F. - Label2.Caption = "CONTROL SUBCLASADOS" - Label2.Name = "Label2" - Label2.RightToLeft = .F. - - ADD OBJECT 'Cl_collection1' AS cl_collection WITH ; - Left = 325, ; - Name = "Cl_collection1", ; - Top = 390 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="collection" /> - - ADD OBJECT 'Cl_hyperlink1' AS cl_hyperlink WITH ; - Comment = "", ; - Left = 362, ; - Name = "Cl_hyperlink1", ; - Tag = "", ; - Top = 390 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="hyperlink" /> - - ADD OBJECT 'Cl_image1' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 16, ; - HelpContextID = 0, ; - Left = 312, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image10' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 496, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image10", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 132, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image2' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 32, ; - HelpContextID = 0, ; - Left = 312, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 120, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image3' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 388, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image4' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 52, ; - HelpContextID = 0, ; - Left = 348, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image5' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 388, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 132, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image6' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 16, ; - HelpContextID = 0, ; - Left = 420, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image7' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 32, ; - HelpContextID = 0, ; - Left = 420, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image7", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 120, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image8' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 496, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image8", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_image9' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 52, ; - HelpContextID = 0, ; - Left = 456, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_image9", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_label1' AS cl_label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 312, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_label1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 40, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" /> - - ADD OBJECT 'Cl_label2' AS cl_label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 420, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_label2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 40, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" /> - - ADD OBJECT 'Cl_line1' AS cl_line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Height = 8, ; - HelpContextID = 0, ; - Left = 312, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_line1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 80, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" /> - - ADD OBJECT 'Cl_line2' AS cl_line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - Height = 8, ; - HelpContextID = 0, ; - Left = 420, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_line2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 80, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" /> - - ADD OBJECT 'Cl_pageframe1' AS cl_pageframe WITH ; - ActivePage = 2, ; - Anchor = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ErasePage = .T., ; - Height = 188, ; - HelpContextID = 0, ; - Left = 292, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_pageframe1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PageCount = 3, ; - RightToLeft = .F., ; - StatusBarText = "", ; - TabOrientation = 0, ; - Tabs = .T., ; - TabStop = .T., ; - TabStretch = 1, ; - TabStyle = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 200, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 256, ; - Page1.Name = "Page1", ; - Page2.Name = "Page2", ; - Page3.Caption = "Page3", ; - Page3.Name = "Page3" - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="pageframe" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image1' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 16, ; - HelpContextID = 0, ; - Left = 19, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image10' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 203, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image10", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image2' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 32, ; - HelpContextID = 0, ; - Left = 19, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 88, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image3' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 95, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image4' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 52, ; - HelpContextID = 0, ; - Left = 55, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image5' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 95, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image6' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 16, ; - HelpContextID = 0, ; - Left = 127, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image7' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 32, ; - HelpContextID = 0, ; - Left = 127, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image7", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 88, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image8' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 203, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image8", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Image9' AS cl_image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 52, ; - HelpContextID = 0, ; - Left = 163, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image9", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Label4' AS cl_label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 19, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 8, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Label5' AS cl_label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 127, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 8, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="label" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Line1' AS cl_line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Height = 8, ; - HelpContextID = 0, ; - Left = 19, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 48, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Line2' AS cl_line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - Height = 8, ; - HelpContextID = 0, ; - Left = 127, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 48, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="line" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Shape1' AS cl_shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 19, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 28, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Shape2' AS cl_shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 127, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 28, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Spinner1' AS cl_spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 19, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 128, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" /> - - ADD OBJECT 'Cl_pageframe1.Page2.Spinner2' AS cl_spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 127, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 128, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" /> - - ADD OBJECT 'Cl_shape1' AS cl_shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 312, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_shape1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 60, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" /> - - ADD OBJECT 'Cl_shape2' AS cl_shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 420, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_shape2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 60, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="shape" /> - - ADD OBJECT 'Cl_spinner1' AS cl_spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 312, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_spinner1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 160, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" /> - - ADD OBJECT 'Cl_spinner2' AS cl_spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 420, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_spinner2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 160, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="spinner" /> - - ADD OBJECT 'Cl_timer1' AS cl_timer WITH ; - Comment = "", ; - Enabled = .T., ; - Height = 23, ; - Interval = 0, ; - Left = 292, ; - Name = "Cl_timer1", ; - Tag = "", ; - Top = 392, ; - Width = 23 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="timer" /> - - ADD OBJECT 'Hyperlink1' AS hyperlink WITH ; - Comment = "", ; - Height = 23, ; - Left = 72, ; - Name = "Hyperlink1", ; - Tag = "", ; - Top = 392, ; - Width = 23 - *< END OBJECT: BaseClass="hyperlink" /> - - ADD OBJECT 'Image1' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = (16), ; - HelpContextID = 0, ; - Left = (44), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = (100), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (17) - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image10' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 228, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image10", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 132, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image2' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 32, ; - HelpContextID = 0, ; - Left = 44, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 120, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image3' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 120, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image4' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 52, ; - HelpContextID = 0, ; - Left = 80, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image5' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 120, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 132, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image6' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 16, ; - HelpContextID = 0, ; - Left = 152, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image7' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 32, ; - HelpContextID = 0, ; - Left = 152, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image7", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 120, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image8' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 228, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image8", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Image9' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 52, ; - HelpContextID = 0, ; - Left = 188, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image9", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Label4' AS label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = (17), ; - HelpContextID = 0, ; - Left = (44), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = (40), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (104), ; - WordWrap = .F. - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Label5' AS label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 152, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 40, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Line1' AS line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Height = (8), ; - HelpContextID = 0, ; - Left = (44), ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = (80), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (104) - *< END OBJECT: BaseClass="line" /> - - ADD OBJECT 'Line2' AS line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - Height = 8, ; - HelpContextID = 0, ; - Left = 152, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 80, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="line" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ActivePage = 2, ; - Anchor = 0, ; - ColorSource = 4, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - ErasePage = .T., ; - Height = (189), ; - HelpContextID = 0, ; - Left = (20), ; - MemberClass = "cl_page", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Pageframe1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PageCount = 3, ; - RightToLeft = .F., ; - StatusBarText = "", ; - TabOrientation = 0, ; - Tabs = .T., ; - TabStop = .T., ; - TabStretch = 1, ; - TabStyle = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = (200), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (256), ; - Cl_page1.Name = "Cl_page1", ; - Cl_page2.Name = "Cl_page2", ; - Cl_page3.Name = "Cl_page3" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image1' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 16, ; - HelpContextID = 0, ; - Left = 23, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image10' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 207, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image10", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image2' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 32, ; - HelpContextID = 0, ; - Left = 23, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 88, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image3' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 99, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image3", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image4' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 52, ; - HelpContextID = 0, ; - Left = 59, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image5' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Height = 20, ; - HelpContextID = 0, ; - Left = 99, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 5, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 100, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image6' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 16, ; - HelpContextID = 0, ; - Left = 131, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image6", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 17 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image7' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 32, ; - HelpContextID = 0, ; - Left = 131, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image7", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - StatusBarText = "", ; - Stretch = 1, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 88, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 32 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image8' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 20, ; - HelpContextID = 0, ; - Left = 207, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image8", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 16 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Image9' AS image WITH ; - Anchor = 0, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 0, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - Height = 52, ; - HelpContextID = 0, ; - Left = 167, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Image9", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RotateFlip = 1, ; - StatusBarText = "", ; - Stretch = 2, ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 68, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 36 - *< END OBJECT: BaseClass="image" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Label4' AS label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 23, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label4", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 8, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Label5' AS label WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderStyle = 0, ; - Caption = "Label4", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 131, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Label5", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - RightToLeft = .F., ; - Rotation = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 8, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104, ; - WordWrap = .F. - *< END OBJECT: BaseClass="label" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Line1' AS line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Height = 8, ; - HelpContextID = 0, ; - Left = 23, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 48, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="line" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Line2' AS line WITH ; - Anchor = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorSource = 4, ; - Comment = "", ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - Height = 8, ; - HelpContextID = 0, ; - Left = 131, ; - LineSlant = "\", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Line2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - Top = 48, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="line" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Shape1' AS shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 23, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 28, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Shape2' AS shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 131, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 28, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Spinner1' AS spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 23, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 128, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="spinner" /> - - ADD OBJECT 'Pageframe1.Cl_page2.Spinner2' AS spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 131, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 128, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="spinner" /> - - ADD OBJECT 'Shape1' AS shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = (17), ; - HelpContextID = 0, ; - Left = (44), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = (60), ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (105) - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'Shape2' AS shape WITH ; - Anchor = 0, ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - BorderWidth = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - Curvature = 0, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - DrawMode = 13, ; - Enabled = .F., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - Height = 17, ; - HelpContextID = 0, ; - Left = 152, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Shape2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - PolyPoints = "", ; - Rotation = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - Tag = "", ; - ToolTipText = "", ; - Top = 60, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 105 - *< END OBJECT: BaseClass="shape" /> - - ADD OBJECT 'Spinner1' AS spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (24), ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = (44), ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (160), ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (104) - *< END OBJECT: BaseClass="spinner" /> - - ADD OBJECT 'Spinner2' AS spinner WITH ; - Alignment = 1, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 24, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Increment = 1.00, ; - InputMask = "", ; - KeyboardHighValue = 2147483647, ; - KeyboardLowValue = -2147483647, ; - Left = 152, ; - Margin = 2, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Spinner2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - ReadOnly = .F., ; - RightToLeft = .F., ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - SpinnerHighValue = 2147483647.00, ; - SpinnerLowValue = -2147483647.00, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 160, ; - Value = 123, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 104 - *< END OBJECT: BaseClass="spinner" /> - - ADD OBJECT 'Timer1' AS timer WITH ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - Enabled = .T., ; - Height = (23), ; - Interval = 0, ; - Left = (24), ; - Name = "Timer1", ; - Tag = "", ; - Top = (392), ; - Width = (23) - *< END OBJECT: BaseClass="timer" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_formset.sc2 b/TESTS/DATOS_READONLY/f_formset.sc2 deleted file mode 100644 index 2482016..0000000 --- a/TESTS/DATOS_READONLY/f_formset.sc2 +++ /dev/null @@ -1,971 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_formset.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="2" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" /> - - AutoCloseTables = .T. - AutoOpenTables = .T. - Comment = "" - DataSource = .NULL. - DataSourceType = "" - Height = 200 - InitialSelectedAlias = "" - Left = 1 - Name = "Dataenvironment" - OpenViews = 0 - Tag = "" - Top = 220 - Width = 520 - - ADD OBJECT 'Cursor1' AS cursor WITH ; - Alias = "encuestas", ; - BufferModeOverride = 1, ; - Comment = "", ; - CursorSource = encuestas.dbf, ; - Exclusive = .F., ; - Filter = "", ; - Height = 90, ; - Left = 10, ; - Name = "Cursor1", ; - NoDataOnLoad = .F., ; - Order = "", ; - OrderDirection = 0, ; - ReadOnly = .F., ; - Tag = "", ; - Top = 20, ; - Width = 90 - *< END OBJECT: BaseClass="cursor" /> - -ENDDEFINE - -DEFINE CLASS formset AS formset - *< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="F_base1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column1.Cl_header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column2.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column3.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column4.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.grdEncuestas.Cl_column5.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Cl_grid1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="F_base1.Pageframe1.Page1.Cl_grid1" UniqueID="" Timestamp="" /> - - * - *p: c_testname - * - - AutoRelease = .T. - BufferMode = 0 - Comment = "" - c_testname = Formset_Test - DataSession = 2 - Name = "Formset" - ReadCycle = .T. - ReadLock = .T. - ReadMouse = .T. - ReadSave = .F. - ReadTimeout = 0 - Tag = "" - Visible = .T. - WindowList = "" - WindowType = 0 - - ADD OBJECT 'F_base1' AS f_base WITH ; - AllowOutput = .T., ; - AlwaysOnBottom = .F., ; - AlwaysOnTop = .T., ; - AutoCenter = .F., ; - BackColor = 192,192,192, ; - BindControls = .T., ; - BorderStyle = 3, ; - ClipControls = .T., ; - Closable = .T., ; - ColorSource = 4, ; - Comment = "", ; - ContinuousScroll = .T., ; - ControlBox = .T., ; - c_testname = Formset_Test, ; - DefHeight = , ; - DefLeft = , ; - DefOleLCID = 0, ; - DefTop = , ; - DefWidth = , ; - Desktop = .F., ; - Dockable = 0, ; - DoCreate = .T., ; - DrawMode = 13, ; - DrawStyle = 0, ; - DrawWidth = 1, ; - Enabled = .T., ; - FillColor = 0,0,0, ; - FillStyle = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - HalfHeightCaption = .F., ; - Height = (424), ; - HelpContextID = 0, ; - HScrollSmallChange = 10, ; - Icon = ..\..\, ; - KeyPreview = .F., ; - Left = (2), ; - LockScreen = .F., ; - MacDesktop = 0, ; - MaxButton = .T., ; - MaxHeight = -1, ; - MaxLeft = -1, ; - MaxTop = -1, ; - MaxWidth = -1, ; - MDIForm = .F., ; - MinButton = .T., ; - MinHeight = -1, ; - MinWidth = -1, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Movable = .T., ; - Name = "F_base1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = ..\..\, ; - RightToLeft = .F., ; - ScaleMode = 3, ; - ScrollBars = 0, ; - ShowInTaskBar = .T., ; - ShowTips = .F., ; - ShowWindow = 0, ; - SizeBox = .F., ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - Themes = .T., ; - TitleBar = 1, ; - Top = (4), ; - Visible = .T., ; - VScrollSmallChange = 10, ; - WhatsThisButton = .F., ; - WhatsThisHelp = .F., ; - WhatsThisHelpID = -1, ; - Width = (819), ; - WindowState = 0, ; - WindowType = 0, ; - ZoomBox = .F., ; - Edit1.Name = "Edit1", ; - Edit1.RightToLeft = .F., ; - Label3.Name = "Label3", ; - Label3.RightToLeft = .F., ; - cmdCapturar.Name = "cmdCapturar", ; - cmdCapturar.RightToLeft = .F., ; - Label1.Name = "Label1", ; - Label1.RightToLeft = .F., ; - Label2.Name = "Label2", ; - Label2.RightToLeft = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="form" /> - - ADD OBJECT 'F_base1.Cl_grid1' AS cl_grid WITH ; - AllowAddNew = .F., ; - AllowAutoColumnFit = 0, ; - AllowCellSelection = .T., ; - AllowHeaderSizing = .T., ; - AllowRowSizing = .T., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - ChildOrder = "", ; - ColumnCount = 5, ; - Comment = "", ; - DeleteMark = .T., ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - GridLineColor = 0,0,0, ; - GridLines = 3, ; - GridLineWidth = 1, ; - HeaderHeight = 17, ; - Height = 160, ; - HelpContextID = 0, ; - Highlight = .T., ; - HighlightBackColor = 51,153,255, ; - HighlightForeColor = 255,255,255, ; - HighlightRow = .T., ; - HighlightRowLineWidth = 1, ; - HighlightStyle = 0, ; - Left = 308, ; - LinkMaster = "", ; - LockColumns = 0, ; - LockColumnsLeft = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_grid1", ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Optimize = .F., ; - Panel = 1, ; - PanelLink = .T., ; - Partition = 0, ; - ReadOnly = .F., ; - RecordMark = .T., ; - RecordSource = "encuestas", ; - RecordSourceType = 1, ; - RelationalExpr = "", ; - RightToLeft = .F., ; - RowHeight = 17, ; - ScrollBars = 3, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SplitBar = .T., ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = 32, ; - Value = 0, ; - View = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 228, ; - Column1.BackColor = 255,255,255, ; - Column1.ControlSource = "", ; - Column1.Enabled = .T., ; - Column1.FontBold = .F., ; - Column1.FontCharSet = 0, ; - Column1.FontCondense = .F., ; - Column1.FontExtend = .F., ; - Column1.FontItalic = .F., ; - Column1.FontName = "Arial", ; - Column1.FontOutline = .F., ; - Column1.FontShadow = .F., ; - Column1.FontSize = 8, ; - Column1.FontStrikethru = .F., ; - Column1.FontUnderline = .F., ; - Column1.ForeColor = 0,0,0, ; - Column1.Header1.FontBold = .F., ; - Column1.Header1.FontCharSet = 0, ; - Column1.Header1.FontCondense = .F., ; - Column1.Header1.FontExtend = .F., ; - Column1.Header1.FontItalic = .F., ; - Column1.Header1.FontName = "Arial", ; - Column1.Header1.FontOutline = .F., ; - Column1.Header1.FontShadow = .F., ; - Column1.Header1.FontSize = 8, ; - Column1.Header1.FontStrikethru = .F., ; - Column1.Header1.FontUnderline = .F., ; - Column1.Header1.Name = "Header1", ; - Column1.Name = "Column1", ; - Column1.ReadOnly = .F., ; - Column1.Text1.BackColor = 255,255,255, ; - Column1.Text1.Enabled = .T., ; - Column1.Text1.FontBold = .F., ; - Column1.Text1.FontCharSet = 0, ; - Column1.Text1.FontCondense = .F., ; - Column1.Text1.FontExtend = .F., ; - Column1.Text1.FontItalic = .F., ; - Column1.Text1.FontName = "Arial", ; - Column1.Text1.FontOutline = .F., ; - Column1.Text1.FontShadow = .F., ; - Column1.Text1.FontSize = 8, ; - Column1.Text1.FontStrikethru = .F., ; - Column1.Text1.FontUnderline = .F., ; - Column1.Text1.ForeColor = 0,0,0, ; - Column1.Text1.Name = "Text1", ; - Column1.Text1.ReadOnly = .F., ; - Column1.Text1.Visible = .T., ; - Column1.Visible = .T., ; - Column2.BackColor = 255,255,255, ; - Column2.ControlSource = "", ; - Column2.Enabled = .T., ; - Column2.FontBold = .F., ; - Column2.FontCharSet = 0, ; - Column2.FontCondense = .F., ; - Column2.FontExtend = .F., ; - Column2.FontItalic = .F., ; - Column2.FontName = "Arial", ; - Column2.FontOutline = .F., ; - Column2.FontShadow = .F., ; - Column2.FontSize = 8, ; - Column2.FontStrikethru = .F., ; - Column2.FontUnderline = .F., ; - Column2.ForeColor = 0,0,0, ; - Column2.Header1.FontBold = .F., ; - Column2.Header1.FontCharSet = 0, ; - Column2.Header1.FontCondense = .F., ; - Column2.Header1.FontExtend = .F., ; - Column2.Header1.FontItalic = .F., ; - Column2.Header1.FontName = "Arial", ; - Column2.Header1.FontOutline = .F., ; - Column2.Header1.FontShadow = .F., ; - Column2.Header1.FontSize = 8, ; - Column2.Header1.FontStrikethru = .F., ; - Column2.Header1.FontUnderline = .F., ; - Column2.Header1.Name = "Header1", ; - Column2.Name = "Column2", ; - Column2.ReadOnly = .F., ; - Column2.Text1.BackColor = 255,255,255, ; - Column2.Text1.Enabled = .T., ; - Column2.Text1.FontBold = .F., ; - Column2.Text1.FontCharSet = 0, ; - Column2.Text1.FontCondense = .F., ; - Column2.Text1.FontExtend = .F., ; - Column2.Text1.FontItalic = .F., ; - Column2.Text1.FontName = "Arial", ; - Column2.Text1.FontOutline = .F., ; - Column2.Text1.FontShadow = .F., ; - Column2.Text1.FontSize = 8, ; - Column2.Text1.FontStrikethru = .F., ; - Column2.Text1.FontUnderline = .F., ; - Column2.Text1.ForeColor = 0,0,0, ; - Column2.Text1.Name = "Text1", ; - Column2.Text1.ReadOnly = .F., ; - Column2.Text1.Visible = .T., ; - Column2.Visible = .T., ; - Column3.BackColor = 255,255,255, ; - Column3.ControlSource = "", ; - Column3.Enabled = .T., ; - Column3.FontBold = .F., ; - Column3.FontCharSet = 0, ; - Column3.FontCondense = .F., ; - Column3.FontExtend = .F., ; - Column3.FontItalic = .F., ; - Column3.FontName = "Arial", ; - Column3.FontOutline = .F., ; - Column3.FontShadow = .F., ; - Column3.FontSize = 8, ; - Column3.FontStrikethru = .F., ; - Column3.FontUnderline = .F., ; - Column3.ForeColor = 0,0,0, ; - Column3.Header1.FontBold = .F., ; - Column3.Header1.FontCharSet = 0, ; - Column3.Header1.FontCondense = .F., ; - Column3.Header1.FontExtend = .F., ; - Column3.Header1.FontItalic = .F., ; - Column3.Header1.FontName = "Arial", ; - Column3.Header1.FontOutline = .F., ; - Column3.Header1.FontShadow = .F., ; - Column3.Header1.FontSize = 8, ; - Column3.Header1.FontStrikethru = .F., ; - Column3.Header1.FontUnderline = .F., ; - Column3.Header1.Name = "Header1", ; - Column3.Name = "Column3", ; - Column3.ReadOnly = .F., ; - Column3.Text1.BackColor = 255,255,255, ; - Column3.Text1.Enabled = .T., ; - Column3.Text1.FontBold = .F., ; - Column3.Text1.FontCharSet = 0, ; - Column3.Text1.FontCondense = .F., ; - Column3.Text1.FontExtend = .F., ; - Column3.Text1.FontItalic = .F., ; - Column3.Text1.FontName = "Arial", ; - Column3.Text1.FontOutline = .F., ; - Column3.Text1.FontShadow = .F., ; - Column3.Text1.FontSize = 8, ; - Column3.Text1.FontStrikethru = .F., ; - Column3.Text1.FontUnderline = .F., ; - Column3.Text1.ForeColor = 0,0,0, ; - Column3.Text1.Name = "Text1", ; - Column3.Text1.ReadOnly = .F., ; - Column3.Text1.Visible = .T., ; - Column3.Visible = .T., ; - Column4.BackColor = 255,255,255, ; - Column4.ControlSource = "", ; - Column4.Enabled = .T., ; - Column4.FontBold = .F., ; - Column4.FontCharSet = 0, ; - Column4.FontCondense = .F., ; - Column4.FontExtend = .F., ; - Column4.FontItalic = .F., ; - Column4.FontName = "Arial", ; - Column4.FontOutline = .F., ; - Column4.FontShadow = .F., ; - Column4.FontSize = 8, ; - Column4.FontStrikethru = .F., ; - Column4.FontUnderline = .F., ; - Column4.ForeColor = 0,0,0, ; - Column4.Header1.FontBold = .F., ; - Column4.Header1.FontCharSet = 0, ; - Column4.Header1.FontCondense = .F., ; - Column4.Header1.FontExtend = .F., ; - Column4.Header1.FontItalic = .F., ; - Column4.Header1.FontName = "Arial", ; - Column4.Header1.FontOutline = .F., ; - Column4.Header1.FontShadow = .F., ; - Column4.Header1.FontSize = 8, ; - Column4.Header1.FontStrikethru = .F., ; - Column4.Header1.FontUnderline = .F., ; - Column4.Header1.Name = "Header1", ; - Column4.Name = "Column4", ; - Column4.ReadOnly = .F., ; - Column4.Text1.BackColor = 255,255,255, ; - Column4.Text1.Enabled = .T., ; - Column4.Text1.FontBold = .F., ; - Column4.Text1.FontCharSet = 0, ; - Column4.Text1.FontCondense = .F., ; - Column4.Text1.FontExtend = .F., ; - Column4.Text1.FontItalic = .F., ; - Column4.Text1.FontName = "Arial", ; - Column4.Text1.FontOutline = .F., ; - Column4.Text1.FontShadow = .F., ; - Column4.Text1.FontSize = 8, ; - Column4.Text1.FontStrikethru = .F., ; - Column4.Text1.FontUnderline = .F., ; - Column4.Text1.ForeColor = 0,0,0, ; - Column4.Text1.Name = "Text1", ; - Column4.Text1.ReadOnly = .F., ; - Column4.Text1.Visible = .T., ; - Column4.Visible = .T., ; - Column5.BackColor = 255,255,255, ; - Column5.ControlSource = "", ; - Column5.Enabled = .T., ; - Column5.FontBold = .F., ; - Column5.FontCharSet = 0, ; - Column5.FontCondense = .F., ; - Column5.FontExtend = .F., ; - Column5.FontItalic = .F., ; - Column5.FontName = "Arial", ; - Column5.FontOutline = .F., ; - Column5.FontShadow = .F., ; - Column5.FontSize = 8, ; - Column5.FontStrikethru = .F., ; - Column5.FontUnderline = .F., ; - Column5.ForeColor = 0,0,0, ; - Column5.Header1.FontBold = .F., ; - Column5.Header1.FontCharSet = 0, ; - Column5.Header1.FontCondense = .F., ; - Column5.Header1.FontExtend = .F., ; - Column5.Header1.FontItalic = .F., ; - Column5.Header1.FontName = "Arial", ; - Column5.Header1.FontOutline = .F., ; - Column5.Header1.FontShadow = .F., ; - Column5.Header1.FontSize = 8, ; - Column5.Header1.FontStrikethru = .F., ; - Column5.Header1.FontUnderline = .F., ; - Column5.Header1.Name = "Header1", ; - Column5.Name = "Column5", ; - Column5.ReadOnly = .F., ; - Column5.Text1.BackColor = 255,255,255, ; - Column5.Text1.Enabled = .T., ; - Column5.Text1.FontBold = .F., ; - Column5.Text1.FontCharSet = 0, ; - Column5.Text1.FontCondense = .F., ; - Column5.Text1.FontExtend = .F., ; - Column5.Text1.FontItalic = .F., ; - Column5.Text1.FontName = "Arial", ; - Column5.Text1.FontOutline = .F., ; - Column5.Text1.FontShadow = .F., ; - Column5.Text1.FontSize = 8, ; - Column5.Text1.FontStrikethru = .F., ; - Column5.Text1.FontUnderline = .F., ; - Column5.Text1.ForeColor = 0,0,0, ; - Column5.Text1.Name = "Text1", ; - Column5.Text1.ReadOnly = .F., ; - Column5.Text1.Visible = .T., ; - Column5.Visible = .T. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" /> - - ADD OBJECT 'F_base1.grdEncuestas' AS grid WITH ; - AllowAddNew = .F., ; - AllowAutoColumnFit = 0, ; - AllowCellSelection = .T., ; - AllowHeaderSizing = .T., ; - AllowRowSizing = .T., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - ChildOrder = "", ; - ColumnCount = 5, ; - Comment = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DeleteMark = .T., ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - GridLineColor = 0,0,0, ; - GridLines = 3, ; - GridLineWidth = 1, ; - HeaderHeight = 17, ; - Height = (160), ; - HelpContextID = 0, ; - Highlight = .T., ; - HighlightBackColor = 51,153,255, ; - HighlightForeColor = 255,255,255, ; - HighlightRow = .T., ; - HighlightRowLineWidth = 1, ; - HighlightStyle = 0, ; - Left = (40), ; - LinkMaster = "", ; - LockColumns = 0, ; - LockColumnsLeft = 0, ; - MemberClass = "cl_Column", ; - MemberClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "grdEncuestas", ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Optimize = .F., ; - Panel = 1, ; - PanelLink = .T., ; - Partition = 0, ; - ReadOnly = .F., ; - RecordMark = .T., ; - RecordSource = "encuestas", ; - RecordSourceType = 1, ; - RelationalExpr = "", ; - RightToLeft = .F., ; - RowHeight = 17, ; - ScrollBars = 3, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - SplitBar = .T., ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - Themes = .T., ; - ToolTipText = "", ; - Top = (32), ; - Value = 0, ; - View = 0, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (228), ; - Cl_column1.Alignment = 3, ; - Cl_column1.BackColor = 255,255,255, ; - Cl_column1.Bound = .T., ; - Cl_column1.ColumnOrder = 1, ; - Cl_column1.Comment = "Ver este Column", ; - Cl_column1.ControlSource = "promotor", ; - Cl_column1.CurrentControl = "Text1", ; - Cl_column1.DynamicAlignment = "", ; - Cl_column1.DynamicBackColor = "", ; - Cl_column1.DynamicCurrentControl = "", ; - Cl_column1.DynamicFontBold = "", ; - Cl_column1.DynamicFontItalic = "", ; - Cl_column1.DynamicFontName = "", ; - Cl_column1.DynamicFontOutline = "", ; - Cl_column1.DynamicFontShadow = "", ; - Cl_column1.DynamicFontSize = "", ; - Cl_column1.DynamicFontStrikethru = "", ; - Cl_column1.DynamicFontUnderline = "", ; - Cl_column1.DynamicForeColor = "", ; - Cl_column1.DynamicInputMask = "", ; - Cl_column1.Enabled = .T., ; - Cl_column1.FontBold = .F., ; - Cl_column1.FontCharSet = 0, ; - Cl_column1.FontCondense = .F., ; - Cl_column1.FontExtend = .F., ; - Cl_column1.FontItalic = .F., ; - Cl_column1.FontName = "Arial", ; - Cl_column1.FontOutline = .F., ; - Cl_column1.FontShadow = .F., ; - Cl_column1.FontSize = 8, ; - Cl_column1.FontStrikethru = .F., ; - Cl_column1.FontUnderline = .F., ; - Cl_column1.ForeColor = 0,0,0, ; - Cl_column1.Format = "", ; - Cl_column1.HeaderClass = "cl_Header", ; - Cl_column1.HeaderClassLibrary = ..\fxu_lib_objetos_y_funciones_de_soporte.prg, ; - Cl_column1.InputMask = "", ; - Cl_column1.MouseIcon = ..\..\, ; - Cl_column1.MousePointer = 0, ; - Cl_column1.Movable = .T., ; - Cl_column1.Name = "Cl_column1", ; - Cl_column1.ReadOnly = .F., ; - Cl_column1.Resizable = .T., ; - Cl_column1.SelectOnEntry = .T., ; - Cl_column1.Sparse = .T., ; - Cl_column1.StatusBarText = "", ; - Cl_column1.Tag = "", ; - Cl_column1.ToolTipText = "", ; - Cl_column1.Visible = .T., ; - Cl_column1.Width = 75, ; - Cl_column2.BackColor = 255,255,255, ; - Cl_column2.Enabled = .T., ; - Cl_column2.FontBold = .F., ; - Cl_column2.FontCharSet = 0, ; - Cl_column2.FontCondense = .F., ; - Cl_column2.FontExtend = .F., ; - Cl_column2.FontItalic = .F., ; - Cl_column2.FontName = "Arial", ; - Cl_column2.FontOutline = .F., ; - Cl_column2.FontShadow = .F., ; - Cl_column2.FontSize = 8, ; - Cl_column2.FontStrikethru = .F., ; - Cl_column2.FontUnderline = .F., ; - Cl_column2.ForeColor = 0,0,0, ; - Cl_column2.Name = "Cl_column2", ; - Cl_column2.ReadOnly = .F., ; - Cl_column2.Visible = .T., ; - Cl_column3.BackColor = 255,255,255, ; - Cl_column3.Enabled = .T., ; - Cl_column3.FontBold = .F., ; - Cl_column3.FontCharSet = 0, ; - Cl_column3.FontCondense = .F., ; - Cl_column3.FontExtend = .F., ; - Cl_column3.FontItalic = .F., ; - Cl_column3.FontName = "Arial", ; - Cl_column3.FontOutline = .F., ; - Cl_column3.FontShadow = .F., ; - Cl_column3.FontSize = 8, ; - Cl_column3.FontStrikethru = .F., ; - Cl_column3.FontUnderline = .F., ; - Cl_column3.ForeColor = 0,0,0, ; - Cl_column3.Name = "Cl_column3", ; - Cl_column3.ReadOnly = .F., ; - Cl_column3.Visible = .T., ; - Cl_column4.BackColor = 255,255,255, ; - Cl_column4.Enabled = .T., ; - Cl_column4.FontBold = .F., ; - Cl_column4.FontCharSet = 0, ; - Cl_column4.FontCondense = .F., ; - Cl_column4.FontExtend = .F., ; - Cl_column4.FontItalic = .F., ; - Cl_column4.FontName = "Arial", ; - Cl_column4.FontOutline = .F., ; - Cl_column4.FontShadow = .F., ; - Cl_column4.FontSize = 8, ; - Cl_column4.FontStrikethru = .F., ; - Cl_column4.FontUnderline = .F., ; - Cl_column4.ForeColor = 0,0,0, ; - Cl_column4.Name = "Cl_column4", ; - Cl_column4.ReadOnly = .F., ; - Cl_column4.Visible = .T., ; - Cl_column5.BackColor = 255,255,255, ; - Cl_column5.Enabled = .T., ; - Cl_column5.FontBold = .F., ; - Cl_column5.FontCharSet = 0, ; - Cl_column5.FontCondense = .F., ; - Cl_column5.FontExtend = .F., ; - Cl_column5.FontItalic = .F., ; - Cl_column5.FontName = "Arial", ; - Cl_column5.FontOutline = .F., ; - Cl_column5.FontShadow = .F., ; - Cl_column5.FontSize = 8, ; - Cl_column5.FontStrikethru = .F., ; - Cl_column5.FontUnderline = .F., ; - Cl_column5.ForeColor = 0,0,0, ; - Cl_column5.Name = "Cl_column5", ; - Cl_column5.ReadOnly = .F., ; - Cl_column5.Visible = .T. - *< END OBJECT: BaseClass="grid" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Cl_header1' AS cl_header WITH ; - Alignment = 0, ; - BackColor = 240,240,240, ; - Caption = "promotor", ; - Comment = "", ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_header1", ; - Picture = ..\..\, ; - StatusBarText = "", ; - Tag = "", ; - ToolTipText = "", ; - WordWrap = .F. - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column1.Text1' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - FontName = "Arial", ; - FontSize = 8, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Header1' AS header WITH ; - Caption = "idenc", ; - FontName = "Arial", ; - FontSize = 8, ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column2.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - FontName = "Arial", ; - FontSize = 8, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Header1' AS header WITH ; - Caption = "calific", ; - FontName = "Arial", ; - FontSize = 8, ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column3.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - FontName = "Arial", ; - FontSize = 8, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Header1' AS header WITH ; - Caption = "fecha", ; - FontName = "Arial", ; - FontSize = 8, ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column4.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - FontName = "Arial", ; - FontSize = 8, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Header1' AS header WITH ; - Caption = "resultado", ; - FontName = "Arial", ; - FontSize = 8, ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.grdEncuestas.Cl_column5.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - FontName = "Arial", ; - FontSize = 8, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1", ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 213, ; - Left = 28, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 200, ; - Width = 517, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.Cl_grid1' AS cl_grid WITH ; - Left = 279, ; - Name = "Cl_grid1", ; - Top = 8, ; - Column1.Header1.Name = "Header1", ; - Column1.Name = "Column1", ; - Column1.Text1.Name = "Text1", ; - Column2.Header1.Name = "Header1", ; - Column2.Name = "Column2", ; - Column2.Text1.Name = "Text1", ; - Column3.Header1.Name = "Header1", ; - Column3.Name = "Column3", ; - Column3.Text1.Name = "Text1", ; - Column4.Header1.Name = "Header1", ; - Column4.Name = "Column4", ; - Column4.Text1.Name = "Text1", ; - Column5.Header1.Name = "Header1", ; - Column5.Name = "Column5", ; - Column5.Text1.Name = "Text1" - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="grid" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas' AS grid WITH ; - ColumnCount = 5, ; - Height = 160, ; - Left = 11, ; - Name = "grdEncuestas", ; - RecordSource = "encuestas", ; - RecordSourceType = 1, ; - Top = 8, ; - Width = 228, ; - Column1.ControlSource = "encuestas.promotor", ; - Column1.Name = "Column1", ; - Column2.ControlSource = "encuestas.idenc", ; - Column2.Name = "Column2", ; - Column3.ControlSource = "encuestas.calific", ; - Column3.Name = "Column3", ; - Column4.ControlSource = "encuestas.fecha", ; - Column4.Name = "Column4", ; - Column5.ControlSource = "encuestas.resultado", ; - Column5.Name = "Column5" - *< END OBJECT: BaseClass="grid" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Header1' AS header WITH ; - Caption = "promotor", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column1.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Header1' AS header WITH ; - Caption = "idenc", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column2.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Header1' AS header WITH ; - Caption = "calific", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column3.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Header1' AS header WITH ; - Caption = "fecha", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column4.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Header1' AS header WITH ; - Caption = "resultado", ; - Name = "Header1" - *< END OBJECT: BaseClass="header" /> - - ADD OBJECT 'F_base1.Pageframe1.Page1.grdEncuestas.Column5.Text1' AS textbox WITH ; - BackColor = 255,255,255, ; - BorderStyle = 0, ; - ForeColor = 0,0,0, ; - Margin = 0, ; - Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> - - PROCEDURE Refresh - DOEVENTS FORCE - THISFORMSET.Forms(1).c_testname = THISFORMSET.c_testname - THISFORMSET.Forms(1).REFRESH() - - ENDPROC - - PROCEDURE F_base1.Cl_grid1.Init - this.AutoFit() - - ENDPROC - - PROCEDURE F_base1.grdEncuestas.Init - this.AutoFit() - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_listbox.sc2 b/TESTS/DATOS_READONLY/f_listbox.sc2 deleted file mode 100644 index 4454467..0000000 --- a/TESTS/DATOS_READONLY/f_listbox.sc2 +++ /dev/null @@ -1,578 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_listbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_listbox_test AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_ListBox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_ListBox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.ListBox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_ListBox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.ListBox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="ListBox1" UniqueID="" Timestamp="" /> - - c_testname = Listbox_Test - DoCreate = .T. - Left = 0 - Name = "F_Listbox_Test" - Top = 0 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "LISTBOX NORMAL" - Label1.Name = "Label1" - Label2.Caption = "LISTBOX SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_ListBox1' AS cl_listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = 60, ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 308, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "Cl_ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 44, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 224 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" /> - - ADD OBJECT 'Container1' AS container WITH ; - Height = 97, ; - Left = 28, ; - Name = "Container1", ; - TabIndex = 9, ; - Top = 128, ; - Width = 512 - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Container1.Cl_ListBox1' AS cl_listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = 60, ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 280, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "Cl_ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 12, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 224 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" /> - - ADD OBJECT 'Container1.ListBox1' AS listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = 60, ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 8, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 12, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 224 - *< END OBJECT: BaseClass="listbox" /> - - ADD OBJECT 'ListBox1' AS listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = (60), ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = (36), ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (44), ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (224) - *< END OBJECT: BaseClass="listbox" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 137, ; - Left = 28, ; - Name = "Pageframe1", ; - PageCount = 2, ; - TabIndex = 10, ; - Top = 252, ; - Width = 513, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_ListBox1' AS cl_listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = 60, ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 279, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "Cl_ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 6, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 8, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 224 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="listbox" /> - - ADD OBJECT 'Pageframe1.Page1.ListBox1' AS listbox WITH ; - Anchor = 0, ; - AutoHideScrollbar = 0, ; - BorderColor = 255,255,0, ; - BoundColumn = 2, ; - BoundTo = .F., ; - ColorScheme = 2, ; - ColorSource = 4, ; - ColumnCount = 2, ; - ColumnLines = .T., ; - ColumnWidths = "150,150", ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DisabledItemBackColor = 255,255,255, ; - DisabledItemForeColor = 109,109,109, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FirstElement = 1, ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - Height = 60, ; - HelpContextID = 0, ; - IncrementalSearch = .T., ; - IntegralHeight = .F., ; - ItemBackColor = 255,255,255, ; - ItemForeColor = 0,0,0, ; - ItemTips = .F., ; - Left = 7, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - MoverBars = .F., ; - MultiSelect = .F., ; - Name = "ListBox1", ; - NullDisplay = "", ; - NumberOfElements = 0, ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - RightToLeft = .F., ; - RowSource = "", ; - RowSourceType = 0, ; - SelectedItemBackColor = 51,153,255, ; - SelectedItemForeColor = 255,255,255, ; - Sorted = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - TabIndex = 11, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 8, ; - Value = , ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 224 - *< END OBJECT: BaseClass="listbox" /> - - PROCEDURE Cl_ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.Cl_ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Container1.ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.Cl_ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - - PROCEDURE Pageframe1.Page1.ListBox1.Init - this.AddListItem('Este es el valor.A1') - this.AddListItem('Este es el valor.A2', this.NewItemId, 2) - this.AddListItem('Este es el valor.B1') - this.AddListItem('Este es el valor.B2', this.NewItemId, 2) - this.AddListItem('Este es el valor.C1') - this.AddListItem('Este es el valor.C2', this.NewItemId, 2) - this.ListIndex = 2 - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_nullchars_incode.sc2 b/TESTS/DATOS_READONLY/f_nullchars_incode.sc2 deleted file mode 100644 index 4c7ace6..0000000 --- a/TESTS/DATOS_READONLY/f_nullchars_incode.sc2 +++ /dev/null @@ -1,39 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_nullchars_incode.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS form1 AS form - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - Caption = "Form1" - DoCreate = .T. - Height = 79 - Left = 0 - Name = "Form1" - Top = 0 - Width = 394 - - PROCEDURE Click - LPARAMETERS p1, p2, p3 - ENDPROC - - PROCEDURE Load - LPARAMETERS p1, p2, p3 - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_optiongroup.sc2 b/TESTS/DATOS_READONLY/f_optiongroup.sc2 deleted file mode 100644 index fd558c1..0000000 --- a/TESTS/DATOS_READONLY/f_optiongroup.sc2 +++ /dev/null @@ -1,1438 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_optiongroup_test AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Optiongroup2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_option1" UniqueID="" Timestamp="" /> - - BackColor = 192,192,192 - Caption = "OptionGroup_Test" - c_testname = OptionGroup_Test - DoCreate = .T. - Height = 448 - Left = 0 - Name = "F_OptionGroup_Test" - Top = 0 - Width = 819 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "OPTIONGROUP NORMAL" - Label1.Name = "Label1" - Label2.Caption = "OPTIONGROUP SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_option1' AS cl_option WITH ; - Alignment = 0, ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 128,255,255, ; - BackStyle = 1, ; - Caption = "La opción separada es larga también", ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 240,240,240, ; - DisabledForeColor = 109,109,109, ; - DisabledPicture = ..\..\, ; - DownPicture = ..\..\, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Height = 16, ; - HelpContextID = 0, ; - Left = 304, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_option1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - Picture = bmps\sobrepostal.bmp, ; - PictureMargin = 0, ; - PicturePosition = 4, ; - PictureSpacing = 0, ; - RightToLeft = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - Style = 0, ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (424), ; - Value = 1, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (220), ; - WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optionbutton" /> - - ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackStyle = 0, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ControlSource = "", ; - Height = 76, ; - Left = 296, ; - Name = "Cl_optiongroup1", ; - Top = 28, ; - Value = 2, ; - Width = 248, ; - Option1.Alignment = 0, ; - Option1.Anchor = 0, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 240,240,240, ; - Option1.Caption = "La Opción 1", ; - Option1.ColorScheme = 1, ; - Option1.ColorSource = 4, ; - Option1.Comment = "", ; - Option1.ControlSource = "", ; - Option1.DisabledBackColor = 240,240,240, ; - Option1.DisabledForeColor = 109,109,109, ; - Option1.DisabledPicture = ..\..\, ; - Option1.DownPicture = ..\..\, ; - Option1.DragIcon = ..\..\, ; - Option1.DragMode = 0, ; - Option1.Enabled = .T., ; - Option1.FontBold = .F., ; - Option1.FontCharSet = 0, ; - Option1.FontCondense = .F., ; - Option1.FontExtend = .F., ; - Option1.FontItalic = .F., ; - Option1.FontName = "Arial", ; - Option1.FontOutline = .F., ; - Option1.FontShadow = .F., ; - Option1.FontStrikethru = .F., ; - Option1.FontUnderline = .F., ; - Option1.ForeColor = 0,0,0, ; - Option1.Height = 17, ; - Option1.HelpContextID = 0, ; - Option1.Left = 8, ; - Option1.MouseIcon = ..\..\, ; - Option1.MousePointer = 0, ; - Option1.Name = "Option1", ; - Option1.OLEDragMode = 0, ; - Option1.OLEDragPicture = ..\..\, ; - Option1.OLEDropEffects = 3, ; - Option1.OLEDropMode = 0, ; - Option1.Picture = ..\..\, ; - Option1.PictureMargin = 0, ; - Option1.PicturePosition = 13, ; - Option1.PictureSpacing = 0, ; - Option1.RightToLeft = .F., ; - Option1.SpecialEffect = 0, ; - Option1.StatusBarText = "", ; - Option1.Style = 0, ; - Option1.TabStop = .T., ; - Option1.Tag = "", ; - Option1.TerminateRead = .F., ; - Option1.Themes = .T., ; - Option1.ToolTipText = "", ; - Option1.Top = 4, ; - Option1.Value = 0, ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 84, ; - Option1.WordWrap = .F., ; - Option2.Alignment = 0, ; - Option2.Anchor = 0, ; - Option2.AutoSize = .F., ; - Option2.BackColor = 240,240,240, ; - Option2.Caption = "La opción 2 es más larga", ; - Option2.ColorScheme = 1, ; - Option2.ColorSource = 4, ; - Option2.Comment = "", ; - Option2.ControlSource = "", ; - Option2.DisabledBackColor = 240,240,240, ; - Option2.DisabledForeColor = 109,109,109, ; - Option2.DisabledPicture = ..\..\, ; - Option2.DownPicture = ..\..\, ; - Option2.DragIcon = ..\..\, ; - Option2.DragMode = 0, ; - Option2.Enabled = .T., ; - Option2.FontBold = .F., ; - Option2.FontCharSet = 0, ; - Option2.FontCondense = .F., ; - Option2.FontExtend = .F., ; - Option2.FontItalic = .F., ; - Option2.FontName = "Arial", ; - Option2.FontOutline = .F., ; - Option2.FontShadow = .F., ; - Option2.FontStrikethru = .F., ; - Option2.FontUnderline = .F., ; - Option2.ForeColor = 0,0,0, ; - Option2.Height = 17, ; - Option2.HelpContextID = 0, ; - Option2.Left = 8, ; - Option2.MouseIcon = ..\..\, ; - Option2.MousePointer = 0, ; - Option2.Name = "Option2", ; - Option2.OLEDragMode = 0, ; - Option2.OLEDragPicture = ..\..\, ; - Option2.OLEDropEffects = 3, ; - Option2.OLEDropMode = 0, ; - Option2.Picture = ..\..\, ; - Option2.PictureMargin = 0, ; - Option2.PicturePosition = 13, ; - Option2.PictureSpacing = 0, ; - Option2.RightToLeft = .F., ; - Option2.SpecialEffect = 0, ; - Option2.StatusBarText = "", ; - Option2.Style = 0, ; - Option2.TabStop = .T., ; - Option2.Tag = "", ; - Option2.TerminateRead = .F., ; - Option2.Themes = .T., ; - Option2.ToolTipText = "", ; - Option2.Top = 28, ; - Option2.Value = 1, ; - Option2.WhatsThisHelpID = -1, ; - Option2.Width = 158, ; - Option2.WordWrap = .F., ; - Option3.Alignment = 0, ; - Option3.Anchor = 0, ; - Option3.BackColor = 128,255,128, ; - Option3.Caption = "La opción 3 es la más larga de todas", ; - Option3.ColorScheme = 1, ; - Option3.ColorSource = 4, ; - Option3.Comment = "", ; - Option3.ControlSource = "", ; - Option3.DisabledBackColor = 240,240,240, ; - Option3.DisabledForeColor = 109,109,109, ; - Option3.DisabledPicture = ..\..\, ; - Option3.DownPicture = ..\..\, ; - Option3.DragIcon = ..\..\, ; - Option3.DragMode = 0, ; - Option3.Enabled = .T., ; - Option3.FontBold = .F., ; - Option3.FontCharSet = 0, ; - Option3.FontCondense = .F., ; - Option3.FontExtend = .F., ; - Option3.FontItalic = .F., ; - Option3.FontName = "Arial", ; - Option3.FontOutline = .F., ; - Option3.FontShadow = .F., ; - Option3.FontStrikethru = .F., ; - Option3.FontUnderline = .F., ; - Option3.ForeColor = 0,0,0, ; - Option3.Height = 17, ; - Option3.HelpContextID = 0, ; - Option3.Left = 8, ; - Option3.MouseIcon = ..\..\, ; - Option3.MousePointer = 0, ; - Option3.Name = "Option3", ; - Option3.OLEDragMode = 0, ; - Option3.OLEDragPicture = ..\..\, ; - Option3.OLEDropEffects = 3, ; - Option3.OLEDropMode = 0, ; - Option3.Picture = ..\..\, ; - Option3.PictureMargin = 0, ; - Option3.PicturePosition = 13, ; - Option3.PictureSpacing = 0, ; - Option3.RightToLeft = .F., ; - Option3.SpecialEffect = 0, ; - Option3.StatusBarText = "", ; - Option3.Style = 0, ; - Option3.TabStop = .T., ; - Option3.Tag = "", ; - Option3.TerminateRead = .F., ; - Option3.Themes = .T., ; - Option3.ToolTipText = "", ; - Option3.Top = 52, ; - Option3.Value = 0, ; - Option3.WhatsThisHelpID = -1, ; - Option3.Width = 222, ; - Option3.WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'Cl_optiongroup2' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackStyle = 1, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ControlSource = "", ; - Height = 76, ; - Left = 296, ; - Name = "Cl_optiongroup2", ; - Top = 112, ; - Value = 2, ; - Width = 248, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 240,240,240, ; - Option1.Caption = "La Opción 1", ; - Option1.FontBold = .F., ; - Option1.Height = 27, ; - Option1.Left = 8, ; - Option1.Name = "Option1", ; - Option1.SpecialEffect = 0, ; - Option1.Style = 1, ; - Option1.Top = 4, ; - Option1.Value = 0, ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 84, ; - Option2.AutoSize = .F., ; - Option2.BackColor = 240,240,240, ; - Option2.Caption = "La opción 2 es más larga", ; - Option2.FontBold = .F., ; - Option2.Height = 27, ; - Option2.Left = 8, ; - Option2.Name = "Option2", ; - Option2.SpecialEffect = 0, ; - Option2.Style = 1, ; - Option2.Top = 28, ; - Option2.Value = 1, ; - Option2.WhatsThisHelpID = -1, ; - Option2.Width = 158, ; - Option3.AutoSize = .F., ; - Option3.BackColor = 128,255,128, ; - Option3.Caption = "La opción 3 es la más larga de todas", ; - Option3.FontBold = .F., ; - Option3.Height = 21, ; - Option3.Left = 8, ; - Option3.Name = "Option3", ; - Option3.SpecialEffect = 0, ; - Option3.Style = 1, ; - Option3.Top = 52, ; - Option3.WhatsThisHelpID = -1, ; - Option3.Width = 222 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (76), ; - HelpContextID = 0, ; - Left = (24), ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Optiongroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (24), ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (248), ; - Cl_option1.Alignment = 0, ; - Cl_option1.Anchor = 0, ; - Cl_option1.AutoSize = .F., ; - Cl_option1.BackColor = 240,240,240, ; - Cl_option1.BackStyle = 1, ; - Cl_option1.Caption = "La opción 1", ; - Cl_option1.ColorScheme = 1, ; - Cl_option1.ColorSource = 4, ; - Cl_option1.Comment = "", ; - Cl_option1.ControlSource = "", ; - Cl_option1.DisabledBackColor = 0,128,192, ; - Cl_option1.DisabledForeColor = 128,0,255, ; - Cl_option1.DisabledPicture = bmps\treeview.bmp, ; - Cl_option1.DownPicture = ..\..\, ; - Cl_option1.DragIcon = ..\..\, ; - Cl_option1.DragMode = 0, ; - Cl_option1.Enabled = .T., ; - Cl_option1.FontBold = .F., ; - Cl_option1.FontCharSet = 0, ; - Cl_option1.FontCondense = .F., ; - Cl_option1.FontExtend = .F., ; - Cl_option1.FontItalic = .F., ; - Cl_option1.FontName = "Arial", ; - Cl_option1.FontOutline = .F., ; - Cl_option1.FontShadow = .F., ; - Cl_option1.FontSize = 8, ; - Cl_option1.FontStrikethru = .F., ; - Cl_option1.FontUnderline = .F., ; - Cl_option1.ForeColor = 0,0,0, ; - Cl_option1.Height = 16, ; - Cl_option1.HelpContextID = 0, ; - Cl_option1.Left = 16, ; - Cl_option1.MouseIcon = ..\..\, ; - Cl_option1.MousePointer = 0, ; - Cl_option1.Name = "Cl_option1", ; - Cl_option1.OLEDragMode = 0, ; - Cl_option1.OLEDragPicture = ..\..\, ; - Cl_option1.OLEDropEffects = 3, ; - Cl_option1.OLEDropMode = 0, ; - Cl_option1.Picture = bmps\sobrepostal.bmp, ; - Cl_option1.PictureMargin = 0, ; - Cl_option1.PicturePosition = 4, ; - Cl_option1.PictureSpacing = 0, ; - Cl_option1.RightToLeft = .F., ; - Cl_option1.SpecialEffect = 0, ; - Cl_option1.StatusBarText = "", ; - Cl_option1.Style = 0, ; - Cl_option1.TabStop = .T., ; - Cl_option1.Tag = "", ; - Cl_option1.TerminateRead = .F., ; - Cl_option1.Themes = .T., ; - Cl_option1.ToolTipText = "", ; - Cl_option1.Top = 4, ; - Cl_option1.Visible = .T., ; - Cl_option1.WhatsThisHelpID = -1, ; - Cl_option1.Width = 74, ; - Cl_option1.WordWrap = .F., ; - Cl_option2.Alignment = 0, ; - Cl_option2.Anchor = 0, ; - Cl_option2.BackColor = 240,240,240, ; - Cl_option2.BackStyle = 1, ; - Cl_option2.Caption = "La opción 2 es más larga", ; - Cl_option2.ColorScheme = 1, ; - Cl_option2.ColorSource = 4, ; - Cl_option2.Comment = "", ; - Cl_option2.ControlSource = "", ; - Cl_option2.DisabledBackColor = 0,128,192, ; - Cl_option2.DisabledForeColor = 128,0,255, ; - Cl_option2.DisabledPicture = bmps\treeview.bmp, ; - Cl_option2.DownPicture = ..\..\, ; - Cl_option2.DragIcon = ..\..\, ; - Cl_option2.DragMode = 0, ; - Cl_option2.Enabled = .T., ; - Cl_option2.FontBold = .F., ; - Cl_option2.FontCharSet = 0, ; - Cl_option2.FontCondense = .F., ; - Cl_option2.FontExtend = .F., ; - Cl_option2.FontItalic = .F., ; - Cl_option2.FontName = "Arial", ; - Cl_option2.FontOutline = .F., ; - Cl_option2.FontShadow = .F., ; - Cl_option2.FontSize = 8, ; - Cl_option2.FontStrikethru = .F., ; - Cl_option2.FontUnderline = .F., ; - Cl_option2.ForeColor = 0,0,0, ; - Cl_option2.HelpContextID = 0, ; - Cl_option2.Left = 16, ; - Cl_option2.MouseIcon = ..\..\, ; - Cl_option2.MousePointer = 0, ; - Cl_option2.Name = "Cl_option2", ; - Cl_option2.OLEDragMode = 0, ; - Cl_option2.OLEDragPicture = ..\..\, ; - Cl_option2.OLEDropEffects = 3, ; - Cl_option2.OLEDropMode = 0, ; - Cl_option2.Picture = bmps\sobrepostal.bmp, ; - Cl_option2.PictureMargin = 0, ; - Cl_option2.PicturePosition = 4, ; - Cl_option2.PictureSpacing = 0, ; - Cl_option2.RightToLeft = .F., ; - Cl_option2.SpecialEffect = 0, ; - Cl_option2.StatusBarText = "", ; - Cl_option2.Style = 0, ; - Cl_option2.TabStop = .T., ; - Cl_option2.Tag = "", ; - Cl_option2.TerminateRead = .F., ; - Cl_option2.Themes = .T., ; - Cl_option2.ToolTipText = "", ; - Cl_option2.Top = 28, ; - Cl_option2.Value = 1, ; - Cl_option2.Visible = .T., ; - Cl_option2.WhatsThisHelpID = -1, ; - Cl_option2.WordWrap = .F., ; - Cl_option3.Alignment = 0, ; - Cl_option3.Anchor = 0, ; - Cl_option3.AutoSize = .F., ; - Cl_option3.BackColor = 240,240,240, ; - Cl_option3.BackStyle = 1, ; - Cl_option3.Caption = "La opción 3 es la más larga de todas", ; - Cl_option3.ColorScheme = 1, ; - Cl_option3.ColorSource = 4, ; - Cl_option3.Comment = "", ; - Cl_option3.ControlSource = "", ; - Cl_option3.DefWidth = , ; - Cl_option3.DisabledBackColor = 213,233,255, ; - Cl_option3.DisabledForeColor = 128,0,255, ; - Cl_option3.DisabledPicture = bmps\treeview.bmp, ; - Cl_option3.DownPicture = ..\..\, ; - Cl_option3.DragIcon = ..\..\, ; - Cl_option3.DragMode = 0, ; - Cl_option3.Enabled = .F., ; - Cl_option3.FontBold = .F., ; - Cl_option3.FontCharSet = 0, ; - Cl_option3.FontCondense = .F., ; - Cl_option3.FontExtend = .F., ; - Cl_option3.FontItalic = .F., ; - Cl_option3.FontName = "Arial", ; - Cl_option3.FontOutline = .F., ; - Cl_option3.FontShadow = .F., ; - Cl_option3.FontSize = 8, ; - Cl_option3.FontStrikethru = .F., ; - Cl_option3.FontUnderline = .F., ; - Cl_option3.ForeColor = 0,0,0, ; - Cl_option3.HelpContextID = 0, ; - Cl_option3.Left = 16, ; - Cl_option3.MouseIcon = ..\..\, ; - Cl_option3.MousePointer = 0, ; - Cl_option3.Name = "Cl_option3", ; - Cl_option3.OLEDragMode = 0, ; - Cl_option3.OLEDragPicture = ..\..\, ; - Cl_option3.OLEDropEffects = 3, ; - Cl_option3.OLEDropMode = 0, ; - Cl_option3.Picture = bmps\sobrepostal.bmp, ; - Cl_option3.PictureMargin = 0, ; - Cl_option3.PicturePosition = 4, ; - Cl_option3.PictureSpacing = 0, ; - Cl_option3.RightToLeft = .F., ; - Cl_option3.SpecialEffect = 0, ; - Cl_option3.StatusBarText = "", ; - Cl_option3.Style = 0, ; - Cl_option3.TabStop = .T., ; - Cl_option3.Tag = "", ; - Cl_option3.TerminateRead = .F., ; - Cl_option3.Themes = .T., ; - Cl_option3.ToolTipText = "", ; - Cl_option3.Top = 52, ; - Cl_option3.Visible = .T., ; - Cl_option3.WhatsThisHelpID = -1, ; - Cl_option3.Width = (195), ; - Cl_option3.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Optiongroup2' AS optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 24, ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - MousePointer = 0, ; - Name = "Optiongroup2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 112, ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 248, ; - Cl_option1.Alignment = 0, ; - Cl_option1.Anchor = 0, ; - Cl_option1.AutoSize = .F., ; - Cl_option1.BackColor = 240,240,240, ; - Cl_option1.BackStyle = 1, ; - Cl_option1.Caption = "La opción 1", ; - Cl_option1.ColorScheme = 1, ; - Cl_option1.ColorSource = 4, ; - Cl_option1.Comment = "", ; - Cl_option1.ControlSource = "", ; - Cl_option1.DisabledBackColor = 0,128,192, ; - Cl_option1.DisabledForeColor = 128,0,255, ; - Cl_option1.DisabledPicture = bmps\treeview.bmp, ; - Cl_option1.DownPicture = ..\..\, ; - Cl_option1.DragIcon = ..\..\, ; - Cl_option1.DragMode = 0, ; - Cl_option1.Enabled = .T., ; - Cl_option1.FontBold = .F., ; - Cl_option1.FontCharSet = 0, ; - Cl_option1.FontCondense = .F., ; - Cl_option1.FontExtend = .F., ; - Cl_option1.FontItalic = .F., ; - Cl_option1.FontName = "Arial", ; - Cl_option1.FontOutline = .F., ; - Cl_option1.FontShadow = .F., ; - Cl_option1.FontSize = 8, ; - Cl_option1.FontStrikethru = .F., ; - Cl_option1.FontUnderline = .F., ; - Cl_option1.ForeColor = 0,0,0, ; - Cl_option1.Height = 42, ; - Cl_option1.HelpContextID = 0, ; - Cl_option1.Left = 16, ; - Cl_option1.MouseIcon = ..\..\, ; - Cl_option1.MousePointer = 0, ; - Cl_option1.Name = "Cl_option1", ; - Cl_option1.OLEDragMode = 0, ; - Cl_option1.OLEDragPicture = ..\..\, ; - Cl_option1.OLEDropEffects = 3, ; - Cl_option1.OLEDropMode = 0, ; - Cl_option1.Picture = bmps\sobrepostal.bmp, ; - Cl_option1.PictureMargin = 0, ; - Cl_option1.PicturePosition = 4, ; - Cl_option1.PictureSpacing = 0, ; - Cl_option1.RightToLeft = .F., ; - Cl_option1.SpecialEffect = 0, ; - Cl_option1.StatusBarText = "", ; - Cl_option1.Style = 1, ; - Cl_option1.TabStop = .T., ; - Cl_option1.Tag = "", ; - Cl_option1.TerminateRead = .F., ; - Cl_option1.Themes = .T., ; - Cl_option1.ToolTipText = "", ; - Cl_option1.Top = 4, ; - Cl_option1.Visible = .T., ; - Cl_option1.WhatsThisHelpID = -1, ; - Cl_option1.Width = 88, ; - Cl_option1.WordWrap = .F., ; - Cl_option2.Alignment = 0, ; - Cl_option2.Anchor = 0, ; - Cl_option2.BackColor = 240,240,240, ; - Cl_option2.BackStyle = 1, ; - Cl_option2.Caption = "La opción 2 es más larga", ; - Cl_option2.ColorScheme = 1, ; - Cl_option2.ColorSource = 4, ; - Cl_option2.Comment = "", ; - Cl_option2.ControlSource = "", ; - Cl_option2.DefHeight = , ; - Cl_option2.DisabledBackColor = 0,128,192, ; - Cl_option2.DisabledForeColor = 128,0,255, ; - Cl_option2.DisabledPicture = bmps\treeview.bmp, ; - Cl_option2.DownPicture = ..\..\, ; - Cl_option2.DragIcon = ..\..\, ; - Cl_option2.DragMode = 0, ; - Cl_option2.Enabled = .T., ; - Cl_option2.FontBold = .F., ; - Cl_option2.FontCharSet = 0, ; - Cl_option2.FontCondense = .F., ; - Cl_option2.FontExtend = .F., ; - Cl_option2.FontItalic = .F., ; - Cl_option2.FontName = "Arial", ; - Cl_option2.FontOutline = .F., ; - Cl_option2.FontShadow = .F., ; - Cl_option2.FontSize = 8, ; - Cl_option2.FontStrikethru = .F., ; - Cl_option2.FontUnderline = .F., ; - Cl_option2.ForeColor = 0,0,0, ; - Cl_option2.Height = (21), ; - Cl_option2.HelpContextID = 0, ; - Cl_option2.Left = 16, ; - Cl_option2.MouseIcon = ..\..\, ; - Cl_option2.MousePointer = 0, ; - Cl_option2.Name = "Cl_option2", ; - Cl_option2.OLEDragMode = 0, ; - Cl_option2.OLEDragPicture = ..\..\, ; - Cl_option2.OLEDropEffects = 3, ; - Cl_option2.OLEDropMode = 0, ; - Cl_option2.Picture = bmps\sobrepostal.bmp, ; - Cl_option2.PictureMargin = 0, ; - Cl_option2.PicturePosition = 4, ; - Cl_option2.PictureSpacing = 0, ; - Cl_option2.RightToLeft = .F., ; - Cl_option2.SpecialEffect = 0, ; - Cl_option2.StatusBarText = "", ; - Cl_option2.Style = 1, ; - Cl_option2.TabStop = .T., ; - Cl_option2.Tag = "", ; - Cl_option2.TerminateRead = .F., ; - Cl_option2.Themes = .T., ; - Cl_option2.ToolTipText = "", ; - Cl_option2.Top = 28, ; - Cl_option2.Value = 1, ; - Cl_option2.Visible = .T., ; - Cl_option2.WhatsThisHelpID = -1, ; - Cl_option2.WordWrap = .F., ; - Cl_option3.Alignment = 0, ; - Cl_option3.Anchor = 0, ; - Cl_option3.AutoSize = .F., ; - Cl_option3.BackColor = 240,240,240, ; - Cl_option3.BackStyle = 1, ; - Cl_option3.Caption = "La opción 3 es la más larga de todas", ; - Cl_option3.ColorScheme = 1, ; - Cl_option3.ColorSource = 4, ; - Cl_option3.Comment = "", ; - Cl_option3.ControlSource = "", ; - Cl_option3.DefHeight = , ; - Cl_option3.DisabledBackColor = 0,128,192, ; - Cl_option3.DisabledForeColor = 128,0,255, ; - Cl_option3.DisabledPicture = bmps\treeview.bmp, ; - Cl_option3.DownPicture = ..\..\, ; - Cl_option3.DragIcon = ..\..\, ; - Cl_option3.DragMode = 0, ; - Cl_option3.Enabled = .F., ; - Cl_option3.FontBold = .F., ; - Cl_option3.FontCharSet = 0, ; - Cl_option3.FontCondense = .F., ; - Cl_option3.FontExtend = .F., ; - Cl_option3.FontItalic = .F., ; - Cl_option3.FontName = "Arial", ; - Cl_option3.FontOutline = .F., ; - Cl_option3.FontShadow = .F., ; - Cl_option3.FontSize = 8, ; - Cl_option3.FontStrikethru = .F., ; - Cl_option3.FontUnderline = .F., ; - Cl_option3.ForeColor = 0,0,0, ; - Cl_option3.Height = (21), ; - Cl_option3.HelpContextID = 0, ; - Cl_option3.Left = 16, ; - Cl_option3.MouseIcon = ..\..\, ; - Cl_option3.MousePointer = 0, ; - Cl_option3.Name = "Cl_option3", ; - Cl_option3.OLEDragMode = 0, ; - Cl_option3.OLEDragPicture = ..\..\, ; - Cl_option3.OLEDropEffects = 3, ; - Cl_option3.OLEDropMode = 0, ; - Cl_option3.Picture = bmps\sobrepostal.bmp, ; - Cl_option3.PictureMargin = 0, ; - Cl_option3.PicturePosition = 4, ; - Cl_option3.PictureSpacing = 0, ; - Cl_option3.RightToLeft = .F., ; - Cl_option3.SpecialEffect = 0, ; - Cl_option3.StatusBarText = "", ; - Cl_option3.Style = 1, ; - Cl_option3.TabStop = .T., ; - Cl_option3.Tag = "", ; - Cl_option3.TerminateRead = .F., ; - Cl_option3.Themes = .T., ; - Cl_option3.ToolTipText = "", ; - Cl_option3.Top = 52, ; - Cl_option3.Visible = .T., ; - Cl_option3.WhatsThisHelpID = -1, ; - Cl_option3.Width = 209, ; - Cl_option3.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 224, ; - Left = 8, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 196, ; - Width = 553, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup1' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackStyle = 0, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ControlSource = "", ; - Height = 76, ; - Left = 287, ; - Name = "Cl_optiongroup1", ; - Top = 12, ; - Value = 2, ; - Width = 248, ; - Option1.Alignment = 0, ; - Option1.Anchor = 0, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 240,240,240, ; - Option1.Caption = "La Opción 1", ; - Option1.ColorScheme = 1, ; - Option1.ColorSource = 4, ; - Option1.Comment = "", ; - Option1.ControlSource = "", ; - Option1.DisabledBackColor = 240,240,240, ; - Option1.DisabledForeColor = 109,109,109, ; - Option1.DisabledPicture = ..\..\, ; - Option1.DownPicture = ..\..\, ; - Option1.DragIcon = ..\..\, ; - Option1.DragMode = 0, ; - Option1.Enabled = .T., ; - Option1.FontBold = .F., ; - Option1.FontCharSet = 0, ; - Option1.FontCondense = .F., ; - Option1.FontExtend = .F., ; - Option1.FontItalic = .F., ; - Option1.FontName = "Arial", ; - Option1.FontOutline = .F., ; - Option1.FontShadow = .F., ; - Option1.FontStrikethru = .F., ; - Option1.FontUnderline = .F., ; - Option1.ForeColor = 0,0,0, ; - Option1.Height = 17, ; - Option1.HelpContextID = 0, ; - Option1.Left = 8, ; - Option1.MouseIcon = ..\..\, ; - Option1.MousePointer = 0, ; - Option1.Name = "Option1", ; - Option1.OLEDragMode = 0, ; - Option1.OLEDragPicture = ..\..\, ; - Option1.OLEDropEffects = 3, ; - Option1.OLEDropMode = 0, ; - Option1.Picture = ..\..\, ; - Option1.PictureMargin = 0, ; - Option1.PicturePosition = 13, ; - Option1.PictureSpacing = 0, ; - Option1.RightToLeft = .F., ; - Option1.SpecialEffect = 0, ; - Option1.StatusBarText = "", ; - Option1.Style = 0, ; - Option1.TabStop = .T., ; - Option1.Tag = "", ; - Option1.TerminateRead = .F., ; - Option1.Themes = .T., ; - Option1.ToolTipText = "", ; - Option1.Top = 4, ; - Option1.Value = 0, ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 84, ; - Option1.WordWrap = .F., ; - Option2.Alignment = 0, ; - Option2.Anchor = 0, ; - Option2.AutoSize = .F., ; - Option2.BackColor = 240,240,240, ; - Option2.Caption = "La opción 2 es más larga", ; - Option2.ColorScheme = 1, ; - Option2.ColorSource = 4, ; - Option2.Comment = "", ; - Option2.ControlSource = "", ; - Option2.DisabledBackColor = 240,240,240, ; - Option2.DisabledForeColor = 109,109,109, ; - Option2.DisabledPicture = ..\..\, ; - Option2.DownPicture = ..\..\, ; - Option2.DragIcon = ..\..\, ; - Option2.DragMode = 0, ; - Option2.Enabled = .T., ; - Option2.FontBold = .F., ; - Option2.FontCharSet = 0, ; - Option2.FontCondense = .F., ; - Option2.FontExtend = .F., ; - Option2.FontItalic = .F., ; - Option2.FontName = "Arial", ; - Option2.FontOutline = .F., ; - Option2.FontShadow = .F., ; - Option2.FontStrikethru = .F., ; - Option2.FontUnderline = .F., ; - Option2.ForeColor = 0,0,0, ; - Option2.Height = 17, ; - Option2.HelpContextID = 0, ; - Option2.Left = 8, ; - Option2.MouseIcon = ..\..\, ; - Option2.MousePointer = 0, ; - Option2.Name = "Option2", ; - Option2.OLEDragMode = 0, ; - Option2.OLEDragPicture = ..\..\, ; - Option2.OLEDropEffects = 3, ; - Option2.OLEDropMode = 0, ; - Option2.Picture = ..\..\, ; - Option2.PictureMargin = 0, ; - Option2.PicturePosition = 13, ; - Option2.PictureSpacing = 0, ; - Option2.RightToLeft = .F., ; - Option2.SpecialEffect = 0, ; - Option2.StatusBarText = "", ; - Option2.Style = 0, ; - Option2.TabStop = .T., ; - Option2.Tag = "", ; - Option2.TerminateRead = .F., ; - Option2.Themes = .T., ; - Option2.ToolTipText = "", ; - Option2.Top = 28, ; - Option2.Value = 1, ; - Option2.WhatsThisHelpID = -1, ; - Option2.Width = 158, ; - Option2.WordWrap = .F., ; - Option3.Alignment = 0, ; - Option3.Anchor = 0, ; - Option3.BackColor = 128,255,128, ; - Option3.Caption = "La opción 3 es la más larga de todas", ; - Option3.ColorScheme = 1, ; - Option3.ColorSource = 4, ; - Option3.Comment = "", ; - Option3.ControlSource = "", ; - Option3.DisabledBackColor = 240,240,240, ; - Option3.DisabledForeColor = 109,109,109, ; - Option3.DisabledPicture = ..\..\, ; - Option3.DownPicture = ..\..\, ; - Option3.DragIcon = ..\..\, ; - Option3.DragMode = 0, ; - Option3.Enabled = .T., ; - Option3.FontBold = .F., ; - Option3.FontCharSet = 0, ; - Option3.FontCondense = .F., ; - Option3.FontExtend = .F., ; - Option3.FontItalic = .F., ; - Option3.FontName = "Arial", ; - Option3.FontOutline = .F., ; - Option3.FontShadow = .F., ; - Option3.FontStrikethru = .F., ; - Option3.FontUnderline = .F., ; - Option3.ForeColor = 0,0,0, ; - Option3.Height = 17, ; - Option3.HelpContextID = 0, ; - Option3.Left = 8, ; - Option3.MouseIcon = ..\..\, ; - Option3.MousePointer = 0, ; - Option3.Name = "Option3", ; - Option3.OLEDragMode = 0, ; - Option3.OLEDragPicture = ..\..\, ; - Option3.OLEDropEffects = 3, ; - Option3.OLEDropMode = 0, ; - Option3.Picture = ..\..\, ; - Option3.PictureMargin = 0, ; - Option3.PicturePosition = 13, ; - Option3.PictureSpacing = 0, ; - Option3.RightToLeft = .F., ; - Option3.SpecialEffect = 0, ; - Option3.StatusBarText = "", ; - Option3.Style = 0, ; - Option3.TabStop = .T., ; - Option3.Tag = "", ; - Option3.TerminateRead = .F., ; - Option3.Themes = .T., ; - Option3.ToolTipText = "", ; - Option3.Top = 52, ; - Option3.Value = 0, ; - Option3.WhatsThisHelpID = -1, ; - Option3.Width = 222, ; - Option3.WordWrap = .F. - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_optiongroup2' AS cl_optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackStyle = 1, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ControlSource = "", ; - Height = 76, ; - Left = 287, ; - Name = "Cl_optiongroup2", ; - Top = 96, ; - Value = 2, ; - Width = 248, ; - Option1.AutoSize = .F., ; - Option1.BackColor = 240,240,240, ; - Option1.Caption = "La Opción 1", ; - Option1.FontBold = .F., ; - Option1.Height = 27, ; - Option1.Left = 8, ; - Option1.Name = "Option1", ; - Option1.SpecialEffect = 0, ; - Option1.Style = 1, ; - Option1.Top = 4, ; - Option1.Value = 0, ; - Option1.WhatsThisHelpID = -1, ; - Option1.Width = 84, ; - Option2.AutoSize = .F., ; - Option2.BackColor = 240,240,240, ; - Option2.Caption = "La opción 2 es más larga", ; - Option2.FontBold = .F., ; - Option2.Height = 27, ; - Option2.Left = 8, ; - Option2.Name = "Option2", ; - Option2.SpecialEffect = 0, ; - Option2.Style = 1, ; - Option2.Top = 28, ; - Option2.Value = 1, ; - Option2.WhatsThisHelpID = -1, ; - Option2.Width = 158, ; - Option3.AutoSize = .F., ; - Option3.BackColor = 128,255,128, ; - Option3.Caption = "La opción 3 es la más larga de todas", ; - Option3.FontBold = .F., ; - Option3.Height = 21, ; - Option3.Left = 8, ; - Option3.Name = "Option3", ; - Option3.SpecialEffect = 0, ; - Option3.Style = 1, ; - Option3.Top = 52, ; - Option3.WhatsThisHelpID = -1, ; - Option3.Width = 222 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1.Page1.Optiongroup1' AS optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 0, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefWidth = , ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - Height = (76), ; - HelpContextID = 0, ; - Left = 15, ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Optiongroup1", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 8, ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (248), ; - Cl_option1.Alignment = 0, ; - Cl_option1.Anchor = 0, ; - Cl_option1.AutoSize = .F., ; - Cl_option1.BackColor = 240,240,240, ; - Cl_option1.BackStyle = 1, ; - Cl_option1.Caption = "La opción 1", ; - Cl_option1.ColorScheme = 1, ; - Cl_option1.ColorSource = 4, ; - Cl_option1.Comment = "", ; - Cl_option1.ControlSource = "", ; - Cl_option1.DisabledBackColor = 0,128,192, ; - Cl_option1.DisabledForeColor = 128,0,255, ; - Cl_option1.DisabledPicture = bmps\treeview.bmp, ; - Cl_option1.DownPicture = ..\..\, ; - Cl_option1.DragIcon = ..\..\, ; - Cl_option1.DragMode = 0, ; - Cl_option1.Enabled = .T., ; - Cl_option1.FontBold = .F., ; - Cl_option1.FontCharSet = 0, ; - Cl_option1.FontCondense = .F., ; - Cl_option1.FontExtend = .F., ; - Cl_option1.FontItalic = .F., ; - Cl_option1.FontName = "Arial", ; - Cl_option1.FontOutline = .F., ; - Cl_option1.FontShadow = .F., ; - Cl_option1.FontSize = 8, ; - Cl_option1.FontStrikethru = .F., ; - Cl_option1.FontUnderline = .F., ; - Cl_option1.ForeColor = 0,0,0, ; - Cl_option1.Height = 16, ; - Cl_option1.HelpContextID = 0, ; - Cl_option1.Left = 16, ; - Cl_option1.MouseIcon = ..\..\, ; - Cl_option1.MousePointer = 0, ; - Cl_option1.Name = "Cl_option1", ; - Cl_option1.OLEDragMode = 0, ; - Cl_option1.OLEDragPicture = ..\..\, ; - Cl_option1.OLEDropEffects = 3, ; - Cl_option1.OLEDropMode = 0, ; - Cl_option1.Picture = bmps\sobrepostal.bmp, ; - Cl_option1.PictureMargin = 0, ; - Cl_option1.PicturePosition = 4, ; - Cl_option1.PictureSpacing = 0, ; - Cl_option1.RightToLeft = .F., ; - Cl_option1.SpecialEffect = 0, ; - Cl_option1.StatusBarText = "", ; - Cl_option1.Style = 0, ; - Cl_option1.TabStop = .T., ; - Cl_option1.Tag = "", ; - Cl_option1.TerminateRead = .F., ; - Cl_option1.Themes = .T., ; - Cl_option1.ToolTipText = "", ; - Cl_option1.Top = 4, ; - Cl_option1.Visible = .T., ; - Cl_option1.WhatsThisHelpID = -1, ; - Cl_option1.Width = 74, ; - Cl_option1.WordWrap = .F., ; - Cl_option2.Alignment = 0, ; - Cl_option2.Anchor = 0, ; - Cl_option2.BackColor = 240,240,240, ; - Cl_option2.BackStyle = 1, ; - Cl_option2.Caption = "La opción 2 es más larga", ; - Cl_option2.ColorScheme = 1, ; - Cl_option2.ColorSource = 4, ; - Cl_option2.Comment = "", ; - Cl_option2.ControlSource = "", ; - Cl_option2.DisabledBackColor = 0,128,192, ; - Cl_option2.DisabledForeColor = 128,0,255, ; - Cl_option2.DisabledPicture = bmps\treeview.bmp, ; - Cl_option2.DownPicture = ..\..\, ; - Cl_option2.DragIcon = ..\..\, ; - Cl_option2.DragMode = 0, ; - Cl_option2.Enabled = .T., ; - Cl_option2.FontBold = .F., ; - Cl_option2.FontCharSet = 0, ; - Cl_option2.FontCondense = .F., ; - Cl_option2.FontExtend = .F., ; - Cl_option2.FontItalic = .F., ; - Cl_option2.FontName = "Arial", ; - Cl_option2.FontOutline = .F., ; - Cl_option2.FontShadow = .F., ; - Cl_option2.FontSize = 8, ; - Cl_option2.FontStrikethru = .F., ; - Cl_option2.FontUnderline = .F., ; - Cl_option2.ForeColor = 0,0,0, ; - Cl_option2.HelpContextID = 0, ; - Cl_option2.Left = 16, ; - Cl_option2.MouseIcon = ..\..\, ; - Cl_option2.MousePointer = 0, ; - Cl_option2.Name = "Cl_option2", ; - Cl_option2.OLEDragMode = 0, ; - Cl_option2.OLEDragPicture = ..\..\, ; - Cl_option2.OLEDropEffects = 3, ; - Cl_option2.OLEDropMode = 0, ; - Cl_option2.Picture = bmps\sobrepostal.bmp, ; - Cl_option2.PictureMargin = 0, ; - Cl_option2.PicturePosition = 4, ; - Cl_option2.PictureSpacing = 0, ; - Cl_option2.RightToLeft = .F., ; - Cl_option2.SpecialEffect = 0, ; - Cl_option2.StatusBarText = "", ; - Cl_option2.Style = 0, ; - Cl_option2.TabStop = .T., ; - Cl_option2.Tag = "", ; - Cl_option2.TerminateRead = .F., ; - Cl_option2.Themes = .T., ; - Cl_option2.ToolTipText = "", ; - Cl_option2.Top = 28, ; - Cl_option2.Value = 1, ; - Cl_option2.Visible = .T., ; - Cl_option2.WhatsThisHelpID = -1, ; - Cl_option2.WordWrap = .F., ; - Cl_option3.Alignment = 0, ; - Cl_option3.Anchor = 0, ; - Cl_option3.AutoSize = .F., ; - Cl_option3.BackColor = 240,240,240, ; - Cl_option3.BackStyle = 1, ; - Cl_option3.Caption = "La opción 3 es la más larga de todas", ; - Cl_option3.ColorScheme = 1, ; - Cl_option3.ColorSource = 4, ; - Cl_option3.Comment = "", ; - Cl_option3.ControlSource = "", ; - Cl_option3.DefWidth = , ; - Cl_option3.DisabledBackColor = 213,233,255, ; - Cl_option3.DisabledForeColor = 128,0,255, ; - Cl_option3.DisabledPicture = bmps\treeview.bmp, ; - Cl_option3.DownPicture = ..\..\, ; - Cl_option3.DragIcon = ..\..\, ; - Cl_option3.DragMode = 0, ; - Cl_option3.Enabled = .F., ; - Cl_option3.FontBold = .F., ; - Cl_option3.FontCharSet = 0, ; - Cl_option3.FontCondense = .F., ; - Cl_option3.FontExtend = .F., ; - Cl_option3.FontItalic = .F., ; - Cl_option3.FontName = "Arial", ; - Cl_option3.FontOutline = .F., ; - Cl_option3.FontShadow = .F., ; - Cl_option3.FontSize = 8, ; - Cl_option3.FontStrikethru = .F., ; - Cl_option3.FontUnderline = .F., ; - Cl_option3.ForeColor = 0,0,0, ; - Cl_option3.HelpContextID = 0, ; - Cl_option3.Left = 16, ; - Cl_option3.MouseIcon = ..\..\, ; - Cl_option3.MousePointer = 0, ; - Cl_option3.Name = "Cl_option3", ; - Cl_option3.OLEDragMode = 0, ; - Cl_option3.OLEDragPicture = ..\..\, ; - Cl_option3.OLEDropEffects = 3, ; - Cl_option3.OLEDropMode = 0, ; - Cl_option3.Picture = bmps\sobrepostal.bmp, ; - Cl_option3.PictureMargin = 0, ; - Cl_option3.PicturePosition = 4, ; - Cl_option3.PictureSpacing = 0, ; - Cl_option3.RightToLeft = .F., ; - Cl_option3.SpecialEffect = 0, ; - Cl_option3.StatusBarText = "", ; - Cl_option3.Style = 0, ; - Cl_option3.TabStop = .T., ; - Cl_option3.Tag = "", ; - Cl_option3.TerminateRead = .F., ; - Cl_option3.Themes = .T., ; - Cl_option3.ToolTipText = "", ; - Cl_option3.Top = 52, ; - Cl_option3.Visible = .T., ; - Cl_option3.WhatsThisHelpID = -1, ; - Cl_option3.Width = (195), ; - Cl_option3.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - - ADD OBJECT 'Pageframe1.Page1.Optiongroup2' AS optiongroup WITH ; - Anchor = 0, ; - AutoSize = .F., ; - BackColor = 240,240,240, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ButtonCount = 3, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DragMode = 0, ; - Enabled = .T., ; - Height = 76, ; - HelpContextID = 0, ; - Left = 15, ; - MemberClass = "cl_option", ; - MemberClassLibrary = lib_controles.vcx, ; - MousePointer = 0, ; - Name = "Optiongroup2", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 1, ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 96, ; - Value = 2, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 248, ; - Cl_option1.Alignment = 0, ; - Cl_option1.Anchor = 0, ; - Cl_option1.AutoSize = .F., ; - Cl_option1.BackColor = 240,240,240, ; - Cl_option1.BackStyle = 1, ; - Cl_option1.Caption = "La opción 1", ; - Cl_option1.ColorScheme = 1, ; - Cl_option1.ColorSource = 4, ; - Cl_option1.Comment = "", ; - Cl_option1.ControlSource = "", ; - Cl_option1.DisabledBackColor = 0,128,192, ; - Cl_option1.DisabledForeColor = 128,0,255, ; - Cl_option1.DisabledPicture = bmps\treeview.bmp, ; - Cl_option1.DownPicture = ..\..\, ; - Cl_option1.DragIcon = ..\..\, ; - Cl_option1.DragMode = 0, ; - Cl_option1.Enabled = .T., ; - Cl_option1.FontBold = .F., ; - Cl_option1.FontCharSet = 0, ; - Cl_option1.FontCondense = .F., ; - Cl_option1.FontExtend = .F., ; - Cl_option1.FontItalic = .F., ; - Cl_option1.FontName = "Arial", ; - Cl_option1.FontOutline = .F., ; - Cl_option1.FontShadow = .F., ; - Cl_option1.FontSize = 8, ; - Cl_option1.FontStrikethru = .F., ; - Cl_option1.FontUnderline = .F., ; - Cl_option1.ForeColor = 0,0,0, ; - Cl_option1.Height = 42, ; - Cl_option1.HelpContextID = 0, ; - Cl_option1.Left = 16, ; - Cl_option1.MouseIcon = ..\..\, ; - Cl_option1.MousePointer = 0, ; - Cl_option1.Name = "Cl_option1", ; - Cl_option1.OLEDragMode = 0, ; - Cl_option1.OLEDragPicture = ..\..\, ; - Cl_option1.OLEDropEffects = 3, ; - Cl_option1.OLEDropMode = 0, ; - Cl_option1.Picture = bmps\sobrepostal.bmp, ; - Cl_option1.PictureMargin = 0, ; - Cl_option1.PicturePosition = 4, ; - Cl_option1.PictureSpacing = 0, ; - Cl_option1.RightToLeft = .F., ; - Cl_option1.SpecialEffect = 0, ; - Cl_option1.StatusBarText = "", ; - Cl_option1.Style = 1, ; - Cl_option1.TabStop = .T., ; - Cl_option1.Tag = "", ; - Cl_option1.TerminateRead = .F., ; - Cl_option1.Themes = .T., ; - Cl_option1.ToolTipText = "", ; - Cl_option1.Top = 4, ; - Cl_option1.Visible = .T., ; - Cl_option1.WhatsThisHelpID = -1, ; - Cl_option1.Width = 88, ; - Cl_option1.WordWrap = .F., ; - Cl_option2.Alignment = 0, ; - Cl_option2.Anchor = 0, ; - Cl_option2.BackColor = 240,240,240, ; - Cl_option2.BackStyle = 1, ; - Cl_option2.Caption = "La opción 2 es más larga", ; - Cl_option2.ColorScheme = 1, ; - Cl_option2.ColorSource = 4, ; - Cl_option2.Comment = "", ; - Cl_option2.ControlSource = "", ; - Cl_option2.DefHeight = , ; - Cl_option2.DisabledBackColor = 0,128,192, ; - Cl_option2.DisabledForeColor = 128,0,255, ; - Cl_option2.DisabledPicture = bmps\treeview.bmp, ; - Cl_option2.DownPicture = ..\..\, ; - Cl_option2.DragIcon = ..\..\, ; - Cl_option2.DragMode = 0, ; - Cl_option2.Enabled = .T., ; - Cl_option2.FontBold = .F., ; - Cl_option2.FontCharSet = 0, ; - Cl_option2.FontCondense = .F., ; - Cl_option2.FontExtend = .F., ; - Cl_option2.FontItalic = .F., ; - Cl_option2.FontName = "Arial", ; - Cl_option2.FontOutline = .F., ; - Cl_option2.FontShadow = .F., ; - Cl_option2.FontSize = 8, ; - Cl_option2.FontStrikethru = .F., ; - Cl_option2.FontUnderline = .F., ; - Cl_option2.ForeColor = 0,0,0, ; - Cl_option2.Height = (21), ; - Cl_option2.HelpContextID = 0, ; - Cl_option2.Left = 16, ; - Cl_option2.MouseIcon = ..\..\, ; - Cl_option2.MousePointer = 0, ; - Cl_option2.Name = "Cl_option2", ; - Cl_option2.OLEDragMode = 0, ; - Cl_option2.OLEDragPicture = ..\..\, ; - Cl_option2.OLEDropEffects = 3, ; - Cl_option2.OLEDropMode = 0, ; - Cl_option2.Picture = bmps\sobrepostal.bmp, ; - Cl_option2.PictureMargin = 0, ; - Cl_option2.PicturePosition = 4, ; - Cl_option2.PictureSpacing = 0, ; - Cl_option2.RightToLeft = .F., ; - Cl_option2.SpecialEffect = 0, ; - Cl_option2.StatusBarText = "", ; - Cl_option2.Style = 1, ; - Cl_option2.TabStop = .T., ; - Cl_option2.Tag = "", ; - Cl_option2.TerminateRead = .F., ; - Cl_option2.Themes = .T., ; - Cl_option2.ToolTipText = "", ; - Cl_option2.Top = 28, ; - Cl_option2.Value = 1, ; - Cl_option2.Visible = .T., ; - Cl_option2.WhatsThisHelpID = -1, ; - Cl_option2.WordWrap = .F., ; - Cl_option3.Alignment = 0, ; - Cl_option3.Anchor = 0, ; - Cl_option3.AutoSize = .F., ; - Cl_option3.BackColor = 240,240,240, ; - Cl_option3.BackStyle = 1, ; - Cl_option3.Caption = "La opción 3 es la más larga de todas", ; - Cl_option3.ColorScheme = 1, ; - Cl_option3.ColorSource = 4, ; - Cl_option3.Comment = "", ; - Cl_option3.ControlSource = "", ; - Cl_option3.DefHeight = , ; - Cl_option3.DisabledBackColor = 0,128,192, ; - Cl_option3.DisabledForeColor = 128,0,255, ; - Cl_option3.DisabledPicture = bmps\treeview.bmp, ; - Cl_option3.DownPicture = ..\..\, ; - Cl_option3.DragIcon = ..\..\, ; - Cl_option3.DragMode = 0, ; - Cl_option3.Enabled = .F., ; - Cl_option3.FontBold = .F., ; - Cl_option3.FontCharSet = 0, ; - Cl_option3.FontCondense = .F., ; - Cl_option3.FontExtend = .F., ; - Cl_option3.FontItalic = .F., ; - Cl_option3.FontName = "Arial", ; - Cl_option3.FontOutline = .F., ; - Cl_option3.FontShadow = .F., ; - Cl_option3.FontSize = 8, ; - Cl_option3.FontStrikethru = .F., ; - Cl_option3.FontUnderline = .F., ; - Cl_option3.ForeColor = 0,0,0, ; - Cl_option3.Height = (21), ; - Cl_option3.HelpContextID = 0, ; - Cl_option3.Left = 16, ; - Cl_option3.MouseIcon = ..\..\, ; - Cl_option3.MousePointer = 0, ; - Cl_option3.Name = "Cl_option3", ; - Cl_option3.OLEDragMode = 0, ; - Cl_option3.OLEDragPicture = ..\..\, ; - Cl_option3.OLEDropEffects = 3, ; - Cl_option3.OLEDropMode = 0, ; - Cl_option3.Picture = bmps\sobrepostal.bmp, ; - Cl_option3.PictureMargin = 0, ; - Cl_option3.PicturePosition = 4, ; - Cl_option3.PictureSpacing = 0, ; - Cl_option3.RightToLeft = .F., ; - Cl_option3.SpecialEffect = 0, ; - Cl_option3.StatusBarText = "", ; - Cl_option3.Style = 1, ; - Cl_option3.TabStop = .T., ; - Cl_option3.Tag = "", ; - Cl_option3.TerminateRead = .F., ; - Cl_option3.Themes = .T., ; - Cl_option3.ToolTipText = "", ; - Cl_option3.Top = 52, ; - Cl_option3.Visible = .T., ; - Cl_option3.WhatsThisHelpID = -1, ; - Cl_option3.Width = 209, ; - Cl_option3.WordWrap = .F. - *< END OBJECT: BaseClass="optiongroup" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_optiongroup2.sc2 b/TESTS/DATOS_READONLY/f_optiongroup2.sc2 deleted file mode 100644 index 40697f7..0000000 --- a/TESTS/DATOS_READONLY/f_optiongroup2.sc2 +++ /dev/null @@ -1,215 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_optiongroup2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_optiongroup1 AS f_optiongroup OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - DoCreate = .T. - Name = "F_optiongroup1" - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Name = "Label1" - Label2.Name = "Label2" - Optiongroup1.Anchor = 0 - Optiongroup1.AutoSize = .F. - Optiongroup1.BackColor = 240,240,240 - Optiongroup1.BackStyle = 0 - Optiongroup1.BorderColor = 100,100,100 - Optiongroup1.BorderStyle = 1 - Optiongroup1.ButtonCount = 3 - Optiongroup1.Cl_option1.Alignment = 0 - Optiongroup1.Cl_option1.Anchor = 0 - Optiongroup1.Cl_option1.AutoSize = .F. - Optiongroup1.Cl_option1.BackColor = 240,240,240 - Optiongroup1.Cl_option1.BackStyle = 1 - Optiongroup1.Cl_option1.Caption = "La opción 1" - Optiongroup1.Cl_option1.ColorScheme = 1 - Optiongroup1.Cl_option1.ColorSource = 4 - Optiongroup1.Cl_option1.Comment = "" - Optiongroup1.Cl_option1.ControlSource = "" - Optiongroup1.Cl_option1.DefHeight = - Optiongroup1.Cl_option1.DefLeft = - Optiongroup1.Cl_option1.DefTop = - Optiongroup1.Cl_option1.DefWidth = - Optiongroup1.Cl_option1.DisabledBackColor = 0,128,192 - Optiongroup1.Cl_option1.DisabledForeColor = 128,0,255 - Optiongroup1.Cl_option1.DisabledPicture = bmps\treeview.bmp - Optiongroup1.Cl_option1.DownPicture = ..\..\ - Optiongroup1.Cl_option1.DragIcon = ..\..\ - Optiongroup1.Cl_option1.DragMode = 0 - Optiongroup1.Cl_option1.Enabled = .T. - Optiongroup1.Cl_option1.FontBold = .F. - Optiongroup1.Cl_option1.FontCondense = .F. - Optiongroup1.Cl_option1.FontExtend = .F. - Optiongroup1.Cl_option1.FontItalic = .F. - Optiongroup1.Cl_option1.FontName = "Arial" - Optiongroup1.Cl_option1.FontOutline = .F. - Optiongroup1.Cl_option1.FontShadow = .F. - Optiongroup1.Cl_option1.FontSize = 8 - Optiongroup1.Cl_option1.FontStrikethru = .F. - Optiongroup1.Cl_option1.FontUnderline = .F. - Optiongroup1.Cl_option1.ForeColor = 0,0,0 - Optiongroup1.Cl_option1.Height = (16) - Optiongroup1.Cl_option1.HelpContextID = 0 - Optiongroup1.Cl_option1.Left = (16) - Optiongroup1.Cl_option1.MouseIcon = ..\..\ - Optiongroup1.Cl_option1.MousePointer = 0 - Optiongroup1.Cl_option1.Name = "Cl_option1" - Optiongroup1.Cl_option1.OLEDragMode = 0 - Optiongroup1.Cl_option1.OLEDragPicture = ..\..\ - Optiongroup1.Cl_option1.OLEDropEffects = 3 - Optiongroup1.Cl_option1.OLEDropMode = 0 - Optiongroup1.Cl_option1.Picture = bmps\sobrepostal.bmp - Optiongroup1.Cl_option1.PictureMargin = 0 - Optiongroup1.Cl_option1.PicturePosition = 4 - Optiongroup1.Cl_option1.PictureSpacing = 0 - Optiongroup1.Cl_option1.RightToLeft = .F. - Optiongroup1.Cl_option1.SpecialEffect = 0 - Optiongroup1.Cl_option1.StatusBarText = "" - Optiongroup1.Cl_option1.Style = 0 - Optiongroup1.Cl_option1.TabIndex = 1 - Optiongroup1.Cl_option1.TabStop = .T. - Optiongroup1.Cl_option1.Tag = "" - Optiongroup1.Cl_option1.TerminateRead = .F. - Optiongroup1.Cl_option1.test_aa = .F. - Optiongroup1.Cl_option1.Themes = .T. - Optiongroup1.Cl_option1.ToolTipText = "" - Optiongroup1.Cl_option1.Top = (4) - Optiongroup1.Cl_option1.Value = 0 - Optiongroup1.Cl_option1.Visible = .T. - Optiongroup1.Cl_option1.WhatsThisHelpID = -1 - Optiongroup1.Cl_option1.Width = (74) - Optiongroup1.Cl_option1.WordWrap = .F. - Optiongroup1.Cl_option2.Left = 16 - Optiongroup1.Cl_option2.Name = "Cl_option2" - Optiongroup1.Cl_option2.Top = 28 - Optiongroup1.Cl_option3.Left = 16 - Optiongroup1.Cl_option3.Name = "Cl_option3" - Optiongroup1.Cl_option3.Top = 52 - Optiongroup1.ColorSource = 4 - Optiongroup1.Comment = "" - Optiongroup1.ControlSource = "" - Optiongroup1.DefHeight = - Optiongroup1.DefLeft = - Optiongroup1.DefTop = - Optiongroup1.DefWidth = - Optiongroup1.DragIcon = ..\..\ - Optiongroup1.DragMode = 0 - Optiongroup1.Enabled = .T. - Optiongroup1.Height = (76) - Optiongroup1.HelpContextID = 0 - Optiongroup1.Left = (24) - Optiongroup1.MemberClassLibrary = lib_controles.vcx - Optiongroup1.MouseIcon = ..\..\ - Optiongroup1.MousePointer = 0 - Optiongroup1.Name = "Optiongroup1" - Optiongroup1.OLEDragMode = 0 - Optiongroup1.OLEDragPicture = ..\..\ - Optiongroup1.OLEDropEffects = 3 - Optiongroup1.OLEDropMode = 0 - Optiongroup1.SpecialEffect = 0 - Optiongroup1.StatusBarText = "" - Optiongroup1.TabIndex = 1 - Optiongroup1.Tag = "" - Optiongroup1.TerminateRead = .F. - Optiongroup1.Themes = .T. - Optiongroup1.ToolTipText = "" - Optiongroup1.Top = (24) - Optiongroup1.Value = 2 - Optiongroup1.Visible = .T. - Optiongroup1.WhatsThisHelpID = -1 - Optiongroup1.Width = (248) - Cl_optiongroup1.Name = "Cl_optiongroup1" - Cl_optiongroup1.Option1.Left = 8 - Cl_optiongroup1.Option1.Name = "Option1" - Cl_optiongroup1.Option1.Top = 4 - Cl_optiongroup1.Option2.Left = 8 - Cl_optiongroup1.Option2.Name = "Option2" - Cl_optiongroup1.Option2.Top = 28 - Cl_optiongroup1.Option3.Left = 8 - Cl_optiongroup1.Option3.Name = "Option3" - Cl_optiongroup1.Option3.Top = 52 - Cl_optiongroup2.Name = "Cl_optiongroup2" - Cl_optiongroup2.Option1.Left = 8 - Cl_optiongroup2.Option1.Name = "Option1" - Cl_optiongroup2.Option1.Top = 4 - Cl_optiongroup2.Option2.Left = 8 - Cl_optiongroup2.Option2.Name = "Option2" - Cl_optiongroup2.Option2.Top = 28 - Cl_optiongroup2.Option3.Left = 8 - Cl_optiongroup2.Option3.Name = "Option3" - Cl_optiongroup2.Option3.Top = 52 - Pageframe1.ErasePage = .T. - Pageframe1.Name = "Pageframe1" - Pageframe1.Page1.Cl_optiongroup1.Name = "Cl_optiongroup1" - Pageframe1.Page1.Cl_optiongroup1.Option1.Left = 8 - Pageframe1.Page1.Cl_optiongroup1.Option1.Name = "Option1" - Pageframe1.Page1.Cl_optiongroup1.Option1.Top = 8 - Pageframe1.Page1.Cl_optiongroup1.Option2.Left = 8 - Pageframe1.Page1.Cl_optiongroup1.Option2.Name = "Option2" - Pageframe1.Page1.Cl_optiongroup1.Option2.Top = 32 - Pageframe1.Page1.Cl_optiongroup1.Option3.Left = 8 - Pageframe1.Page1.Cl_optiongroup1.Option3.Name = "Option3" - Pageframe1.Page1.Cl_optiongroup1.Option3.Top = 56 - Pageframe1.Page1.Cl_optiongroup2.Name = "Cl_optiongroup2" - Pageframe1.Page1.Cl_optiongroup2.Option1.Left = 8 - Pageframe1.Page1.Cl_optiongroup2.Option1.Name = "Option1" - Pageframe1.Page1.Cl_optiongroup2.Option1.Top = 4 - Pageframe1.Page1.Cl_optiongroup2.Option2.Left = 8 - Pageframe1.Page1.Cl_optiongroup2.Option2.Name = "Option2" - Pageframe1.Page1.Cl_optiongroup2.Option2.Top = 28 - Pageframe1.Page1.Cl_optiongroup2.Option3.Left = 8 - Pageframe1.Page1.Cl_optiongroup2.Option3.Name = "Option3" - Pageframe1.Page1.Cl_optiongroup2.Option3.Top = 52 - Pageframe1.Page1.Label2.Name = "Label2" - Pageframe1.Page1.Name = "Page1" - Pageframe1.Page1.Optiongroup1.Cl_option1.Left = 16 - Pageframe1.Page1.Optiongroup1.Cl_option1.Name = "Cl_option1" - Pageframe1.Page1.Optiongroup1.Cl_option1.Top = 4 - Pageframe1.Page1.Optiongroup1.Cl_option2.Left = 16 - Pageframe1.Page1.Optiongroup1.Cl_option2.Name = "Cl_option2" - Pageframe1.Page1.Optiongroup1.Cl_option2.Top = 28 - Pageframe1.Page1.Optiongroup1.Cl_option3.Left = 16 - Pageframe1.Page1.Optiongroup1.Cl_option3.Name = "Cl_option3" - Pageframe1.Page1.Optiongroup1.Cl_option3.Top = 52 - Pageframe1.Page1.Optiongroup1.Name = "Optiongroup1" - Pageframe1.Page1.Optiongroup2.Cl_option1.Left = 16 - Pageframe1.Page1.Optiongroup2.Cl_option1.Name = "Cl_option1" - Pageframe1.Page1.Optiongroup2.Cl_option1.Top = 4 - Pageframe1.Page1.Optiongroup2.Cl_option2.Left = 16 - Pageframe1.Page1.Optiongroup2.Cl_option2.Name = "Cl_option2" - Pageframe1.Page1.Optiongroup2.Cl_option2.Top = 28 - Pageframe1.Page1.Optiongroup2.Cl_option3.Left = 16 - Pageframe1.Page1.Optiongroup2.Cl_option3.Name = "Cl_option3" - Pageframe1.Page1.Optiongroup2.Cl_option3.Top = 52 - Pageframe1.Page1.Optiongroup2.Name = "Optiongroup2" - Pageframe1.Page2.Name = "Page2" - Optiongroup2.Cl_option1.Left = 16 - Optiongroup2.Cl_option1.Name = "Cl_option1" - Optiongroup2.Cl_option1.Top = 4 - Optiongroup2.Cl_option2.Left = 16 - Optiongroup2.Cl_option2.Name = "Cl_option2" - Optiongroup2.Cl_option2.Top = 28 - Optiongroup2.Cl_option3.Left = 16 - Optiongroup2.Cl_option3.Name = "Cl_option3" - Optiongroup2.Cl_option3.Top = 52 - Optiongroup2.Name = "Optiongroup2" - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_test.sc2 b/TESTS/DATOS_READONLY/f_test.sc2 deleted file mode 100644 index e9fac45..0000000 --- a/TESTS/DATOS_READONLY/f_test.sc2 +++ /dev/null @@ -1,461 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_test.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Name = "Dataenvironment" - TabStop = .F. - Visible = .F. - -ENDDEFINE - -DEFINE CLASS f_form_controles1 AS f_form_controles OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - DoCreate = .T. - Name = "F_form_controles1" - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Name = "Label1" - Label2.Name = "Label2" - Label4.Alignment = 0 - Label4.Anchor = 0 - Label4.AutoSize = .F. - Label4.BackColor = 240,240,240 - Label4.BackStyle = 1 - Label4.BorderStyle = 0 - Label4.Caption = "Label4" - Label4.ColorScheme = 1 - Label4.ColorSource = 4 - Label4.Comment = "" - Label4.DefHeight = - Label4.DefLeft = - Label4.DefTop = - Label4.DefWidth = - Label4.DisabledBackColor = 240,240,240 - Label4.DisabledForeColor = 109,109,109 - Label4.DragIcon = ..\..\ - Label4.DragMode = 0 - Label4.Enabled = .T. - Label4.FontBold = .F. - Label4.FontCondense = .F. - Label4.FontExtend = .F. - Label4.FontItalic = .F. - Label4.FontName = "Arial" - Label4.FontOutline = .F. - Label4.FontShadow = .F. - Label4.FontSize = 8 - Label4.FontStrikethru = .F. - Label4.FontUnderline = .F. - Label4.ForeColor = 0,0,0 - Label4.Height = (17) - Label4.HelpContextID = 0 - Label4.Left = (44) - Label4.MouseIcon = ..\..\ - Label4.MousePointer = 0 - Label4.Name = "Label4" - Label4.OLEDragMode = 0 - Label4.OLEDragPicture = ..\..\ - Label4.OLEDropEffects = 3 - Label4.OLEDropMode = 0 - Label4.RightToLeft = .F. - Label4.Rotation = 0 - Label4.Style = 0 - Label4.TabIndex = 6 - Label4.Tag = "" - Label4.ToolTipText = "" - Label4.Top = (40) - Label4.WhatsThisHelpID = -1 - Label4.Width = (104) - Label4.WordWrap = .F. - Shape1.Anchor = 0 - Shape1.BackColor = 240,240,240 - Shape1.BackStyle = 1 - Shape1.BorderColor = 100,100,100 - Shape1.BorderStyle = 1 - Shape1.BorderWidth = 1 - Shape1.ColorScheme = 1 - Shape1.ColorSource = 4 - Shape1.Comment = "" - Shape1.Curvature = 0 - Shape1.DefHeight = - Shape1.DefLeft = - Shape1.DefTop = - Shape1.DefWidth = - Shape1.DragIcon = ..\..\ - Shape1.DragMode = 0 - Shape1.DrawMode = 13 - Shape1.Enabled = .T. - Shape1.FillColor = 0,0,0 - Shape1.FillStyle = 1 - Shape1.Height = (17) - Shape1.HelpContextID = 0 - Shape1.Left = (44) - Shape1.MouseIcon = ..\..\ - Shape1.MousePointer = 0 - Shape1.Name = "Shape1" - Shape1.OLEDragMode = 0 - Shape1.OLEDragPicture = ..\..\ - Shape1.OLEDropEffects = 3 - Shape1.OLEDropMode = 0 - Shape1.PolyPoints = "" - Shape1.Rotation = 0 - Shape1.SpecialEffect = 0 - Shape1.StatusBarText = "" - Shape1.Style = 0 - Shape1.Tag = "" - Shape1.ToolTipText = "" - Shape1.Top = (60) - Shape1.Visible = .T. - Shape1.WhatsThisHelpID = -1 - Shape1.Width = (105) - Line1.Anchor = 0 - Line1.BorderColor = 100,100,100 - Line1.BorderStyle = 1 - Line1.BorderWidth = 1 - Line1.ColorSource = 4 - Line1.Comment = "" - Line1.DefHeight = - Line1.DefLeft = - Line1.DefTop = - Line1.DefWidth = - Line1.DragIcon = ..\..\ - Line1.DragMode = 0 - Line1.DrawMode = 13 - Line1.Enabled = .T. - Line1.Height = (8) - Line1.HelpContextID = 0 - Line1.Left = (44) - Line1.LineSlant = "\" - Line1.MouseIcon = ..\..\ - Line1.MousePointer = 0 - Line1.Name = "Line1" - Line1.OLEDragMode = 0 - Line1.OLEDragPicture = ..\..\ - Line1.OLEDropEffects = 3 - Line1.OLEDropMode = 0 - Line1.PolyPoints = "" - Line1.Rotation = 0 - Line1.StatusBarText = "" - Line1.Tag = "" - Line1.ToolTipText = "" - Line1.Top = (80) - Line1.Visible = .T. - Line1.WhatsThisHelpID = -1 - Line1.Width = (104) - Image1.Anchor = 0 - Image1.BackStyle = 1 - Image1.BorderColor = 100,100,100 - Image1.BorderStyle = 0 - Image1.ColorSource = 4 - Image1.Comment = "" - Image1.DefHeight = - Image1.DefLeft = - Image1.DefTop = - Image1.DefWidth = - Image1.DragIcon = ..\..\ - Image1.DragMode = 0 - Image1.Enabled = .T. - Image1.Height = (16) - Image1.HelpContextID = 0 - Image1.Left = (44) - Image1.MouseIcon = ..\..\ - Image1.MousePointer = 0 - Image1.Name = "Image1" - Image1.OLEDragMode = 0 - Image1.OLEDragPicture = ..\..\ - Image1.OLEDropEffects = 3 - Image1.OLEDropMode = 0 - Image1.Picture = bmps\sobrepostal.bmp - Image1.RotateFlip = 0 - Image1.StatusBarText = "" - Image1.Stretch = 0 - Image1.Tag = "" - Image1.Themes = .T. - Image1.ToolTipText = "" - Image1.Top = (100) - Image1.Visible = .T. - Image1.WhatsThisHelpID = -1 - Image1.Width = (17) - Image2.Name = "Image2" - Image3.Height = 16 - Image3.Name = "Image3" - Image3.Width = 17 - Image4.Name = "Image4" - Image5.Height = 16 - Image5.Name = "Image5" - Image5.Width = 17 - Pageframe1.ActivePage = 2 - Pageframe1.Anchor = 0 - Pageframe1.cl_page1.BackColor = 240,240,240 - Pageframe1.cl_page1.Caption = "Page1" - Pageframe1.cl_page1.ColorSource = 4 - Pageframe1.cl_page1.Comment = "" - Pageframe1.cl_page1.DragIcon = ..\..\ - Pageframe1.cl_page1.DragMode = 0 - Pageframe1.cl_page1.Enabled = .T. - Pageframe1.cl_page1.FontBold = .F. - Pageframe1.cl_page1.FontCharSet = 0 - Pageframe1.cl_page1.FontCondense = .F. - Pageframe1.cl_page1.FontExtend = .F. - Pageframe1.cl_page1.FontItalic = .F. - Pageframe1.cl_page1.FontName = "Arial" - Pageframe1.cl_page1.FontOutline = .F. - Pageframe1.cl_page1.FontShadow = .F. - Pageframe1.cl_page1.FontSize = 8 - Pageframe1.cl_page1.FontStrikethru = .F. - Pageframe1.cl_page1.FontUnderline = .F. - Pageframe1.cl_page1.ForeColor = 0,0,0 - Pageframe1.cl_page1.HelpContextID = 0 - Pageframe1.cl_page1.MouseIcon = ..\..\ - Pageframe1.cl_page1.MousePointer = 0 - Pageframe1.cl_page1.Name = "cl_page1" - Pageframe1.cl_page1.OLEDragMode = 0 - Pageframe1.cl_page1.OLEDragPicture = ..\..\ - Pageframe1.cl_page1.OLEDropEffects = 3 - Pageframe1.cl_page1.OLEDropMode = 0 - Pageframe1.cl_page1.PageOrder = 1 - Pageframe1.cl_page1.StatusBarText = "" - Pageframe1.cl_page1.Tag = "" - Pageframe1.cl_page1.ToolTipText = "" - Pageframe1.cl_page1.WhatsThisHelpID = -1 - Pageframe1.cl_page2.Image1.Height = 16 - Pageframe1.cl_page2.Image1.Name = "Image1" - Pageframe1.cl_page2.Image1.Width = 17 - Pageframe1.cl_page2.Image10.Height = 16 - Pageframe1.cl_page2.Image10.Name = "Image10" - Pageframe1.cl_page2.Image10.Width = 17 - Pageframe1.cl_page2.Image2.Name = "Image2" - Pageframe1.cl_page2.Image3.Height = 16 - Pageframe1.cl_page2.Image3.Name = "Image3" - Pageframe1.cl_page2.Image3.Width = 17 - Pageframe1.cl_page2.Image4.Name = "Image4" - Pageframe1.cl_page2.Image5.Height = 16 - Pageframe1.cl_page2.Image5.Name = "Image5" - Pageframe1.cl_page2.Image5.Width = 17 - Pageframe1.cl_page2.Image6.Height = 16 - Pageframe1.cl_page2.Image6.Name = "Image6" - Pageframe1.cl_page2.Image6.Width = 17 - Pageframe1.cl_page2.Image7.Name = "Image7" - Pageframe1.cl_page2.Image8.Height = 16 - Pageframe1.cl_page2.Image8.Name = "Image8" - Pageframe1.cl_page2.Image8.Width = 17 - Pageframe1.cl_page2.Image9.Name = "Image9" - Pageframe1.cl_page2.Label4.Alignment = 0 - Pageframe1.cl_page2.Label4.Anchor = 0 - Pageframe1.cl_page2.Label4.AutoSize = .F. - Pageframe1.cl_page2.Label4.BackColor = 240,240,240 - Pageframe1.cl_page2.Label4.BackStyle = 1 - Pageframe1.cl_page2.Label4.BorderStyle = 0 - Pageframe1.cl_page2.Label4.Caption = "Label4" - Pageframe1.cl_page2.Label4.ColorScheme = 1 - Pageframe1.cl_page2.Label4.ColorSource = 4 - Pageframe1.cl_page2.Label4.Comment = "" - Pageframe1.cl_page2.Label4.DisabledBackColor = 240,240,240 - Pageframe1.cl_page2.Label4.DisabledForeColor = 109,109,109 - Pageframe1.cl_page2.Label4.DragIcon = ..\..\ - Pageframe1.cl_page2.Label4.DragMode = 0 - Pageframe1.cl_page2.Label4.Enabled = .T. - Pageframe1.cl_page2.Label4.FontBold = .F. - Pageframe1.cl_page2.Label4.Name = "Label4" - Pageframe1.cl_page2.Label5.Name = "Label5" - Pageframe1.cl_page2.Line1.Name = "Line1" - Pageframe1.cl_page2.Line2.Name = "Line2" - Pageframe1.cl_page2.Name = "cl_page2" - Pageframe1.cl_page2.PageOrder = 2 - Pageframe1.cl_page2.Shape1.Name = "Shape1" - Pageframe1.cl_page2.Shape2.Name = "Shape2" - Pageframe1.cl_page2.Spinner1.Name = "Spinner1" - Pageframe1.cl_page2.Spinner2.Name = "Spinner2" - Pageframe1.cl_page3.Name = "cl_page3" - Pageframe1.cl_page3.PageOrder = 3 - Pageframe1.ColorSource = 4 - Pageframe1.Comment = "" - Pageframe1.DefHeight = - Pageframe1.DefLeft = - Pageframe1.DefTop = - Pageframe1.DefWidth = - Pageframe1.DragIcon = ..\..\ - Pageframe1.DragMode = 0 - Pageframe1.Enabled = .T. - Pageframe1.ErasePage = .T. - Pageframe1.Height = (193) - Pageframe1.HelpContextID = 0 - Pageframe1.Left = (20) - Pageframe1.MouseIcon = ..\..\ - Pageframe1.MousePointer = 0 - Pageframe1.Name = "Pageframe1" - Pageframe1.OLEDragMode = 0 - Pageframe1.OLEDragPicture = ..\..\ - Pageframe1.OLEDropEffects = 3 - Pageframe1.OLEDropMode = 0 - Pageframe1.RightToLeft = .F. - Pageframe1.StatusBarText = "" - Pageframe1.TabIndex = 7 - Pageframe1.TabOrientation = 0 - Pageframe1.Tabs = .T. - Pageframe1.TabStop = .T. - Pageframe1.TabStretch = 1 - Pageframe1.TabStyle = 1 - Pageframe1.Tag = "" - Pageframe1.Themes = .T. - Pageframe1.ToolTipText = "" - Pageframe1.Top = (200) - Pageframe1.Visible = .T. - Pageframe1.WhatsThisHelpID = -1 - Pageframe1.Width = (256) - Spinner1.Alignment = 1 - Spinner1.Anchor = 0 - Spinner1.BackColor = 255,255,255 - Spinner1.BorderColor = 100,100,100 - Spinner1.BorderStyle = 1 - Spinner1.ColorScheme = 1 - Spinner1.ColorSource = 4 - Spinner1.Comment = "" - Spinner1.ControlSource = "" - Spinner1.DefHeight = - Spinner1.DefLeft = - Spinner1.DefTop = - Spinner1.DefWidth = - Spinner1.DisabledBackColor = 240,240,240 - Spinner1.DisabledForeColor = 109,109,109 - Spinner1.DragIcon = ..\..\ - Spinner1.DragMode = 0 - Spinner1.Enabled = .T. - Spinner1.FontBold = .F. - Spinner1.FontCondense = .F. - Spinner1.FontExtend = .F. - Spinner1.FontItalic = .F. - Spinner1.FontName = "Arial" - Spinner1.FontOutline = .F. - Spinner1.FontShadow = .F. - Spinner1.FontSize = 8 - Spinner1.FontStrikethru = .F. - Spinner1.FontUnderline = .F. - Spinner1.ForeColor = 0,0,0 - Spinner1.Format = "" - Spinner1.Height = (24) - Spinner1.HelpContextID = 0 - Spinner1.HideSelection = .T. - Spinner1.Increment = 1.00 - Spinner1.InputMask = "" - Spinner1.KeyboardHighValue = 2147483647 - Spinner1.KeyboardLowValue = -2147483647 - Spinner1.Left = (44) - Spinner1.Margin = 2 - Spinner1.MouseIcon = ..\..\ - Spinner1.MousePointer = 0 - Spinner1.Name = "Spinner1" - Spinner1.NullDisplay = "" - Spinner1.OLEDragMode = 0 - Spinner1.OLEDragPicture = ..\..\ - Spinner1.OLEDropEffects = 3 - Spinner1.OLEDropMode = 0 - Spinner1.OLEDropTextInsertion = 0 - Spinner1.ReadOnly = .F. - Spinner1.RightToLeft = .F. - Spinner1.SelectedBackColor = 51,153,255 - Spinner1.SelectedForeColor = 255,255,255 - Spinner1.SelectOnEntry = .F. - Spinner1.SpecialEffect = 0 - Spinner1.StatusBarText = "" - Spinner1.TabIndex = 8 - Spinner1.TabStop = .T. - Spinner1.Tag = "" - Spinner1.TerminateRead = .F. - Spinner1.Themes = .T. - Spinner1.ToolTipText = "" - Spinner1.Top = (160) - Spinner1.Value = 0 - Spinner1.Visible = .T. - Spinner1.WhatsThisHelpID = -1 - Spinner1.Width = (104) - Label5.Name = "Label5" - Shape2.Name = "Shape2" - Line2.Name = "Line2" - Image6.Height = 16 - Image6.Name = "Image6" - Image6.Width = 17 - Image7.Name = "Image7" - Image8.Height = 16 - Image8.Name = "Image8" - Image8.Width = 17 - Image9.Name = "Image9" - Image10.Height = 16 - Image10.Name = "Image10" - Image10.Width = 17 - Spinner2.Name = "Spinner2" - Cl_pageframe1.ErasePage = .T. - Cl_pageframe1.Name = "Cl_pageframe1" - Cl_pageframe1.Page1.Name = "Page1" - Cl_pageframe1.Page2.Image1.Height = 16 - Cl_pageframe1.Page2.Image1.Name = "Image1" - Cl_pageframe1.Page2.Image1.Width = 17 - Cl_pageframe1.Page2.Image10.Height = 16 - Cl_pageframe1.Page2.Image10.Name = "Image10" - Cl_pageframe1.Page2.Image10.Width = 17 - Cl_pageframe1.Page2.Image2.Name = "Image2" - Cl_pageframe1.Page2.Image3.Height = 16 - Cl_pageframe1.Page2.Image3.Name = "Image3" - Cl_pageframe1.Page2.Image3.Width = 17 - Cl_pageframe1.Page2.Image4.Name = "Image4" - Cl_pageframe1.Page2.Image5.Height = 16 - Cl_pageframe1.Page2.Image5.Name = "Image5" - Cl_pageframe1.Page2.Image5.Width = 17 - Cl_pageframe1.Page2.Image6.Height = 16 - Cl_pageframe1.Page2.Image6.Name = "Image6" - Cl_pageframe1.Page2.Image6.Width = 17 - Cl_pageframe1.Page2.Image7.Name = "Image7" - Cl_pageframe1.Page2.Image8.Height = 16 - Cl_pageframe1.Page2.Image8.Name = "Image8" - Cl_pageframe1.Page2.Image8.Width = 17 - Cl_pageframe1.Page2.Image9.Name = "Image9" - Cl_pageframe1.Page2.Label4.Name = "Label4" - Cl_pageframe1.Page2.Label5.Name = "Label5" - Cl_pageframe1.Page2.Line1.Name = "Line1" - Cl_pageframe1.Page2.Line2.Name = "Line2" - Cl_pageframe1.Page2.Name = "Page2" - Cl_pageframe1.Page2.Shape1.Name = "Shape1" - Cl_pageframe1.Page2.Shape2.Name = "Shape2" - Cl_pageframe1.Page2.Spinner1.Name = "Spinner1" - Cl_pageframe1.Page2.Spinner2.Name = "Spinner2" - Cl_pageframe1.Page3.Name = "Page3" - Cl_label1.Name = "Cl_label1" - Cl_shape1.Name = "Cl_shape1" - Cl_line1.Name = "Cl_line1" - Cl_image1.Height = 16 - Cl_image1.Name = "Cl_image1" - Cl_image1.Width = 17 - Cl_image2.Name = "Cl_image2" - Cl_image3.Height = 16 - Cl_image3.Name = "Cl_image3" - Cl_image3.Width = 17 - Cl_image4.Name = "Cl_image4" - Cl_image5.Height = 16 - Cl_image5.Name = "Cl_image5" - Cl_image5.Width = 17 - Cl_spinner1.Name = "Cl_spinner1" - Cl_label2.Name = "Cl_label2" - Cl_shape2.Name = "Cl_shape2" - Cl_line2.Name = "Cl_line2" - Cl_image6.Height = 16 - Cl_image6.Name = "Cl_image6" - Cl_image6.Width = 17 - Cl_image7.Name = "Cl_image7" - Cl_image8.Height = 16 - Cl_image8.Name = "Cl_image8" - Cl_image8.Width = 17 - Cl_image9.Name = "Cl_image9" - Cl_image10.Height = 16 - Cl_image10.Name = "Cl_image10" - Cl_image10.Width = 17 - Cl_spinner2.Name = "Cl_spinner2" - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/f_textbox.sc2 b/TESTS/DATOS_READONLY/f_textbox.sc2 deleted file mode 100644 index d601e88..0000000 --- a/TESTS/DATOS_READONLY/f_textbox.sc2 +++ /dev/null @@ -1,1458 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="f_textbox.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -* -DEFINE CLASS dataenvironment AS dataenvironment - *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> - - DataSource = .NULL. - Height = 0 - Left = 0 - Name = "Dataenvironment" - Top = 0 - Width = 0 - -ENDDEFINE - -DEFINE CLASS f_textbox_test AS f_base OF "lib_controles.vcx" - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_textbox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_textbox2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Edit2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_editbox1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_textbox3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Text3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_textbox4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Text4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Edit3" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Container1.Cl_editbox2" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text5" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_textbox6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Text6" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Edit4" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Pageframe1.Page1.Cl_editbox3" UniqueID="" Timestamp="" /> - - c_testname = Textbox_Test - DoCreate = .T. - Left = 0 - Name = "F_Textbox_Test" - Top = 0 - Edit1.Name = "Edit1" - Label3.Name = "Label3" - Command2.Name = "Command2" - Label1.Caption = "TEXTBOX NORMAL" - Label1.Name = "Label1" - Label2.Caption = "TEXTBOX SUBCLASADOS" - Label2.Name = "Label2" - - ADD OBJECT 'Cl_editbox1' AS cl_editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (57), ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = (426), ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_editbox1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabIndex = 9, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (64), ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (93) - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" /> - - ADD OBJECT 'Cl_textbox1' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (23), ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = (300), ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabIndex = 1, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (64), ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (116) - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Cl_textbox2' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 300, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 96, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Container1' AS container WITH ; - Height = 101, ; - Left = 20, ; - Name = "Container1", ; - Top = 148, ; - Width = 517 - *< END OBJECT: BaseClass="container" /> - - ADD OBJECT 'Container1.Cl_editbox2' AS cl_editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 57, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = 406, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_editbox2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 20, ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 93 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" /> - - ADD OBJECT 'Container1.Cl_textbox3' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 280, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox3", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = 20, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Container1.Cl_textbox4' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 280, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox4", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 52, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Container1.Edit3' AS editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 57, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = 144, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Edit3", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 20, ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 93 - *< END OBJECT: BaseClass="editbox" /> - - ADD OBJECT 'Container1.Text3' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 16, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text3", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = 20, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Container1.Text4' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .F., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 16, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text4", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 52, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Edit2' AS editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (57), ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = (164), ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Edit2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = (64), ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (93) - *< END OBJECT: BaseClass="editbox" /> - - ADD OBJECT 'Pageframe1' AS pageframe WITH ; - ErasePage = .T., ; - Height = 129, ; - Left = 20, ; - Name = "Pageframe1", ; - PageCount = 2, ; - Top = 260, ; - Width = 517, ; - Page1.Caption = "Page1", ; - Page1.Name = "Page1", ; - Page2.Caption = "Page2", ; - Page2.Name = "Page2" - *< END OBJECT: BaseClass="pageframe" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_editbox3' AS cl_editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 57, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = 405, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_editbox3", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 93 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="editbox" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_textbox5' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 279, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox5", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = 16, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Pageframe1.Page1.Cl_textbox6' AS cl_textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 279, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Cl_textbox6", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 48, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: ClassLib="lib_controles.vcx" BaseClass="textbox" /> - - ADD OBJECT 'Pageframe1.Page1.Edit4' AS editbox WITH ; - AddLineFeeds = .T., ; - Alignment = 0, ; - AllowTabs = .F., ; - Anchor = 0, ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - ColorScheme = 2, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 57, ; - HelpContextID = 0, ; - HideSelection = .T., ; - IMEMode = 0, ; - IntegralHeight = .F., ; - Left = 143, ; - Margin = 2, ; - MaxLength = 0, ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Edit4", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - ScrollBars = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 0, ; - StatusBarText = "", ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .T., ; - ToolTipText = "", ; - Top = 16, ; - Value = Un valor para el editbox que se vea en más de una línea, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 93 - *< END OBJECT: BaseClass="editbox" /> - - ADD OBJECT 'Pageframe1.Page1.Text5' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 15, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text5", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = 16, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Pageframe1.Page1.Text6' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 15, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text6", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .T., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 48, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Text1' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 100,100,100, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DefHeight = , ; - DefLeft = , ; - DefTop = , ; - DefWidth = , ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = (23), ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = (36), ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text1", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - ToolTipText = "", ; - Top = (64), ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = (116) - *< END OBJECT: BaseClass="textbox" /> - - ADD OBJECT 'Text2' AS textbox WITH ; - Alignment = 3, ; - Anchor = 0, ; - AutoComplete = 0, ; - AutoCompSource = "", ; - AutoCompTable = "", ; - BackColor = 255,255,255, ; - BackStyle = 1, ; - BorderColor = 0,128,255, ; - BorderStyle = 1, ; - Century = 1, ; - ColorScheme = 1, ; - ColorSource = 4, ; - Comment = "", ; - ControlSource = "", ; - DateFormat = 0, ; - DateMark = "", ; - DisabledBackColor = 0,128,192, ; - DisabledForeColor = 128,0,255, ; - DragIcon = ..\..\, ; - DragMode = 0, ; - Enabled = .T., ; - EnableHyperlinks = .F., ; - FontBold = .F., ; - FontCharSet = 0, ; - FontCondense = .F., ; - FontExtend = .F., ; - FontItalic = .F., ; - FontName = "Arial", ; - FontOutline = .F., ; - FontShadow = .F., ; - FontSize = 8, ; - FontStrikethru = .F., ; - FontUnderline = .F., ; - ForeColor = 0,0,0, ; - Format = "", ; - Height = 23, ; - HelpContextID = 0, ; - HideSelection = .T., ; - Hours = 0, ; - IMEMode = 0, ; - InputMask = "", ; - IntegralHeight = .F., ; - Left = 36, ; - Margin = 2, ; - MaxLength = 0, ; - MemoWindow = "", ; - MouseIcon = ..\..\, ; - MousePointer = 0, ; - Name = "Text2", ; - NullDisplay = "", ; - OLEDragMode = 0, ; - OLEDragPicture = ..\..\, ; - OLEDropEffects = 3, ; - OLEDropMode = 0, ; - OLEDropTextInsertion = 0, ; - OpenWindow = .F., ; - PasswordChar = "", ; - ReadOnly = .F., ; - RightToLeft = .F., ; - Seconds = 2, ; - SelectedBackColor = 51,153,255, ; - SelectedForeColor = 255,255,255, ; - SelectOnEntry = .F., ; - SpecialEffect = 1, ; - StatusBarText = "", ; - StrictDateEntry = 1, ; - Style = 0, ; - TabStop = .T., ; - Tag = "", ; - TerminateRead = .F., ; - Themes = .F., ; - ToolTipText = "", ; - Top = 96, ; - Value = Un valor cualquiera, ; - Visible = .T., ; - WhatsThisHelpID = -1, ; - Width = 116 - *< END OBJECT: BaseClass="textbox" /> - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2 deleted file mode 100644 index 5e083e2..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_commandgroup.vc2 +++ /dev/null @@ -1,34 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_commandgroup AS commandgroup && Descripción de cl_CommandGroup - *< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - #INCLUDE "..\..\include\principal.h" - * - *p: una_prop_cmgroup && Con comentario, pero sin valor - * - - ButtonCount = 2 - Height = 66 - Name = "cl_commandgroup" - una_prop_cmgroup = .F. && Con comentario, pero sin valor - Value = 1 - Width = 94 - Command1.Caption = "Command1" - Command1.Height = 27 - Command1.Left = 5 - Command1.Name = "Command1" - Command1.Top = 5 - Command1.Width = 84 - Command2.Caption = "Command2" - Command2.Height = 27 - Command2.Left = 5 - Command2.Name = "Command2" - Command2.Top = 34 - Command2.Width = 84 - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2 deleted file mode 100644 index 650a9f1..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2 +++ /dev/null @@ -1,121 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_form AS form OLEPUBLIC && mi OLE server DLL - *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" /> - - *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder - *< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" /> - *< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" /> - - * - *p: chidden && Prop.Hidden - *p: cprotected && Prop.Protegida - *a: ahidden[1,0] && Array Oculto - *a: aprotected[1,0] && Array Protegido - *p: _memberdata && XML Metadata for customizable properties - * - - HIDDEN ahidden,chidden - PROTECTED aprotected,cprotected - Caption = "Form" - chidden = && Prop.Hidden - cprotected = && Prop.Protegida - DoCreate = .T. - Height = 345 - Left = 0 - Name = "cl_form" - Picture = bmps\scccheckout.bmp - Top = 0 - Width = 570 - _memberdata = - - - - - && XML Metadata for customizable properties - - ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ; - BackColor = 255,128,192, ; - Height = 66, ; - Left = 8, ; - Name = "Cl_commandgroup1", ; - Top = 88, ; - Width = 244, ; - Command1.Caption = "Abrir", ; - Command1.Height = 52, ; - Command1.Left = 8, ; - Command1.Name = "Command1", ; - Command1.Picture = bmps\carpetaabierta.bmp, ; - Command1.Top = 4, ; - Command1.Width = 104, ; - Command2.Caption = "Cerrar", ; - Command2.Height = 52, ; - Command2.Left = 124, ; - Command2.Name = "Command2", ; - Command2.Picture = bmps\carpetacerrada.bmp, ; - Command2.Top = 4, ; - Command2.Width = 104 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" /> - - ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ; - Height = 34, ; - Left = 452, ; - Name = "Cl_imagen1", ; - Picture = bmps\sobrepostal.bmp, ; - Stretch = 1, ; - Top = 276, ; - Width = 38 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ; - Height = 34, ; - Left = 500, ; - Name = "Cl_imagen2", ; - Picture = bmps\treeview.bmp, ; - Stretch = 1, ; - Top = 276, ; - Width = 38 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" /> - - ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ; - BackColor = 0,128,255, ; - Height = 68, ; - Left = 8, ; - Name = "Cl_optiongroup1", ; - Top = 12, ; - Width = 244, ; - Option1.Height = 52, ; - Option1.Left = 8, ; - Option1.Name = "Option1", ; - Option1.Picture = bmps\scccheckout.bmp, ; - Option1.Style = 1, ; - Option1.Top = 8, ; - Option1.Width = 104, ; - Option2.Height = 52, ; - Option2.Left = 124, ; - Option2.Name = "Option2", ; - Option2.Picture = bmps\scccheckout.bmp, ; - Option2.Style = 1, ; - Option2.Top = 8, ; - Option2.Width = 104 - *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" /> - - PROCEDURE Cl_optiongroup1.Init - *-- Prueba para comprobar que respeta espacios y TABS del código - TEXT TO xx - * TAB a la izquierda del asterisco - * 2 TAB a la izquierda del asterisco - * 1 ESPACIO a la izquierda del asterisco - * 2 ESPACIOS a la izquierda del asterisco - 1 TAB a la derecha del asterisco * - 1 ESPACIO a la derecha del asterisco * - ENDTEXT && Esto termina sin ENTER - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2 deleted file mode 100644 index 5947af3..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_imagen.vc2 +++ /dev/null @@ -1,23 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_imagen AS image OLEPUBLIC && otro ole - *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: un_metodo_de_clase && Para testear si el código se va a la clase cl_form - * - - Height = 16 - Name = "cl_imagen" - Picture = bmps\sobrepostal.bmp - Width = 17 - - PROCEDURE un_metodo_de_clase && Para testear si el código se va a la clase cl_form - * ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase" - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2 deleted file mode 100644 index 3a4bd63..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olebound.vc2 +++ /dev/null @@ -1,14 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_olebound AS oleboundcontrol - *< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Height = 100 - Name = "cl_olebound" - Width = 100 - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2 deleted file mode 100644 index 57fd5f8..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_olecontrol.vc2 +++ /dev/null @@ -1,14 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_olecontrol AS olecontrol - *< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" /> - - Height = 67 - Name = "cl_olecontrol" - Width = 131 - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2 deleted file mode 100644 index f7b6562..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_optiongroup.vc2 +++ /dev/null @@ -1,51 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS cl_optiongroup AS optiongroup && descripcion - *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> - - * - *m: propiedad_de_clase_con_valor_access - *m: propiedad_de_clase_con_valor_assign - *p: propiedad_de_clase_con_valor && Tiene un valor por defecto - *p: propiedad_de_clase_sin_valor && Una propiedad sin valor para heredar - * - - ButtonCount = 2 - Height = 46 - Name = "cl_optiongroup" - propiedad_de_clase_con_valor = UN VALOR DE LA CLASE && Tiene un valor por defecto - propiedad_de_clase_sin_valor = .F. && Una propiedad sin valor para heredar - Value = 1 - Width = 71 - Option1.Caption = "Option1" - Option1.Height = 17 - Option1.Left = 5 - Option1.Name = "Option1" - Option1.Top = 5 - Option1.Value = 1 - Option1.Width = 61 - Option2.Caption = "Option2" - Option2.Height = 17 - Option2.Left = 5 - Option2.Name = "Option2" - Option2.Top = 24 - Option2.Width = 61 - - PROCEDURE propiedad_de_clase_con_valor_access - *To do: Modify this routine for the Access method - RETURN THIS.propiedad_de_clase_con_valor - - ENDPROC - - PROCEDURE propiedad_de_clase_con_valor_assign - LPARAMETERS vNewVal - *To do: Modify this routine for the Assign method - THIS.propiedad_de_clase_con_valor = m.vNewVal - - ENDPROC - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2 deleted file mode 100644 index 84d9a31..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.proj_hook.vc2 +++ /dev/null @@ -1,14 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -DEFINE CLASS proj_hook AS projecthook - *< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" /> - - Height = 22 - Name = "proj_hook" - Width = 23 - -ENDDEFINE diff --git a/TESTS/DATOS_READONLY/fb2p_classperfile_text.vc2 b/TESTS/DATOS_READONLY/fb2p_classperfile_text.vc2 deleted file mode 100644 index a5f8752..0000000 --- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.vc2 +++ /dev/null @@ -1,18 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* -*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas -*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" /> -*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" /> -*< EXTERNAL_CLASS: Name="cl_imagen" Baseclass="image" /> -*< EXTERNAL_CLASS: Name="cl_olebound" Baseclass="oleboundcontrol" /> -*< EXTERNAL_CLASS: Name="cl_olecontrol" Baseclass="olecontrol" /> -*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" /> -*< EXTERNAL_CLASS: Name="proj_hook" Baseclass="projecthook" /> - -* -*< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" /> -* \ No newline at end of file diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dbc b/TESTS/DATOS_READONLY/fb2p_dbc.dbc index b388716..7ee3aa2 100644 Binary files a/TESTS/DATOS_READONLY/fb2p_dbc.dbc and b/TESTS/DATOS_READONLY/fb2p_dbc.dbc differ diff --git a/TESTS/DATOS_READONLY/fb2p_dbc.dct b/TESTS/DATOS_READONLY/fb2p_dbc.dct index 4587909..5ff8b9d 100644 Binary files a/TESTS/DATOS_READONLY/fb2p_dbc.dct and b/TESTS/DATOS_READONLY/fb2p_dbc.dct differ diff --git a/TESTS/DATOS_READONLY/fb2p_depto.db2 b/TESTS/DATOS_READONLY/fb2p_depto.db2 deleted file mode 100644 index be40ecc..0000000 --- a/TESTS/DATOS_READONLY/fb2p_depto.db2 +++ /dev/null @@ -1,89 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_depto.dbf" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* - - - - 1252 - - fb2p_dbc.dbc - 0x00000030 - Visual FoxPro - - - - DEPTO - C - 10 - 0 - .F. - .F. - depto_field_validation_rule() - depto_field_validation_message() - "Depto." - fb2p_depto_record_rule_validation() - fb2p_depto_record_rule_validation_message() - FB2P_DEPTO - - - __ri_delete_fb2p_depto() - Comentario de "fb2p_depto" - 0 - 0 - - - DESCRIP - C - 50 - 0 - .F. - .F. - - - - - - - - - - - 0 - 0 - - - - - FB2P_DEPTO.CDX - - - - DEPTO - PRIMARY - DEPTO - depto=>"0" - ASCENDING - MACHINE - - - DESCRIP - REGULAR - DESCRIP - - DESCENDING - GENERAL - - - - - - - D.1.C - la descrip - - - -
diff --git a/TESTS/DATOS_READONLY/fb2p_foxuser.fr2 b/TESTS/DATOS_READONLY/fb2p_foxuser.fr2 deleted file mode 100644 index b53d5b3..0000000 --- a/TESTS/DATOS_READONLY/fb2p_foxuser.fr2 +++ /dev/null @@ -1,577 +0,0 @@ -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!! -* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! -*-------------------------------------------------------------------------------------------------------------------------------------------------------- -*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_foxuser.frx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) -* - - - - -