IDEIntf: image list editor: implemented auto splitting added image from etrusco

git-svn-id: trunk@9997 -

ide/idetranslations.pas

@@ -117,7 +117,7 @@ begin
     Result:=rsLanguageDutch
   else if CompareText(ID,'ja')=0 then
     Result:=rsLanguageJapanese
-  else if CompareText(ID,'zh-cn')=0 then
+  else if CompareText(ID,'zh_CN')=0 then
     Result:=rsLanguageChinese
   else if CompareText(ID,'id')=0 then
     Result:=rsLanguageIndonesian

ideintf/imagelisteditor.pp

@@ -34,8 +34,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LResources, ComCtrls,
-  StdCtrls, Buttons, ExtCtrls, Menus, PropEdits, ComponentEditors, LCLProc,
+  StdCtrls, Buttons, ExtCtrls, Menus, LCLProc, ColorBox, ExtDlgs,
-  ColorBox, ExtDlgs, ObjInspStrConsts;
+  IDEDialogs, PropEdits, ComponentEditors, ObjInspStrConsts;
 
 type
   TGlyphAdjustment = (gaNone, gaStretch, gaCrop, gaCenter);
@@ -110,8 +110,10 @@ type
     function GetVerbCount: Integer; override;
   end;
 
+
 implementation
 
+
 function EditImageList(AImageList: TImageList): Boolean;
 var
   ImageListEditorDlg: TImageListEditorDlg;
@@ -156,6 +158,15 @@ begin
   end;
 end;
 
+function CreateGlyphSplit(Src: TBitmap; Width, Height: Integer; SrcSplitIndex: Integer): TBitmap;
+begin
+  Result := TBitmap.Create;
+  Result.Width := Width;
+  Result.Height := Height;
+  Result.Canvas.CopyRect( Rect(0, 0, Width, Height),
+    Src.Canvas, Bounds(SrcSplitIndex * Width, 0, Width, Height) );
+end;
+
 { TImageListEditorDlg }
 
 procedure TImageListEditorDlg.FormCreate(Sender: TObject);
@@ -469,6 +480,9 @@ var
   Picture: TPicture;
   P: PGlyphInfo;
   Node: TTreeNode;
+  v_PartCount: Integer;
+  c_Part: Integer;
+  v_CompositeBmp: TBitmap;
 begin
   SaveDialog.InitialDir := ExtractFileDir(FileName);
   Bmp := nil;
@@ -487,18 +501,40 @@ begin
   begin
     if not Bmp.Empty then
     begin
-      Glyph := CreateGlyph(Bmp, ImageList.Width, ImageList.Height, gaNone);
+      if (Bmp.Height = ImageList.Height)
-      I := ImageList.AddDirect(Glyph, nil);
+        and (Bmp.Width mod ImageList.Width = 0)
-      
+        and (IDEQuestionDialog(Caption +' - '+ btnAdd.Caption,
-      New(P);
+                            s_SuggestSplitImage, mtConfirmation,
-      P^.Bitmap := Bmp;
+                            [s_AddAsSingle, mrNo, s_SplitImage, mrYes]) = mrYes)
-      P^.Adjustment := gaNone;
+      then begin
-      P^.TransparentColor := clFuchsia;
+        v_PartCount := Bmp.Width div ImageList.Width;
-      
+        v_CompositeBmp := Bmp;
-      Node := TreeView.Items.AddObject(nil, IntToStr(I), P);
+        Bmp := nil;
-      Node.ImageIndex := I;
+      end
-      Node.SelectedIndex := I;
+      else begin
-      TreeView.Selected := Node;
+        v_PartCount := 1;
+        v_CompositeBmp := nil;
+      end;
+
+      for c_Part := 0 to v_PartCount -1 do
+      begin
+        if Assigned(v_CompositeBmp) then
+          Bmp := CreateGlyphSplit(v_CompositeBmp, ImageList.Width, ImageList.Height, c_Part);
+
+        Glyph := CreateGlyph(Bmp, ImageList.Width, ImageList.Height, gaNone);
+        I := ImageList.AddDirect(Glyph, nil);
+
+        New(P);
+        P^.Bitmap := Bmp;
+        P^.Adjustment := gaNone;
+        P^.TransparentColor := clFuchsia;
+
+        Node := TreeView.Items.AddObject(nil, IntToStr(I), P);
+        Node.ImageIndex := I;
+        Node.SelectedIndex := I;
+        TreeView.Selected := Node;
+      end;
+      v_CompositeBmp.Free;
     end
     else Bmp.Free;
   end;

ideintf/objinspstrconsts.pas

@@ -309,6 +309,12 @@ resourcestring
   rscdAlignment = 'Alignment';
   rscdLeft = 'Left';
 
+  // image list editor
+  s_SuggestSplitImage = 'Do you want to split the image?';
+  s_AddAsSingle = 'Add as single';
+  s_SplitImage = 'Split image';
+
+
 implementation
 
 end.