[DEVELOPMENT ENVIRONMENT]
* NEW: The project property dialog tries its best to automatically check dependencies when a component is selected. Dependencies automatically added but not explicitely checked by the user are displayed with a gray check mark instead of a black one. git-svn-id: svn://localhost/gambas/trunk@3287 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini
parent
453236f17f
commit
03692503ef
5 changed files with 177 additions and 91 deletions
|
|
@ -134,7 +134,7 @@ msgstr ""
|
||||||
msgid "Image routines from the Imlib2 library"
|
msgid "Image routines from the Imlib2 library"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponent.class:105 FPropertyProject.class:2063
|
#: CComponent.class:105 FPropertyProject.class:2099
|
||||||
msgid "Image loading and saving"
|
msgid "Image loading and saving"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -242,15 +242,15 @@ msgstr ""
|
||||||
msgid "Web applications tools"
|
msgid "Web applications tools"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponent.class:137 FPropertyProject.class:2051
|
#: CComponent.class:137 FPropertyProject.class:2087
|
||||||
msgid "Graphical form management"
|
msgid "Graphical form management"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponent.class:138 FPropertyProject.class:2057
|
#: CComponent.class:138 FPropertyProject.class:2093
|
||||||
msgid "Event loop management"
|
msgid "Event loop management"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponent.class:140 FPropertyProject.class:2069
|
#: CComponent.class:140 FPropertyProject.class:2105
|
||||||
msgid "OpenGL display"
|
msgid "OpenGL display"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -258,31 +258,31 @@ msgstr ""
|
||||||
msgid "Loading information on component &1..."
|
msgid "Loading information on component &1..."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:97
|
#: CComponentBox.class:100
|
||||||
msgid "Experimental"
|
msgid "Experimental"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:99 FPropertyProject.class:1804
|
#: CComponentBox.class:102 FPropertyProject.class:1840
|
||||||
msgid "Not finished but stable"
|
msgid "Not finished but stable"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:205 ProjectItem.class:68
|
#: CComponentBox.class:224 ProjectItem.class:68
|
||||||
msgid "Authors"
|
msgid "Authors"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:212 FPropertyProject.class:2031
|
#: CComponentBox.class:231 FPropertyProject.class:2067
|
||||||
msgid "Requires"
|
msgid "Requires"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:214
|
#: CComponentBox.class:233
|
||||||
msgid "Excludes"
|
msgid "Excludes"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:220
|
#: CComponentBox.class:239
|
||||||
msgid "Implements"
|
msgid "Implements"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: CComponentBox.class:233 LibraryItem.class:58
|
#: CComponentBox.class:252 LibraryItem.class:58
|
||||||
msgid "Provides"
|
msgid "Provides"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -478,7 +478,7 @@ msgstr ""
|
||||||
#: FImportTable.class:39 FList.class:155 FMain.class:193
|
#: FImportTable.class:39 FList.class:155 FMain.class:193
|
||||||
#: FMakeInstall.class:318 FMenu.class:1202 FNewConnection.class:317
|
#: FMakeInstall.class:318 FMenu.class:1202 FNewConnection.class:317
|
||||||
#: FNewTable.class:165 FNewTranslation.class:70 FOpenProject.class:502
|
#: FNewTable.class:165 FNewTranslation.class:70 FOpenProject.class:502
|
||||||
#: FOption.class:600 FPasteSpecial.class:279 FPropertyProject.class:1017
|
#: FOption.class:600 FPasteSpecial.class:279 FPropertyProject.class:1053
|
||||||
#: FReportBorderChooser.class:207 FReportCoordChooser.class:114
|
#: FReportBorderChooser.class:207 FReportCoordChooser.class:114
|
||||||
#: FSave.class:118 FSaveProjectAs.class:130 FSelectExtraFile.class:78
|
#: FSave.class:118 FSaveProjectAs.class:130 FSelectExtraFile.class:78
|
||||||
#: FSelectIcon.class:273 FSnippet.class:142 FTableChooser.class:144
|
#: FSelectIcon.class:273 FSnippet.class:142 FTableChooser.class:144
|
||||||
|
|
@ -503,7 +503,7 @@ msgstr ""
|
||||||
msgid "Project commit"
|
msgid "Project commit"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FCommit.class:195 FMakeInstall.class:1299 FPropertyProject.class:1585
|
#: FCommit.class:195 FMakeInstall.class:1299 FPropertyProject.class:1621
|
||||||
msgid "Description"
|
msgid "Description"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -946,7 +946,7 @@ msgid "Style sheet"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FCreateFile.class:791 FCreateProject.class:535 FImportTable.class:526
|
#: FCreateFile.class:791 FCreateProject.class:535 FImportTable.class:526
|
||||||
#: FPropertyProject.class:1607
|
#: FPropertyProject.class:1643
|
||||||
msgid "Options"
|
msgid "Options"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1096,7 +1096,7 @@ msgstr ""
|
||||||
msgid "Identification"
|
msgid "Identification"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FCreateProject.class:647 FPropertyProject.class:1574
|
#: FCreateProject.class:647 FPropertyProject.class:1610
|
||||||
msgid "Title"
|
msgid "Title"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1203,7 +1203,7 @@ msgstr ""
|
||||||
msgid "Add expression"
|
msgid "Add expression"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FDebugInfo.class:1231 FMakeInstall.class:1599 FPropertyProject.class:2109
|
#: FDebugInfo.class:1231 FMakeInstall.class:1599 FPropertyProject.class:2145
|
||||||
msgid "&Add"
|
msgid "&Add"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1212,7 +1212,7 @@ msgid "Remove current expression"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FDebugInfo.class:1239 FMain.class:2605 FMakeInstall.class:1605
|
#: FDebugInfo.class:1239 FMain.class:2605 FMakeInstall.class:1605
|
||||||
#: FOption.class:1579 FPropertyProject.class:1879
|
#: FOption.class:1579 FPropertyProject.class:1915
|
||||||
msgid "&Remove"
|
msgid "&Remove"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1614,7 +1614,7 @@ msgstr ""
|
||||||
msgid "Go to line"
|
msgid "Go to line"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FHelpBrowser.class:22 FPropertyProject.class:1729
|
#: FHelpBrowser.class:22 FPropertyProject.class:1765
|
||||||
msgid "Default language"
|
msgid "Default language"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1964,7 +1964,7 @@ msgstr ""
|
||||||
msgid "This file has not been modified since the last commit."
|
msgid "This file has not been modified since the last commit."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FInfo.class:304 FOption.class:948 FPropertyProject.class:1518
|
#: FInfo.class:304 FOption.class:948 FPropertyProject.class:1554
|
||||||
msgid "General"
|
msgid "General"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1980,7 +1980,7 @@ msgstr ""
|
||||||
msgid "Last modified"
|
msgid "Last modified"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FInfo.class:390 FPropertyProject.class:1987
|
#: FInfo.class:390 FPropertyProject.class:2023
|
||||||
msgid "Versioning"
|
msgid "Versioning"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -1996,7 +1996,7 @@ msgstr ""
|
||||||
msgid "Edit list property"
|
msgid "Edit list property"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FList.class:274 FMenu.class:924 FPropertyProject.class:1930
|
#: FList.class:274 FMenu.class:924 FPropertyProject.class:1966
|
||||||
msgid "&Insert"
|
msgid "&Insert"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -2472,7 +2472,7 @@ msgstr ""
|
||||||
msgid "Properties"
|
msgid "Properties"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FMakeExecutable.class:18 FPropertyProject.class:1265
|
#: FMakeExecutable.class:18 FPropertyProject.class:1301
|
||||||
msgid "Gambas applications"
|
msgid "Gambas applications"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -2532,7 +2532,7 @@ msgstr ""
|
||||||
msgid "There is no CHANGELOG entry for this release."
|
msgid "There is no CHANGELOG entry for this release."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FMakeInstall.class:318 FPropertyProject.class:1017 FSave.class:111
|
#: FMakeInstall.class:318 FPropertyProject.class:1053 FSave.class:111
|
||||||
#: Project.module:2856
|
#: Project.module:2856
|
||||||
msgid "Continue"
|
msgid "Continue"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
@ -3046,11 +3046,11 @@ msgstr ""
|
||||||
msgid "Sort properties"
|
msgid "Sort properties"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FOption.class:1028 FPropertyProject.class:1660
|
#: FOption.class:1028 FPropertyProject.class:1696
|
||||||
msgid "No"
|
msgid "No"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FOption.class:1028 FPropertyProject.class:1660
|
#: FOption.class:1028 FPropertyProject.class:1696
|
||||||
msgid "Yes"
|
msgid "Yes"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -3078,7 +3078,7 @@ msgstr ""
|
||||||
msgid "Default tab size"
|
msgid "Default tab size"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FOption.class:1166 FPropertyProject.class:1635
|
#: FOption.class:1166 FPropertyProject.class:1671
|
||||||
msgid "space(s)"
|
msgid "space(s)"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
@ -3313,187 +3313,187 @@ msgstr ""
|
||||||
msgid "Snapping value is incorrect."
|
msgid "Snapping value is incorrect."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:441
|
#: FPropertyProject.class:453
|
||||||
msgid "These components are incompatible:<br>&1."
|
msgid "These components are incompatible:<br>&1."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:454
|
#: FPropertyProject.class:466
|
||||||
msgid "The &1 component needs one of the following components:<br>&2."
|
msgid "The &1 component needs one of the following components:<br>&2."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:461
|
#: FPropertyProject.class:473
|
||||||
msgid "The &1 component needs the &2 component."
|
msgid "The &1 component needs the &2 component."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:866
|
#: FPropertyProject.class:902
|
||||||
msgid "Cannot write component description file."
|
msgid "Cannot write component description file."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1008
|
#: FPropertyProject.class:1044
|
||||||
msgid "Unable to update project from repository."
|
msgid "Unable to update project from repository."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1010
|
#: FPropertyProject.class:1046
|
||||||
msgid "Project has been updated from repository successfully."
|
msgid "Project has been updated from repository successfully."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1017
|
#: FPropertyProject.class:1053
|
||||||
msgid "You are going to cancel your changes!"
|
msgid "You are going to cancel your changes!"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1264
|
#: FPropertyProject.class:1300
|
||||||
msgid "Select a Gambas application"
|
msgid "Select a Gambas application"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1275
|
#: FPropertyProject.class:1311
|
||||||
msgid "<b>&1</b> is already used as a library."
|
msgid "<b>&1</b> is already used as a library."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1281
|
#: FPropertyProject.class:1317
|
||||||
msgid "<b>&1</b> does not export any class."
|
msgid "<b>&1</b> does not export any class."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1488
|
#: FPropertyProject.class:1524
|
||||||
msgid "GB_GUI=gb.qt4"
|
msgid "GB_GUI=gb.qt4"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1494
|
#: FPropertyProject.class:1530
|
||||||
msgid "GB_GUI=gb.gtk"
|
msgid "GB_GUI=gb.gtk"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1547
|
#: FPropertyProject.class:1583
|
||||||
msgid "Version"
|
msgid "Version"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1597
|
#: FPropertyProject.class:1633
|
||||||
msgid "Author(s)"
|
msgid "Author(s)"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1612
|
#: FPropertyProject.class:1648
|
||||||
msgid "Edition"
|
msgid "Edition"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1623
|
#: FPropertyProject.class:1659
|
||||||
msgid "Tab size"
|
msgid "Tab size"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1643
|
#: FPropertyProject.class:1679
|
||||||
msgid "Compilation"
|
msgid "Compilation"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1654
|
#: FPropertyProject.class:1690
|
||||||
msgid "Module symbols are public by default"
|
msgid "Module symbols are public by default"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1671
|
#: FPropertyProject.class:1707
|
||||||
msgid "Form controls are public"
|
msgid "Form controls are public"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1688
|
#: FPropertyProject.class:1724
|
||||||
msgid "Get version from program"
|
msgid "Get version from program"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1701 FTranslate.class:1523
|
#: FPropertyProject.class:1737 FTranslate.class:1523
|
||||||
msgid "Translation"
|
msgid "Translation"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1712
|
#: FPropertyProject.class:1748
|
||||||
msgid "Project is translatable"
|
msgid "Project is translatable"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1744
|
#: FPropertyProject.class:1780
|
||||||
msgid "Debugging"
|
msgid "Debugging"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1755
|
#: FPropertyProject.class:1791
|
||||||
msgid "Use a terminal emulator"
|
msgid "Use a terminal emulator"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1769
|
#: FPropertyProject.class:1805
|
||||||
msgid "Component"
|
msgid "Component"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1780
|
#: FPropertyProject.class:1816
|
||||||
msgid "This project is a component"
|
msgid "This project is a component"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1797
|
#: FPropertyProject.class:1833
|
||||||
msgid "Component advancement"
|
msgid "Component advancement"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1804
|
#: FPropertyProject.class:1840
|
||||||
msgid "Finished and stable"
|
msgid "Finished and stable"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1804
|
#: FPropertyProject.class:1840
|
||||||
msgid "Beta version"
|
msgid "Beta version"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1808
|
#: FPropertyProject.class:1844
|
||||||
msgid "Components"
|
msgid "Components"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1812
|
#: FPropertyProject.class:1848
|
||||||
msgid "Show only components used in project"
|
msgid "Show only components used in project"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1818
|
#: FPropertyProject.class:1854
|
||||||
msgid "Show components in beta version"
|
msgid "Show components in beta version"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1831
|
#: FPropertyProject.class:1867
|
||||||
msgid "About &component..."
|
msgid "About &component..."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1842
|
#: FPropertyProject.class:1878
|
||||||
msgid "&Reset"
|
msgid "&Reset"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1860
|
#: FPropertyProject.class:1896
|
||||||
msgid "Libraries"
|
msgid "Libraries"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1873
|
#: FPropertyProject.class:1909
|
||||||
msgid "&Add..."
|
msgid "&Add..."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1905
|
#: FPropertyProject.class:1941
|
||||||
msgid "Environment"
|
msgid "Environment"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1915
|
#: FPropertyProject.class:1951
|
||||||
msgid "Arguments"
|
msgid "Arguments"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1958
|
#: FPropertyProject.class:1994
|
||||||
msgid "Environment variables"
|
msgid "Environment variables"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:1992
|
#: FPropertyProject.class:2028
|
||||||
msgid "Changes since last commit"
|
msgid "Changes since last commit"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2005
|
#: FPropertyProject.class:2041
|
||||||
msgid "There is no change to commit."
|
msgid "There is no change to commit."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2014
|
#: FPropertyProject.class:2050
|
||||||
msgid "&Update"
|
msgid "&Update"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2020
|
#: FPropertyProject.class:2056
|
||||||
msgid "&Revert..."
|
msgid "&Revert..."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2026
|
#: FPropertyProject.class:2062
|
||||||
msgid "&Commit..."
|
msgid "&Commit..."
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2036
|
#: FPropertyProject.class:2072
|
||||||
msgid "Features"
|
msgid "Features"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
#: FPropertyProject.class:2121
|
#: FPropertyProject.class:2157
|
||||||
msgid "Remove All"
|
msgid "Remove All"
|
||||||
msgstr ""
|
msgstr ""
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@ Inherits UserControl
|
||||||
Event Click
|
Event Click
|
||||||
|
|
||||||
Property Read Key As String
|
Property Read Key As String
|
||||||
Property Value As Boolean
|
Property Read Value As Boolean
|
||||||
Property Locked As Boolean
|
Property Locked As Boolean
|
||||||
Property Expanded As Boolean
|
Property Expanded As Boolean
|
||||||
|
|
||||||
|
|
@ -20,6 +20,9 @@ Private txtInfo As TextLabel
|
||||||
Private panVBox As VBox
|
Private panVBox As VBox
|
||||||
|
|
||||||
Private $bCheck As Boolean
|
Private $bCheck As Boolean
|
||||||
|
Private $bGray As Boolean
|
||||||
|
Private $aComp As New String[]
|
||||||
|
|
||||||
Private $bLock As Boolean
|
Private $bLock As Boolean
|
||||||
Private $sKey As String
|
Private $sKey As String
|
||||||
Private $sInfo As String
|
Private $sInfo As String
|
||||||
|
|
@ -131,14 +134,30 @@ End
|
||||||
|
|
||||||
Private Sub RefreshCheck()
|
Private Sub RefreshCheck()
|
||||||
|
|
||||||
picCheck.Picture = Picture[If($bCheck, "img/16/checked.png", "img/16/unchecked.png")]
|
Dim sImage As String
|
||||||
|
|
||||||
|
If $bCheck Then
|
||||||
|
If $bGray Then
|
||||||
|
sImage = "checked-gray"
|
||||||
|
Else
|
||||||
|
sImage = "checked"
|
||||||
|
Endif
|
||||||
|
Else
|
||||||
|
sImage = "unchecked"
|
||||||
|
Endif
|
||||||
|
|
||||||
|
picCheck.Picture = Picture["img/16/" & sImage & ".png"]
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
Public Sub picCheck_MouseDown()
|
Public Sub picCheck_MouseDown()
|
||||||
|
|
||||||
If $bLock Then Return
|
If $bLock Then Return
|
||||||
$bCheck = Not $bCheck
|
If $bCheck And If Not $bGray Then
|
||||||
|
Uncheck("")
|
||||||
|
Else
|
||||||
|
Check("")
|
||||||
|
Endif
|
||||||
RefreshCheck
|
RefreshCheck
|
||||||
Raise Click
|
Raise Click
|
||||||
|
|
||||||
|
|
@ -150,12 +169,12 @@ Private Function Value_Read() As Boolean
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
Private Sub Value_Write(Value As Boolean)
|
' Private Sub Value_Write(Value As Boolean)
|
||||||
|
'
|
||||||
$bCheck = Value
|
' $bCheck = Value
|
||||||
RefreshCheck
|
' RefreshCheck
|
||||||
|
'
|
||||||
End
|
' End
|
||||||
|
|
||||||
Private Function Locked_Read() As Boolean
|
Private Function Locked_Read() As Boolean
|
||||||
|
|
||||||
|
|
@ -275,3 +294,33 @@ Public Sub Watcher_Arrange()
|
||||||
Endif
|
Endif
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
Public Sub Check(Optional sComponent As String)
|
||||||
|
|
||||||
|
If $aComp.Exist(sComponent) Then Return
|
||||||
|
|
||||||
|
$aComp.Add(sComponent)
|
||||||
|
If Not $bCheck Then
|
||||||
|
$bCheck = True
|
||||||
|
$bGray = sComponent <> ""
|
||||||
|
Else
|
||||||
|
If Not sComponent Then $bGray = False
|
||||||
|
Endif
|
||||||
|
|
||||||
|
RefreshCheck
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
Public Sub Uncheck(Optional sComponent As String)
|
||||||
|
|
||||||
|
Dim iFind As Integer = $aComp.Find(sComponent)
|
||||||
|
|
||||||
|
If iFind < 0 Then Return
|
||||||
|
|
||||||
|
$aComp.Remove(iFind)
|
||||||
|
|
||||||
|
$bCheck = $aComp.Count > 0
|
||||||
|
If sComponent = "" Then $bGray = $bCheck
|
||||||
|
RefreshCheck
|
||||||
|
|
||||||
|
End
|
||||||
|
|
|
||||||
|
|
@ -324,10 +324,19 @@ End
|
||||||
'
|
'
|
||||||
' END
|
' END
|
||||||
|
|
||||||
|
Private Sub GetRequire(sComp As String) As String[]
|
||||||
|
|
||||||
|
Dim hComp As CComponent = CComponent.All[sComp]
|
||||||
|
|
||||||
|
Return hComp.Require
|
||||||
|
|
||||||
|
End
|
||||||
|
|
||||||
|
|
||||||
Private Sub RefreshComponents()
|
Private Sub RefreshComponents()
|
||||||
|
|
||||||
Dim sLib As String
|
Dim sLib As String
|
||||||
|
Dim sDep As String
|
||||||
Dim hComp As CComponent
|
Dim hComp As CComponent
|
||||||
Dim hSep As Label
|
Dim hSep As Label
|
||||||
Dim aRemove As New String[]
|
Dim aRemove As New String[]
|
||||||
|
|
@ -359,16 +368,19 @@ Private Sub RefreshComponents()
|
||||||
If $bShowUsed Then
|
If $bShowUsed Then
|
||||||
If sLib <> "gb" And If Not Project.Components.Exist(hComp.Key) Then Continue
|
If sLib <> "gb" And If Not Project.Components.Exist(hComp.Key) Then Continue
|
||||||
Endif
|
Endif
|
||||||
hCompBox = New CComponentBox(lstComponent, hComp, bDark)
|
hCompBox = New CComponentBox(lstComponent, hComp, bDark) As "Component"
|
||||||
bDark = Not bDark
|
bDark = Not bDark
|
||||||
$cComp[hComp.Key] = hCompBox
|
$cComp[hComp.Key] = hCompBox
|
||||||
hCompBox.Locked = sLib = "gb" Or $bShowUsed
|
hCompBox.Locked = sLib = "gb" Or $bShowUsed
|
||||||
Next
|
Next
|
||||||
|
|
||||||
For Each sLib In Project.Components
|
For Each sLib In Project.Components
|
||||||
$cComp[sLib].Value = True
|
$cComp[sLib].Check("")
|
||||||
|
For Each sDep In GetRequire(sLib)
|
||||||
|
$cComp[sDep].Check(sLib)
|
||||||
|
Next
|
||||||
Next
|
Next
|
||||||
$cComp["gb"].Value = True
|
$cComp["gb"].Check("")
|
||||||
|
|
||||||
CComponentBox.ResizeNames(lstComponent)
|
CComponentBox.ResizeNames(lstComponent)
|
||||||
|
|
||||||
|
|
@ -468,17 +480,41 @@ Private Sub CheckComponentConfig() As Boolean
|
||||||
End
|
End
|
||||||
|
|
||||||
|
|
||||||
Private Function CheckComponent(sKey As String, bCheck As Boolean) As Boolean
|
' Private Function CheckComponent(sKey As String, bCheck As Boolean) As Boolean
|
||||||
|
'
|
||||||
|
' Dim bBefore As Boolean
|
||||||
|
' Dim sDep As String
|
||||||
|
'
|
||||||
|
' bBefore = IsChecked(sKey)
|
||||||
|
' If bBefore = bCheck Then Return
|
||||||
|
'
|
||||||
|
' If bCheck Then
|
||||||
|
' $cComp[sKey].Check("")
|
||||||
|
' For Each sDep In GetRequire(sKey)
|
||||||
|
' $cComp[sDep].Check(sKey)
|
||||||
|
' Next
|
||||||
|
' Else
|
||||||
|
' $cComp[sKey].Uncheck("")
|
||||||
|
' Endif
|
||||||
|
'
|
||||||
|
' End
|
||||||
|
|
||||||
Dim bBefore As Boolean
|
Public Sub Component_Click()
|
||||||
|
|
||||||
bBefore = IsChecked(sKey)
|
|
||||||
If bBefore = bCheck Then Return
|
|
||||||
|
|
||||||
$cComp[sKey].Value = bCheck
|
|
||||||
|
|
||||||
|
Dim hCompBox As CComponentBox = Last
|
||||||
|
Dim sDep As String
|
||||||
|
|
||||||
|
For Each sDep In GetRequire(hCompBox.Key)
|
||||||
|
If hCompBox.Value Then
|
||||||
|
$cComp[sDep].Check(hCompBox.Key)
|
||||||
|
Else
|
||||||
|
$cComp[sDep].Uncheck(hCompBox.Key)
|
||||||
|
Endif
|
||||||
|
Next
|
||||||
|
|
||||||
End
|
End
|
||||||
|
|
||||||
|
|
||||||
' PRIVATE FUNCTION CheckComponent(sKey AS String, bCheck AS Boolean) AS Boolean
|
' PRIVATE FUNCTION CheckComponent(sKey AS String, bCheck AS Boolean) AS Boolean
|
||||||
'
|
'
|
||||||
' DIM hComp AS CComponent
|
' DIM hComp AS CComponent
|
||||||
|
|
|
||||||
BIN
app/src/gambas3/img/16/checked-gray.png
Normal file
BIN
app/src/gambas3/img/16/checked-gray.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 249 B |
|
|
@ -73,3 +73,4 @@
|
||||||
2 Francisco Mora Sánchez
|
2 Francisco Mora Sánchez
|
||||||
1 Louviaux
|
1 Louviaux
|
||||||
1 Cooke Dylan
|
1 Cooke Dylan
|
||||||
|
1 Leonardo Suárez Arce
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue