...hope I haven't "fixed" anything too much :)
This commit is contained in:
parent
3325cac7de
commit
da82735e8a
@ -1969,9 +1969,9 @@ object AboutForm: TAboutForm
|
|||||||
object Label6: TLabel
|
object Label6: TLabel
|
||||||
Left = 120
|
Left = 120
|
||||||
Top = 92
|
Top = 92
|
||||||
Width = 86
|
Width = 110
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Copyright '#169' 2005 '
|
Caption = 'Copyright '#169' 2005-2006'
|
||||||
end
|
end
|
||||||
object Label7: TLabel
|
object Label7: TLabel
|
||||||
Left = 140
|
Left = 140
|
||||||
|
@ -2532,7 +2532,10 @@ end;
|
|||||||
procedure TEditForm.scrlXFormColorScroll(Sender: TObject;
|
procedure TEditForm.scrlXFormColorScroll(Sender: TObject;
|
||||||
ScrollCode: TScrollCode; var ScrollPos: Integer);
|
ScrollCode: TScrollCode; var ScrollPos: Integer);
|
||||||
begin
|
begin
|
||||||
if ScrollCode = scEndScroll then UpdateFlame(True);
|
if ScrollCode = scEndScroll then begin
|
||||||
|
MainForm.UpdateUndo;
|
||||||
|
UpdateFlame(True);
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TEditForm.scrlXFormColorChange(Sender: TObject);
|
procedure TEditForm.scrlXFormColorChange(Sender: TObject);
|
||||||
|
@ -5,6 +5,8 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
Height = 534
|
Height = 534
|
||||||
Caption = 'Post Render'
|
Caption = 'Post Render'
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
|
Constraints.MinHeight = 200
|
||||||
|
Constraints.MinWidth = 600
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
@ -36,7 +38,7 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object Label2: TLabel
|
object Label2: TLabel
|
||||||
Left = 12
|
Left = 12
|
||||||
Top = 32
|
Top = 34
|
||||||
Width = 24
|
Width = 24
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Filter'
|
Caption = 'Filter'
|
||||||
@ -50,7 +52,7 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object Label4: TLabel
|
object Label4: TLabel
|
||||||
Left = 332
|
Left = 332
|
||||||
Top = 32
|
Top = 34
|
||||||
Width = 45
|
Width = 45
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Vibrancy:'
|
Caption = 'Vibrancy:'
|
||||||
@ -64,7 +66,7 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object Label6: TLabel
|
object Label6: TLabel
|
||||||
Left = 172
|
Left = 172
|
||||||
Top = 32
|
Top = 34
|
||||||
Width = 50
|
Width = 50
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Brightness'
|
Caption = 'Brightness'
|
||||||
@ -84,6 +86,7 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
Top = 8
|
Top = 8
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
|
Cursor = crHandPoint
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnClick = pnlBackColorClick
|
OnClick = pnlBackColorClick
|
||||||
@ -109,7 +112,7 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object txtFilterRadius: TEdit
|
object txtFilterRadius: TEdit
|
||||||
Left = 104
|
Left = 104
|
||||||
Top = 28
|
Top = 30
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
@ -123,10 +126,10 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object txtVib: TEdit
|
object txtVib: TEdit
|
||||||
Left = 424
|
Left = 424
|
||||||
Top = 28
|
Top = 30
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 4
|
TabOrder = 6
|
||||||
end
|
end
|
||||||
object txtContrast: TEdit
|
object txtContrast: TEdit
|
||||||
Left = 424
|
Left = 424
|
||||||
@ -137,10 +140,10 @@ object frmPostProcess: TfrmPostProcess
|
|||||||
end
|
end
|
||||||
object txtBrightness: TEdit
|
object txtBrightness: TEdit
|
||||||
Left = 264
|
Left = 264
|
||||||
Top = 28
|
Top = 30
|
||||||
Width = 57
|
Width = 57
|
||||||
Height = 21
|
Height = 21
|
||||||
TabOrder = 6
|
TabOrder = 4
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object ScrollBox1: TScrollBox
|
object ScrollBox1: TScrollBox
|
||||||
|
Loading…
Reference in New Issue
Block a user