pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Add graphic EXT name.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2617 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
yangjixian
2013-01-07 16:34:50 +00:00
parent 45015556f5
commit 1c4e449b92
4 changed files with 2107 additions and 2118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

139
applications/lazimageeditor/main.lfm
View File

@ -1,10 +1,10 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 150 Left = 85
Height = 739 Height = 739
Top = 60 Top = 28
Width = 925 Width = 925
Caption = 'Lazarus Image Editor' Caption = 'Lazarus Image Editor'
ClientHeight = 719 ClientHeight = 717
ClientWidth = 925 ClientWidth = 925
Font.CharSet = GB2312_CHARSET Font.CharSet = GB2312_CHARSET
Font.Height = -13 Font.Height = -13
@ -15,21 +15,21 @@
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.31' LCLVersion = '1.1'
object PanelTools: TPanel object PanelTools: TPanel
Left = 0 Left = 0
Height = 591 Height = 590
Top = 105 Top = 105
Width = 40 Width = 40
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 591 ClientHeight = 590
ClientWidth = 40 ClientWidth = 40
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object ToolBarTools: TToolBar object ToolBarTools: TToolBar
Left = 0 Left = 0
Height = 591 Height = 590
Top = 0 Top = 0
Width = 40 Width = 40
Align = alLeft Align = alLeft
@ -201,8 +201,8 @@
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 22
Top = 696 Top = 695
Width = 925 Width = 925
Panels = < Panels = <
item item
@ -229,18 +229,18 @@
end end
object PanelPallete: TPanel object PanelPallete: TPanel
Left = 850 Left = 850
Height = 591 Height = 590
Top = 105 Top = 105
Width = 75 Width = 75
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 591 ClientHeight = 590
ClientWidth = 75 ClientWidth = 75
TabOrder = 1 TabOrder = 1
object Palette: TColorPalette object Palette: TColorPalette
Left = 0 Left = 0
Height = 591 Height = 590
Top = 0 Top = 0
Width = 75 Width = 75
Align = alClient Align = alClient
@ -426,11 +426,11 @@
OnClick = PanelZoomClick OnClick = PanelZoomClick
object ComboBoxZoom: TComboBox object ComboBoxZoom: TComboBox
Left = 1 Left = 1
Height = 24 Height = 27
Top = 3 Top = 2
Width = 75 Width = 75
Anchors = [akLeft] Anchors = [akLeft]
ItemHeight = 16 ItemHeight = 19
ItemIndex = 2 ItemIndex = 2
Items.Strings = ( Items.Strings = (
'25 %' '25 %'
@ -480,10 +480,10 @@
TabOrder = 1 TabOrder = 1
object FontListBox: TComboBox object FontListBox: TComboBox
Left = 2 Left = 2
Height = 24 Height = 27
Top = 3 Top = 3
Width = 112 Width = 112
ItemHeight = 16 ItemHeight = 19
OnChange = FontListBoxChange OnChange = FontListBoxChange
OnClick = FontListBoxClick OnClick = FontListBoxClick
Style = csDropDownList Style = csDropDownList
@ -491,7 +491,7 @@
end end
object FontSize: TSpinEdit object FontSize: TSpinEdit
Left = 117 Left = 117
Height = 24 Height = 27
Top = 3 Top = 3
Width = 50 Width = 50
OnChange = FontSizeChange OnChange = FontSizeChange
@ -513,10 +513,10 @@
ClientWidth = 925 ClientWidth = 925
TabOrder = 1 TabOrder = 1
object LabelFillOutline: TLabel object LabelFillOutline: TLabel
Left = 112 Left = 111
Height = 34 Height = 34
Top = 0 Top = 0
Width = 70 Width = 71
Align = alLeft Align = alLeft
Caption = 'Fill, Outline:' Caption = 'Fill, Outline:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -527,7 +527,7 @@
Left = 0 Left = 0
Height = 34 Height = 34
Top = 0 Top = 0
Width = 42 Width = 41
Align = alLeft Align = alLeft
Caption = 'Shape:' Caption = 'Shape:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -538,7 +538,7 @@
Left = 282 Left = 282
Height = 34 Height = 34
Top = 0 Top = 0
Width = 64 Width = 66
Align = alLeft Align = alLeft
Caption = 'Mask Tool:' Caption = 'Mask Tool:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -546,10 +546,10 @@
ParentColor = False ParentColor = False
end end
object PanelColors: TPanel object PanelColors: TPanel
Left = 714 Left = 716
Height = 34 Height = 34
Top = 0 Top = 0
Width = 211 Width = 209
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -557,40 +557,40 @@
BorderSpacing.CellAlignVertical = ccaCenter BorderSpacing.CellAlignVertical = ccaCenter
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 34
ClientWidth = 211 ClientWidth = 209
TabOrder = 0 TabOrder = 0
object LabelOutline: TLabel object LabelOutline: TLabel
Left = 8 Left = 8
Height = 34 Height = 34
Top = 0 Top = 0
Width = 46 Width = 48
Align = alRight Align = alRight
Caption = 'Outline:' Caption = 'Outline:'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LabelFill: TLabel object LabelFill: TLabel
Left = 86 Left = 88
Height = 34 Height = 34
Top = 0 Top = 0
Width = 22 Width = 19
Align = alRight Align = alRight
Caption = 'Fill:' Caption = 'Fill:'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LabelPaper: TLabel object LabelPaper: TLabel
Left = 140 Left = 139
Height = 34 Height = 34
Top = 0 Top = 0
Width = 39 Width = 38
Align = alRight Align = alRight
Caption = 'Paper:' Caption = 'Paper:'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object PanelOutline: TPanel object PanelOutline: TPanel
Left = 60 Left = 62
Height = 22 Height = 22
Top = 6 Top = 6
Width = 20 Width = 20
@ -605,7 +605,7 @@
OnDragOver = PanelPaperDragOver OnDragOver = PanelPaperDragOver
end end
object PanelFill: TPanel object PanelFill: TPanel
Left = 114 Left = 113
Height = 22 Height = 22
Top = 6 Top = 6
Width = 20 Width = 20
@ -620,7 +620,7 @@
OnDragOver = PanelPaperDragOver OnDragOver = PanelPaperDragOver
end end
object PanelPaper: TPanel object PanelPaper: TPanel
Left = 185 Left = 183
Height = 22 Height = 22
Top = 6 Top = 6
Width = 20 Width = 20
@ -696,7 +696,6 @@
00000000000000000000 00000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolFillOutlineClick OnClick = ToolFillOutlineClick
end end
object ToolOutline: TSpeedButton object ToolOutline: TSpeedButton
@ -760,7 +759,6 @@
00FF000000FF000000FF000000FF000000FF000000FF000000FF 00FF000000FF000000FF000000FF000000FF000000FF000000FF
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolOutlineClick OnClick = ToolOutlineClick
end end
object ToolFill: TSpeedButton object ToolFill: TSpeedButton
@ -812,12 +810,11 @@
FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFF
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolFillClick OnClick = ToolFillClick
end end
end end
object PanelShape: TPanel object PanelShape: TPanel
Left = 42 Left = 41
Height = 34 Height = 34
Top = 0 Top = 0
Width = 70 Width = 70
@ -876,7 +873,6 @@
00000000000000000000 00000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolRectShapeClick OnClick = ToolRectShapeClick
end end
object ToolCircleShape: TSpeedButton object ToolCircleShape: TSpeedButton
@ -962,12 +958,11 @@
5C00150E5C00150E5C00150E5C00150E5C00150E5C00150E5C00 5C00150E5C00150E5C00150E5C00150E5C00150E5C00150E5C00
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolCircleShapeClick OnClick = ToolCircleShapeClick
end end
end end
object PanelMaskTool: TPanel object PanelMaskTool: TPanel
Left = 346 Left = 348
Height = 34 Height = 34
Top = 0 Top = 0
Width = 99 Width = 99
@ -1026,7 +1021,6 @@
00000000000000000000 00000000000000000000
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolMaskRectangleClick OnClick = ToolMaskRectangleClick
end end
object ToolMaskEllipse: TSpeedButton object ToolMaskEllipse: TSpeedButton
@ -1112,13 +1106,12 @@
5C00150E5C00150E5C00150E5C00150E5C00150E5C00150E5C00 5C00150E5C00150E5C00150E5C00150E5C00150E5C00150E5C00
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolMaskEllipseClick OnClick = ToolMaskEllipseClick
end end
object ToolMaskFloodFill: TSpeedButton object ToolMaskFloodFill: TSpeedButton
Left = 68 Left = 80
Height = 32 Height = 32
Top = 1 Top = -35
Width = 32 Width = 32
Anchors = [akLeft] Anchors = [akLeft]
Glyph.Data = { Glyph.Data = {
@ -1176,7 +1169,6 @@
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
} }
GroupIndex = 1 GroupIndex = 1
NumGlyphs = 0
OnClick = ToolMaskFloodFillClick OnClick = ToolMaskFloodFillClick
end end
end end
@ -1201,23 +1193,23 @@
end end
object Label1: TLabel object Label1: TLabel
Left = 521 Left = 521
Height = 17 Height = 19
Top = 5 Top = 5
Width = 12 Width = 13
Caption = 'to' Caption = 'to'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 594 Left = 594
Height = 17 Height = 19
Top = 7 Top = 7
Width = 58 Width = 61
Caption = 'Poly num:' Caption = 'Poly num:'
ParentColor = False ParentColor = False
end end
object PolyNum: TSpinEdit object PolyNum: TSpinEdit
Left = 663 Left = 663
Height = 24 Height = 27
Top = 4 Top = 4
Width = 50 Width = 50
MaxValue = 20 MaxValue = 20
@ -1241,7 +1233,7 @@
Left = 0 Left = 0
Height = 34 Height = 34
Top = 0 Top = 0
Width = 30 Width = 27
Align = alLeft Align = alLeft
Caption = 'Size:' Caption = 'Size:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -1249,10 +1241,10 @@
ParentColor = False ParentColor = False
end end
object LabelDensity: TLabel object LabelDensity: TLabel
Left = 233 Left = 232
Height = 34 Height = 34
Top = 0 Top = 0
Width = 47 Width = 49
Align = alLeft Align = alLeft
Caption = 'Density:' Caption = 'Density:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -1260,10 +1252,10 @@
ParentColor = False ParentColor = False
end end
object LabelRoundness: TLabel object LabelRoundness: TLabel
Left = 97 Left = 94
Height = 34 Height = 34
Top = 0 Top = 0
Width = 68 Width = 70
Align = alLeft Align = alLeft
Caption = 'Roundness:' Caption = 'Roundness:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -1271,10 +1263,10 @@
ParentColor = False ParentColor = False
end end
object LabelTolerance: TLabel object LabelTolerance: TLabel
Left = 349 Left = 350
Height = 34 Height = 34
Top = 0 Top = 0
Width = 63 Width = 62
Align = alLeft Align = alLeft
Caption = 'Tolerance:' Caption = 'Tolerance:'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -1282,7 +1274,7 @@
ParentColor = False ParentColor = False
end end
object PanelSize: TPanel object PanelSize: TPanel
Left = 30 Left = 27
Height = 34 Height = 34
Top = 0 Top = 0
Width = 67 Width = 67
@ -1293,7 +1285,7 @@
TabOrder = 0 TabOrder = 0
object EditSize: TSpinEdit object EditSize: TSpinEdit
Left = 4 Left = 4
Height = 24 Height = 27
Top = 3 Top = 3
Width = 50 Width = 50
OnChange = EditSizeChange OnChange = EditSizeChange
@ -1302,7 +1294,7 @@
end end
end end
object PanelDensity: TPanel object PanelDensity: TPanel
Left = 280 Left = 281
Height = 34 Height = 34
Top = 0 Top = 0
Width = 69 Width = 69
@ -1313,7 +1305,7 @@
TabOrder = 1 TabOrder = 1
object EditDensity: TSpinEdit object EditDensity: TSpinEdit
Left = 4 Left = 4
Height = 24 Height = 27
Top = 3 Top = 3
Width = 56 Width = 56
OnChange = EditDensityChange OnChange = EditDensityChange
@ -1322,7 +1314,7 @@
end end
end end
object PanelRoundness: TPanel object PanelRoundness: TPanel
Left = 165 Left = 164
Height = 34 Height = 34
Top = 0 Top = 0
Width = 68 Width = 68
@ -1333,7 +1325,7 @@
TabOrder = 2 TabOrder = 2
object EditRoundness: TSpinEdit object EditRoundness: TSpinEdit
Left = 5 Left = 5
Height = 24 Height = 27
Top = 3 Top = 3
Width = 50 Width = 50
OnChange = EditRoundnessChange OnChange = EditRoundnessChange
@ -1352,7 +1344,7 @@
TabOrder = 3 TabOrder = 3
object EditTolerance: TSpinEdit object EditTolerance: TSpinEdit
Left = 6 Left = 6
Height = 24 Height = 27
Top = 3 Top = 3
Width = 54 Width = 54
OnChange = EditToleranceChange OnChange = EditToleranceChange
@ -1382,7 +1374,7 @@
TabOrder = 4 TabOrder = 4
object spinFillAlpha: TSpinEdit object spinFillAlpha: TSpinEdit
Left = 10 Left = 10
Height = 24 Height = 27
Top = 3 Top = 3
Width = 53 Width = 53
OnChange = spinFillAlphaChange OnChange = spinFillAlphaChange
@ -1394,7 +1386,7 @@
Left = 606 Left = 606
Height = 34 Height = 34
Top = 0 Top = 0
Width = 33 Width = 34
Align = alLeft Align = alLeft
Caption = 'Fuzzy' Caption = 'Fuzzy'
Constraints.MinHeight = 32 Constraints.MinHeight = 32
@ -1402,7 +1394,7 @@
ParentColor = False ParentColor = False
end end
object PanelTolerance2: TPanel object PanelTolerance2: TPanel
Left = 639 Left = 640
Height = 34 Height = 34
Top = 0 Top = 0
Width = 30 Width = 30
@ -1413,9 +1405,9 @@
TabOrder = 5 TabOrder = 5
object checkFuzzy: TCheckBox object checkFuzzy: TCheckBox
Left = 4 Left = 4
Height = 17 Height = 23
Top = 5 Top = 5
Width = 18 Width = 24
OnChange = checkFuzzyChange OnChange = checkFuzzyChange
TabOrder = 0 TabOrder = 0
end end
@ -1424,7 +1416,7 @@
end end
object PanelPictures: TPanel object PanelPictures: TPanel
Left = 40 Left = 40
Height = 591 Height = 590
Top = 105 Top = 105
Width = 810 Width = 810
Align = alClient Align = alClient
@ -4089,8 +4081,7 @@
} }
end end
object OpenPictureDialog: TOpenPictureDialog object OpenPictureDialog: TOpenPictureDialog
Filter = 'Graphic (*.tga;*.jpeg;*.jpg;*.pbm;*.pgm;*.ppm;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpeg;*.jpg;*.pbm;*.pgm;*.ppm;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|JPEG Image File (*.jpeg)|*.jpeg|JPEG Image File (*.jpg)|*.' Filter = 'Graphic (*.tga;*.jpeg;*.jpg;*.pbm;*.pgm;*.ppm;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpeg;*.jpg;*.pbm;*.pgm;*.ppm;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|JPEG Image File (*.jpeg)|*.jpeg|JPEG Image File (*.jpg)|*.jpg|Bitmap Image File (*.bmp)|*.bmp|Portable Image File (*.png)|*.png|Pixel Image File (*.pcx)|*.pcx'
FilterIndex = 0
Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing] Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
left = 312 left = 312
top = 112 top = 112
@ -4124,8 +4115,7 @@
end end
object SavePictureDialog: TSavePictureDialog object SavePictureDialog: TSavePictureDialog
DefaultExt = '.bmp' DefaultExt = '.bmp'
Filter = 'Graphic (*.png; *.xpm; *.bmp)|*.png; *.xpm; *.bmp|Pixmap (*.xpm)|*.xpm|Bitmap (*.bmp)|*.bmp|Portable Network Graphic (*.png)|*.png' Filter = 'Graphic (*.png; *.xpm; *.bmp)|*.png; *.xpm; *.bmp|Pixmap (*.xpm)|*.xpm|Bitmap (*.bmp)|*.bmp|Portable Network Graphic (*.png)|*.png|PCX (*.PCX)|*.pcx|Jpeg (*.JPG)|*.jpg|Jpeg (*.JPEG)|*.jpeg|TGA (*.TGA)|*.tga'
FilterIndex = 0
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail, ofAutoPreview] Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail, ofAutoPreview]
left = 150 left = 150
top = 126 top = 126
@ -4134,7 +4124,6 @@
Title = 'Export as lazarus resource' Title = 'Export as lazarus resource'
DefaultExt = '.lrs' DefaultExt = '.lrs'
Filter = 'Lazarus resource (*.lrs)|*.lrs|Alll files (*.*)|*.*' Filter = 'Lazarus resource (*.lrs)|*.lrs|Alll files (*.*)|*.*'
FilterIndex = 0
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail] Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
left = 186 left = 186
top = 126 top = 126

