diff --git a/.gitattributes b/.gitattributes index f82c10702f..a01868cb91 100644 --- a/.gitattributes +++ b/.gitattributes @@ -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 diff --git a/ide/main.pp b/ide/main.pp index faa01a281f..83dcd6f389 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -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 diff --git a/images/components/unregisteredcomponent.xpm b/images/components/unregisteredcomponent.xpm new file mode 100644 index 0000000000..08386131d6 --- /dev/null +++ b/images/components/unregisteredcomponent.xpm @@ -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", +" ......+ ", +" .@#+++##++ ", +"$%#+ .@##+ ", +"&*+ .@#+ ", +".=#+ $-#+ ", +" .##+ ;>#+ ", +" +++ .,'+ ", +" .)!+ ", +" .,~+ ", +" .@#+ ", +" .@#+ ", +" ++ ", +" ", +" .. ", +" .,#+ ", +" ++ ", +" "};