ide: icons for some windows titles

git-svn-id: trunk@46069 -

.gitattributes

@@ -6004,6 +6004,11 @@ images/states/state_unknown.png -text svneol=unset#image/png
 images/states/state_warning.png -text svneol=unset#image/png
 images/template.png -text svneol=unset#image/png
 images/vase_trans.xpm -text svneol=native#image/x-xpixmap
+images/windows/win_formeditor.ico -text
+images/windows/win_main.ico -text
+images/windows/win_messages.ico -text
+images/windows/win_objectinspector.ico -text
+images/windows/win_sourceeditor.ico -text
 install/lazarus-mime.xml svneol=native#text/plain
 install/lazarus.desktop svneol=native#text/plain
 install/man/Makefile svneol=native#text/plain

ide/etmessageswnd.pas

@@ -98,7 +98,10 @@ procedure TMessagesView.FormCreate(Sender: TObject);
 begin
   IDEMessagesWindow:=Self;
   Caption:=lisMenuViewMessages;
-
+  try
+    IDEMessagesWindow.Icon.LoadFromResourceName(HInstance, 'WIN_MESSAGES');
+  except
+  end;
   MessagesFrame1.MessagesCtrl.OnOpenMessage:=@OnOpenMessage;
   MessagesFrame1.MessagesCtrl.OnOptionsChanged:=@OnMsgCtrlOptsChanged;
 

ide/main.pp

@@ -11188,6 +11188,11 @@ begin
   ObjectInspector1.PropertyEditorHook:=GlobalDesignHook;
   if FormEditor1<>nil then
     FormEditor1.Obj_Inspector := ObjectInspector1;
+
+  try
+    ObjectInspector1.Icon.LoadFromResourceName(HInstance, 'WIN_OBJECTINSPECTOR');
+  except
+  end;
 end;
 
 procedure TMainIDE.OnApplicationUserInput(Sender: TObject; Msg: Cardinal);

ide/mainbar.pas

@@ -496,6 +496,10 @@ begin
   inherited CreateNew(TheOwner, 1);
   AllowDropFiles:=true;
   OnDropFiles:=@MainIDEBarDropFiles;
+  try
+    Icon.LoadFromResourceName(HInstance, 'WIN_MAIN');
+  except
+  end;
 end;
 
 procedure TMainIDEBar.HideIDE;

ide/sourceeditor.pp

@@ -5717,6 +5717,11 @@ begin
   Application.AddOnMinimizeHandler(@OnApplicationDeactivate);
 
   FStopBtnIdx := IDEImages.LoadImage(16, 'menu_stop');
+
+  try
+    Icon.LoadFromResourceName(HInstance, 'WIN_SOURCEEDITOR');
+  except
+  end;
 end;
 
 destructor TSourceNotebook.Destroy;

images/laz_images_list.txt

@@ -252,3 +252,8 @@ packages/pkg_unit.png
 packages/pkg_package_autoinstall.png
 packages/pkg_add.png
 ide_icon48x48.png
+windows/win_objectinspector.ico
+windows/win_messages.ico
+windows/win_sourceeditor.ico
+windows/win_main.ico
+windows/win_formeditor.ico