mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 15:20:30 +02:00
+ added component list form by Marus
* Updated po files git-svn-id: trunk@13121 -
This commit is contained in:
marc
parent
29b8baaf7d
commit
729dcdbc2a
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -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
|
||||
|
||||
175
ide/componentlist.lfm
Normal file
175
ide/componentlist.lfm
Normal file
@ -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
|
||||
54
ide/componentlist.lrs
Normal file
54
ide/componentlist.lrs
Normal file
@ -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
|
||||
]);
|
||||
339
ide/componentlist.pas
Normal file
339
ide/componentlist.pas
Normal file
@ -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 <http://www.gnu.org/copyleft/gpl.html>. 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.
|
||||
|
||||
@ -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:';
|
||||
|
||||
17
ide/main.pp
17
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;
|
||||
|
||||
@ -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 ""
|
||||
|
||||
@ -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 ""
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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 ""
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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 ""
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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 "パレットページ"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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:"
|
||||
|
||||
@ -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 "Zak³adka palet:"
|
||||
|
||||
@ -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 "Zak³adka palet:"
|
||||
|
||||
@ -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 ""
|
||||
|
||||
@ -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 "Страница палитры:"
|
||||
|
||||
@ -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 "Сторінка палітри:"
|
||||
|
||||
@ -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 "调色板页:"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user