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