4079
applications/lazimageeditor/main.lrs
View File

File diff suppressed because it is too large Load Diff

2
applications/lazimageeditor/picturedialog.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TPictureDialogForm','FORMDATA',[ LazarusResources.Add('TPictureDialogForm','FORMDATA',[
'TPF0'#18'TPictureDialogForm'#17'PictureDialogForm'#11'BorderIcons'#11#12'biS' 'TPF0'#18'TPictureDialogForm'#17'PictureDialogForm'#11'BorderIcons'#11#12'biS'
+'ystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'PictureDialogFor' +'ystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'PictureDialogFor'

5
applications/lazimageeditor/picturemanager.pas
View File

@ -83,6 +83,7 @@ type
procedure PageClose; dynamic; procedure PageClose; dynamic;
procedure PageCloseQuery(var CanClose: Boolean); dynamic; procedure PageCloseQuery(var CanClose: Boolean); dynamic;
public public
GraphicFileName: string;
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure New(AWidth, AHeight: Integer; APaperColor: TColor); procedure New(AWidth, AHeight: Integer; APaperColor: TColor);
@ -169,7 +170,7 @@ begin
Result := TPicturePage.Create(Self, AWidth, AHeight, APaperColor); Result := TPicturePage.Create(Self, AWidth, AHeight, APaperColor);
Result.PageControl := Self; Result.PageControl := Self;
SetPageEvents(Result); SetPageEvents(Result);
FileNameChange; FileNameChange;
end; end;
@ -178,7 +179,7 @@ begin
Result := TPicturePage.Create(Self, Filename); Result := TPicturePage.Create(Self, Filename);
Result.PageControl := Self; Result.PageControl := Self;
SetPageEvents(Result); SetPageEvents(Result);
GraphicFileName := FileName;
FileNameChange; FileNameChange;
end; end;