You've already forked lazarus-ccr
Add graphic EXT name.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2617 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -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'
|
||||
|
@ -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;
|
||||
|
||||
|
Reference in New Issue
Block a user