/
ResizeandConvert_ICO.ahk
86 lines (78 loc) · 3.39 KB
/
ResizeandConvert_ICO.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
/*
#SingleInstance, Force
#NoEnv
SetBatchLines, -1
Gui, Add, Text, , Drag and drop images to create icons.
Gui, Show, H200 W200
return
GuiDropFiles:
Loop, parse, A_GuiEvent, `n
{
i++
ImageArray := []
ImageArray[1] := [A_LoopField, 128, 128]
ImageArray[2] := [A_LoopField, 64, 64]
ImageArray[3] := [A_LoopField, 32, 32]
ImageArray[4] := [A_LoopField, 16, 16]
ResConICO(ImageArray, "MyIcon" i ".ico", A_Desktop)
}
return
GuiClose:
ExitApp
*/
; Based on (Large parts are directly from):
; http://www.autohotkey.com/board/topic/82416-ico-createrconverter-png-to-ico/
; http://www.autohotkey.net/~Rseding91/ICO%20Converter/ICO%20Converter.ahk
ResConICO(ImageArray, NewName, NewDir) {
ICO_ContainerSize := 16
, O := 0
, Total_PotentialSize := 6
, pToken := Gdip_Startup()
; Convert Images
for i, img in ImageArray {
pBitmapFile := Gdip_CreateBitmapFromFile(img[1]) ; Get a bitmap of the file to convert
, pBitmap := Gdip_CreateBitmap(img[2], img[3]) ; Create a new bitmap of the desired width/heigh
, G := Gdip_GraphicsFromImage(pBitmap) ; Get a pointer to the graphics of the bitmap
, Gdip_SetSmoothingMode(G, 4) ; Set image quality modes
, Gdip_SetInterpolationMode(G, 7)
, Gdip_DrawImage(G, pBitmapFile, 0, 0, img[2], img[3]) ; Draw the original image onto the new bitmap
, Gdip_DisposeImage(pBitmapFile) ; Delete the bitmap of the original image
, Gdip_SaveBitmapToFile(pBitmap, A_ScriptDir "\TempResized" i ".png") ; Save the new bitmap to file
, Gdip_DisposeImage(pBitmap) ; Delete the new bitmap
, Gdip_DeleteGraphics(G) ; The graphics may now be deleted
, img[1] := A_ScriptDir "\TempResized" i ".png"
FileGetSize, ImgSize, % img[1]
if (ImgSize)
Total_PotentialSize += ICO_ContainerSize + ImgSize
}
VarSetCapacity(ICO_Data, Total_PotentialSize, 0)
, NumPut(0, ICO_Data, O, "UShort"), O += 2 ;reserved - always 0
, NumPut(1, ICO_Data, O, "UShort"), O += 2 ;ico = 1, cur = 2
, NumPut(0, ICO_Data, O, "UShort"), O += 2 ;number of images in file
for i, img in ImageArray {
if (img[2] < 257 && img[3] < 257 && File := FileOpen(img[1], "r")) {
NumPut(img[2], ICO_Data, O, "UChar"), O += 1 ;image width: 256 = 0
, NumPut(img[3], ICO_Data, O, "UChar"), O += 1 ;image height: 256 = 0
, NumPut(0, ICO_Data, O, "UChar"), O += 1 ;color palatte: 0 if not used
, NumPut(0, ICO_Data, O, "UChar"), O += 1 ;reserved - always 0
, NumPut(0, ICO_Data, O, "UShort"), O += 2 ;ico - color planes (0/1), cur - horizontal coordinates of the hotspot in pixels from left
, NumPut(32, ICO_Data, O, "UShort"), O += 2 ;ico - bits per pixel, cur - vertical coordinates of hotspot in pixels from top
, NumPut(File.Length, ICO_Data, O, "UInt"), O += 4 ;Size of image data in bytes
, NumPut(O + 4, ICO_Data, O, "UInt"), O += 4 ;Offset of image data from begining of ico/cur file
, File.RawRead(&ICO_Data + O, File.Length)
, O += File.Length
, NumPut(NumGet(ICO_Data, 4, "UShort") + 1, ICO_Data, 4, "UShort") ;Adds one to the total number of images
, File.Close()
}
FileDelete, % img[1]
}
If (O > 6){
File := FileOpen(NewDir "\" NewName, "w")
, File.RawWrite(&ICO_Data, O)
, File.Close()
, VarSetCapacity(ICO_Data, O, 0)
, VarSetCapacity(ICO_Data, 0)
}
Gdip_Shutdown(pToken)
}