mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some small fixes

Browse Source
This commit is contained in:
zueuk 2006-06-03 02:11:35 +00:00
parent b7b42c244d
commit a52cdba04a
4 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/Editor.dfm
View File

@ -1660,7 +1660,7 @@ object EditForm: TEditForm
object mnuExtendedEdit: TMenuItem object mnuExtendedEdit: TMenuItem
Caption = 'Extended edit mode' Caption = 'Extended edit mode'
Hint = 'Toggle extended edit mode' Hint = 'Toggle extended edit mode'
ImageIndex = 24 ImageIndex = 25
OnClick = tbExtendedEditClick OnClick = tbExtendedEditClick
end end
object mnuAxisLock: TMenuItem object mnuAxisLock: TMenuItem

7
2.10/Source/ImageMaker.pas
View File

@ -21,6 +21,8 @@ type
FBuckets: TBucketArray; FBuckets: TBucketArray;
FOnProgress: TOnProgress; FOnProgress: TOnProgress;
MaxA: int64; // for reuse in following slices
procedure CreateFilter; procedure CreateFilter;
procedure NormalizeFilter; procedure NormalizeFilter;
procedure SetOnProgress(const Value: TOnProgress); procedure SetOnProgress(const Value: TOnProgress);
@ -49,6 +51,7 @@ type
property OnProgress: TOnProgress property OnProgress: TOnProgress
read FOnProgress read FOnProgress
write SetOnProgress; write SetOnProgress;
property MaxCount: int64 read MaxA;
end; end;
implementation implementation
@ -366,10 +369,6 @@ begin
Progress(1); Progress(1);
end; end;
// global variable for reuse in follong slices
var
MaxA: int64;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////
// michael baranov transparancy code from flamesong // michael baranov transparancy code from flamesong
procedure TImageMaker.CreateImage_MB(YOffset: integer); procedure TImageMaker.CreateImage_MB(YOffset: integer);

2
2.10/Source/Options.dfm
View File

@ -44,7 +44,7 @@ object OptionsForm: TOptionsForm
Top = 8 Top = 8
Width = 451 Width = 451
Height = 265 Height = 265
ActivePage = RandomPage ActivePage = GeneralPage
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
object GeneralPage: TTabSheet object GeneralPage: TTabSheet

2
2.10/Source/ScriptForm.dfm
View File

@ -135,8 +135,6 @@ object ScriptEditor: TScriptEditor
BlockLineColor = clGray BlockLineColor = clGray
BkColor = clWindow BkColor = clWindow
BorderStyle = bsNone BorderStyle = bsNone
CodeFolding.Enabled = False
CodeFolding.LineColor = clGray
Ctl3D = False Ctl3D = False
DelErase = True DelErase = True
EnhancedHomeKey = False EnhancedHomeKey = False