paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented installing components in component palette

Browse Source 
git-svn-id: trunk@2950 -
This commit is contained in:
mattias 2002-08-18 08:56:29 +00:00
parent c46ff1b8b7
commit 8db02705df
3 changed files with 72 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -387,6 +387,7 @@ images/components/ttoolbar.xpm -text svneol=native#image/x-xpixmap
images/components/ttrackbar.ico -text svneol=unset#image/x-icon
images/components/ttrackbar.xpm -text svneol=native#image/x-xpixmap
images/components/ttreeview.xpm -text svneol=native#image/x-xpixmap
images/components/unregisteredcomponent.xpm -text svneol=native#image/x-xpixmap
images/components_images.lrs svneol=native#text/pascal
images/downarrow.ico -text svneol=unset#image/x-icon
images/downarrow.xpm -text svneol=native#image/x-xpixmap

40
ide/main.pp
View File

@ -60,7 +60,7 @@ uses
ProjectInspector,
// designer
{$IFDEF EnablePkgs}
ComponentReg,
ComponentPalette, ComponentReg,
{$ELSE}
CompReg, IDEComp,
{$ENDIF}
@ -220,7 +220,9 @@ type
procedure OpenFileDownArrowClicked(Sender : TObject);
procedure mnuOpenFilePopupClick(Sender : TObject);
{$IFNDEF EnablePkgs}
procedure ControlClick(Sender : TObject);
{$ENDIF}
published
// Global IDE events
@ -346,15 +348,14 @@ type
FDisplayState : TDisplayState;
FLastFormActivated : TCustomForm;// used to find the last form so you can
// display the correct tab
{$IFNDEF EnablePkgs}
FSelectedComponent : TRegisteredComponent;
{$ENDIF}
FOpenEditorsOnCodeToolChange: boolean;
FRunProcess: TProcess; // temp solution, will be replaced by dummydebugger
CustomExtToolMenuSeparator: TMenuItem;
procedure SetDefaultsForForm(aForm : TCustomForm);
procedure InvalidateAllDesignerForms;
protected
procedure ToolButtonClick(Sender : TObject);
@ -440,6 +441,7 @@ type
var Handled: boolean; Data: TObject);
public
CustomExtToolMenuSeparator: TMenuItem;
class procedure ParseCmdLineOptions;
constructor Create(TheOwner: TComponent); override;
@ -587,8 +589,10 @@ type
NeededFlags: TIDEFileStateFlags; var ResultFlags: TIDEFileStateFlags); override;
// form editor and designer
property SelectedComponent : TRegisteredComponent
{$IFNDEF EnablePkgs}
property SelectedComponent : TRegisteredComponent
read FSelectedComponent write FSelectedComponent;
{$ENDIF}
procedure DoBringToFrontFormOrUnit;
procedure DoBringToFrontFormOrInspector;
procedure DoShowDesignerFormOfCurrentSrc;
@ -845,7 +849,7 @@ begin
// Main IDE bar created and setup completed -> Show it
Show;
// load packages
// load installed packages
PkgBoss.LoadInstalledPackages;
UpdateWindowsMenu;
@ -1605,6 +1609,7 @@ Begin
end;
{------------------------------------------------------------------------------}
{$IFNDEF EnablePkgs}
procedure TMainIDE.ControlClick(Sender : TObject);
var
IDECOmp : TIDEComponent;
@ -1631,6 +1636,7 @@ begin
end;
end;
end;
{$ENDIF}
{------------------------------------------------------------------------------}
procedure TMainIDE.mnuFindDeclarationClicked(Sender : TObject);
@ -2058,7 +2064,12 @@ Begin
OnActivated:=@OnDesignerActivated;
OnComponentAdded:=@OnDesignerComponentAdded;
OnComponentDeleted:=@OnDesignerComponentDeleted;
{$IFDEF EnablePkgs}
OnGetNonVisualCompIconCanvas:=
@TComponentPalette(IDEComponentPalette).OnGetNonVisualCompIconCanvas;
{$ELSE}
OnGetNonVisualCompIconCanvas:=@IDECompList.OnGetNonVisualCompIconCanvas;
{$ENDIF}
OnGetSelectedComponentClass:=@OnDesignerGetSelectedComponentClass;
OnModified:=@OnDesignerModified;
OnProcessCommand:=@OnProcessIDECommand;
@ -6613,12 +6624,20 @@ end;
procedure TMainIDE.OnDesignerGetSelectedComponentClass(Sender: TObject;
var RegisteredComponent: TRegisteredComponent);
begin
{$IFDEF EnablePkgs}
RegisteredComponent:=TComponentPalette(IDEComponentPalette).Selected;
{$ELSE}
RegisteredComponent:=SelectedComponent;
{$ENDIF}
end;
procedure TMainIDE.OnDesignerUnselectComponentClass(Sender: TObject);
begin
{$IFDEF EnablePkgs}
TComponentPalette(IDEComponentPalette).Selected:=nil;
{$ELSE}
ControlClick(ComponentNoteBook);
{$ENDIF}
end;
procedure TMainIDE.OnDesignerSetDesigning(Sender: TObject;
@ -6654,7 +6673,7 @@ begin
// add needed unit to source
CodeToolBoss.AddUnitToMainUsesSection(ActiveUnitInfo.Source,
AComponentClass.UnitName,'');
AComponentClass.{$IFDEF EnablePkgs}GetUnitName{$ELSE}UnitName{$ENDIF},'');
// add component definition to form source
FormClassName:=TDesigner(Sender).Form.ClassName;
if not CodeToolBoss.PublishedVariableExists(ActiveUnitInfo.Source,
@ -8190,7 +8209,11 @@ var
ADesigner: TIDesigner;
begin
writeln('TMainIDE.OnPropHookComponentAdded A ',AComponent.Name,':',AComponent.ClassName);
{$IFDEF EnablePkgs}
ComponentClass:=IDEComponentPalette.FindComponent(AComponent.ClassName);
{$ELSE}
ComponentClass:=FindRegsiteredComponentClass(AComponent.ClassName);
{$ENDIF}
if ComponentClass=nil then begin
writeln('TMainIDE.OnPropHookComponentAdded ',AComponent.ClassName,
' not registered');
@ -8485,6 +8508,9 @@ end.
{ =============================================================================
$Log$
Revision 1.534 2003/04/22 13:27:09 mattias
implemented installing components in component palette
Revision 1.533 2003/04/22 07:56:17 mattias
implemented dynamic component palette

38
images/components/unregisteredcomponent.xpm Normal file
View File

@ -0,0 +1,38 @@
/* XPM */
static char * unregisteredcomponent_xpm[] = {
"13 17 18 1",
" c None",
". c #00385B",
"+ c #000000",
"@ c #2982C0",
"# c #00528C",
"$ c #003E66",
"% c #6BAAD2",
"& c #004572",
"* c #4F97CA",
"= c #2A82BF",
"- c #418FC6",
"; c #00406A",
"> c #408FC7",
", c #66A7D1",
"' c #00538E",
") c #8BBBDC",
"! c #005A99",
"~ c #005896",
" ......+ ",
" .@#+++##++ ",
"$%#+ .@##+ ",
"&*+ .@#+ ",
".=#+ $-#+ ",
" .##+ ;>#+ ",
" +++ .,'+ ",
" .)!+ ",
" .,~+ ",
" .@#+ ",
" .@#+ ",
" ++ ",
" ",
" .. ",
" .,#+ ",
" ++ ",
" "};