From 729dcdbc2a331a1537ff4d3a8ac28d70c58318c5 Mon Sep 17 00:00:00 2001 From: marc Date: Sun, 2 Dec 2007 18:19:23 +0000 Subject: [PATCH] + added component list form by Marus * Updated po files git-svn-id: trunk@13121 - --- .gitattributes | 3 + ide/componentlist.lfm | 175 ++++++++++++++++++ ide/componentlist.lrs | 54 ++++++ ide/componentlist.pas | 339 ++++++++++++++++++++++++++++++++++ ide/lazarusidestrconsts.pas | 12 +- ide/main.pp | 17 +- languages/lazaruside.af_ZA.po | 12 ++ languages/lazaruside.ar.po | 12 ++ languages/lazaruside.ca.po | 12 ++ languages/lazaruside.de.po | 12 ++ languages/lazaruside.es.po | 12 ++ languages/lazaruside.fi.po | 12 ++ languages/lazaruside.fr.po | 12 ++ languages/lazaruside.he.po | 12 ++ languages/lazaruside.id.po | 12 ++ languages/lazaruside.it.po | 12 ++ languages/lazaruside.ja.po | 12 ++ languages/lazaruside.lt.po | 12 ++ languages/lazaruside.nl.po | 12 ++ languages/lazaruside.pb.po | 12 ++ languages/lazaruside.pl.po | 12 ++ languages/lazaruside.pliso.po | 12 ++ languages/lazaruside.plwin.po | 12 ++ languages/lazaruside.po | 32 +++- languages/lazaruside.ru.po | 12 ++ languages/lazaruside.ua.po | 12 ++ languages/lazaruside.zh_CN.po | 12 ++ 27 files changed, 854 insertions(+), 18 deletions(-) create mode 100644 ide/componentlist.lfm create mode 100644 ide/componentlist.lrs create mode 100644 ide/componentlist.pas diff --git a/.gitattributes b/.gitattributes index 1c4b0be4a4..c3a3ee6492 100644 --- a/.gitattributes +++ b/.gitattributes @@ -1850,6 +1850,9 @@ ide/compileroptionsdlg.pp svneol=native#text/pascal ide/compileroptionsdlg_new.lfm -text ide/compileroptionsdlg_new.lrs -text ide/compileroptionsdlg_new.pp svneol=native#text/pascal +ide/componentlist.lfm svneol=native#text/pascal +ide/componentlist.lrs svneol=native#text/pascal +ide/componentlist.pas svneol=native#text/pascal ide/componentpalette.pas svneol=native#text/pascal ide/condef.lfm svneol=native#text/plain ide/condef.lrs svneol=native#text/pascal diff --git a/ide/componentlist.lfm b/ide/componentlist.lfm new file mode 100644 index 0000000000..62e74848f5 --- /dev/null +++ b/ide/componentlist.lfm @@ -0,0 +1,175 @@ +object ComponentListForm: TComponentListForm + Left = 288 + Height = 555 + Top = 221 + Width = 232 + HorzScrollBar.Page = 231 + VertScrollBar.Page = 554 + ActiveControl = CloseButton + Caption = 'Components' + ClientHeight = 555 + ClientWidth = 232 + KeyPreview = True + OnKeyDown = FormKeyDown + object Panel1: TPanel + Height = 555 + Width = 232 + Align = alClient + BevelOuter = bvLowered + Caption = 'Panel1' + ClientHeight = 555 + ClientWidth = 232 + TabOrder = 0 + object Panel2: TPanel + Left = 1 + Height = 36 + Top = 518 + Width = 230 + Align = alBottom + ClientHeight = 36 + ClientWidth = 230 + TabOrder = 0 + object CloseButton: TButton + Left = 145 + Height = 26 + Top = 4 + Width = 73 + Anchors = [akRight, akBottom] + AutoSize = True + Caption = 'CloseButton' + OnClick = CloseButtonClick + TabOrder = 0 + end + end + object Panel3: TPanel + Left = 1 + Height = 38 + Top = 1 + Width = 230 + Align = alTop + BorderWidth = 8 + ClientHeight = 38 + ClientWidth = 230 + TabOrder = 1 + object LabelSearch: TLabel + Left = 5 + Height = 14 + Top = 12 + Width = 59 + Caption = 'LabelSearch' + ParentColor = False + end + object PatternEdit: TEdit + Left = 71 + Height = 23 + Top = 8 + Width = 118 + Anchors = [akTop, akLeft, akRight] + OnChange = UpdateComponentSelection + TabOrder = 0 + end + end + object Panel4: TPanel + Left = 1 + Height = 479 + Top = 39 + Width = 230 + Align = alClient + ClientHeight = 479 + ClientWidth = 230 + TabOrder = 2 + object PageControl: TPageControl + Left = 1 + Height = 477 + Top = 1 + Width = 228 + ActivePage = TabSheetInheritance + Align = alClient + TabIndex = 2 + TabOrder = 0 + object TabSheetListBox: TTabSheet + Caption = 'List' + ClientHeight = 477 + ClientWidth = 228 + object Panel7: TPanel + Height = 477 + Width = 228 + Align = alClient + BevelOuter = bvNone + BorderWidth = 5 + ClientHeight = 477 + ClientWidth = 228 + TabOrder = 0 + object ListboxComponents: TListBox + Left = 5 + Height = 467 + Top = 5 + Width = 218 + Align = alClient + OnDblClick = ListboxComponentsDblClick + Sorted = True + TabOrder = 0 + TopIndex = -1 + end + end + end + object TabSheetPaletteTree: TTabSheet + Caption = 'Palette' + ClientHeight = 447 + ClientWidth = 224 + object Panel5: TPanel + Height = 447 + Width = 224 + Align = alClient + BevelOuter = bvNone + BorderWidth = 5 + ClientHeight = 447 + ClientWidth = 224 + TabOrder = 0 + object TreePallette: TTreeView + Left = 5 + Height = 437 + Top = 5 + Width = 214 + Align = alClient + DefaultItemHeight = 14 + ReadOnly = True + TabOrder = 0 + OnCollapsing = TreePalletteCollapsing + OnDblClick = TreePalletteDblClick + Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] + end + end + end + object TabSheetInheritance: TTabSheet + Caption = 'Inheritance' + ClientHeight = 447 + ClientWidth = 224 + object Panel6: TPanel + Height = 447 + Width = 224 + Align = alClient + BevelOuter = bvNone + BorderWidth = 5 + ClientHeight = 447 + ClientWidth = 224 + TabOrder = 0 + object TreeInheritance: TTreeView + Left = 5 + Height = 437 + Top = 5 + Width = 214 + Align = alClient + DefaultItemHeight = 14 + ReadOnly = True + TabOrder = 0 + OnCollapsing = TreePalletteCollapsing + OnDblClick = TreeInheritanceDblClick + Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips] + end + end + end + end + end + end +end diff --git a/ide/componentlist.lrs b/ide/componentlist.lrs new file mode 100644 index 0000000000..58b5d2ffee --- /dev/null +++ b/ide/componentlist.lrs @@ -0,0 +1,54 @@ +{ This is an automatically generated lazarus resource file } + +LazarusResources.Add('TComponentListForm','FORMDATA',[ + 'TPF0'#18'TComponentListForm'#17'ComponentListForm'#4'Left'#3' '#1#6'Height'#3 + +'+'#2#3'Top'#3#221#0#5'Width'#3#232#0#18'HorzScrollBar.Page'#3#231#0#18'Vert' + +'ScrollBar.Page'#3'*'#2#13'ActiveControl'#7#11'CloseButton'#7'Caption'#6#10 + +'Components'#12'ClientHeight'#3'+'#2#11'ClientWidth'#3#232#0#10'KeyPreview'#9 + +#9'OnKeyDown'#7#11'FormKeyDown'#0#6'TPanel'#6'Panel1'#6'Height'#3'+'#2#5'Wid' + +'th'#3#232#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#9'bvLowered'#7'Caption' + +#6#6'Panel1'#12'ClientHeight'#3'+'#2#11'ClientWidth'#3#232#0#8'TabOrder'#2#0 + +#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2'$'#3'Top'#3#6#2#5'Width'#3#230 + +#0#5'Align'#7#8'alBottom'#12'ClientHeight'#2'$'#11'ClientWidth'#3#230#0#8'Ta' + +'bOrder'#2#0#0#7'TButton'#11'CloseButton'#4'Left'#3#145#0#6'Height'#2#26#3'T' + +'op'#2#4#5'Width'#2'I'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#7 + +'Caption'#6#11'CloseButton'#7'OnClick'#7#16'CloseButtonClick'#8'TabOrder'#2#0 + +#0#0#0#6'TPanel'#6'Panel3'#4'Left'#2#1#6'Height'#2'&'#3'Top'#2#1#5'Width'#3 + +#230#0#5'Align'#7#5'alTop'#11'BorderWidth'#2#8#12'ClientHeight'#2'&'#11'Clie' + +'ntWidth'#3#230#0#8'TabOrder'#2#1#0#6'TLabel'#11'LabelSearch'#4'Left'#2#5#6 + +'Height'#2#14#3'Top'#2#12#5'Width'#2';'#7'Caption'#6#11'LabelSearch'#11'Pare' + +'ntColor'#8#0#0#5'TEdit'#11'PatternEdit'#4'Left'#2'G'#6'Height'#2#23#3'Top'#2 + +#8#5'Width'#2'v'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'OnChange'#7 + +#24'UpdateComponentSelection'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel4'#4'Le' + +'ft'#2#1#6'Height'#3#223#1#3'Top'#2''''#5'Width'#3#230#0#5'Align'#7#8'alClie' + +'nt'#12'ClientHeight'#3#223#1#11'ClientWidth'#3#230#0#8'TabOrder'#2#2#0#12'T' + +'PageControl'#11'PageControl'#4'Left'#2#1#6'Height'#3#221#1#3'Top'#2#1#5'Wid' + +'th'#3#228#0#10'ActivePage'#7#19'TabSheetInheritance'#5'Align'#7#8'alClient' + +#8'TabIndex'#2#2#8'TabOrder'#2#0#0#9'TTabSheet'#15'TabSheetListBox'#7'Captio' + +'n'#6#4'List'#12'ClientHeight'#3#221#1#11'ClientWidth'#3#228#0#0#6'TPanel'#6 + +'Panel7'#6'Height'#3#221#1#5'Width'#3#228#0#5'Align'#7#8'alClient'#10'BevelO' + +'uter'#7#6'bvNone'#11'BorderWidth'#2#5#12'ClientHeight'#3#221#1#11'ClientWid' + +'th'#3#228#0#8'TabOrder'#2#0#0#8'TListBox'#17'ListboxComponents'#4'Left'#2#5 + +#6'Height'#3#211#1#3'Top'#2#5#5'Width'#3#218#0#5'Align'#7#8'alClient'#10'OnD' + +'blClick'#7#25'ListboxComponentsDblClick'#6'Sorted'#9#8'TabOrder'#2#0#8'TopI' + +'ndex'#2#255#0#0#0#0#9'TTabSheet'#19'TabSheetPaletteTree'#7'Caption'#6#7'Pal' + +'ette'#12'ClientHeight'#3#191#1#11'ClientWidth'#3#224#0#0#6'TPanel'#6'Panel5' + +#6'Height'#3#191#1#5'Width'#3#224#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6 + +'bvNone'#11'BorderWidth'#2#5#12'ClientHeight'#3#191#1#11'ClientWidth'#3#224#0 + +#8'TabOrder'#2#0#0#9'TTreeView'#12'TreePallette'#4'Left'#2#5#6'Height'#3#181 + +#1#3'Top'#2#5#5'Width'#3#214#0#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2 + +#14#8'ReadOnly'#9#8'TabOrder'#2#0#12'OnCollapsing'#7#22'TreePalletteCollapsi' + +'ng'#10'OnDblClick'#7#20'TreePalletteDblClick'#7'Options'#11#17'tvoAutoItemH' + +'eight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tv' + +'oShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#0#0#9 + +'TTabSheet'#19'TabSheetInheritance'#7'Caption'#6#11'Inheritance'#12'ClientHe' + +'ight'#3#191#1#11'ClientWidth'#3#224#0#0#6'TPanel'#6'Panel6'#6'Height'#3#191 + +#1#5'Width'#3#224#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#11'Bor' + +'derWidth'#2#5#12'ClientHeight'#3#191#1#11'ClientWidth'#3#224#0#8'TabOrder'#2 + +#0#0#9'TTreeView'#15'TreeInheritance'#4'Left'#2#5#6'Height'#3#181#1#3'Top'#2 + +#5#5'Width'#3#214#0#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#14#8'Read' + +'Only'#9#8'TabOrder'#2#0#12'OnCollapsing'#7#22'TreePalletteCollapsing'#10'On' + +'DblClick'#7#23'TreeInheritanceDblClick'#7'Options'#11#17'tvoAutoItemHeight' + +#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowBu' + +'ttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#0#0#0#0#0#0 +]); diff --git a/ide/componentlist.pas b/ide/componentlist.pas new file mode 100644 index 0000000000..352b93df9e --- /dev/null +++ b/ide/componentlist.pas @@ -0,0 +1,339 @@ +{ $Id$ } +{ + /*************************************************************************** + findcomponent.pas + -------------------- + + + ***************************************************************************/ + + *************************************************************************** + * * + * This source is free software; you can redistribute it and/or modify * + * it under the terms of the GNU General Public License as published by * + * the Free Software Foundation; either version 2 of the License, or * + * (at your option) any later version. * + * * + * This code is distributed in the hope that it will be useful, but * + * WITHOUT ANY WARRANTY; without even the implied warranty of * + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * + * General Public License for more details. * + * * + * A copy of the GNU General Public License is available on the World * + * Wide Web at . You can also * + * obtain it by writing to the Free Software Foundation, * + * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * + * * + *************************************************************************** + + Author: Marius + + Abstract: + A dialog to quickly find components and create the found components + directly on the designed form. This avoids a lot of scrolling in my + already overfull palette (i love having the lazarus sources!). +} +unit componentlist; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs, + StdCtrls, Buttons, FormEditingIntf, LazarusIDEStrConsts, ExtCtrls, ComCtrls, + ComponentPalette, ComponentReg, PackageDefs, ExtDlgs, FormEditor, PropEdits, + LCLType; + +type + + { TComponentListForm } + + TComponentListForm = class(TForm) + CloseButton: TButton; + LabelSearch: TLabel; + ListboxComponents: TListBox; + PageControl: TPageControl; + Panel1: TPanel; + Panel2: TPanel; + Panel3: TPanel; + Panel4: TPanel; + Panel5: TPanel; + Panel6: TPanel; + Panel7: TPanel; + PatternEdit: TEdit; + TreePallette: TTreeView; + TreeInheritance: TTreeView; + TabSheetListBox: TTabSheet; + TabSheetPaletteTree: TTabSheet; + TabSheetInheritance: TTabSheet; + procedure CloseButtonClick(Sender: TObject); + procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure ListboxComponentsDblClick(Sender: TObject); + procedure TreeInheritanceDblClick ( Sender: TObject ) ; + procedure TreePalletteCollapsing(Sender: TObject; Node: TTreeNode; + var AllowCollapse: Boolean); + procedure TreePalletteDblClick(Sender: TObject); + procedure UpdateComponentSelection(Sender: TObject); + private + Processing: boolean; + FComponentList: TFPList; + procedure FindAllLazarusComponents; + procedure AddSelectedComponent(AComponent: TRegisteredComponent); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +var + ComponentListForm: TComponentListForm; + +implementation + + +{ TComponentListForm } + +constructor TComponentListForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FComponentList := TFPList.Create; + + //Translations.. + LabelSearch.Caption := lisMenuFind; + Caption := lisCmpLstComponents; + CloseButton.Caption := '&Close'; //TODO + TabSheetListBox.Caption := lisCmpLstList; + TabSheetPaletteTree.Caption := lisCmpLstPalette; + TabSheetInheritance.Caption := lisCmpLstInheritance; + + + FindAllLazarusComponents; + UpdateComponentSelection(nil); +end; + +destructor TComponentListForm.Destroy; +begin + FComponentList.Free; + inherited Destroy; +end; + +procedure TComponentListForm.FindAllLazarusComponents; +//Collect all available components (excluding hidden) +var + AComponent: TRegisteredComponent; + APage: TBaseComponentPage; + i, j: Integer; +begin + if Assigned(IDEComponentPalette) + then begin + for i := 0 to IDEComponentPalette.Count-1 do + begin + APage := IDEComponentPalette.Pages[i]; + if not APage.Visible then continue; + for j := 0 to APage.Count-1 do + begin + AComponent := APage.Items[j]; + if not AComponent.Visible then continue; + if AComponent.PageName='' then continue; + FComponentList.Add(AComponent); + end; + end; + end; +end; + +procedure TComponentListForm.UpdateComponentSelection(Sender: TObject); +//Apply the filter and fill the three tabsheets +var + AComponent: TRegisteredComponent; + AFilter, AClassName: string; + AClassList, List: TStringlist; + i, j, AIndex: Integer; + ANode: TTreeNode; + AClass: TClass; +begin + if Processing + then exit; + Processing := true; + Screen.Cursor := crHourGlass; + try + AFilter := UpperCase(PatternEdit.Text); + + //First tabsheet (ListboxComponents) + ListboxComponents.Items.BeginUpdate; + try + ListboxComponents.Items.Clear; + for i := 0 to FComponentList.Count-1 do + begin + AComponent := TRegisteredComponent(FComponentList[i]); + AClassName := AComponent.ComponentClass.ClassName; + if (AFilter='') or (Pos(AFilter, UpperCase(AClassName))>0) + then ListboxComponents.Items.AddObject(AClassName, AComponent); + end; + finally + ListboxComponents.Items.EndUpdate; + end; + + //Second tabsheet (palette layout) + TreePallette.BeginUpdate; + try + TreePallette.Items.Clear; + for i := 0 to FComponentList.Count-1 do + begin + AComponent := TRegisteredComponent(FComponentList[i]); + AClassName := AComponent.ComponentClass.ClassName; + if (AFilter='') or (Pos(AFilter, UpperCase(AClassName))>0) + then begin + //find out parent node + ANode := TreePallette.Items.FindTopLvlNode(AComponent.PageName); + if ANode = nil + then ANode := TreePallette.Items.AddChild(nil, AComponent.PageName); + //add the item + TreePallette.Items.AddChildObject(ANode, AClassName, AComponent); + end; + end; + TreePallette.FullExpand; + finally + TreePallette.EndUpdate; + end; + + + //Third tabsheet (component inheritence) + AClassList:= TStringlist.Create; + TreeInheritance.Items.BeginUpdate; + try + TreeInheritance.Items.Clear; + AClassList.Sorted := true; + AClassList.CaseSensitive := false; + AClassList.Duplicates := dupIgnore; + + List := TStringlist.Create; + for i := 0 to FComponentList.Count-1 do + begin + AComponent := TRegisteredComponent(FComponentList[i]); + if not AComponent.Visible then continue; + AClassName := AComponent.ComponentClass.ClassName; + if (AFilter <> '') and (Pos(AFilter, UpperCase(AClassName)) = 0) then Continue; + + // walk down to parent, stop on tcomponent, since components are at least + // a tcomponent descendant + List.Clear; + AClass := AComponent.ComponentClass; + while (AClass.ClassInfo <> nil) and (AClass.ClassType <> TComponent.ClassType) do + begin + List.AddObject(AClass.ClassName, TObject(AClass)); + AClass := AClass.ClassParent; + end; + + //build the tree + for j := List.Count - 1 downto 0 do + begin + AClass := TClass(List.Objects[j]); + AClassName := List[j]; + + if not AClassList.Find(AClassName, AIndex) + then begin + //find out parent position + if Assigned(AClass.ClassParent) and AClassList.Find(AClass.ClassParent.ClassName, AIndex) + then ANode := TTreeNode(AClassList.Objects[AIndex]) + else ANode := nil; + + //add the item + if AClassName <> AComponent.ComponentClass.ClassName + then ANode := TreeInheritance.Items.AddChild(ANode, AClassName) + else ANode := TreeInheritance.Items.AddChildObject(ANode, AClassName, AComponent); + AClassList.AddObject(AClassName, ANode); + end; + end; + end; + FreeAndNil(List); + + TreeInheritance.AlphaSort; + TreeInheritance.FullExpand; + finally + AClassList.Free; + TreeInheritance.Items.EndUpdate; + end; + + finally + Screen.Cursor := crDefault; + Processing := false; + end; +end; + +procedure TComponentListForm.AddSelectedComponent(AComponent: TRegisteredComponent ) ; +//Add the DblClicked component to the current designed form +var + CompIntf, ParentCI: TIComponentInterface; + TypeClass: TComponentClass; + X, Y: integer; +begin + //TComponentPalette(IDEComponentPalette).Selected := AComponent; + if not Assigned(AComponent) then Exit; + if not Assigned(FormEditingHook) then Exit; + + TypeClass:=AComponent.ComponentClass; + ParentCI:=FormEditingHook.GetDefaultComponentParent(TypeClass); + if ParentCI=nil then exit; + + if not FormEditingHook.GetDefaultComponentPosition(TypeClass,ParentCI,X,Y) + then exit; + + CompIntf:=FormEditingHook.CreateComponent(ParentCI,TypeClass,'',X,Y,0,0); + if Assigned(CompIntf) + then GlobalDesignHook.PersistentAdded(CompIntf.Component,true); +end; + +procedure TComponentListForm.ListboxComponentsDblClick(Sender: TObject); +begin + AddSelectedComponent(TRegisteredComponent(ListboxComponents.Items.Objects[ListboxComponents.ItemIndex])); +end; + +procedure TComponentListForm.TreePalletteDblClick(Sender: TObject); +var + AComponent: TRegisteredComponent; +begin + if not Assigned(TreePallette.Selected) + then exit; + AComponent := TRegisteredComponent(TreePallette.Selected.Data); + if not Assigned(AComponent) + then exit; + + AddSelectedComponent(AComponent); +end; + +procedure TComponentListForm.TreeInheritanceDblClick(Sender:TObject); +var + AComponent: TRegisteredComponent; +begin + if not Assigned(TreeInheritance.Selected) + then exit; + AComponent := TRegisteredComponent(TreeInheritance.Selected.Data); + if not Assigned(AComponent) + then exit; + + AddSelectedComponent(AComponent); +end; + + +procedure TComponentListForm.CloseButtonClick(Sender: TObject); +begin + Close; +end; + +procedure TComponentListForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + if Key=VK_ESCAPE + then Close; +end; + +procedure TComponentListForm.TreePalletteCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean); +begin + AllowCollapse:=false; +end; + + +initialization + {$I componentlist.lrs} + +end. + diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas index 5fe41e536d..17d309bd9b 100644 --- a/ide/lazarusidestrconsts.pas +++ b/ide/lazarusidestrconsts.pas @@ -3032,8 +3032,6 @@ resourcestring lisPckEditPackageHasChangedSavePackage = 'Package %s%s%s has changed.%sSave ' +'package?'; lisPckEditPage = '%s, Page: %s'; - lisFPFindPaletteComponent = 'Find palette component'; - lisFPComponents = 'Components'; lisPckEditRemoveFile2 = 'Remove file?'; lisPckEditRemoveFileFromPackage = 'Remove file %s%s%s%sfrom package %s%s%s?'; lisPckEditRemoveDependency2 = 'Remove Dependency?'; @@ -3148,6 +3146,16 @@ resourcestring lisProjInspRemovedRequiredPackages = 'Removed required packages'; lisProjInspProjectInspector = 'Project Inspector - %s'; + // Find palette component dialog + lisFPFindPaletteComponent = 'Find palette component'; + lisFPComponents = 'Components'; + + // components list form + lisCmpLstComponents = 'Components'; + lisCmpLstList = 'List'; + lisCmpLstPalette = 'Palette'; + lisCmpLstInheritance = 'Inheritance'; + // menu editor lisMenuEditorMenuEditor = 'Menu Editor'; lisMenuEditorSelectMenu = 'Select Menu:'; diff --git a/ide/main.pp b/ide/main.pp index dd3136a74f..7bdcde5d9c 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -100,7 +100,7 @@ uses // help manager IDEContextHelpEdit, HelpManager, // designer - JITForm, JITForms, ComponentPalette, FindPaletteComp, ComponentReg, + JITForm, JITForms, ComponentPalette, ComponentList, ComponentReg, ObjInspExt, Designer, FormEditor, CustomFormEditor, ControlSelection, AnchorEditor, {$DEFINE UseNewMenuEditor} @@ -686,7 +686,7 @@ type procedure DoViewUnitInfo; procedure DoShowCodeExplorer; procedure DoShowCodeBrowser; - procedure DoShowComponents; + procedure DoShowComponentList; procedure DoShowLazDoc; function CreateNewUniqueFilename(const Prefix, Ext: string; NewOwner: TObject; Flags: TSearchIDEFileFlags; TryWithoutNumber: boolean @@ -1193,6 +1193,7 @@ begin FreeThenNil(TheControlSelection); end; + FreeAndNil(ComponentListForm); FreeThenNil(ProjInspector); FreeThenNil(CodeExplorerView); FreeThenNil(CodeBrowserView); @@ -2588,7 +2589,7 @@ begin DoShowCodeBrowser; ecViewComponents: - DoShowComponents; + DoShowComponentList; ecToggleLazDoc: DoShowLazDoc; @@ -3106,7 +3107,7 @@ end; Procedure TMainIDE.mnuViewComponentsClick(Sender: TObject); begin - DoShowComponents; + DoShowComponentList; end; Procedure TMainIDE.mnuViewMessagesClick(Sender: TObject); @@ -7163,11 +7164,11 @@ begin CodeBrowserView.ShowOnTop; end; -procedure TMainIDE.DoShowComponents; -var AComponent: TRegisteredComponent; +procedure TMainIDE.DoShowComponentList; begin - if ShowFindPaletteComponentDlg(AComponent) = mrOk - then TComponentPalette(IDEComponentPalette).Selected := AComponent; + if not Assigned(ComponentListForm) + then ComponentListForm := TComponentListForm.Create(Self); + ComponentListForm.Show; end; procedure TMainIDE.DoShowLazDoc; diff --git a/languages/lazaruside.af_ZA.po b/languages/lazaruside.af_ZA.po index 532b1aa5d8..be0799fbda 100644 --- a/languages/lazaruside.af_ZA.po +++ b/languages/lazaruside.af_ZA.po @@ -4008,6 +4008,10 @@ msgstr "" msgid "Information about %s" msgstr "" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "" @@ -4920,6 +4924,10 @@ msgstr "" msgid "Linking" msgstr "" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6008,6 +6016,10 @@ msgstr "" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "" diff --git a/languages/lazaruside.ar.po b/languages/lazaruside.ar.po index e13eb82984..0fc746cf50 100644 --- a/languages/lazaruside.ar.po +++ b/languages/lazaruside.ar.po @@ -4006,6 +4006,10 @@ msgstr "" msgid "Information about %s" msgstr "" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "" @@ -4918,6 +4922,10 @@ msgstr "" msgid "Linking" msgstr "" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6006,6 +6014,10 @@ msgstr "" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "" diff --git a/languages/lazaruside.ca.po b/languages/lazaruside.ca.po index 415247accf..eda41b996f 100644 --- a/languages/lazaruside.ca.po +++ b/languages/lazaruside.ca.po @@ -4005,6 +4005,10 @@ msgstr "Indonés" msgid "Information about %s" msgstr "Informació de %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Heretat" @@ -4917,6 +4921,10 @@ msgstr "Enllaçador" msgid "Linking" msgstr "Enllaçament" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6005,6 +6013,10 @@ msgstr "El nom del paquet és massa llarg" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Pinta els elements dissenyats només a l'ide (redueix sobrecàrrega a ordinadors lents)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Pàgina de paleta:" diff --git a/languages/lazaruside.de.po b/languages/lazaruside.de.po index 459426f0b0..c7419442f9 100644 --- a/languages/lazaruside.de.po +++ b/languages/lazaruside.de.po @@ -4007,6 +4007,10 @@ msgstr "Indonesisch" msgid "Information about %s" msgstr "Informationen zu %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Übernehmen" @@ -4919,6 +4923,10 @@ msgstr "Linker" msgid "Linking" msgstr "Linken" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Litauisch" @@ -6007,6 +6015,10 @@ msgstr "Name des Reiters zu lang" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Zeichne Designerelemente nur wenn nicht beschäftigt (reduziert Prozessorbelastung, für langsamerere Rechner)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Palettenseite:" diff --git a/languages/lazaruside.es.po b/languages/lazaruside.es.po index 74e3bc54e5..6070aeac65 100644 --- a/languages/lazaruside.es.po +++ b/languages/lazaruside.es.po @@ -4004,6 +4004,10 @@ msgstr "" msgid "Information about %s" msgstr "Información acerca de %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Heredado" @@ -4916,6 +4920,10 @@ msgstr "Enlazador" msgid "Linking" msgstr "Enlazando" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6004,6 +6012,10 @@ msgstr "Nombre de página demasiado largo" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Página de paleta:" diff --git a/languages/lazaruside.fi.po b/languages/lazaruside.fi.po index 33b1af7aff..bd5df2bb1e 100644 --- a/languages/lazaruside.fi.po +++ b/languages/lazaruside.fi.po @@ -3994,6 +3994,10 @@ msgstr "indonesia" msgid "Information about %s" msgstr "Tietoja %s tiedostosta" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "" @@ -4906,6 +4910,10 @@ msgstr "" msgid "Linking" msgstr "" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -5994,6 +6002,10 @@ msgstr "" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "" diff --git a/languages/lazaruside.fr.po b/languages/lazaruside.fr.po index 23327adf83..8371c9a875 100644 --- a/languages/lazaruside.fr.po +++ b/languages/lazaruside.fr.po @@ -4007,6 +4007,10 @@ msgstr "Indonésien" msgid "Information about %s" msgstr "Informations sur %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Hérité" @@ -4919,6 +4923,10 @@ msgstr "Editeur de liens" msgid "Linking" msgstr "Edition des liens" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Lithuanian" @@ -6007,6 +6015,10 @@ msgstr "Nom de page trop long" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Dessiner les éléments du designer seulement quand inactif (réduit la charge sur ordinateurs lents)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Page de palette:" diff --git a/languages/lazaruside.he.po b/languages/lazaruside.he.po index 01e832a8a0..ddfda665d4 100644 --- a/languages/lazaruside.he.po +++ b/languages/lazaruside.he.po @@ -4005,6 +4005,10 @@ msgstr "" msgid "Information about %s" msgstr "" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "" @@ -4917,6 +4921,10 @@ msgstr "" msgid "Linking" msgstr "" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6005,6 +6013,10 @@ msgstr "" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "" diff --git a/languages/lazaruside.id.po b/languages/lazaruside.id.po index 4d57199771..817869cc5e 100644 --- a/languages/lazaruside.id.po +++ b/languages/lazaruside.id.po @@ -4005,6 +4005,10 @@ msgstr "Indonesian" msgid "Information about %s" msgstr "Informasi tentang %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Diturunkan" @@ -4917,6 +4921,10 @@ msgstr "Linker" msgid "Linking" msgstr "Penggabungan" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Lithuania" @@ -6005,6 +6013,10 @@ msgstr "Nama Halaman terlalu panjang" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Gambar item pendesain hanya saat menganggur (mengurangi kelebihan beban untuk komputer lambat)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Halaman Palet:" diff --git a/languages/lazaruside.it.po b/languages/lazaruside.it.po index 936ce1e633..07c2e4e37c 100644 --- a/languages/lazaruside.it.po +++ b/languages/lazaruside.it.po @@ -4006,6 +4006,10 @@ msgstr "Indonesiano" msgid "Information about %s" msgstr "Informazioni su %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Ereditati" @@ -4918,6 +4922,10 @@ msgstr "Linker" msgid "Linking" msgstr "Linking" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Lituano" @@ -6006,6 +6014,10 @@ msgstr "Nome pagina troppo lungo" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Voci del designer del disegno solo in pausa (riduce il carico per computer lenti)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Pagina palette:" diff --git a/languages/lazaruside.ja.po b/languages/lazaruside.ja.po index 1c825e57c9..7000ca0ead 100644 --- a/languages/lazaruside.ja.po +++ b/languages/lazaruside.ja.po @@ -4004,6 +4004,10 @@ msgstr "インドネシア語" msgid "Information about %s" msgstr "%s に関する情報" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "継承" @@ -4916,6 +4920,10 @@ msgstr "リンカー" msgid "Linking" msgstr "リンク" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6004,6 +6012,10 @@ msgstr "パッケージ名が長すぎます" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "ペイントデザイナーアイテムはアイドル状態のみです（遅いコンピュータのオーバーヘッドを減らすため）" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "パレットページ" diff --git a/languages/lazaruside.lt.po b/languages/lazaruside.lt.po index 7cf4a161fa..f87100fc91 100644 --- a/languages/lazaruside.lt.po +++ b/languages/lazaruside.lt.po @@ -4011,6 +4011,10 @@ msgstr "Indoneziečių" msgid "Information about %s" msgstr "Informacija apie modulį %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Paveldėta" @@ -4925,6 +4929,10 @@ msgstr "Saistyklė" msgid "Linking" msgstr "Saistymas" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Lietuvių" @@ -6013,6 +6021,10 @@ msgstr "Perilgas vardas" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Piešti tik IKA esančius konstruktoriaus elementus (sumažina lėtų kompiuterių apkrovą)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Paletės lapas:" diff --git a/languages/lazaruside.nl.po b/languages/lazaruside.nl.po index f9c52922ce..02645108d1 100644 --- a/languages/lazaruside.nl.po +++ b/languages/lazaruside.nl.po @@ -4005,6 +4005,10 @@ msgstr "Indonesisch" msgid "Information about %s" msgstr "Informatie over %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Overerfd" @@ -4917,6 +4921,10 @@ msgstr "Linker" msgid "Linking" msgstr "Linken" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6005,6 +6013,10 @@ msgstr "Naam van pagina te lang" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Teken designer items in idle tijd (reduceert overhead voor langzame computers)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Palette pagina:" diff --git a/languages/lazaruside.pb.po b/languages/lazaruside.pb.po index 89be2b61a0..ec0955124d 100644 --- a/languages/lazaruside.pb.po +++ b/languages/lazaruside.pb.po @@ -3997,6 +3997,10 @@ msgstr "" msgid "Information about %s" msgstr "Informação sobre %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Herdado" @@ -4909,6 +4913,10 @@ msgstr "Vinculador" msgid "Linking" msgstr "Vinculando" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -5997,6 +6005,10 @@ msgstr "Nome da Página muito longo" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Pintura dos items do 'designer' somente em 'idle' (reduzir gasto para computadores lentos)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Página da Paleta:" diff --git a/languages/lazaruside.pl.po b/languages/lazaruside.pl.po index b7a2fea61a..2e2c5cb4d0 100644 --- a/languages/lazaruside.pl.po +++ b/languages/lazaruside.pl.po @@ -4009,6 +4009,10 @@ msgstr "indonezyjski" msgid "Information about %s" msgstr "Informacja o %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Inherited" @@ -4921,6 +4925,10 @@ msgstr "Linker" msgid "Linking" msgstr "Łączenie" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6009,6 +6017,10 @@ msgstr "Nazwa zakładki jest zbyt długa" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Zakładka palet:" diff --git a/languages/lazaruside.pliso.po b/languages/lazaruside.pliso.po index 3b8603f665..6eccc1cc8e 100644 --- a/languages/lazaruside.pliso.po +++ b/languages/lazaruside.pliso.po @@ -4005,6 +4005,10 @@ msgstr "" msgid "Information about %s" msgstr "Informacja o %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Inherited" @@ -4917,6 +4921,10 @@ msgstr "Linker" msgid "Linking" msgstr "czenie" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6005,6 +6013,10 @@ msgstr "Nazwa zak msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Zakadka palet:" diff --git a/languages/lazaruside.plwin.po b/languages/lazaruside.plwin.po index 6fafd5f8e0..aa108eb3a8 100644 --- a/languages/lazaruside.plwin.po +++ b/languages/lazaruside.plwin.po @@ -4005,6 +4005,10 @@ msgstr "" msgid "Information about %s" msgstr "Informacja o %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Inherited" @@ -4917,6 +4921,10 @@ msgstr "Linker" msgid "Linking" msgstr "czenie" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6005,6 +6013,10 @@ msgstr "Nazwa zak msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Zakadka palet:" diff --git a/languages/lazaruside.po b/languages/lazaruside.po index 7cc10ce530..e0d2be3d75 100644 --- a/languages/lazaruside.po +++ b/languages/lazaruside.po @@ -9186,14 +9186,6 @@ msgstr "" msgid "%s, Page: %s" msgstr "" -#: lazarusidestrconsts:lisfpfindpalettecomponent -msgid "Find palette component" -msgstr "" - -#: lazarusidestrconsts:lisfpcomponents -msgid "Components" -msgstr "" - #: lazarusidestrconsts:lispckeditremovefile2 msgid "Remove file?" msgstr "" @@ -9546,6 +9538,30 @@ msgstr "" msgid "Project Inspector - %s" msgstr "" +#: lazarusidestrconsts:lisfpfindpalettecomponent +msgid "Find palette component" +msgstr "" + +#: lazarusidestrconsts:lisfpcomponents +msgid "Components" +msgstr "" + +#: lazarusidestrconsts:liscmplstcomponents +msgid "Components" +msgstr "" + +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:lismenueditormenueditor msgid "Menu Editor" msgstr "" diff --git a/languages/lazaruside.ru.po b/languages/lazaruside.ru.po index b9fd2720ac..04b22b9890 100644 --- a/languages/lazaruside.ru.po +++ b/languages/lazaruside.ru.po @@ -4005,6 +4005,10 @@ msgstr "Индонезийский" msgid "Information about %s" msgstr "Информация о %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Унаследованные" @@ -4917,6 +4921,10 @@ msgstr "Компоновщик" msgid "Linking" msgstr "Связывание" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "Литовский" @@ -6005,6 +6013,10 @@ msgstr "Имя страницы слишком длинное" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Рисовать элементы дизайнеров только в паузах (уменьшает нагрузку на медленных машинах)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Страница палитры:" diff --git a/languages/lazaruside.ua.po b/languages/lazaruside.ua.po index bc8c1d99ed..ca589f3d1b 100644 --- a/languages/lazaruside.ua.po +++ b/languages/lazaruside.ua.po @@ -3994,6 +3994,10 @@ msgstr "Індонезійська" msgid "Information about %s" msgstr "Інформація про %s" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "Наслідуваний" @@ -4906,6 +4910,10 @@ msgstr "Компонувальник" msgid "Linking" msgstr "Створення посилань" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -5994,6 +6002,10 @@ msgstr "Задовга назва сторінки" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "Малювати елементи дизайну тільки в паузах (зменшує навантаження на повільних машинах)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "Сторінка палітри:" diff --git a/languages/lazaruside.zh_CN.po b/languages/lazaruside.zh_CN.po index 0b168a84bf..e41d5d8be4 100644 --- a/languages/lazaruside.zh_CN.po +++ b/languages/lazaruside.zh_CN.po @@ -4008,6 +4008,10 @@ msgstr "印度尼西亚语" msgid "Information about %s" msgstr "关于 %s 的信息" +#: lazarusidestrconsts:liscmplstinheritance +msgid "Inheritance" +msgstr "" + #: lazarusidestrconsts:dlgcoinherited msgid "Inherited" msgstr "继承的" @@ -4920,6 +4924,10 @@ msgstr "连接器" msgid "Linking" msgstr "链接" +#: lazarusidestrconsts:liscmplstlist +msgid "List" +msgstr "" + #: lazarusidestrconsts:rslanguagelithuanian msgid "Lithuanian" msgstr "" @@ -6008,6 +6016,10 @@ msgstr "页面名称太长" msgid "Paint designer items only on idle (reduce overhead for slow computers)" msgstr "颜料设计器项目只在空闲时启用 (为运行速度慢的计算机减轻负担)" +#: lazarusidestrconsts:liscmplstpalette +msgid "Palette" +msgstr "" + #: lazarusidestrconsts:lisa2ppalettepage msgid "Palette Page:" msgstr "调色板页:"