Extending the IDE/es: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | + | ## Contents | |
| 2 | + | ||
| 3 | + | * 1 Extendiendo el IDE | |
| 4 | + | * 1.1 Visión general | |
| 5 | + | * 1.2 Paquetes y Dependencias MakeFile | |
| 6 | + | * 2 Elementos del Menú | |
| 7 | + | * 2.1 Añadiendo un elemento al menú | |
| 8 | + | * 3 Atajos (Shortcuts) | |
| 9 | + | * 4 Config files | |
| 10 | + | * 4.1 Cargar/Salvar configuraciones | |
| 11 | + | * 5 Components | |
| 12 | + | * 5.1 Extending existing components | |
| 13 | + | * 5.2 Writing components | |
| 14 | + | * 5.2.1 Giving a new component an icon for the component palette | |
| 15 | + | * 5.2.2 Hiding a component in the component palette | |
| 16 | + | * 5.3 Writing component editors | |
| 17 | + | * 5.4 Writing property editors | |
| 18 | + | * 5.4.1 Hiding a property in the Object Inspector | |
| 19 | + | * 6 Forms | |
| 20 | + | * 7 Designer | |
| 21 | + | * 7.1 Writing a designer mediator | |
| 22 | + | * 7.2 Create a new unique component name | |
| 23 | + | * 7.3 Select a component in the designer/object inspector | |
| 24 | + | * 7.4 Get unit, designer, form of a file | |
| 25 | + | * 7.5 Save unit, designer form | |
| 26 | + | * 8 Event handlers | |
| 27 | + | * 8.1 Designer events | |
| 28 | + | * 8.1.1 Examples for designer events | |
| 29 | + | * 8.1.1.1 Example: When dropping a new component move control to a child | |
| 30 | + | * 8.1.2 Disabling the designer mouse handler | |
| 31 | + | * 8.2 Getting notified when a designer form is modified | |
| 32 | + | * 8.3 Project events | |
| 33 | + | * 8.4 Other IDE events | |
| 34 | + | * 9 Project | |
| 35 | + | * 9.1 Current Project | |
| 36 | + | * 9.2 All units of current project | |
| 37 | + | * 9.2.1 All units of the project inspector | |
| 38 | + | * 9.2.2 All used units of project | |
| 39 | + | * 9.3 The .lpr, .lpi and .lps file of a project | |
| 40 | + | * 9.4 The executable / target file name of a project | |
| 41 | + | * 9.5 Add your own project type | |
| 42 | + | * 9.6 Add your own file type | |
| 43 | + | * 9.6.1 Add a new file type | |
| 44 | + | * 9.6.2 Add a new form type | |
| 45 | + | * 10 Packages | |
| 46 | + | * 10.1 Search in all packages | |
| 47 | + | * 10.2 Search a package with a name | |
| 48 | + | * 10.3 Obtener el nombre de fichero .lpk de un paquete instalado | |
| 49 | + | * 10.4 Instalar paquetes | |
| 50 | + | * 10.5 Abrir un fichero de paquete (lpk) | |
| 51 | + | * 10.6 Find the package(s) of a unit | |
| 52 | + | * 11 Ventanas | |
| 53 | + | * 11.1 Añadiendo una nueva ventana de acoplado en el IDE | |
| 54 | + | * 11.1.1 Como registrar una ventana acoplable del IDE | |
| 55 | + | * 11.1.2 Showing an IDE window | |
| 56 | + | * 11.1.3 Notes about IDEWindowCreators and SimpleLayoutStorage | |
| 57 | + | * 12 CodeTools | |
| 58 | + | * 12.1 Adding a resource directive to a file | |
| 59 | + | * 12.2 Getting the search paths for units and include files | |
| 60 | + | * 13 Source Editor | |
| 61 | + | * 13.1 Active source editor | |
| 62 | + | * 14 SynEdit | |
| 63 | + | * 14.1 Getting the settings for a TSynEdit | |
| 64 | + | * 14.2 Getting the settings for a SynEdit highlighter | |
| 65 | + | * 15 Help | |
| 66 | + | * 15.1 Adding help for sources | |
| 67 | + | * 15.2 Adding lines to the messages window | |
| 68 | + | * 16 Miscellaneous | |
| 69 | + | * 16.1 Adding a macro | |
| 70 | + | * 16.2 Depurando el IDE | |
| 71 | + | * 16.3 See also | |
| 72 | + | ||
| 1 | 73 | # Extendiendo el IDE | |
| 2 | 74 | ||
| 3 | 75 | ## Visión general | |
| 4 | 76 | ||
| 5 | - | ||
| 77 | + | El IDE de Lazarus soporta varios tipos de plugins: | |
| 6 | 78 | ||
| 7 | - | ||
| 8 | - | ||
| 79 | + | Componentes | |
| 80 | + | Estos son los elementos que se encuentrar en la Paleta de Componentes. Por ejemplo, TButton (que se encuentra en la solapa Standard) que se utiliza para crear Buttons. | |
| 9 | 81 | ||
| 10 | - | ||
| 11 | - | ||
| 82 | + | Component Editors | |
| 83 | + | Cuando haces doble click sobre un componente en el Diseñador, se invoka un editor de componente. El editor de componente puede además añadir un elemento extra al menú emergente (accedido cuando haces click en el pulsador derecho en un componente dentro del Diseñador). | |
| 12 | 84 | ||
| 13 | - | ||
| 14 | - | ||
| 85 | + | Property Editors | |
| 86 | + | Cada fila en la sección de la rejilla (grid) del Inspector de Objetos utiliza un editor de propiedades que permite establecer o alterar el valor de su propiedad. | |
| 15 | 87 | ||
| 16 | - | ||
| 17 | - | ||
| 88 | + | Experts | |
| 89 | + | Experts abarca todos los demás tipos de plugin. Pueden registrar nuevos elementos de menú, registrar atajos (short cuts), o extender otras características del IDE. | |
| 18 | 90 | ||
| 19 | - | ||
| 91 | + | Hay dos maneras posibles de añadir tus propios plugins al IDE de Lazarus: | |
| 20 | 92 | ||
| 21 | - | ||
| 22 | - | ||
| 93 | + | 1. Escribir un paquete, instalarlo y registrar tu plugin(s) en el procedimiento 'Register' procedure de una unit. | |
| 94 | + | 2. Extender el cógigo de Lazarus, y enviar tu svn diff a la lista de correo de Lazarus. | |
| 23 | 95 | ||
| 24 | 96 | ## Paquetes y Dependencias MakeFile | |
| 25 | 97 | ||
| 26 | - | ||
| 98 | + | Los siguientes pasos son necesarios para añadir nuevas dependencias de paquete. | |
| 27 | 99 | ||
| 28 | - | ||
| 29 | - | ||
| 100 | + | * Crear/Actualizar el MakeFile para el paquete vía Editor de Paquete / Más ... / Crear Makefile. | |
| 101 | + | * Corregir todas las dependencias. Ver tools/updatemakefiles.lpi | |
| 30 | 102 | ||
| 31 | 103 | # Elementos del Menú | |
| 32 | 104 | ||
| 33 | - | ||
| 105 | + | Puedes añadir nuevos elementos al menú, ocultar o mover los existentes y añadir sub menús y secciones. Puedes registrar TMainMenu/TPopupMenu para tus propios formularios de forma que otros paquetes puedan extender más tu formulario. La unidad **MenuIntf** del paquete IDEIntf contiene todos todos los registros para menús y algunos elementos menú estandar del propio IDE. | |
| 34 | 106 | ||
| 35 | 107 | ## Añadiendo un elemento al menú | |
| 36 | 108 | ||
| 37 | - | ||
| 38 | - | ||
| 39 | - | ||
| 40 | - | ||
| 109 | + | Un simple elemento de menú tal como 'View Object Inspector' se llama **TIDEMenuCommand**. Puedes crear uno con **RegisterIDEMenuCommand** , que tiene dos fomas con un montón de parámetros: | |
| 110 | + | ``` | |
| 41 | 111 | function RegisterIDEMenuCommand(Parent: TIDEMenuSection; | |
| 42 | - | ||
| 43 | - | ||
| 44 | - | ||
| 45 | - | ||
| 46 | - | ||
| 47 | - | ||
| 48 | - | ||
| 49 | - | ||
| 50 | - | ||
| 51 | - | ||
| 52 | - | ||
| 53 | - | ||
| 112 | + | const Name, Caption: string; | |
| 113 | + | const OnClickMethod: TNotifyEvent = nil; | |
| 114 | + | const OnClickProc: TNotifyProcedure = nil; | |
| 115 | + | const Command: TIDECommand = nil; | |
| 116 | + | const ResourceName: String = '' | |
| 117 | + | ): TIDEMenuCommand; overload; | |
| 118 | + | function RegisterIDEMenuCommand(const Path, Name, Caption: string; | |
| 119 | + | const OnClickMethod: TNotifyEvent = nil; | |
| 120 | + | const OnClickProc: TNotifyProcedure = nil; | |
| 121 | + | const Command: TIDECommand = nil; | |
| 122 | + | const ResourceName: String = '' | |
| 123 | + | ): TIDEMenuCommand; overload; | |
| 54 | 124 | ``` | |
| 55 | 125 | ||
| 56 | - | ||
| 57 | - | ||
| 58 | - | ||
| 126 | + | La diferencia entre los dos consiste solamente en como se especifica la sección padre del menú. Puedes dar la sección del menú directamente o bien indirectamente a través de su trayecto. Algunas secciones estandar las puedes encontrar en la unidad _MenuIntf_ Por ejemplo, la sección **mnuTools** , la cual es el menú _Tools_ de la barra principal del IDE. Contiene una secciónon **itmSecondaryTools** , que es la sección recomendada para utilidades de terceros. | |
| 59 | 127 | ||
| 60 | - | ||
| 128 | + | Lo siguiente registra un nuevo mandato de menú con el nombre 'MyTool', el caption 'Arranca mi utilidad' y cuando es clickeada ejecuta el procedimiento _StartMyTool_ : | |
| 129 | + | ``` | |
| 61 | 130 | procedure StartMyTool; | |
| 62 | - | ||
| 63 | - | ||
| 64 | - | ||
| 65 | - | ||
| 66 | - | ||
| 67 | - | ||
| 68 | - | ||
| 69 | - | ||
| 131 | + | begin | |
| 132 | + | ...ejecutada cuando el elemento del menú es clickeado... | |
| 133 | + | end; | |
| 134 | + | ||
| 135 | + | procedure Register; | |
| 136 | + | begin | |
| 137 | + | RegisterIDEMenuCommand(itmSecondaryTools, 'MyTool','Aranca mi utilidad',nil,@StartMyTool); | |
| 138 | + | end; | |
| 70 | 139 | ``` | |
| 71 | 140 | ||
| 72 | - | ||
| 73 | - | ||
| 74 | - | ||
| 141 | + | If you want to call a method instead of a procedure use the **OnClickMethod** parameter. | |
| 75 | 142 | ||
| 76 | - | ||
| 143 | + | Este elemento de menú no tiene un atajo. En caso de necesitar uno debes crear un **TIDECommand** y pasarlo en el parámetro **Command**. Por ejemplo: | |
| 144 | + | ``` | |
| 77 | 145 | uses ... IDECommands, MenuIntf; | |
| 78 | - | ||
| 79 | - | ||
| 80 | - | ||
| 81 | - | ||
| 82 | - | ||
| 83 | - | ||
| 84 | - | ||
| 85 | - | ||
| 86 | - | ||
| 87 | - | ||
| 88 | - | ||
| 89 | - | ||
| 146 | + | ... | |
| 147 | + | var | |
| 148 | + | Key: TIDEShortCut; | |
| 149 | + | Cat: TIDECommandCategory; | |
| 150 | + | CmdMyTool: TIDECommand; | |
| 151 | + | begin | |
| 152 | + | // register IDE shortcut and menu item | |
| 153 | + | Key := IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]); | |
| 154 | + | Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName); | |
| 155 | + | CmdMyTool := RegisterIDECommand(Cat,'Start my tool', 'Starts my tool to do some stuff', Key, nil, @StartMyTool); | |
| 156 | + | RegisterIDEMenuCommand(itmSecondaryTools, 'MyTool', 'Start my tool', nil, nil, CmdMyTool); | |
| 157 | + | end; | |
| 90 | 158 | ``` | |
| 91 | 159 | ||
| 92 | 160 | # Atajos (Shortcuts) | |
| 93 | 161 | ||
| 94 | - | ||
| 95 | - | ||
| 96 | - | ||
| 162 | + | Todos los atajos (teclas que invocan alguna acción) se encuentran registradas en el IDECommandList. Este es un ejemplo sobre como encontrar todos los mandatos que reaccionan a la pulsación de Ctrl-D o la combinación de teclas pulsadas que comiencen por Ctrl-D: | |
| 163 | + | ``` | |
| 97 | 164 | uses | |
| 98 | - | ||
| 99 | - | ||
| 100 | - | ||
| 101 | - | ||
| 102 | - | ||
| 103 | - | ||
| 104 | - | ||
| 105 | - | ||
| 106 | - | ||
| 107 | - | ||
| 108 | - | ||
| 109 | - | ||
| 110 | - | ||
| 111 | - | ||
| 112 | - | ||
| 113 | - | ||
| 114 | - | ||
| 115 | - | ||
| 116 | - | ||
| 165 | + | Classes, SysUtils, LCLProc, IDECommands; | |
| 166 | + | ||
| 167 | + | procedure ListCtrlD; | |
| 168 | + | // Lista todos los idecommands con el atajo Ctrl-D | |
| 169 | + | var | |
| 170 | + | i: integer; | |
| 171 | + | Cmd: TIDECommand; | |
| 172 | + | Commands: TFPList; | |
| 173 | + | begin | |
| 174 | + | Commands:=IDECommandList.FindCommandsByShortCut(IDEShortCut(VK_D,[],VK_UNKNOWN,[])); // VK = Virtual Key | |
| 175 | + | try | |
| 176 | + | for i:=0 to Commands.Count-1 do begin | |
| 177 | + | Cmd:=TIDECommand(Commands[i]); | |
| 178 | + | writeln('Cmd: ',Cmd.Name, | |
| 179 | + | ' A=',dbgs(Cmd.ShortcutA.Shift1),'-',Cmd.ShortcutA.Key1, | |
| 180 | + | ',',dbgs(Cmd.ShortcutA.Shift2),'-',Cmd.ShortcutA.Key2, | |
| 181 | + | ' B=',dbgs(Cmd.ShortcutB.Shift1),'-',Cmd.ShortcutB.Key1, | |
| 182 | + | ',',dbgs(Cmd.ShortcutB.Shift2),'-',Cmd.ShortcutB.Key2 | |
| 183 | + | ); | |
| 184 | + | end; | |
| 185 | + | finally | |
| 186 | + | Commands.Free; | |
| 187 | + | end; | |
| 117 | 188 | end; | |
| 118 | - | ||
| 119 | - | ||
| 120 | - | ||
| 121 | - | ||
| 122 | 189 | ``` | |
| 123 | 190 | ||
| 124 | 191 | # Config files | |
| 125 | 192 | ||
| 126 | 193 | ## Cargar/Salvar configuraciones | |
| 127 | 194 | ||
| 128 | - | ||
| 195 | + | Todos los ficheros de configuración del IDE se encuentran almacenados en un directorio como ficheros xml. Los paquetes también también pueden añadir sus propios ficheros en dicho directorio. El [[pcp|primary config path]] se puede leer con: | |
| 129 | 196 | ||
| 130 | - | ||
| 197 | + | ||
| 198 | + | ||
| 199 | + | ``` | |
| 131 | 200 | uses LazIDEIntf; | |
| 132 | - | ||
| 133 | - | ||
| 201 | + | ... | |
| 202 | + | Directory := LazarusIDE.GetPrimaryConfigPath; | |
| 134 | 203 | ``` | |
| 135 | 204 | ||
| 136 | - | ||
| 137 | - | ||
| 138 | - | ||
| 139 | - | ||
| 140 | - | ||
| 141 | - | ||
| 142 | - | ||
| 143 | - | ||
| 144 | - | ||
| 145 | - | ||
| 146 | - | ||
| 147 | - | ||
| 148 | - | ||
| 149 | - | ||
| 150 | - | ||
| 151 | - | ||
| 152 | - | ||
| 153 | - | ||
| 154 | - | ||
| 155 | - | ||
| 156 | - | ||
| 157 | - | ||
| 158 | - | ||
| 159 | - | ||
| 160 | - | ||
| 161 | - | ||
| 162 | - | ||
| 163 | - | ||
| 164 | - | ||
| 165 | - | ||
| 166 | - | ||
| 167 | - | ||
| 168 | - | ||
| 169 | - | ||
| 170 | - | ||
| 171 | - | ||
| 205 | + | Los paquetes pueden crear su propios ficheros xml con: | |
| 172 | 206 | ||
| 173 | - | ||
| 174 | - | ||
| 175 | - | ||
| 176 | - | ||
| 177 | - | ||
| 207 | + | ||
| 178 | 208 | ||
| 179 | - | ||
| 180 | - | ||
| 181 | - | ||
| 182 | - | ||
| 183 | - | ||
| 184 | - | ||
| 185 | - | ||
| 186 | - | ||
| 187 | - | ||
| 188 | - | ||
| 189 | - | ||
| 190 | - | ||
| 191 | - | ||
| 192 | - | ||
| 193 | - | ||
| 194 | - | ||
| 195 | - | ||
| 209 | + | ``` | |
| 210 | + | uses | |
| 211 | + | ..., LCLProc, BaseIDEIntf, LazConfigStorage; | |
| 212 | + | ||
| 213 | + | const | |
| 214 | + | Version = 1; | |
| 215 | + | var | |
| 216 | + | Config: TConfigStorage; | |
| 217 | + | SomeValue: String; | |
| 218 | + | SomeInteger: Integer; | |
| 219 | + | SomeBoolean: Boolean; | |
| 220 | + | FileVersion: LongInt; | |
| 221 | + | begin | |
| 222 | + | SomeValue:='Default'; | |
| 223 | + | SomeInteger:=3; | |
| 224 | + | SomeBoolean:=true; | |
| 225 | + | ||
| 226 | + | // Salva configuraciones. | |
| 227 | + | try | |
| 228 | + | Config:=GetIDEConfigStorage('mysettings.xml',false); | |
| 229 | + | try | |
| 230 | + | // Almacena el número de versión de forma que las extensiones futuras puedan manejar ficheros de configuración antiguos. | |
| 231 | + | Config.SetDeleteValue('Path/To/The/Version',Version,0); | |
| 232 | + | // Almacena la variable de cadena "SomeValue". | |
| 233 | + | // Si SomeValue tiene el valor por defecto entonces la entrada no se almacena, | |
| 234 | + | // de forma que únicamente se almacena las diferencias al valor por defecto. | |
| 235 | + | // Así el xml se mantiene pequeño y su valor por defecto puede cambiar en el futuro. | |
| 236 | + | Config.SetDeleteValue('Path/To/Some/Value',SomeValue,'Default'); | |
| 237 | + | Config.SetDeleteValue('Path/To/Some/Integer',SomeInteger,3); | |
| 238 | + | Config.SetDeleteValue('Path/To/Some/Boolean',SomeBoolean,true); | |
| 239 | + | // there are more overloads for SetDeleteValue, find out with Ctrl+Space | |
| 240 | + | finally | |
| 241 | + | Config.Free; | |
| 242 | + | end; | |
| 243 | + | ||
| 244 | + | except | |
| 245 | + | on E: Exception do begin | |
| 246 | + | DebugLn(['Saving mysettings.xml failed: ',E.Message]); | |
| 247 | + | end; | |
| 248 | + | end; | |
| 249 | + | ||
| 250 | + | // load settings | |
| 251 | + | try | |
| 252 | + | Config:=GetIDEConfigStorage('mysettings.xml',true); | |
| 253 | + | try | |
| 254 | + | // read the version of the config | |
| 255 | + | FileVersion:=Config.GetValue('Path/To/The/Version',0); | |
| 256 | + | // read a string variable "SomeValue". If the entry does not exist, use | |
| 257 | + | // the Default | |
| 258 | + | SomeValue:=Config.GetValue('Path/To/Some/Value','Default'); | |
| 259 | + | SomeInteger:=Config.GetValue('Path/To/Some/Integer',3); | |
| 260 | + | SomeBoolean:=Config.GetValue('Path/To/Some/Boolean',true); | |
| 261 | + | finally | |
| 262 | + | Config.Free; | |
| 263 | + | end; | |
| 264 | + | except | |
| 265 | + | on E: Exception do begin | |
| 266 | + | DebugLn(['Loading mysettings.xml failed: ',E.Message]); | |
| 267 | + | end; | |
| 268 | + | end; | |
| 196 | 269 | end; | |
| 197 | - | ||
| 198 | - | ||
| 199 | 270 | ``` | |
| 200 | 271 | ||
| 201 | - | ||
| 272 | + | Notes: | |
| 202 | 273 | ||
| 203 | - | ||
| 204 | - | ||
| 205 | - | ||
| 274 | + | * Every IDE plugin should use its own config file. Especially you must not use the standard IDE option files like [editoroptions.xml](</index.php?title=editoroptions.xml&action=edit&redlink=1> "editoroptions.xml \(page does not exist\)") or [environmentoptions.xml](</index.php?title=environmentoptions.xml&action=edit&redlink=1> "environmentoptions.xml \(page does not exist\)"). | |
| 275 | + | * GetIDEConfigStorage when loading checks if the file exists and if not it will copy the template from the secondary config directory. | |
| 276 | + | * Since 0.9.31 you can use this function to load a file outside the primary config directory. | |
| 206 | 277 | ||
| 207 | 278 | # Components | |
| 208 | 279 | ||
| 209 | 280 | ## Extending existing components | |
| 210 | 281 | ||
| 211 | - | ||
| 212 | - | ||
| 213 | - | ||
| 282 | + | Source: [[1]](<http://lazarus.freepascal.org/index.php/topic,17733.msg98425.html#msg98425>) It is straightforward to customise existing LCL components, e.g. if you want to add properties. | |
| 214 | 283 | ||
| 215 | - | ||
| 284 | + | Add the properties you need with appropriate setter and getter methods and storage fields. | |
| 216 | 285 | ||
| 217 | - | ||
| 286 | + | Then instantiate them 'by hand', giving an owner component (to handle later destruction), and set Parent and possibly Top and Left and any other defaults your component needs when initialized. | |
| 218 | 287 | ||
| 219 | - | ||
| 288 | + | When you are satisfied that your customised component is debugged, add a RegisterComponent() call to stick it on the IDE Component Palette and save you having to do the setup code 'by hand' (look at any component's source to see how to do this). | |
| 220 | 289 | ||
| 221 | - | ||
| 290 | + | Here is a simple example: | |
| 291 | + | ``` | |
| 222 | 292 | unit Unit1; | |
| 223 | - | ||
| 224 | - | ||
| 225 | - | ||
| 226 | - | ||
| 227 | - | ||
| 228 | - | ||
| 229 | - | ||
| 230 | - | ||
| 231 | - | ||
| 232 | - | ||
| 233 | - | ||
| 234 | - | ||
| 235 | - | ||
| 236 | - | ||
| 237 | - | ||
| 238 | - | ||
| 239 | - | ||
| 240 | - | ||
| 241 | - | ||
| 242 | - | ||
| 243 | - | ||
| 244 | - | ||
| 245 | - | ||
| 246 | - | ||
| 247 | - | ||
| 248 | - | ||
| 249 | - | ||
| 250 | - | ||
| 251 | - | ||
| 252 | - | ||
| 253 | - | ||
| 254 | - | ||
| 255 | - | ||
| 256 | - | ||
| 257 | - | ||
| 258 | - | ||
| 259 | - | ||
| 260 | - | ||
| 261 | - | ||
| 262 | - | ||
| 263 | - | ||
| 264 | - | ||
| 265 | - | ||
| 266 | - | ||
| 267 | - | ||
| 268 | - | ||
| 269 | - | ||
| 270 | - | ||
| 271 | - | ||
| 272 | - | ||
| 273 | - | ||
| 274 | - | ||
| 275 | - | ||
| 276 | - | ||
| 277 | - | ||
| 278 | - | ||
| 279 | - | ||
| 280 | - | ||
| 281 | - | ||
| 282 | - | ||
| 283 | - | ||
| 284 | - | ||
| 285 | - | ||
| 286 | - | ||
| 287 | - | ||
| 288 | - | ||
| 289 | - | ||
| 290 | - | ||
| 291 | - | ||
| 293 | + | ||
| 294 | + | {$mode objfpc}{$H+} | |
| 295 | + | ||
| 296 | + | interface | |
| 297 | + | ||
| 298 | + | uses | |
| 299 | + | Classes, SysUtils, Forms, StdCtrls; | |
| 300 | + | ||
| 301 | + | type | |
| 302 | + | TEdX = class(TEdit) | |
| 303 | + | private | |
| 304 | + | FNewIntProp: integer; | |
| 305 | + | FNewStrProp: string; | |
| 306 | + | procedure SetNewIntProp(AValue: integer); | |
| 307 | + | procedure SetNewStrProp(AValue: string); | |
| 308 | + | public | |
| 309 | + | constructor Create(theComponent: TComponent); override; | |
| 310 | + | property NewIntProp: integer read FNewIntProp write SetNewIntProp; | |
| 311 | + | property NewStrProp: string read FNewStrProp write SetNewStrProp; | |
| 312 | + | end; | |
| 313 | + | ||
| 314 | + | TForm1 = class(TForm) | |
| 315 | + | procedure FormCreate(Sender: TObject); | |
| 316 | + | private | |
| 317 | + | edX: TEdX; | |
| 318 | + | public | |
| 319 | + | end; | |
| 320 | + | ||
| 321 | + | var | |
| 322 | + | Form1: TForm1; | |
| 323 | + | ||
| 324 | + | implementation | |
| 325 | + | ||
| 326 | + | { TForm1 } | |
| 327 | + | ||
| 328 | + | procedure TForm1.FormCreate(Sender: TObject); | |
| 329 | + | begin | |
| 330 | + | edX:= TEdX.Create(Self); | |
| 331 | + | edX.Parent:= Self; | |
| 332 | + | edX.Caption:= IntToStr(edX.NewIntProp); | |
| 333 | + | Caption:= edX.NewStrProp; | |
| 334 | + | end; | |
| 335 | + | ||
| 336 | + | {$R *.lfm} | |
| 337 | + | ||
| 338 | + | { TEdX } | |
| 339 | + | ||
| 340 | + | procedure TEdX.SetNewIntProp(AValue: integer); | |
| 341 | + | begin | |
| 342 | + | if FNewIntProp=AValue then Exit; | |
| 343 | + | FNewIntProp:=AValue; | |
| 344 | + | // add custom code here | |
| 345 | + | end; | |
| 346 | + | ||
| 347 | + | procedure TEdX.SetNewStrProp(AValue: string); | |
| 348 | + | begin | |
| 349 | + | if FNewStrProp=AValue then Exit; | |
| 350 | + | FNewStrProp:=AValue; | |
| 351 | + | // add custom code here | |
| 352 | + | end; | |
| 353 | + | ||
| 354 | + | constructor TEdX.Create(theComponent: TComponent); | |
| 355 | + | begin | |
| 356 | + | inherited Create(theComponent); | |
| 357 | + | FNewStrProp:= 'new string property value'; | |
| 358 | + | FNewIntProp:= 99; | |
| 359 | + | end; | |
| 360 | + | ||
| 361 | + | end. | |
| 292 | 362 | ``` | |
| 293 | 363 | ||
| 294 | 364 | ## Writing components | |
| 295 | 365 | ||
| 296 | - | ||
| 366 | + | _Main article:[[How To Write Lazarus Component]]_ | |
| 297 | 367 | ||
| 298 | - | ||
| 368 | + | You can create new components via the package editor. | |
| 299 | 369 | ||
| 300 | - | ||
| 370 | + | Create or open a package, click on **add** , click on **New Component** , fill in the items: Ancestor Type = TButton, New class name = TMyButton, palette page = Misc, Unit file name = mybutton.pas (this file will be created), unit name MyButton and click **ok**. | |
| 301 | 371 | ||
| 302 | 372 | ### Giving a new component an icon for the component palette | |
| 303 | 373 | ||
| 304 | - | ||
| 305 | - | ||
| 306 | - | ||
| 374 | + | Create an image file of the format .bmp, .xpm or .png with the same name as the component class. For example _tmybutton.png_ and save it in the package source directory. The image can be created by any graphic program (e.g. gimp) and should be no bigger than 24x24 pixel. Then convert the image to a resource file with the lazres tool, which can be found in the lazarus/tools directory: | |
| 375 | + | ``` | |
| 307 | 376 | ~/lazarus/tools/lazres mybutton.lrs tmybutton.png | |
| 308 | - | ||
| 309 | - | ||
| 377 | + | # note: Laz trunk/1.4+? uses .res resource files instead of .lrs files: | |
| 378 | + | ~/lazarus/tools/lazres mybutton.res tmybutton.png | |
| 310 | 379 | ``` | |
| 311 | 380 | ||
| 312 | - | ||
| 313 | - | ||
| 314 | - | ||
| 381 | + | This creates an pascal include file, which is used in the initialization section of mybutton.pas: | |
| 382 | + | ``` | |
| 315 | 383 | initialization | |
| 316 | - | ||
| 317 | - | ||
| 318 | - | ||
| 384 | + | {$I mybutton.lrs} | |
| 385 | + | // or in newer Lazarus version - to docheck syntax | |
| 386 | + | {$R mybutton.res} | |
| 319 | 387 | ``` | |
| 320 | 388 | ||
| 321 | - | ||
| 389 | + | Install the package. | |
| 322 | 390 | ||
| 323 | 391 | ### Hiding a component in the component palette | |
| 324 | 392 | ||
| 325 | - | ||
| 326 | - | ||
| 327 | - | ||
| 393 | + | Package IDEIntf, unit componentreg: | |
| 394 | + | ``` | |
| 395 | + | IDEComponentPalette.FindComponent('TButton').Visible:=false; | |
| 396 | + | ``` | |
| 328 | 397 | ||
| 329 | 398 | ## Writing component editors | |
| 330 | 399 | ||
| 331 | - | ||
| 400 | + | A component editor handles things like double clicking on a component in a designer or adding menu items when right clicking on a component. Writing a component editor is easy. See the unit componenteditors.pas of the package IDEIntf for lots of examples. For instance to show an editor when double clicking see TCheckListBoxComponentEditor. | |
| 332 | 401 | ||
| 333 | 402 | ## Writing property editors | |
| 334 | 403 | ||
| 335 | - | ||
| 404 | + | Each type of property (integer, string, TFont, ...) in the Object Inspector needs a property editor. If your component has a property _Password_ of type string, then you can define a property editor for your specific component class, with a property named _Password_ of type string. The unit propedits.pp of the package IDEIntf contains many of the standard property editors used by the IDE itself. For example the TStringPropertyEditor is the default property editor for all strings, while TComponentNamePropertyEditor is more specific and handles only TComponent.Name. See the unit for plenty of examples. | |
| 336 | 405 | ||
| 337 | 406 | ### Hiding a property in the Object Inspector | |
| 338 | 407 | ||
| 339 | - | ||
| 340 | - | ||
| 341 | - | ||
| 342 | - | ||
| 343 | - | ||
| 344 | - | ||
| 345 | - | ||
| 346 | - | ||
| 347 | - | ||
| 408 | + | There is a special property editor for hiding: ` ` | |
| 348 | 409 | ||
| 349 | - | ||
| 350 | - | ||
| 410 | + | ` | |
| 411 | + | ``` | |
| 412 | + | RegisterPropertyEditor(TypeInfo(TAnchorSide), TControl, 'AnchorSideLeft', THiddenPropertyEditor); | |
| 413 | + | ``` | |
| 351 | 414 | ||
| 352 | - | ||
| 353 | - | ||
| 354 | - | ||
| 415 | + | ``` | |
| 355 | 416 | ||
| 356 | - | ||
| 417 | + | `` | |
| 357 | 418 | ||
| 358 | - | ||
| 359 | - | ||
| 360 | - | ||
| 361 | - | ||
| 362 | - | ||
| 363 | - | ||
| 364 | - | ||
| 419 | + | # Forms | |
| 365 | 420 | ||
| 366 | - | ||
| 421 | + | The IDE allows to easily create descendants of forms and frames. These forms can have new published components and new published methods. But you when you add new published properties, they are not accessible via the Object Inspector. They work only at runtime. The methods in the IDE are fake, they can not be executed. The IDE can create the components, because their classes are registered in the component palette. Your new properties only exist in your source code. The IDE can not fake them yet. That's why you have to register the new class. That means: | |
| 367 | 422 | ||
| 368 | - | ||
| 423 | + | * create a design time package (or extend an existing one) | |
| 424 | + | * your form must be in a unit of this package | |
| 369 | 425 | ||
| 370 | - | ||
| 371 | - | ||
| 372 | - | ||
| 373 | - | ||
| 426 | + | ``` | |
| 374 | 427 | ... | |
| 428 | + | interface | |
| 429 | + | ||
| 430 | + | uses FormEditingIntf, Forms; | |
| 431 | + | ||
| 432 | + | type | |
| 433 | + | TYourForm = class(TForm) | |
| 434 | + | private | |
| 435 | + | FYourProperty: integer; | |
| 436 | + | published | |
| 437 | + | property YourProperty: integer read FYourProperty write FYourProperty; | |
| 438 | + | end; | |
| 439 | + | ||
| 440 | + | procedure Register; | |
| 441 | + | ||
| 442 | + | implementation | |
| 443 | + | ||
| 444 | + | procedure Register; | |
| 445 | + | begin | |
| 446 | + | FormEditingHook.RegisterDesignerBaseClass(TYourForm); | |
| 447 | + | end; | |
| 448 | + | ... | |
| 375 | 449 | ``` | |
| 376 | 450 | ||
| 377 | - | ||
| 378 | - | ||
| 451 | + | * check the "Register" in the package editor for this unit. | |
| 452 | + | * Install the package in the IDE | |
| 379 | 453 | ||
| 380 | 454 | # Designer | |
| 381 | 455 | ||
| 382 | 456 | ## Writing a designer mediator | |
| 383 | 457 | ||
| 384 | - | ||
| 458 | + | The standard designer allows to visually edit LCL controls, while all others are shown as icons(like TOpenDialog or TDataSource). To visually edit non LCL control, you need to create a **designer mediator**. This can be used to design webpages, UML diagrams or other widgetsets like [[fpGUI]]. There is a complete example in examples/designnonlcl/. | |
| 385 | 459 | ||
| 386 | - | ||
| 387 | - | ||
| 388 | - | ||
| 460 | + | * Install the example package examples/designnonlcl/notlcldesigner.lpk and restart the IDE. This will register the designer mediator for TMyWidget components and add the new components TMyButton, TMyGroupBox to the component palette. | |
| 461 | + | * Open the the example project examples/designnonlcl/project/NonLCL1.lpi. | |
| 462 | + | * Open the unit1.pas and show the designer form (F12). You should see the components as red rectangles, which can be selected, moved and resized like LCL controls. | |
| 389 | 463 | ||
| 390 | 464 | ## Create a new unique component name | |
| 391 | - | ||
| 392 | - | ||
| 465 | + | ``` | |
| 393 | 466 | uses FormEditingIntf; | |
| 394 | - | ||
| 395 | - | ||
| 396 | - | ||
| 397 | - | ||
| 398 | - | ||
| 399 | - | ||
| 400 | - | ||
| 401 | - | ||
| 402 | - | ||
| 403 | - | ||
| 467 | + | ||
| 468 | + | ... | |
| 469 | + | ||
| 470 | + | NewName:=FormEditingHook.CreateUniqueComponentName(AComponent); | |
| 471 | + | ||
| 472 | + | // Or if you need to create the name before creating the component: | |
| 473 | + | ||
| 474 | + | NewName:=FormEditingHook.CreateUniqueComponentName(ComponentClassName,OwnerComponent); | |
| 475 | + | // ComponentClassName will be used as prefix, without a leading T. | |
| 476 | + | // OwnerComponent is the new owner of the new component. | |
| 404 | 477 | ``` | |
| 405 | 478 | ||
| 406 | 479 | ## Select a component in the designer/object inspector | |
| 407 | - | ||
| 408 | - | ||
| 480 | + | ``` | |
| 409 | 481 | uses propedits; | |
| 410 | - | ||
| 411 | - | ||
| 482 | + | .. | |
| 483 | + | GlobalDesignHook.SelectOnlyThis(AComponent); | |
| 412 | 484 | ``` | |
| 413 | 485 | ||
| 414 | 486 | ## Get unit, designer, form of a file | |
| 415 | - | ||
| 416 | - | ||
| 487 | + | ``` | |
| 417 | 488 | uses ProjectIntf, LazIDEIntf, ComponentEditors; | |
| 418 | - | ||
| 419 | - | ||
| 420 | - | ||
| 421 | - | ||
| 422 | - | ||
| 423 | - | ||
| 424 | - | ||
| 425 | - | ||
| 426 | - | ||
| 427 | - | ||
| 428 | - | ||
| 489 | + | ... | |
| 490 | + | // open file | |
| 491 | + | if LazarusIDE.DoOpenEditorFile(Filename,-1,-1,[ofAddToRecent])<>mrOk then exit; | |
| 492 | + | // get file interface | |
| 493 | + | aFile:=LazarusIDE.ActiveProject.FindFile(Filename,[]); | |
| 494 | + | // get designer | |
| 495 | + | aDesigner:=TComponentEditorDesigner(LazarusIDE.GetDesignerWithProjectFile(AFile,true)); | |
| 496 | + | if aDesigner=nil then | |
| 497 | + | exit; // this unit has no resource (form, frame, datamodule, etc.) | |
| 498 | + | // get form | |
| 499 | + | aForm:=aDesigner.Form; | |
| 429 | 500 | ``` | |
| 430 | 501 | ||
| 431 | 502 | ## Save unit, designer form | |
| 432 | - | ||
| 433 | - | ||
| 503 | + | ``` | |
| 434 | 504 | uses LazIDEIntf; | |
| 435 | - | ||
| 436 | - | ||
| 505 | + | ... | |
| 506 | + | if LazarusIDE.DoSaveEditorFile(Filename,[])<>mrOk then exit; | |
| 437 | 507 | ``` | |
| 438 | 508 | ||
| 439 | 509 | # Event handlers | |
| 440 | 510 | ||
| 441 | - | ||
| 511 | + | There are several events in the IDE, for which plugins can add their own handlers. | |
| 442 | 512 | ||
| 443 | 513 | ## Designer events | |
| 444 | 514 | ||
| 445 | - | ||
| 515 | + | In propedits.pp there is a "GlobalDesignHook" object, which maintains several events for designing. Each event calls a list of handlers. The default handlers are added by the IDE. You can add your own handlers with the AddHandlerXXX and RemoveHandlerXXX methods. They will be called before the default handlers. | |
| 446 | 516 | ||
| 447 | - | ||
| 517 | + | Examples: | |
| 448 | 518 | ||
| 449 | - | ||
| 519 | + | * Adding your handler (this is normally done in the constructor of your object): | |
| 450 | 520 | ||
| 451 | - | ||
| 521 | + | ``` | |
| 522 | + | GlobalDesignHook.AddHandlerPersistentAdded(@YourOnPersistentAdded); | |
| 523 | + | ``` | |
| 452 | 524 | ||
| 453 | - | ||
| 525 | + | * Removing your handler: | |
| 454 | 526 | ||
| 455 | - | ||
| 527 | + | ``` | |
| 528 | + | GlobalDesignHook.RemoveHandlerPersistentAdded(@YourOnPersistentAdded); | |
| 529 | + | ``` | |
| 456 | 530 | ||
| 457 | - | ||
| 531 | + | * You can remove all handlers at once. For example, it is a good idea to add this line in the destructor of your object: | |
| 458 | 532 | ||
| 459 | - | ||
| 533 | + | ``` | |
| 534 | + | GlobalDesignHook.RemoveAllHandlersForObject(Self); | |
| 535 | + | ``` | |
| 460 | 536 | ||
| 461 | - | ||
| 537 | + | The handlers of GlobalDesignHook: | |
| 462 | 538 | ||
| 463 | - | ||
| 464 | - | ||
| 465 | - | ||
| 466 | - | ||
| 467 | - | ||
| 468 | - | ||
| 469 | - | ||
| 470 | - | ||
| 471 | - | ||
| 472 | - | ||
| 473 | - | ||
| 474 | - | ||
| 475 | - | ||
| 476 | - | ||
| 477 | - | ||
| 478 | - | ||
| 479 | - | ||
| 480 | - | ||
| 481 | - | ||
| 482 | - | ||
| 483 | - | ||
| 484 | - | ||
| 485 | - | ||
| 486 | - | ||
| 487 | - | ||
| 488 | - | ||
| 489 | - | ||
| 490 | - | ||
| 491 | - | ||
| 492 | - | ||
| 493 | - | ||
| 494 | - | ||
| 495 | - | ||
| 496 | - | ||
| 539 | + | * Lookup root | |
| 540 | + | * ChangeLookupRoot - Called when the "LookupRoot" changed. The "LookupRoot" is the owner object of the currently selected components. Normally this is a TForm. | |
| 541 | + | * Methods | |
| 542 | + | * CreateMethod | |
| 543 | + | * GetMethodName | |
| 544 | + | * GetMethods | |
| 545 | + | * MethodExists | |
| 546 | + | * RenameMethod | |
| 547 | + | * ShowMethod | |
| 548 | + | * MethodFromAncestor | |
| 549 | + | * ChainCall | |
| 550 | + | * Components | |
| 551 | + | * GetComponent | |
| 552 | + | * GetComponentName | |
| 553 | + | * GetComponentNames | |
| 554 | + | * GetRootClassName | |
| 555 | + | * AddClicked - Called when the user selected a component class and clicked on the designer to add a new component. You can change the component class and the parent. | |
| 556 | + | * ComponentRenamed - Called when a component was renamed | |
| 557 | + | * TPersistent objects | |
| 558 | + | * PersistentAdded - Called when a new TPersistent was added to the LookupRoot | |
| 559 | + | * PersistentDeleting - Called before a TPersistent is freed. | |
| 560 | + | * DeletePersistent - Called by the IDE to delete a TPersistent. | |
| 561 | + | * GetSelectedPersistents - Called when getting the current selection of TPersistent. | |
| 562 | + | * SetSelectedPersistents - Called when setting the current selection of TPersistent. | |
| 563 | + | * GetObject | |
| 564 | + | * GetObjectName | |
| 565 | + | * GetObjectNames | |
| 566 | + | * Modifing | |
| 567 | + | * Modified | |
| 568 | + | * Revert | |
| 569 | + | * RefreshPropertyValues | |
| 570 | + | * Selection | |
| 571 | + | * SetSelection | |
| 572 | + | * GetSelection | |
| 497 | 573 | ||
| 498 | 574 | ### Examples for designer events | |
| 499 | 575 | ||
| 500 | 576 | #### Example: When dropping a new component move control to a child | |
| 501 | - | ||
| 502 | - | ||
| 503 | - | ||
| 504 | - | ||
| 505 | - | ||
| 506 | - | ||
| 507 | - | ||
| 508 | - | ||
| 509 | - | ||
| 510 | - | ||
| 511 | - | ||
| 512 | - | ||
| 513 | - | ||
| 514 | - | ||
| 515 | - | ||
| 516 | - | ||
| 577 | + | ``` | |
| 517 | 578 | ... | |
| 518 | - | ||
| 519 | - | ||
| 520 | - | ||
| 521 | - | ||
| 522 | - | ||
| 523 | - | ||
| 524 | - | ||
| 525 | - | ||
| 526 | - | ||
| 527 | - | ||
| 528 | - | ||
| 529 | - | ||
| 530 | - | ||
| 531 | - | ||
| 532 | - | ||
| 533 | - | ||
| 534 | - | ||
| 535 | - | ||
| 536 | - | ||
| 537 | - | ||
| 538 | - | ||
| 539 | - | ||
| 540 | - | ||
| 541 | - | ||
| 542 | - | ||
| 543 | - | ||
| 544 | - | ||
| 579 | + | type | |
| 580 | + | TYourDesignerExtension = class | |
| 581 | + | private | |
| 582 | + | function AddClicked(ADesigner: TIDesigner; | |
| 583 | + | MouseDownComponent: TComponent; Button: TMouseButton; | |
| 584 | + | Shift: TShiftState; X, Y: Integer; | |
| 585 | + | var AComponentClass: TComponentClass; | |
| 586 | + | var NewParent: TComponent): boolean of object; | |
| 587 | + | public | |
| 588 | + | constructor Create; | |
| 589 | + | destructor Destroy; override; | |
| 590 | + | end; | |
| 591 | + | ||
| 592 | + | ... | |
| 593 | + | constructor TYourDesignerExtension.Create; | |
| 594 | + | begin | |
| 595 | + | // register your handler | |
| 596 | + | GlobalDesignHook.AddHandlerAddClicked(@AddClicked); | |
| 597 | + | end; | |
| 598 | + | ||
| 599 | + | destructor TYourDesignerExtension.Destroy; | |
| 600 | + | begin | |
| 601 | + | // remove your handler: | |
| 602 | + | GlobalDesignHook.RemoveHandlerAddClicked(@AddClicked); | |
| 603 | + | end; | |
| 604 | + | ||
| 605 | + | function TYourDesignerExtension.AddClicked(ADesigner: TIDesigner; | |
| 606 | + | MouseDownComponent: TComponent; Button: TMouseButton; | |
| 607 | + | Shift: TShiftState; X, Y: Integer; | |
| 608 | + | var AComponentClass: TComponentClass; | |
| 609 | + | var NewParent: TComponent): boolean of object; | |
| 610 | + | begin | |
| 611 | + | // in this example TYourControl is a custom control with a ChildControl. | |
| 612 | + | // Whenever the user drops a control on the TYourControl instead of adding | |
| 613 | + | // the new control to the TYourControl, the new control is added as child | |
| 614 | + | // of ChildControl. | |
| 615 | + | // created | |
| 616 | + | if MouseDownComponent is TYourControl then | |
| 617 | + | NewParent:=TYourControl(MouseDownComponent).ChildControl; | |
| 618 | + | Result:=true; | |
| 619 | + | end; | |
| 545 | 620 | ``` | |
| 546 | 621 | ||
| 547 | 622 | ### Disabling the designer mouse handler | |
| 548 | 623 | ||
| 549 | - | ||
| 550 | - | ||
| 551 | - | ||
| 624 | + | Normally the designer catches all mouse events of a component. If your custom control should handle the mouse events handle you can either set the **csDesignInteractive** **ControlStyle** or you can fine control it via the message _CM_DESIGNHITTEST_ in your control: | |
| 625 | + | ``` | |
| 552 | 626 | type | |
| 553 | - | ||
| 554 | - | ||
| 555 | - | ||
| 556 | - | ||
| 557 | - | ||
| 558 | - | ||
| 559 | - | ||
| 560 | - | ||
| 561 | - | ||
| 562 | - | ||
| 563 | - | ||
| 564 | - | ||
| 565 | - | ||
| 566 | - | ||
| 567 | - | ||
| 568 | - | ||
| 627 | + | TYourControl = class(TCustomControl) | |
| 628 | + | protected | |
| 629 | + | procedure CMDesignHitTest(var Message: TLMessage); message CM_DESIGNHITTEST; | |
| 630 | + | end; | |
| 631 | + | ... | |
| 632 | + | procedure TYourControl.CMDesignHitTest(var Message: TLMessage); | |
| 633 | + | var | |
| 634 | + | p: TSmallPoint; | |
| 635 | + | aShiftState: TShiftState; | |
| 636 | + | begin | |
| 637 | + | aShiftState:=KeysToShiftState(PtrUInt(Message.WParam)); | |
| 638 | + | p:=TSmallPoint(longint(Message.LParam)); | |
| 639 | + | debugln(['TForm1.CMDesignHitTest ShiftState=',dbgs(aShiftState),' x=',p.x,' y=',p.y]); | |
| 640 | + | if SkipDesignerMouseHandler then | |
| 641 | + | Message.Result:=1; // now the designer calls the normal MouseUp, MouseMove and MouseDown methods. | |
| 642 | + | end; | |
| 569 | 643 | ``` | |
| 570 | 644 | ||
| 571 | 645 | ## Getting notified when a designer form is modified | |
| 572 | 646 | ||
| 573 | - | ||
| 574 | - | ||
| 575 | - | ||
| 647 | + | Every designed LCL form has a Designer of type TIDesigner. The IDE creates designers of type TComponentEditorDesigner defined in the IDEIntf unit componenteditors. For example: | |
| 648 | + | ``` | |
| 576 | 649 | procedure TYourAddOn.OnDesignerModified(Sender: TObject); | |
| 577 | - | ||
| 578 | - | ||
| 579 | - | ||
| 580 | - | ||
| 581 | - | ||
| 582 | - | ||
| 583 | - | ||
| 584 | - | ||
| 585 | - | ||
| 586 | - | ||
| 587 | - | ||
| 588 | - | ||
| 589 | - | ||
| 590 | - | ||
| 650 | + | var | |
| 651 | + | IDEDesigner: TComponentEditorDesigner; | |
| 652 | + | begin | |
| 653 | + | IDEDesigner:=TComponentEditorDesigner(Sender); | |
| 654 | + | ... | |
| 655 | + | end; | |
| 656 | + | ||
| 657 | + | procedure TYourAddOn.ConnectDesignerForm(Form1: TCustomForm); | |
| 658 | + | var | |
| 659 | + | IDEDesigner: TComponentEditorDesigner; | |
| 660 | + | begin | |
| 661 | + | IDEDesigner:=TComponentEditorDesigner(Form1.Designer); | |
| 662 | + | IDEDesigner.AddHandlerModified(@OnDesignerModified); | |
| 663 | + | end; | |
| 591 | 664 | ``` | |
| 592 | 665 | ||
| 593 | 666 | ## Project events | |
| 594 | 667 | ||
| 595 | - | ||
| 668 | + | These events are defined in unit LazIDEIntf. | |
| 596 | 669 | ||
| 597 | - | ||
| 598 | - | ||
| 599 | - | ||
| 600 | - | ||
| 601 | - | ||
| 602 | - | ||
| 603 | - | ||
| 604 | - | ||
| 670 | + | * **LazarusIDE.AddHandlerOnProjectClose** : called before a project is closed | |
| 671 | + | * **LazarusIDE.AddHandlerOnProjectOpened** : called after the project was completely opened (for example all required packages were loaded, units were opened in the source editor) | |
| 672 | + | * **LazarusIDE.AddHandlerOnSavingAll** : called before IDE saves everything | |
| 673 | + | * **LazarusIDE.AddHandlerOnSavedAll** : called after IDE saved everything | |
| 674 | + | * **LazarusIDE.AddHandlerOnProjectBuilding** : called before IDE builds the project | |
| 675 | + | * **LazarusIDE.AddHandlerOnProjectDependenciesCompiling** : called before IDE compiles package dependencies of project | |
| 676 | + | * **LazarusIDE.AddHandlerOnProjectDependenciesCompiled** : called after IDE compiled package dependencies of project | |
| 677 | + | * **LazarusIDE.AddHandlerOnProjectBuildingFinished** : called after IDE built the project (successful or not) (since 1.5) | |
| 605 | 678 | ||
| 606 | 679 | ## Other IDE events | |
| 607 | 680 | ||
| 608 | - | ||
| 681 | + | uses LazIDEIntf; | |
| 609 | 682 | ||
| 610 | - | ||
| 683 | + | Call these in the Register procedure of your package: | |
| 611 | 684 | ||
| 612 | - | ||
| 613 | - | ||
| 614 | - | ||
| 615 | - | ||
| 616 | - | ||
| 617 | - | ||
| 618 | - | ||
| 619 | - | ||
| 620 | - | ||
| 621 | - | ||
| 622 | - | ||
| 623 | - | ||
| 685 | + | * **LazarusIDE.AddHandlerOnIDERestoreWindows** : called when IDE is restores its windows (before opening the first project) | |
| 686 | + | * **LazarusIDE.AddHandlerOnIDEClose** : called when IDE is shutting down (after closequery, so no more interactivity) | |
| 687 | + | * **LazarusIDE.AddHandlerOnQuickSyntaxCheck** : called when the menu item or the shortcut for Quick syntax check is executed | |
| 688 | + | * **LazarusIDE.AddHandlerOnLazarusBuilding** : // called before IDE builds Lazarus IDE (since 1.5) | |
| 689 | + | * **LazarusIDE.AddHandlerOnLazarusBuildingFinished** : // called after IDE builds Lazarus IDE (since 1.5) | |
| 690 | + | * **LazarusIDE.AddHandlerGetFPCFrontEndParams** : // called when the IDE gets the parameters of the 'fpc' front end tool (since 1.5) | |
| 691 | + | * **LazarusIDE.AddHandlerGetFPCFrontEndPath** : // called when the IDE gets the path of the 'fpc' front end tool (since 1.5) | |
| 692 | + | * **LazarusIDE.AddHandlerOnUpdateIDEComponentPalette** : ? | |
| 693 | + | * **LazarusIDE.AddHandlerOnUpdateComponentPageControl** : ? | |
| 694 | + | * **LazarusIDE.AddHandlerOnShowDesignerFormOfSource** : // called after showing a designer form for code editor (AEditor can be nil!) (since 1.5) | |
| 695 | + | * **LazarusIDE.AddHandlerOnShowSourceOfActiveDesignerForm** : // called after showing a code of designer form (since 1.5) | |
| 696 | + | * **LazarusIDE.AddHandlerOnChangeToolStatus** : //called when IDEToolStatus has changed (e.g. itNone->itBuilder etc.) (since 1.5) | |
| 624 | 697 | ||
| 625 | - | ||
| 698 | + | Call these in the initialization section of one of your units: | |
| 626 | 699 | ||
| 627 | - | ||
| 628 | - | ||
| 629 | - | ||
| 700 | + | * **AddBootHandler** | |
| 701 | + | * AddBootHandler(**libhTransferMacrosCreated** ,@YourProc): called after IDEMacros were created (since 1.3) | |
| 702 | + | * AddBootHandler(**libhEnvironmentOptionsLoaded** ,@YourProc): called after environment options were loaded (since 1.3) | |
| 630 | 703 | ||
| 631 | 704 | # Project | |
| 632 | 705 | ||
| 633 | 706 | ## Current Project | |
| 634 | 707 | ||
| 635 | - | ||
| 708 | + | The current main project can be obtained by LazarusIDE.ActiveProject. (unit LazIDEIntf) | |
| 636 | 709 | ||
| 637 | 710 | ## All units of current project | |
| 638 | 711 | ||
| 639 | - | ||
| 712 | + | Note that the term "units of project" is ambiguous. | |
| 640 | 713 | ||
| 641 | - | ||
| 642 | - | ||
| 714 | + | * The project inspector shows the list of the .lpi file. The project might not use all these units on all platforms and maybe the developer forgot to add all used units. | |
| 715 | + | * Units from used packages are not project units. | |
| 643 | 716 | ||
| 644 | 717 | ### All units of the project inspector | |
| 645 | 718 | ||
| 646 | - | ||
| 647 | - | ||
| 648 | - | ||
| 719 | + | To iterate through all pascal units listed in the project inspector you can use for example: | |
| 720 | + | ``` | |
| 649 | 721 | uses | |
| 650 | - | ||
| 651 | - | ||
| 652 | - | ||
| 653 | - | ||
| 654 | - | ||
| 655 | - | ||
| 656 | - | ||
| 657 | - | ||
| 658 | - | ||
| 659 | - | ||
| 660 | - | ||
| 722 | + | LCLProc, FileUtil, LazIDEIntf, ProjectIntf; | |
| 723 | + | ||
| 724 | + | procedure ListProjectUnits; | |
| 725 | + | var | |
| 726 | + | LazProject: TLazProject; | |
| 727 | + | i: Integer; | |
| 728 | + | LazFile: TLazProjectFile; | |
| 661 | 729 | begin | |
| 662 | - | ||
| 663 | - | ||
| 664 | - | ||
| 665 | - | ||
| 666 | - | ||
| 730 | + | LazProject:=LazarusIDE.ActiveProject; | |
| 731 | + | if LazProject<>nil then | |
| 732 | + | for i:=0 to LazProject.FileCount-1 do | |
| 733 | + | begin | |
| 734 | + | LazFile:=LazProject.Files[i]; | |
| 735 | + | if LazFile.IsPartOfProject | |
| 736 | + | and FilenameIsPascalUnit(LazFile.Filename) | |
| 737 | + | then | |
| 738 | + | debugln(LazFile.Filename); | |
| 739 | + | end; | |
| 667 | 740 | end; | |
| 668 | - | ||
| 669 | 741 | ``` | |
| 670 | 742 | ||
| 671 | 743 | ### All used units of project | |
| 672 | 744 | ||
| 673 | - | ||
| 674 | - | ||
| 675 | - | ||
| 745 | + | To find all currently used units of a project/package you can use the following. Note that the IDE needs to parse all units, so it can take some time. | |
| 746 | + | ``` | |
| 676 | 747 | uses | |
| 677 | - | ||
| 678 | - | ||
| 679 | - | ||
| 680 | - | ||
| 681 | - | ||
| 682 | - | ||
| 683 | - | ||
| 684 | - | ||
| 685 | - | ||
| 686 | - | ||
| 687 | - | ||
| 688 | - | ||
| 689 | - | ||
| 690 | - | ||
| 691 | - | ||
| 692 | - | ||
| 748 | + | LazLoggerBase, LazIDEIntf, ProjectIntf; | |
| 749 | + | ||
| 750 | + | procedure ListProjectUnits; | |
| 751 | + | var | |
| 752 | + | LazProject: TLazProject; | |
| 753 | + | i: Integer; | |
| 754 | + | begin | |
| 755 | + | LazProject:=LazarusIDE.ActiveProject; | |
| 756 | + | if LazProject<>nil then | |
| 757 | + | begin | |
| 758 | + | Units:=LazarusIDE.FindUnitsOfOwner(LazProject,[fuooListed,fuooUsed]); // add fuooPackages to include units from packages | |
| 759 | + | try | |
| 760 | + | for i:=0 to Units.Count-1 do | |
| 761 | + | debugln('Filename=',Units[i]); | |
| 762 | + | finally | |
| 763 | + | Units.Free; | |
| 764 | + | end; | |
| 765 | + | end; | |
| 693 | 766 | end; | |
| 694 | - | ||
| 695 | - | ||
| 696 | 767 | ``` | |
| 697 | 768 | ||
| 698 | 769 | ## The .lpr, .lpi and .lps file of a project | |
| 699 | - | ||
| 700 | - | ||
| 770 | + | ``` | |
| 701 | 771 | uses | |
| 702 | - | ||
| 703 | - | ||
| 704 | - | ||
| 705 | - | ||
| 706 | - | ||
| 707 | - | ||
| 708 | - | ||
| 709 | - | ||
| 710 | - | ||
| 711 | - | ||
| 712 | - | ||
| 713 | - | ||
| 714 | - | ||
| 715 | - | ||
| 716 | - | ||
| 717 | - | ||
| 718 | - | ||
| 772 | + | LCLProc, FileUtil, ProjectIntf, LazIDEIntf; | |
| 773 | + | var | |
| 774 | + | LazProject: TLazProject; | |
| 775 | + | begin | |
| 776 | + | LazProject:=LazarusIDE.ActiveProject; | |
| 777 | + | // every project has a .lpi file: | |
| 778 | + | DebugLn(['Project'' lpi file: ',LazProject.ProjectInfoFile]); | |
| 779 | + | ||
| 780 | + | // if the project session information is stored in a separate .lps file: | |
| 781 | + | if LazProject.SessionStorage<>pssNone then | |
| 782 | + | DebugLn(['Project'' lps file: ',LazProject.ProjectSessionFile]); | |
| 783 | + | ||
| 784 | + | // If the project has a .lpr file it is the main source file: | |
| 785 | + | if (LazProject.MainFile<>nil) | |
| 786 | + | and (CompareFileExt(LazProject.MainFile.Filename,'lpr')=0) then | |
| 787 | + | DebugLn(['Project has lpr file: ',LazProject.MainFile.Filename]); | |
| 788 | + | end; | |
| 719 | 789 | ``` | |
| 720 | 790 | ||
| 721 | 791 | ## The executable / target file name of a project | |
| 722 | 792 | ||
| 723 | - | ||
| 724 | - | ||
| 725 | - | ||
| 793 | + | There is a macro $(TargetFile), which can be used in paths and external tools. You can query the macro in code: | |
| 794 | + | ``` | |
| 726 | 795 | uses MacroIntf; | |
| 727 | - | ||
| 728 | - | ||
| 729 | - | ||
| 730 | - | ||
| 731 | - | ||
| 732 | - | ||
| 733 | - | ||
| 796 | + | ||
| 797 | + | function MyGetProjectTargetFile: string; | |
| 798 | + | begin | |
| 799 | + | Result:='$(TargetFile)'; | |
| 800 | + | if not IDEMacros.SubstituteMacros(Result) then | |
| 801 | + | raise Exception.Create('unable to retrieve target file of project'); | |
| 802 | + | end; | |
| 734 | 803 | ``` | |
| 735 | 804 | ||
| 736 | - | ||
| 805 | + | See here for more macros: [[IDE Macros in paths and filenames]]. | |
| 737 | 806 | ||
| 738 | 807 | ## Add your own project type | |
| 739 | 808 | ||
| 740 | - | ||
| 809 | + | You can add items to the 'New ...' dialog: | |
| 741 | 810 | ||
| 742 | - | ||
| 743 | - | ||
| 811 | + | * See the unit ProjectIntf of the package IDEIntf. | |
| 812 | + | * See the [[Project Templates]] | |
| 744 | 813 | ||
| 814 | + | ||
| 815 | + | ||
| 745 | 816 | ## Add your own file type | |
| 746 | 817 | ||
| 747 | - | ||
| 818 | + | You can add items to the 'New ...' dialog: | |
| 748 | 819 | ||
| 749 | - | ||
| 750 | - | ||
| 820 | + | * See the unit ProjectIntf of the package IDEIntf. | |
| 821 | + | * Choose a base class TFileDescPascalUnit for normal units or TFileDescPascalUnitWithResource for a new form/datamodule. | |
| 751 | 822 | ||
| 752 | 823 | ### Add a new file type | |
| 753 | - | ||
| 754 | - | ||
| 824 | + | ``` | |
| 755 | 825 | uses ProjectIntf; | |
| 756 | - | ||
| 757 | - | ||
| 758 | - | ||
| 759 | - | ||
| 760 | - | ||
| 761 | - | ||
| 762 | - | ||
| 763 | - | ||
| 764 | - | ||
| 765 | - | ||
| 766 | - | ||
| 767 | - | ||
| 768 | - | ||
| 769 | - | ||
| 770 | - | ||
| 771 | - | ||
| 772 | - | ||
| 773 | - | ||
| 774 | - | ||
| 775 | - | ||
| 776 | - | ||
| 777 | - | ||
| 778 | - | ||
| 779 | - | ||
| 780 | - | ||
| 781 | - | ||
| 782 | - | ||
| 783 | - | ||
| 784 | - | ||
| 785 | - | ||
| 786 | - | ||
| 787 | - | ||
| 788 | - | ||
| 789 | - | ||
| 790 | - | ||
| 791 | - | ||
| 792 | - | ||
| 793 | - | ||
| 794 | - | ||
| 826 | + | ... | |
| 827 | + | { TFileDescText } | |
| 828 | + | ||
| 829 | + | TFileDescMyText = class(TProjectFileDescriptor) | |
| 830 | + | public | |
| 831 | + | constructor Create; override; | |
| 832 | + | function GetLocalizedName: string; override; | |
| 833 | + | function GetLocalizedDescription: string; override; | |
| 834 | + | end; | |
| 835 | + | ... | |
| 836 | + | ||
| 837 | + | procedure Register; | |
| 838 | + | ||
| 839 | + | implementation | |
| 840 | + | ||
| 841 | + | procedure Register; | |
| 842 | + | begin | |
| 843 | + | RegisterProjectFileDescriptor(TFileDescMyText.Create,FileDescGroupName); | |
| 844 | + | end; | |
| 845 | + | ||
| 846 | + | { TFileDescMyText } | |
| 847 | + | ||
| 848 | + | constructor TFileDescMyText.Create; | |
| 849 | + | begin | |
| 850 | + | inherited Create; | |
| 851 | + | Name:='MyText'; // do not translate this | |
| 852 | + | DefaultFilename:='text.txt'; | |
| 853 | + | AddToProject:=false; | |
| 854 | + | end; | |
| 855 | + | ||
| 856 | + | function TFileDescText.GetLocalizedName: string; | |
| 857 | + | begin | |
| 858 | + | Result:='My Text'; // replace this with a resourcestring | |
| 859 | + | end; | |
| 860 | + | ||
| 861 | + | function TFileDescText.GetLocalizedDescription: string; | |
| 862 | + | begin | |
| 863 | + | Result:='An empty text file'; | |
| 864 | + | end; | |
| 795 | 865 | ``` | |
| 796 | 866 | ||
| 797 | 867 | ### Add a new form type | |
| 798 | - | ||
| 799 | - | ||
| 868 | + | ``` | |
| 800 | 869 | uses ProjectIntf; | |
| 801 | - | ||
| 802 | - | ||
| 803 | - | ||
| 804 | - | ||
| 805 | - | ||
| 806 | - | ||
| 807 | - | ||
| 808 | - | ||
| 809 | - | ||
| 810 | - | ||
| 811 | - | ||
| 812 | - | ||
| 813 | - | ||
| 814 | - | ||
| 815 | - | ||
| 816 | - | ||
| 817 | - | ||
| 818 | - | ||
| 819 | - | ||
| 820 | - | ||
| 821 | - | ||
| 822 | - | ||
| 823 | - | ||
| 824 | - | ||
| 825 | - | ||
| 826 | - | ||
| 827 | - | ||
| 828 | - | ||
| 829 | - | ||
| 830 | - | ||
| 831 | - | ||
| 832 | - | ||
| 833 | - | ||
| 834 | - | ||
| 835 | - | ||
| 836 | - | ||
| 837 | - | ||
| 838 | - | ||
| 839 | - | ||
| 840 | - | ||
| 841 | - | ||
| 842 | - | ||
| 843 | - | ||
| 844 | - | ||
| 870 | + | ||
| 871 | + | ... | |
| 872 | + | TFileDescPascalUnitWithMyForm = class(TFileDescPascalUnitWithResource) | |
| 873 | + | public | |
| 874 | + | constructor Create; override; | |
| 875 | + | function GetInterfaceUsesSection: string; override; | |
| 876 | + | function GetLocalizedName: string; override; | |
| 877 | + | function GetLocalizedDescription: string; override; | |
| 878 | + | end; | |
| 879 | + | ... | |
| 880 | + | ||
| 881 | + | procedure Register; | |
| 882 | + | ||
| 883 | + | implementation | |
| 884 | + | ||
| 885 | + | procedure Register; | |
| 886 | + | begin | |
| 887 | + | RegisterProjectFileDescriptor(TFileDescPascalUnitWithMyForm.Create,FileDescGroupName); | |
| 888 | + | end; | |
| 889 | + | ||
| 890 | + | { TFileDescPascalUnitWithMyForm } | |
| 891 | + | ||
| 892 | + | constructor TFileDescPascalUnitWithMyForm.Create; | |
| 893 | + | begin | |
| 894 | + | inherited Create; | |
| 895 | + | Name:='MyForm'; // do not translate this | |
| 896 | + | ResourceClass:=TMyForm; | |
| 897 | + | UseCreateFormStatements:=true; | |
| 898 | + | end; | |
| 899 | + | ||
| 900 | + | function TFileDescPascalUnitWithMyForm.GetInterfaceUsesSection: string; | |
| 901 | + | begin | |
| 902 | + | Result:='Classes, SysUtils, MyWidgetSet'; | |
| 903 | + | end; | |
| 904 | + | ||
| 905 | + | function TFileDescPascalUnitWithForm.GetLocalizedName: string; | |
| 906 | + | begin | |
| 907 | + | Result:='MyForm'; // replace this with a resourcestring | |
| 908 | + | end; | |
| 909 | + | ||
| 910 | + | function TFileDescPascalUnitWithForm.GetLocalizedDescription: string; | |
| 911 | + | begin | |
| 912 | + | Result:='Create a new MyForm from example package NotLCLDesigner'; | |
| 913 | + | end; | |
| 845 | 914 | ``` | |
| 846 | 915 | ||
| 847 | 916 | # Packages | |
| 848 | 917 | ||
| 849 | - | ||
| 918 | + | You can perform various actions with [[Lazarus Packages|Packages]]: | |
| 850 | 919 | ||
| 851 | 920 | ## Search in all packages | |
| 852 | 921 | ||
| 853 | - | ||
| 854 | - | ||
| 855 | - | ||
| 922 | + | Iterate all packages loaded in the IDE (since 0.9.29). | |
| 923 | + | ``` | |
| 856 | 924 | uses PackageIntf; | |
| 857 | - | ||
| 858 | - | ||
| 859 | - | ||
| 925 | + | ... | |
| 926 | + | for i:=0 to PackageEditingInterface.GetPackageCount-1 do | |
| 927 | + | writeln(PackageEditingInterface.GetPackages(i).Name); | |
| 860 | 928 | ``` | |
| 861 | 929 | ||
| 862 | 930 | ## Search a package with a name | |
| 863 | - | ||
| 864 | - | ||
| 931 | + | ``` | |
| 865 | 932 | uses PackageIntf; | |
| 866 | - | ||
| 867 | - | ||
| 868 | - | ||
| 869 | - | ||
| 870 | - | ||
| 871 | - | ||
| 872 | 933 | ... | |
| 873 | - | ||
| 934 | + | var | |
| 935 | + | Pkg: TIDEPackage; | |
| 936 | + | begin | |
| 937 | + | Pkg:=PackageEditingInterface.FindPackageWithName('LCL'); | |
| 938 | + | if Pkg<>nil then | |
| 939 | + | ... | |
| 940 | + | end; | |
| 874 | 941 | ``` | |
| 875 | 942 | ||
| 876 | - | ||
| 943 | + | Note: FindPackageWithName does not open the package editor. For that use DoOpenPackageWithName. | |
| 877 | 944 | ||
| 878 | 945 | ## Obtener el nombre de fichero .lpk de un paquete instalado | |
| 879 | - | ||
| 880 | - | ||
| 946 | + | ``` | |
| 881 | 947 | uses PackageIntf; | |
| 882 | - | ||
| 883 | - | ||
| 884 | - | ||
| 885 | - | ||
| 886 | - | ||
| 887 | - | ||
| 888 | - | ||
| 889 | - | ||
| 948 | + | ... | |
| 949 | + | var | |
| 950 | + | Pkg: TIDEPackage; | |
| 951 | + | begin | |
| 952 | + | Pkg:=PackageEditingInterface.FindPackageWithName('LCL'); | |
| 953 | + | if Pkg<>nil then | |
| 954 | + | LPKFilename:=Pkg.Filename; | |
| 955 | + | end; | |
| 890 | 956 | ``` | |
| 891 | 957 | ||
| 892 | 958 | ## Instalar paquetes | |
| 893 | 959 | ||
| 894 | - | ||
| 895 | - | ||
| 896 | - | ||
| 960 | + | **Note** : Instalar únicamente paquetes con plugins IDE. Instalar otros paquetes puede hacer el IDE inestable. | |
| 961 | + | ``` | |
| 897 | 962 | uses PackageIntf, contnrs; | |
| 898 | - | ||
| 899 | - | ||
| 900 | - | ||
| 901 | - | ||
| 902 | - | ||
| 903 | - | ||
| 904 | - | ||
| 905 | - | ||
| 906 | - | ||
| 907 | - | ||
| 908 | - | ||
| 909 | - | ||
| 910 | - | ||
| 911 | - | ||
| 912 | - | ||
| 913 | - | ||
| 914 | - | ||
| 963 | + | ... | |
| 964 | + | PkgList:=TObjectList.create(true); | |
| 965 | + | try | |
| 966 | + | Pkg:=TLazPackageID.Create; | |
| 967 | + | Pkg.Name:='Cody'; | |
| 968 | + | PkgList.Add(Pkg); | |
| 969 | + | // Chequear si el IDE puede encontrar cody.lpk y todas las dependencias. | |
| 970 | + | // El IDE will muestra algunas advertencias/confirmaciones si algo parece extraño. | |
| 971 | + | if not PackageEditingInterface.CheckInstallPackageList(PkgList,[]) then | |
| 972 | + | exit; | |
| 973 | + | // in this example we have checked already, so skip the warnings | |
| 974 | + | // and rebuild the IDE | |
| 975 | + | if PackageEditingInterface.InstallPackages(PkgList,[piiifSkipChecks,piiifRebuildIDE])<>mrOK then | |
| 976 | + | exit; | |
| 977 | + | finally | |
| 978 | + | PkgList.Free; | |
| 979 | + | end; | |
| 915 | 980 | ``` | |
| 916 | 981 | ||
| 917 | 982 | ## Abrir un fichero de paquete (lpk) | |
| 918 | - | ||
| 919 | - | ||
| 983 | + | ``` | |
| 920 | 984 | uses PackageIntf, FileUtil; | |
| 921 | - | ||
| 922 | - | ||
| 923 | - | ||
| 924 | - | ||
| 925 | - | ||
| 926 | - | ||
| 927 | - | ||
| 928 | - | ||
| 929 | - | ||
| 985 | + | ... | |
| 986 | + | var | |
| 987 | + | pkg: TIDEPackage; | |
| 988 | + | begin | |
| 989 | + | if PackageEditingInterface.DoOpenPackageFile(LPKFilename,[pofAddToRecent],false)<>mrOk then | |
| 990 | + | exit; | |
| 991 | + | Pkg:=PackageEditingInterface.FindPackageWithName(ExtractFilenameOnly(LPKFilename)); | |
| 992 | + | ... | |
| 993 | + | end; | |
| 930 | 994 | ``` | |
| 931 | 995 | ||
| 932 | - | ||
| 996 | + | [](</File:Warning-icon.png>) | |
| 933 | 997 | ||
| 934 | - | ||
| 998 | + | **Warning:** El IDE cierra automáticamentes paquetes no utilizados on idle. Nunca mantener referencias a un TIDEPackage. | |
| 935 | 999 | ||
| 936 | - | ||
| 1000 | + | ## Find the package(s) of a unit | |
| 937 | 1001 | ||
| 938 | - | ||
| 1002 | + | You have the file name of a unit, e.g. '/home/user/unit.pas', and you want to know to which package(s) and project(s) it belongs use this: | |
| 1003 | + | ``` | |
| 939 | 1004 | uses Classes, PackageIntf, ProjectIntf; | |
| 940 | - | ||
| 941 | - | ||
| 942 | - | ||
| 943 | - | ||
| 944 | - | ||
| 945 | - | ||
| 946 | - | ||
| 947 | - | ||
| 948 | - | ||
| 949 | - | ||
| 950 | - | ||
| 951 | - | ||
| 952 | - | ||
| 953 | - | ||
| 954 | - | ||
| 955 | - | ||
| 956 | - | ||
| 957 | - | ||
| 958 | - | ||
| 959 | - | ||
| 960 | - | ||
| 961 | - | ||
| 962 | - | ||
| 1005 | + | ... | |
| 1006 | + | var | |
| 1007 | + | Owners: TFPList; | |
| 1008 | + | i: Integer; | |
| 1009 | + | o: TObject; | |
| 1010 | + | begin | |
| 1011 | + | Owners:=PackageEditingInterface.GetPossibleOwnersOfUnit('/full/path/of/unit.pas',[]); | |
| 1012 | + | if Owners=nil then begin | |
| 1013 | + | // unit is not directly associated with a project/package | |
| 1014 | + | // maybe the unit was for some reason not added, but is reachable | |
| 1015 | + | // search in all unit paths of all projects/packages | |
| 1016 | + | // Beware: This can lead to false hits | |
| 1017 | + | Owners:=PackageEditingInterface.GetPossibleOwnersOfUnit('/full/path/of/unit.pas', | |
| 1018 | + | [piosfExcludeOwned,piosfIncludeSourceDirectories]); | |
| 963 | 1019 | end; | |
| 964 | - | ||
| 965 | - | ||
| 966 | - | ||
| 967 | - | ||
| 1020 | + | if Owners=nil then exit; | |
| 1021 | + | try | |
| 1022 | + | for i:=0 to Owners.Count-1 do begin | |
| 1023 | + | o:=TObject(Owners[i]); | |
| 1024 | + | if o is TIDEPackage then begin | |
| 1025 | + | writeln('Owner is package ',TIDEPackage(o).Name); | |
| 1026 | + | end else if o is TLazProject then begin | |
| 1027 | + | writeln('Owner is project ',TLazProject(o).ProjectInfoFile); | |
| 1028 | + | end; | |
| 1029 | + | end; | |
| 1030 | + | finally | |
| 1031 | + | Owners.Free; | |
| 1032 | + | end; | |
| 968 | 1033 | ``` | |
| 969 | 1034 | ||
| 970 | 1035 | # Ventanas | |
| 971 | 1036 | ||
| 972 | - | ||
| 1037 | + | Hay básicamente cuatro tipos de ventandas del IDE: | |
| 973 | 1038 | ||
| 974 | - | ||
| 975 | - | ||
| 976 | - | ||
| 977 | - | ||
| 1039 | + | * La barra principal del IDE bar que es Application.MainForm. Siempre está presente. | |
| 1040 | + | * Ventanas flotantes/acoplables tales como el editor del código fuente, the Object Inspectors and Messages. | |
| 1041 | + | * Fomas modales, tales como los diálogos de búsqueda, opciones y preguntas. | |
| 1042 | + | * Sugerencias y formas de completado. | |
| 978 | 1043 | ||
| 979 | 1044 | ## Añadiendo una nueva ventana de acoplado en el IDE | |
| 980 | 1045 | ||
| 981 | - | ||
| 1046 | + | Que es una ventana del IDE acoplable: Ventanas tales como el Editor de Código Fuente o el Inspector de Objetos son ventanas flotantes que se pueden acoplar si se instala un paquete de acoplamiento, y su estado, posición y tamaño se almacena y restaura en el siguiente inicio del IDE. En orden a restaurar una ventana el IDE necesita un creador como se definie en la unidad **IDEWindowIntf** del paquete IDEIntf. Cada ventana acoplable debe tener un único nombre. No usar por tanto nombres genéricos como 'FileBrowser' porque haría que entre fácilmente en conflicto con otros paquetes. Y no usar nombres cortos como 'XYZ' porque el creador es responsable de todas las formas que comiencen con dicho nombre. | |
| 982 | 1047 | ||
| 983 | 1048 | ### Como registrar una ventana acoplable del IDE | |
| 984 | 1049 | ||
| 985 | - | ||
| 986 | - | ||
| 987 | - | ||
| 1050 | + | Recuerda utilizar un nombre largo única que sea un identificador pascal válido. Tus ventanas pueden tener cualquier caption que necesites. | |
| 1051 | + | ``` | |
| 988 | 1052 | uses SysUtils, IDEWindowIntf; | |
| 989 | - | ||
| 990 | - | ||
| 991 | - | ||
| 992 | - | ||
| 993 | - | ||
| 994 | - | ||
| 995 | - | ||
| 996 | - | ||
| 997 | - | ||
| 998 | - | ||
| 999 | - | ||
| 1000 | - | ||
| 1001 | - | ||
| 1002 | - | ||
| 1003 | - | ||
| 1004 | - | ||
| 1005 | - | ||
| 1006 | - | ||
| 1007 | - | ||
| 1008 | - | ||
| 1053 | + | ... | |
| 1054 | + | var MyIDEWindow: TMyIDEWindow = nil; | |
| 1055 | + | ||
| 1056 | + | procedure CreateMyIDEWindow(Sender: TObject; aFormName: string; var AForm: TCustomForm; DoDisableAutoSizing: boolean); | |
| 1057 | + | begin | |
| 1058 | + | // check the name | |
| 1059 | + | if CompareText(aFormName,MyIDEWindowName)<>0 then exit; | |
| 1060 | + | // create the form if not already done and disable autosizing | |
| 1061 | + | IDEWindowCreators.CreateForm(MyIDEWindow,TMyIDEWindowm,DoDisableAutosizing,Application); | |
| 1062 | + | ... init the window ... | |
| 1063 | + | AForm:=MyIDEWindow; | |
| 1064 | + | end; | |
| 1065 | + | ||
| 1066 | + | procedure Register; | |
| 1067 | + | begin | |
| 1068 | + | IDEWindowCreators.Add('MyIDEWindow',@CreateMyIDEWindow,nil,'100','50%','+300','+20%'); | |
| 1069 | + | // the default boundsrect of the form is: | |
| 1070 | + | // Left=100, Top=50% of Screen.Height, Width=300, Height=20% of Screen.Height | |
| 1071 | + | // when the IDE needs an instance of this window it calls the procedure CreateMyIDEWindow. | |
| 1072 | + | end; | |
| 1009 | 1073 | ``` | |
| 1010 | 1074 | ||
| 1011 | 1075 | ### Showing an IDE window | |
| 1012 | 1076 | ||
| 1013 | - | ||
| 1014 | - | ||
| 1015 | - | ||
| 1077 | + | **Do not use Show**. Use: | |
| 1078 | + | ``` | |
| 1016 | 1079 | IDEWindowCreators.ShowForm(MyIDEWindow,false); | |
| 1017 | 1080 | ``` | |
| 1018 | 1081 | ||
| 1019 | - | ||
| 1082 | + | This will work with docking. The docking system might wrap the form into a docking site. The BringToFront parameter tells the docking system to make the form and all its parent sites visible and bring the top level site to the front. | |
| 1020 | 1083 | ||
| 1021 | 1084 | ### Notes about IDEWindowCreators and SimpleLayoutStorage | |
| 1022 | 1085 | ||
| 1023 | - | ||
| 1086 | + | The IDEWindowCreators.SimpleLayoutStorage simply stores the BoundsRect and WindowState of all forms that were once opened. It is used as fallback if no dockmaster is installed. It stores the state even if a DockMaster is installed, so that when the dockmaster is uninstalled the forms bounds are restored. | |
| 1024 | 1087 | ||
| 1025 | - | ||
| 1088 | + | The IDEWindowCreators is used by all dockable forms to register themselves and to show forms. When showing a form the Creator checks if a IDEDockMaster is installed and will delegate the showing to it. If no IDEDockMaster is installed it simply shows the form. The IDEDockMaster can use the information in the IDEWindowCreators to create forms by names and get an idea where to place a form when showing it for the first time. For more details see the packages AnchorDockingDsgn and EasyDockMgDsgn. | |
| 1026 | 1089 | ||
| 1027 | 1090 | # CodeTools | |
| 1028 | 1091 | ||
| 1029 | - | ||
| 1030 | - | ||
| 1031 | - | ||
| 1092 | + | The CodeTools is a package providing a vast amount of functions to parse, search and change pascal sources and some basic functions for other languages as well. You can use them without the IDE too. It is recommended that you read first about the CodeTools in general before using them in the IDE: [[Codetools]]. | |
| 1032 | 1093 | ||
| 1033 | - | ||
| 1094 | + | Before calling any of the CodeTools functions in the IDE you should commit the current changes of the source editor to the CodeTools buffers: | |
| 1095 | + | ``` | |
| 1034 | 1096 | uses LazIDEIntf; | |
| 1035 | - | ||
| 1036 | - | ||
| 1037 | - | ||
| 1097 | + | ... | |
| 1098 | + | // save changes in source editor to codetools | |
| 1099 | + | LazarusIDE.SaveSourceEditorChangesToCodeCache(-1); // -1: commit all source editors | |
| 1038 | 1100 | ``` | |
| 1039 | 1101 | ||
| 1040 | 1102 | ## Adding a resource directive to a file | |
| 1041 | 1103 | ||
| 1042 | - | ||
| 1043 | - | ||
| 1044 | - | ||
| 1104 | + | This adds a {$R example.res} to a pascal unit: | |
| 1105 | + | ``` | |
| 1045 | 1106 | procedure AddResourceDirectiveToPascalSource(const Filename: string); | |
| 1046 | - | ||
| 1047 | - | ||
| 1048 | - | ||
| 1049 | - | ||
| 1050 | - | ||
| 1051 | - | ||
| 1052 | - | ||
| 1053 | - | ||
| 1054 | - | ||
| 1055 | - | ||
| 1056 | - | ||
| 1057 | - | ||
| 1058 | - | ||
| 1059 | - | ||
| 1060 | - | ||
| 1061 | - | ||
| 1062 | - | ||
| 1107 | + | var | |
| 1108 | + | ExpandedFilename: String; | |
| 1109 | + | CodeBuf: TCodeBuffer; | |
| 1110 | + | begin | |
| 1111 | + | // make sure the filename is trimmed and contains a full path | |
| 1112 | + | ExpandedFilename:=CleanAndExpandFilename(Filename); | |
| 1113 | + | ||
| 1114 | + | // save changes in source editor to codetools | |
| 1115 | + | LazarusIDE.SaveSourceEditorChangesToCodeCache(-1); | |
| 1116 | + | ||
| 1117 | + | // load the file | |
| 1118 | + | CodeBuf:=CodeToolBoss.LoadFile(ExpandedFilename,true,false); | |
| 1119 | + | ||
| 1120 | + | // add the resource directive | |
| 1121 | + | if not CodeToolBoss.AddResourceDirective(CodeBuf,'example.res') then | |
| 1122 | + | LazarusIDE.DoJumpToCodeToolBossError; | |
| 1123 | + | end; | |
| 1063 | 1124 | ``` | |
| 1064 | 1125 | ||
| 1065 | - | ||
| 1126 | + | The codetools provides also functions like FindResourceDirective and RemoveDirective. | |
| 1066 | 1127 | ||
| 1067 | 1128 | ## Getting the search paths for units and include files | |
| 1068 | 1129 | ||
| 1069 | - | ||
| 1070 | - | ||
| 1071 | - | ||
| 1130 | + | There are many different search paths in the IDE from projects, packages, the fpc and lazarus directory and there are many types of paths: before or after resolving macros, with or without inherited search paths, as relative or absolute paths. All files in a directory share the same set of search paths. You can get the search paths for each directory fully resolved by asking the codetools: | |
| 1131 | + | ``` | |
| 1072 | 1132 | uses CodeToolManager; | |
| 1073 | - | ||
| 1074 | - | ||
| 1075 | - | ||
| 1076 | - | ||
| 1077 | - | ||
| 1078 | - | ||
| 1079 | - | ||
| 1080 | - | ||
| 1081 | - | ||
| 1082 | - | ||
| 1083 | - | ||
| 1084 | - | ||
| 1085 | - | ||
| 1086 | - | ||
| 1087 | - | ||
| 1088 | - | ||
| 1089 | - | ||
| 1133 | + | ... | |
| 1134 | + | ||
| 1135 | + | Dir:=''; // the empty directory is for new files and has the same settings as the project directory | |
| 1136 | + | ||
| 1137 | + | // Getting the search paths for include files: | |
| 1138 | + | Path:=CodeToolBoss.GetIncludePathForDirectory(Dir); | |
| 1139 | + | ||
| 1140 | + | // Getting the search paths for units: | |
| 1141 | + | // This search path is passed to the compiler. | |
| 1142 | + | // It contains the package output directories, but not the package source directories. | |
| 1143 | + | Path:=CodeToolBoss.GetUnitPathForDirectory(Dir); | |
| 1144 | + | ||
| 1145 | + | // There can be additional unit search paths for the IDE only (not passed to the compiler) | |
| 1146 | + | Path:=CodeToolBoss.GetSrcPathForDirectory(Dir); | |
| 1147 | + | ||
| 1148 | + | // The complete search path contains also all package source paths for units: | |
| 1149 | + | Path:=CodeToolBoss.GetCompleteSrcPathForDirectory(Dir); | |
| 1090 | 1150 | ``` | |
| 1091 | 1151 | ||
| 1092 | 1152 | # Source Editor | |
| 1093 | 1153 | ||
| 1094 | 1154 | ## Active source editor | |
| 1095 | - | ||
| 1096 | - | ||
| 1155 | + | ``` | |
| 1097 | 1156 | uses SrcEditorIntf; | |
| 1098 | - | ||
| 1099 | - | ||
| 1100 | - | ||
| 1101 | - | ||
| 1102 | - | ||
| 1103 | - | ||
| 1157 | + | ... | |
| 1158 | + | Editor:=SourceEditorManagerIntf.ActiveEditor; | |
| 1159 | + | if Editor=nil then exit; | |
| 1160 | + | Filename:=Editor.FileName; | |
| 1161 | + | ScreenPos:=Editor.CursorScreenXY; | |
| 1162 | + | TextPos:=Editor.CursorTextXY; | |
| 1104 | 1163 | ``` | |
| 1105 | 1164 | ||
| 1106 | 1165 | # SynEdit | |
| 1107 | 1166 | ||
| 1108 | 1167 | ## Getting the settings for a TSynEdit | |
| 1109 | 1168 | ||
| 1110 | - | ||
| 1111 | - | ||
| 1112 | - | ||
| 1169 | + | When you have a dialog using a TSynEdit and you want to use the same font and settings like the source editor use: | |
| 1170 | + | ``` | |
| 1113 | 1171 | uses SrcEditorIntf; | |
| 1114 | - | ||
| 1115 | - | ||
| 1172 | + | ... | |
| 1173 | + | SourceEditorManagerIntf.GetEditorControlSettings(ASynEdit); | |
| 1116 | 1174 | ``` | |
| 1117 | 1175 | ||
| 1118 | 1176 | ## Getting the settings for a SynEdit highlighter | |
| 1119 | 1177 | ||
| 1120 | - | ||
| 1121 | - | ||
| 1122 | - | ||
| 1178 | + | When you have a dialog using a TSynEdit with a highlighter and you want to use the same colors like the source editor highlighter for this language use: | |
| 1179 | + | ``` | |
| 1123 | 1180 | uses SrcEditorIntf; | |
| 1124 | - | ||
| 1125 | - | ||
| 1181 | + | ... | |
| 1182 | + | SourceEditorManagerIntf.GetHighlighterSettings(ASynHighlighter); | |
| 1126 | 1183 | ``` | |
| 1127 | 1184 | ||
| 1128 | - | ||
| 1185 | + | See for an example: TSQLStringsPropertyEditorDlg.Create in the unit [SQLStringsPropertyEditorDlg](<http://svn.freepascal.org/svn/lazarus/trunk/components/sqldb/sqlstringspropertyeditordlg.pas>). | |
| 1129 | 1186 | ||
| 1130 | 1187 | # Help | |
| 1131 | 1188 | ||
| 1132 | 1189 | ## Adding help for sources | |
| 1133 | 1190 | ||
| 1134 | - | ||
| 1135 | - | ||
| 1136 | - | ||
| 1191 | + | First create a THelpDatabase: | |
| 1192 | + | ``` | |
| 1137 | 1193 | HelpDB := TFPDocHTMLHelpDatabase( | |
| 1138 | - | ||
| 1139 | - | ||
| 1140 | - | ||
| 1141 | - | ||
| 1142 | - | ||
| 1143 | - | ||
| 1144 | - | ||
| 1145 | - | ||
| 1146 | - | ||
| 1147 | - | ||
| 1148 | - | ||
| 1194 | + | HelpDatabases.CreateHelpDatabase('ANameOfYourChoiceForTheDatabase', | |
| 1195 | + | TFPDocHTMLHelpDatabase,true)); | |
| 1196 | + | HelpDB.DefaultBaseURL := 'http://your.help.org/'; | |
| 1197 | + | ||
| 1198 | + | FPDocNode := THelpNode.CreateURL(HelpDB, | |
| 1199 | + | 'Package1 - A new package', | |
| 1200 | + | 'file://index.html'); | |
| 1201 | + | HelpDB.TOCNode := THelpNode.Create(HelpDB,FPDocNode);// once as TOC | |
| 1202 | + | DirectoryItem := THelpDBISourceDirectory.Create(FPDocNode,'$(PkgDir)/lcl', | |
| 1203 | + | '*.pp;*.pas',false);// and once as normal page | |
| 1204 | + | HelpDB.RegisterItem(DirectoryItem); | |
| 1149 | 1205 | ``` | |
| 1150 | 1206 | ||
| 1151 | 1207 | ## Adding lines to the messages window | |
| 1152 | - | ||
| 1153 | - | ||
| 1208 | + | ``` | |
| 1154 | 1209 | unit IDEMsgIntf; | |
| 1155 | - | ||
| 1156 | - | ||
| 1157 | - | ||
| 1158 | - | ||
| 1159 | - | ||
| 1160 | - | ||
| 1161 | - | ||
| 1162 | - | ||
| 1210 | + | ... | |
| 1211 | + | var Dir: String; | |
| 1212 | + | begin | |
| 1213 | + | Dir:=GetCurrentDir; | |
| 1214 | + | IDEMessagesWindow.BeginBlock; | |
| 1215 | + | IDEMessagesWindow.AddMsg('unit1.pas(30,4) Error: Identifier not found "a"',Dir,0); | |
| 1216 | + | IDEMessagesWindow.EndBlock; | |
| 1217 | + | end; | |
| 1163 | 1218 | ``` | |
| 1164 | 1219 | ||
| 1165 | 1220 | # Miscellaneous | |
| 1166 | 1221 | ||
| 1167 | 1222 | ## Adding a macro | |
| 1168 | 1223 | ||
| 1169 | - | ||
| 1170 | - | ||
| 1171 | - | ||
| 1224 | + | You can add your own IDE macros: | |
| 1225 | + | ``` | |
| 1172 | 1226 | uses MacroIntf, MacroDefIntf; | |
| 1173 | - | ||
| 1174 | - | ||
| 1175 | - | ||
| 1176 | - | ||
| 1177 | - | ||
| 1178 | - | ||
| 1179 | - | ||
| 1180 | - | ||
| 1181 | - | ||
| 1182 | - | ||
| 1183 | - | ||
| 1184 | - | ||
| 1185 | - | ||
| 1186 | - | ||
| 1187 | - | ||
| 1188 | - | ||
| 1189 | - | ||
| 1190 | - | ||
| 1191 | - | ||
| 1192 | - | ||
| 1193 | - | ||
| 1194 | - | ||
| 1227 | + | ||
| 1228 | + | procedure Register; | |
| 1229 | + | begin | |
| 1230 | + | // registering a Macro with a fixed value: | |
| 1231 | + | IDEMacros.Add(TTransferMacro.Create('MyMacro1','Value','Description',nil,[])); | |
| 1232 | + | end; | |
| 1233 | + | ||
| 1234 | + | // registering a Macro with a dynamic value requires a method of an object | |
| 1235 | + | procedure TForm1.Init; | |
| 1236 | + | begin | |
| 1237 | + | IDEMacros.Add(TTransferMacro.Create('MyMacro','Value','Description',@OnResolveMyMacro,[])); | |
| 1238 | + | end; | |
| 1239 | + | ||
| 1240 | + | function TForm1.OnResolveMyMacro(const s: string; const Data: PtrInt; | |
| 1241 | + | var Abort: boolean): string; | |
| 1242 | + | // s is the parameter. For example $MyMacro(parameter) | |
| 1243 | + | // Data is the querying instance. Can be nil. | |
| 1244 | + | // If there is an error set Abort to true. | |
| 1245 | + | // The result string can contain macros. For example Result:='$(FPCVer)/$(TargetOS)'; | |
| 1246 | + | begin | |
| 1247 | + | Result:='MyValue'; | |
| 1248 | + | end; | |
| 1195 | 1249 | ``` | |
| 1196 | 1250 | ||
| 1197 | 1251 | ## Depurando el IDE | |
| 1198 | 1252 | ||
| 1199 | - | ||
| 1200 | - | ||
| 1201 | - | ||
| 1253 | + | * Compila el IDE como habitualmente e.g. via Tools/Build de Lazarus. Asegúrate de establecer los flags de depuración tales como -g o -gw2. Lo mejor es utilizar el profile "Debug IDE" que contiene algunos flags útiles para depuración. | |
| 1254 | + | * Abre el proyecto ide\lazarus.lpi. No se puede compilar directamente este proyecto. | |
| 1255 | + | * Establece los puntos de ruptura (breakpoints) acorde a tus necesidades etc y ejecuta el proyecto. | |
| 1202 | 1256 | ||
| 1203 | 1257 | ## See also | |
| 1204 | 1258 | ||
| 1205 | - | ||
| 1206 | - | ||
| 1207 | - | ||
| 1259 | + | * [[Creating IDE Help]] | |
| 1260 | + | * [[Help protocol]] | |
| 1261 | + | * [[How To Write Lazarus Component]] | |
| 1208 | 1262 | ||
| 1209 | 1263 | --- | |
| 1210 | - | ||
| 1264 | + | *From the Free Pascal wiki, page "Extending the IDE/es", as the Internet Archive kept it on 2024-07-25. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |