...hope I haven't "fixed" anything too much :)

This commit is contained in:
zueuk 2006-01-06 17:57:37 +00:00
parent 3325cac7de
commit da82735e8a
3 changed files with 17 additions and 11 deletions

View File

@ -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

View File

@ -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);

View File

@ -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