mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 02:12:35 +02:00
projectgroup: use IDE images, patch #35839 from Ondrej
git-svn-id: trunk@61578 -
This commit is contained in:
mattias
parent
736cfddefd
commit
b901f5a594
4
.gitattributes
vendored
4
.gitattributes
vendored
@ -4204,6 +4204,10 @@ components/printers/win32/winprndialogs.inc svneol=native#text/pascal
|
||||
components/printers/win32/winutilprn.pas svneol=native#text/pascal
|
||||
components/printers/win32/winutilprnconst.inc svneol=native#text/pascal
|
||||
components/projectgroups/README.txt svneol=native#text/plain
|
||||
components/projectgroups/images/pg_active.png -text svneol=unset#image/png
|
||||
components/projectgroups/images/pg_images.bat svneol=native#text/plain
|
||||
components/projectgroups/images/pg_images_list.txt svneol=native#text/plain
|
||||
components/projectgroups/images/projectgroup.png -text svneol=unset#image/png
|
||||
components/projectgroups/languages/projectgroupstrconst.de.po svneol=native#text/plain
|
||||
components/projectgroups/languages/projectgroupstrconst.fr.po svneol=native#text/plain
|
||||
components/projectgroups/languages/projectgroupstrconst.hu.po svneol=native#text/plain
|
||||
|
||||
BIN
components/projectgroups/images/pg_active.png
Normal file
BIN
components/projectgroups/images/pg_active.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 238 B |
1
components/projectgroups/images/pg_images.bat
Normal file
1
components/projectgroups/images/pg_images.bat
Normal file
@ -0,0 +1 @@
|
||||
..\..\..\tools\lazres ..\pg_images.res @pg_images_list.txt
|
||||
2
components/projectgroups/images/pg_images_list.txt
Normal file
2
components/projectgroups/images/pg_images_list.txt
Normal file
@ -0,0 +1,2 @@
|
||||
projectgroup.png
|
||||
pg_active.png
|
||||
BIN
components/projectgroups/images/projectgroup.png
Normal file
BIN
components/projectgroups/images/projectgroup.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 799 B |
@ -131,6 +131,10 @@ msgstr "Lazarus-Projektgruppen (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Lazarus-Projekte (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild nicht gefunden"
|
||||
@ -144,6 +148,7 @@ msgid "Need save"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Neue Projektgruppe"
|
||||
|
||||
@ -235,15 +240,37 @@ msgstr "Projektgruppe %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Projektgruppe: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Hinzufügen"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Hinzufügen"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Existierendes Ziel zur Projektgruppe hinzufügen"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Neu"
|
||||
|
||||
@ -275,6 +302,18 @@ msgstr ""
|
||||
"Projektgruppe \"%s\" wurde verändert.\n"
|
||||
"Was wollen Sie tun?\n"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Neu"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Neue Projektgruppe"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Neu laden"
|
||||
|
||||
@ -126,6 +126,10 @@ msgstr "Groupes projets Lazarus (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Projets Lazarus (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild introuvable"
|
||||
@ -139,6 +143,7 @@ msgid "Need save"
|
||||
msgstr "Enregistrement nécessaire"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Nouveau groupe de projets"
|
||||
|
||||
@ -230,15 +235,37 @@ msgstr "Groupe de projets %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Groupe de projets : %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Ajouter"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Ajouter"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Ajouter une cible existante au groupe de projets"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Nouveau"
|
||||
|
||||
@ -267,6 +294,18 @@ msgstr ""
|
||||
"Le groupe de projets \"%s\" a été modifié.\n"
|
||||
"Que voulez-vous faire ?"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Nouveau"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Nouveau groupe de projets"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Recharger"
|
||||
|
||||
@ -130,6 +130,10 @@ msgstr "Lazarus projektcsoportok (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Lazarus projektek (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild nem található"
|
||||
@ -143,6 +147,7 @@ msgid "Need save"
|
||||
msgstr "Mentés szükséges"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Új projektcsoport"
|
||||
|
||||
@ -234,15 +239,37 @@ msgstr "Projektcsoport: %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Projektcsoport: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Hozzáadás"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Hozzáadás"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Létező cél hozzáadása a projektcsoporthoz"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Új"
|
||||
|
||||
@ -274,6 +301,18 @@ msgstr ""
|
||||
"A(z) \"%s\" projektcsoport módosult.\n"
|
||||
"Mi történjen most?\n"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Új"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Új projektcsoport"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Újratöltés"
|
||||
|
||||
@ -120,6 +120,10 @@ msgstr "Gruppo di progetti Lazarus (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Progetti Lazarus (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild non trovato"
|
||||
@ -133,6 +137,7 @@ msgid "Need save"
|
||||
msgstr "Salvataggio richiesto"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Nuovo gruppo di progetti"
|
||||
|
||||
@ -230,15 +235,37 @@ msgstr "Gruppo di progetti %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Gruppo di progetti: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Aggiungi"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Aggiungi"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Aggiungi le destinazioni esistenti al gruppo di progetti"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Nuovo"
|
||||
|
||||
@ -270,6 +297,18 @@ msgstr ""
|
||||
"Il gruppo di progetti \"%s\" è stato modificato.\n"
|
||||
"Cosa vuoi fare?\n"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Nuovo"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Nuovo gruppo di progetti"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Ricarica"
|
||||
|
||||
@ -131,6 +131,10 @@ msgstr "„Lazarus“ projekto grupė (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "„Lazarus“ projektas (.lpk)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "„lazbuild“ nerastas"
|
||||
@ -144,6 +148,7 @@ msgid "Need save"
|
||||
msgstr "Būtina įrašyti"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Nauja projekto grupė"
|
||||
|
||||
@ -235,15 +240,37 @@ msgstr "Projekto grupė „%s“"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Projekto grupė: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Pridėti"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Pridėti"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Prie projekto grupės pridėti egzistuojantį tikslą"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Naujas"
|
||||
|
||||
@ -275,6 +302,18 @@ msgstr ""
|
||||
"Projekto grupė „%s“ yra pakeista.\n"
|
||||
"Ką daryti?\n"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Naujas"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Nauja projekto grupė"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Įkelti iš naujo"
|
||||
|
||||
@ -113,6 +113,10 @@ msgstr ""
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr ""
|
||||
@ -126,6 +130,7 @@ msgid "Need save"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr ""
|
||||
|
||||
@ -217,15 +222,34 @@ msgstr ""
|
||||
msgid "Project Group: %s"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr ""
|
||||
|
||||
@ -252,6 +276,16 @@ msgid ""
|
||||
"What do you want to do?"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr ""
|
||||
|
||||
@ -126,6 +126,10 @@ msgstr "Grupos de projeto Lazarus (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Projetos Lazarus (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild não encontrado"
|
||||
@ -139,6 +143,7 @@ msgid "Need save"
|
||||
msgstr "Necessário salvar"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Novo grupo de projeto"
|
||||
|
||||
@ -230,15 +235,37 @@ msgstr "Grupo projeto %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Grupo Projeto: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Adicionar"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Adicionar"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Adicionar alvos existentes ao grupo de projeto"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Novo"
|
||||
|
||||
@ -267,6 +294,18 @@ msgstr ""
|
||||
"Grupo de projeto \"%s\" foi modificado.\n"
|
||||
"O que deseja fazer?"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Novo"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Novo grupo de projeto"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Recarregar"
|
||||
|
||||
@ -126,6 +126,10 @@ msgstr "Группы проектов Lazarus (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Проекты Lazarus (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "Программа lazbuild не найдена"
|
||||
@ -139,6 +143,7 @@ msgid "Need save"
|
||||
msgstr "Требуется сохранение"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Новая группа проектов"
|
||||
|
||||
@ -230,15 +235,37 @@ msgstr "Группа проектов %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Группа проектов: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Добавить"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Добавить"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Добавить существующую цель в группу проектов"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Новая"
|
||||
|
||||
@ -267,6 +294,18 @@ msgstr ""
|
||||
"Группа проектов \"%s\" была изменена.\n"
|
||||
"Что вы хотите сделать?"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Новая"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Новая группа проектов"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Перезагрузить"
|
||||
|
||||
@ -127,6 +127,10 @@ msgstr "Групи проектів Lazarus (*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Проекти Lazarus (*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "Програму lazbuild не знайдено"
|
||||
@ -140,6 +144,7 @@ msgid "Need save"
|
||||
msgstr "Потрібно зберегти"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "Нова група проектів"
|
||||
|
||||
@ -231,15 +236,37 @@ msgstr "Група проектів %s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "Група проектів: %s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "Додати"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "Додати"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "Додати наявну ціль в групу проектів"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Нова"
|
||||
|
||||
@ -268,6 +295,18 @@ msgstr ""
|
||||
"Групу проектів \"%s\" було змінено.\n"
|
||||
"Що ви бажаєте зробити?"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "Нова"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "Нова група проектів"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "Перезавантажити"
|
||||
|
||||
@ -131,6 +131,10 @@ msgstr "Lazarus工程组(*.lpg)"
|
||||
msgid "Lazarus projects (*.lpi)"
|
||||
msgstr "Lazarus工程(*.lpi)"
|
||||
|
||||
#: projectgroupstrconst.lislazarussupportedinprojectgroups
|
||||
msgid "Lazarus files (*.lpi;*.lpk;*.lpg;*.pas;*.pp;*.p)"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lislazbuildnotfound
|
||||
msgid "lazbuild not found"
|
||||
msgstr "lazbuild未找到"
|
||||
@ -144,6 +148,7 @@ msgid "Need save"
|
||||
msgstr "需要保存"
|
||||
|
||||
#: projectgroupstrconst.lisnewprojectgroup
|
||||
msgctxt "projectgroupstrconst.lisnewprojectgroup"
|
||||
msgid "New project group"
|
||||
msgstr "新工程组"
|
||||
|
||||
@ -235,15 +240,37 @@ msgstr "工程组%s"
|
||||
msgid "Project Group: %s"
|
||||
msgstr "工程组:%s"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#: projectgroupstrconst.lisprojectgroupaddcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddcaption"
|
||||
msgid "Add"
|
||||
msgstr "添加"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojectcaption
|
||||
msgid "Add current project"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddcurrentprojecthint
|
||||
msgid "Add current project to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistingcaption
|
||||
#, fuzzy
|
||||
#| msgid "Add"
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddexistingcaption"
|
||||
msgid "Add from file"
|
||||
msgstr "添加"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddexistinghint
|
||||
msgid "Add existing target to project group"
|
||||
msgstr "添加存在的目标(target)到工程组"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddhint
|
||||
msgid "Add targets to project group"
|
||||
msgstr ""
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupaddnewcaption
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupaddnewcaption"
|
||||
msgid "New"
|
||||
msgstr "新建"
|
||||
|
||||
@ -275,6 +302,18 @@ msgstr ""
|
||||
"工程组\"%s\"被修改.\n"
|
||||
"你想做什么?\n"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewcaption
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewcaption"
|
||||
msgid "New"
|
||||
msgstr "新建"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupnewhint
|
||||
#, fuzzy
|
||||
msgctxt "projectgroupstrconst.lisprojectgroupnewhint"
|
||||
msgid "New project group"
|
||||
msgstr "新工程组"
|
||||
|
||||
#: projectgroupstrconst.lisprojectgroupreload
|
||||
msgid "Reload"
|
||||
msgstr "重新加载"
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -15,12 +15,12 @@ uses
|
||||
Classes, SysUtils,
|
||||
// LCL
|
||||
Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
|
||||
ActnList, LCLProc, Clipbrd,
|
||||
ActnList, LCLProc, Clipbrd, ImgList,
|
||||
// LazUtils
|
||||
LazFileUtils, LazLoggerBase, LazFileCache,
|
||||
// IdeIntf
|
||||
LazIDEIntf, PackageIntf, ProjectIntf, ProjectGroupIntf, MenuIntf, IDEWindowIntf,
|
||||
IDEDialogs, IDECommands,
|
||||
IDEDialogs, IDECommands, IDEImagesIntf,
|
||||
// ProjectGroups
|
||||
ProjectGroupStrConst, ProjectGroup, PrjGrpOptionsFrm, PrjGrpInfoFrm;
|
||||
|
||||
@ -72,7 +72,6 @@ type
|
||||
AProjectGroupDelete: TAction;
|
||||
AProjectGroupSave: TAction;
|
||||
ActionListMain: TActionList;
|
||||
ImageListMain: TImageList;
|
||||
PMINew: TMenuItem;
|
||||
PMIAddExisting: TMenuItem;
|
||||
PMIAddCurrent: TMenuItem;
|
||||
@ -165,6 +164,28 @@ type
|
||||
procedure TVPGMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure TVPGSelectionChanged(Sender: TObject);
|
||||
private
|
||||
// Nodelist image indexes
|
||||
NIProjectGroup : integer;// = 0;
|
||||
NITargetProject : integer;// = 3;
|
||||
NITargetPackage : integer;// = 4;
|
||||
NITargetProjectGroup : integer;// = 5;
|
||||
NIBuildModes : integer;// = 12;
|
||||
NIBuildMode : integer;// = 12;
|
||||
NIFiles : integer;// = 16;
|
||||
NIFile : integer;// = 17;
|
||||
NIDependencies : integer;// = 1;
|
||||
NIDependency : integer;// = 1;
|
||||
|
||||
// Node state image index
|
||||
NSIActive : Integer;// = 20; // State index for active.
|
||||
NSIMissing : Integer; // State index for missing
|
||||
|
||||
// overlay index
|
||||
NSIChecked : Integer;// = 22;
|
||||
NSIUnchecked : Integer;// = 23;
|
||||
|
||||
procedure LoadImages;
|
||||
private
|
||||
FBuildCommandRedirected: boolean;
|
||||
FProjectGroup: TProjectGroup;
|
||||
@ -255,48 +276,6 @@ implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
var
|
||||
// Nodelist image indexes
|
||||
NIProjectGroup : integer = 0;
|
||||
NITargetProject : integer = 3;
|
||||
NITargetPackage : integer = 4;
|
||||
NITargetProjectGroup : integer = 5;
|
||||
NIMissingTargetProject : integer = 3;
|
||||
NIMissingTargetPackage : integer = 4;
|
||||
NIMissingTargetProjectGroup: integer = 5;
|
||||
NIBuildModes : integer = 12;
|
||||
NIBuildMode : integer = 12;
|
||||
NIFiles : integer = 16;
|
||||
NIFile : integer = 17;
|
||||
NIDependencies : integer = 1;
|
||||
NIDependency : integer = 1;
|
||||
|
||||
// Node state image index
|
||||
NSIActive : Integer = 20; // State index for active.
|
||||
|
||||
// overlay index
|
||||
NSIChecked : Integer = 22;
|
||||
NSIUnchecked : Integer = 23;
|
||||
|
||||
// Action image indexes
|
||||
iiProjectGroupSave : Integer = -1;
|
||||
iiProjectGroupSaveAs : Integer = -1;
|
||||
iiProjectGroupNew : Integer = -1;
|
||||
iiProjectGroupAddExisting : Integer = -1;
|
||||
iiProjectGroupAddCurrent : Integer = -1;
|
||||
iiProjectGroupDelete : Integer = -1;
|
||||
iiProjectGroupAddNew : Integer = -1;
|
||||
iiTargetEarlier : Integer = -1;
|
||||
iiTargetLater : Integer = -1;
|
||||
iiTargetCompile : Integer = -1;
|
||||
iiTargetCompileClean : Integer = -1;
|
||||
iiTargetProperties : Integer = -1;
|
||||
iiTargetRun : Integer = -1;
|
||||
iiTargetInstall : Integer = -1;
|
||||
iiTargetUninstall : Integer = -1;
|
||||
iiTargetActivate : Integer = -1;
|
||||
iiTargetOpen : Integer = -1;
|
||||
|
||||
const
|
||||
// Status bar Panel indexes
|
||||
piTargetCount = 0;
|
||||
@ -421,43 +400,54 @@ end;
|
||||
|
||||
procedure TProjectGroupEditorForm.Localize;
|
||||
|
||||
procedure ConfigAction(A: TAction; AImageIndex: Integer; Const ACaption,AHint: String; Mnu: TIDEMenuCommand);
|
||||
procedure ConfigAction(A: TAction; AImageName: string; Const ACaption,AHint: String; Mnu: TIDEMenuCommand);
|
||||
begin
|
||||
A.Caption:=ACaption;
|
||||
A.Hint:=AHint;
|
||||
if AImageIndex<>-1 then
|
||||
A.ImageIndex:=AImageIndex;
|
||||
if AImageName<>'' then
|
||||
A.ImageIndex:=IDEImages.GetImageIndex(AImageName)
|
||||
else
|
||||
A.ImageIndex:=-1;
|
||||
If Assigned(mnu) then
|
||||
Mnu.OnClick:=A.OnExecute;
|
||||
end;
|
||||
|
||||
begin
|
||||
ConfigAction(AProjectGroupSave,iiProjectGroupSave,lisProjectGroupSaveCaption,lisProjectGroupSaveHint,Nil);
|
||||
ConfigAction(AProjectGroupSaveAs,iiProjectGroupSaveAs,lisProjectGroupSaveAsCaption,lisProjectGroupSaveAsHint,Nil);
|
||||
ConfigAction(AProjectGroupNew,iiProjectGroupNew,lisProjectGroupNewCaption,lisProjectGroupNewHint,Nil);
|
||||
ConfigAction(AProjectGroupAddExisting,iiProjectGroupAddExisting,lisProjectGroupAddExistingCaption,lisProjectGroupAddExistingHint,Nil);
|
||||
ConfigAction(AProjectGroupAddCurrent,iiProjectGroupAddCurrent,lisProjectGroupAddCurrentProjectCaption,lisProjectGroupAddCurrentProjectHint,Nil);
|
||||
ConfigAction(AProjectGroupDelete,iiProjectGroupDelete,lisProjectGroupDeleteCaption,lisProjectGroupDeleteHint,Nil);
|
||||
ConfigAction(AProjectGroupAddNew,iiProjectGroupAddNew,lisProjectGroupAddNewCaption,lisProjectGroupAddNewHint,Nil);
|
||||
ConfigAction(ATargetEarlier,iiTargetEarlier,lisTargetEarlierCaption,lisTargetEarlierHint,Nil);
|
||||
ConfigAction(ATargetLater,iiTargetLater,lisTargetLaterCaption,lisTargetLaterHint,Nil);
|
||||
ConfigAction(ATargetCompile,iiTargetCompile,lisTargetCompileCaption,lisTargetCompileHint,Nil);
|
||||
ConfigAction(ATargetCompileClean,iiTargetCompileClean,lisTargetCompileCleanCaption,lisTargetCompileCleanHint,Nil);
|
||||
ConfigAction(ATargetProperties,iiTargetProperties,lisTargetPropertiesCaption,lisTargetPropertiesHint,Nil);
|
||||
ConfigAction(ATargetRun,iiTargetRun,lisTargetRunCaption,lisTargetRunHint,Nil);
|
||||
ConfigAction(ATargetInstall,iiTargetInstall,lisTargetInstallCaption,lisTargetInstallHint,Nil);
|
||||
ConfigAction(ATargetUninstall,iiTargetUninstall,lisTargetUninstallCaption,lisTargetUninstallHint,Nil);
|
||||
ConfigAction(ATargetActivate,iiTargetActivate,lisTargetActivateCaption,lisTargetActivateHint,Nil);
|
||||
ConfigAction(ATargetOpen,iiTargetOpen,lisTargetOpenCaption,lisTargetOpenHint,Nil);
|
||||
ConfigAction(ATargetCopyFilename,0,lisTargetCopyFilename,'',Nil);
|
||||
ConfigAction(ATargetCompileFromHere,0,lisTargetCompileFromHere,'',Nil);
|
||||
ConfigAction(AProjectGroupReload,0,lisProjectGroupReload,'',Nil);
|
||||
ConfigAction(AProjectGroupUndo, 0, lisUndo, '', nil);
|
||||
ConfigAction(AProjectGroupRedo, 0, lisRedo, '', nil);
|
||||
ConfigAction(AProjectGroupOptions, 0, lisOptions, '', nil);
|
||||
ConfigAction(AProjectGroupSave,'laz_save',lisProjectGroupSaveCaption,lisProjectGroupSaveHint,Nil);
|
||||
ConfigAction(AProjectGroupSaveAs,'menu_saveas',lisProjectGroupSaveAsCaption,lisProjectGroupSaveAsHint,Nil);
|
||||
ConfigAction(AProjectGroupNew,'laz_wand',lisProjectGroupNewCaption,lisProjectGroupNewHint,Nil);
|
||||
ConfigAction(AProjectGroupAddExisting,'menu_project_open',lisProjectGroupAddExistingCaption,lisProjectGroupAddExistingHint,Nil);
|
||||
ConfigAction(AProjectGroupAddCurrent,'menu_project_add',lisProjectGroupAddCurrentProjectCaption,lisProjectGroupAddCurrentProjectHint,Nil);
|
||||
ConfigAction(AProjectGroupDelete,'laz_delete',lisProjectGroupDeleteCaption,lisProjectGroupDeleteHint,Nil);
|
||||
ConfigAction(AProjectGroupAddNew,'menu_project_new',lisProjectGroupAddNewCaption,lisProjectGroupAddNewHint,Nil);
|
||||
ConfigAction(ATargetEarlier,'arrow_up',lisTargetEarlierCaption,lisTargetEarlierHint,Nil);
|
||||
ConfigAction(ATargetLater,'arrow_down',lisTargetLaterCaption,lisTargetLaterHint,Nil);
|
||||
ConfigAction(ATargetCompile,'menu_build',lisTargetCompileCaption,lisTargetCompileHint,Nil);
|
||||
ConfigAction(ATargetCompileClean,'menu_build_clean',lisTargetCompileCleanCaption,lisTargetCompileCleanHint,Nil);
|
||||
ConfigAction(ATargetProperties,'menu_project_options',lisTargetPropertiesCaption,lisTargetPropertiesHint,Nil);
|
||||
ConfigAction(ATargetRun,'menu_run',lisTargetRunCaption,lisTargetRunHint,Nil);
|
||||
ConfigAction(ATargetInstall,'pkg_install',lisTargetInstallCaption,lisTargetInstallHint,Nil);
|
||||
ConfigAction(ATargetUninstall,'pkg_package_uninstall',lisTargetUninstallCaption,lisTargetUninstallHint,Nil);
|
||||
ConfigAction(ATargetInfo,'menu_information',lisTargetInfoCaption,'',Nil);
|
||||
ConfigAction(ATargetActivate,'',lisTargetActivateCaption,lisTargetActivateHint,Nil);
|
||||
ConfigAction(ATargetOpen,'',lisTargetOpenCaption,lisTargetOpenHint,Nil);
|
||||
ConfigAction(ATargetCopyFilename,'',lisTargetCopyFilename,'',Nil);
|
||||
ConfigAction(ATargetCompileFromHere,'',lisTargetCompileFromHere,'',Nil);
|
||||
ConfigAction(AProjectGroupReload,'laz_refresh',lisProjectGroupReload,'',Nil);
|
||||
ConfigAction(AProjectGroupUndo, 'menu_undo', lisUndo, '', nil);
|
||||
ConfigAction(AProjectGroupRedo, 'menu_redo', lisRedo, '', nil);
|
||||
ConfigAction(AProjectGroupOptions, 'menu_environment_options', lisOptions, '', nil);
|
||||
TBMore.Caption:=lisMore;
|
||||
TBAdd.Caption := lisProjectGroupAddCaption;
|
||||
TBAdd.ImageIndex := IDEImages.GetImageIndex('laz_add');
|
||||
TBAdd.Hint := lisProjectGroupAddHint;
|
||||
ActionListMain.Images := IDEImages.Images_16;
|
||||
PopupMenuMore.Images := ActionListMain.Images;
|
||||
PopupMenuAdd.Images := ActionListMain.Images;
|
||||
PopupMenuTree.Images := ActionListMain.Images;
|
||||
TBProjectGroup.Images := ActionListMain.Images;
|
||||
TVPG.Images := ActionListMain.Images;
|
||||
TVPG.StateImages := ActionListMain.Images;
|
||||
end;
|
||||
|
||||
procedure TProjectGroupEditorForm.AProjectGroupSaveUpdate(Sender: TObject);
|
||||
@ -631,6 +621,8 @@ begin
|
||||
|
||||
if IDEProjectGroupManager.Options.BuildCommandToCompileTarget then
|
||||
BuildCommandRedirected:=true;
|
||||
|
||||
LoadImages;
|
||||
end;
|
||||
|
||||
procedure TProjectGroupEditorForm.FormDestroy(Sender: TObject);
|
||||
@ -673,6 +665,19 @@ end;
|
||||
procedure TProjectGroupEditorForm.TVPGAdvancedCustomDrawItem(
|
||||
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
|
||||
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
|
||||
|
||||
procedure PaintOverlayImage(const AImageIndex: Integer);
|
||||
var
|
||||
r: TRect;
|
||||
y: LongInt;
|
||||
ImagesRes: TScaledImageListResolution;
|
||||
begin
|
||||
ImagesRes :=Sender.Images.ResolutionForControl[Sender.ImagesWidth, Sender];
|
||||
r:=Node.DisplayRect(true);
|
||||
r.Left:=Node.DisplayIconLeft+1;
|
||||
y:=(r.Top+r.Bottom-ImagesRes.Height) div 2;
|
||||
ImagesRes.Draw(Sender.Canvas,r.Left,y,AImageIndex);
|
||||
end;
|
||||
var
|
||||
ND: TNodeData;
|
||||
r: TRect;
|
||||
@ -681,7 +686,9 @@ begin
|
||||
if Stage=cdPostPaint then begin
|
||||
ND:=TNodeData(Node.Data);
|
||||
if (ND.Target<>nil) and ND.Target.Missing then begin
|
||||
// Missing target file: draw red line strike through text
|
||||
// Missing target file: draw red line strike through text an
|
||||
PaintOverlayImage(NSIMissing);
|
||||
|
||||
r:=Node.DisplayRect(true);
|
||||
TVPG.Canvas.Pen.Color:=clRed;
|
||||
y:=(r.Top+r.Bottom) div 2;
|
||||
@ -750,7 +757,7 @@ begin
|
||||
if mbLeft=Button then begin
|
||||
if (ND.NodeType=ntBuildMode) and ([ssShift,ssCtrl]*Shift=[]) then
|
||||
begin
|
||||
if (TVNode.DisplayStateIconLeft<X) and (X<TVNode.DisplayIconLeft) then
|
||||
if (TVNode.DisplayStateIconLeft<=X) and (X<TVNode.DisplayIconLeft) then
|
||||
begin
|
||||
if TVNode.StateIndex=NSIChecked then
|
||||
TVNode.StateIndex:=NSIUnchecked
|
||||
@ -1188,20 +1195,13 @@ function TProjectGroupEditorForm.GetNodeImageIndex(ANodeType: TNodeType;
|
||||
begin
|
||||
case ANodeType of
|
||||
ntProjectGroup: Result:=NIProjectGroup;
|
||||
ntTarget :
|
||||
ntTarget, ntMissingTarget :
|
||||
Case ANodeData.TargetType of
|
||||
ttProject: Result:=NITargetProject;
|
||||
ttPackage: Result:=NITargetPackage;
|
||||
ttProjectGroup: Result:=NITargetProjectGroup;
|
||||
ttPascalFile: Result:=NIFile;
|
||||
end;
|
||||
ntMissingTarget:
|
||||
Case ANodeData.TargetType of
|
||||
ttProject: Result:=NIMissingTargetProject;
|
||||
ttPackage: Result:=NIMissingTargetPackage;
|
||||
ttProjectGroup: Result:=NIMissingTargetProjectGroup;
|
||||
ttPascalFile: Result:=NIFile;
|
||||
end;
|
||||
ntBuildModes: Result:=NIBuildModes;
|
||||
ntBuildMode: Result:=NIBuildMode;
|
||||
ntFiles: Result:=NIFiles;
|
||||
@ -1310,6 +1310,28 @@ begin
|
||||
Node.StateIndex:=-1;
|
||||
end;
|
||||
|
||||
procedure TProjectGroupEditorForm.LoadImages;
|
||||
begin
|
||||
NIProjectGroup := IDEImages.GetImageIndex('projectgroup');
|
||||
NITargetProject := IDEImages.GetImageIndex('item_project');
|
||||
NITargetPackage := IDEImages.GetImageIndex('item_package');
|
||||
NITargetProjectGroup := NIProjectGroup;
|
||||
NIBuildModes := IDEImages.GetImageIndex('menu_build_all');
|
||||
NIBuildMode := IDEImages.GetImageIndex('menu_build');
|
||||
NIFiles := IDEImages.GetImageIndex('pkg_files');
|
||||
NIFile := IDEImages.GetImageIndex('item_unit');
|
||||
NIDependencies := IDEImages.GetImageIndex('pkg_required');
|
||||
NIDependency := IDEImages.GetImageIndex('pkg_required');
|
||||
|
||||
// Node state image index
|
||||
NSIActive := IDEImages.GetImageIndex('pg_active');
|
||||
NSIMissing := IDEImages.GetImageIndex('laz_cancel');
|
||||
|
||||
// overlay index
|
||||
NSIChecked := IDEImages.GetImageIndex('laz_tick');
|
||||
NSIUnchecked := IDEImages.GetImageIndex('laz_cancel');
|
||||
end;
|
||||
|
||||
procedure TProjectGroupEditorForm.IDEProjectGroupManagerEditorOptionsChanged(
|
||||
Sender: TObject);
|
||||
var
|
||||
|
||||
@ -97,6 +97,7 @@ Resourcestring
|
||||
lisTargetActivateHint = 'Activate selected target';
|
||||
lisTargetOpenCaption = 'Open';
|
||||
lisTargetOpenHint = 'Open selected target';
|
||||
lisTargetInfoCaption = 'Info';
|
||||
lisInvalidFile = 'Invalid File';
|
||||
lisInvalidXmlFileName = 'Invalid XML file name "%s".';
|
||||
lisReadError = 'Read error';
|
||||
|
||||
@ -21,6 +21,8 @@ procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
{$R pg_images.res}
|
||||
|
||||
const
|
||||
ProjectGroupEditorMenuRootName = 'ProjectGroupEditorMenu';
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user