moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-31 07:10:28 -05:00
Code Issues Releases Wiki Activity

Fixed bug in freeing, Simba was freeing an already freed component!

Browse Source
This commit is contained in:
Raymond 2010-05-11 19:04:35 +02:00
parent 495c652e9c
commit 229cdd6886
6 changed files with 51 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Projects/Simba/bitmapconv.lfm
View File

@ -8,19 +8,32 @@ object BitmapConvForm: TBitmapConvForm
ClientWidth = 320
LCLVersion = '0.9.29'
object Button1: TButton
Left = 144
Height = 52
Top = 152
Width = 105
Left = 192
Height = 36
Top = 184
Width = 113
Caption = 'Button1'
TabOrder = 0
end
object CheckBox1: TCheckBox
Left = 24
Left = 224
Height = 17
Top = 160
Top = 152
Width = 71
Caption = 'CheckBox1'
TabOrder = 1
end
object Button2: TButton
Left = 12
Height = 36
Top = 184
Width = 90
Caption = 'Open'
OnClick = Button2Click
TabOrder = 2
end
object OpenPictureDialog1: TOpenPictureDialog
left = 128
top = 184
end
end

13
Projects/Simba/bitmapconv.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
StdCtrls, EditBtn, ExtDlgs;
type
@ -14,7 +14,10 @@ type
TBitmapConvForm = class(TForm)
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
OpenPictureDialog1: TOpenPictureDialog;
procedure Button2Click(Sender: TObject);
private
{ private declarations }
public
@ -28,5 +31,13 @@ implementation
{$R *.lfm}
{ TBitmapConvForm }
procedure TBitmapConvForm.Button2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
writeln(OpenPictureDialog1.FileName);
end;
end.

1
Projects/Simba/framescript.lfm
View File

@ -5,7 +5,6 @@ object ScriptFrame: TScriptFrame
Width = 397
ClientHeight = 328
ClientWidth = 397
LCLVersion = '0.9.29'
TabOrder = 0
DesignLeft = 159
DesignTop = 420

6
Projects/Simba/framescript.pas
View File

@ -85,7 +85,6 @@ type
procedure MakeActiveScriptFrame;
procedure ScriptThreadTerminate(Sender: TObject);
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
{ public declarations }
end;
@ -640,11 +639,6 @@ begin
// TSynPasSyn(SynEdit.Highlighter).NestedComments:= false; Does not work :(
end;
destructor TScriptFrame.Destroy;
begin
inherited Destroy;
end;
initialization
{$R *.lfm}

8
Projects/Simba/simbaunit.lfm
View File

@ -1,7 +1,7 @@
object SimbaForm: TSimbaForm
Left = 150
Left = 143
Height = 623
Top = 69
Top = 115
Width = 660
AllowDropFiles = True
Caption = 'THA FUKING Simba'
@ -1348,6 +1348,10 @@ object SimbaForm: TSimbaForm
Caption = 'Settings'
OnClick = MenuItemSettingsButtonClick
end
object MenuItemBitmapConv: TMenuItem
Caption = 'New Item50'
OnClick = MenuItemBitmapConvClick
end
object MenuItemDivider10: TMenuItem
Caption = '-'
end

16
Projects/Simba/simbaunit.pas
View File

@ -104,6 +104,7 @@ type
MenuFile: TMenuItem;
MenuEdit: TMenuItem;
MenuHelp: TMenuItem;
MenuItemBitmapConv: TMenuItem;
MenuItemExtensions: TMenuItem;
MenuItemSettingsButton: TMenuItem;
MenuItemDivider10: TMenuItem;
@ -258,6 +259,7 @@ type
procedure FunctionListEnter(Sender: TObject);
procedure FunctionListExit(Sender: TObject);
procedure FunctionListTimerTimer(Sender: TObject);
procedure MenuItemBitmapConvClick(Sender: TObject);
procedure MenuItemExtensionsClick(Sender: TObject);
procedure MenuItemHandbookClick(Sender: TObject);
procedure MenuItemColourHistoryClick(Sender: TObject);
@ -459,6 +461,7 @@ uses
debugimage,
files,
InterfaceBase,
bitmapconv,
extensionmanagergui,
colourhistory,
math;
@ -1888,9 +1891,18 @@ begin
frmFunctionList.LoadScriptTree(CurrScript.SynEdit.Text);
end;
procedure TSimbaForm.MenuItemBitmapConvClick(Sender: TObject);
begin
BitmapConvForm.Show;
end;
procedure TSimbaForm.MenuItemExtensionsClick(Sender: TObject);
begin
ExtensionsForm.Show;
MenuItemExtensions.Checked := not ExtensionsForm.Visible;
if MenuItemExtensions.Checked then
ExtensionsForm.Show
else
ExtensionsForm.Hide;
end;
procedure TSimbaForm.MenuItemHandbookClick(Sender: TObject);
@ -2972,7 +2984,7 @@ end;
destructor TMufasaTab.Destroy;
begin
ScriptFrame.Free;
// ScriptFrame.Free;
TabSheet.Free;
inherited Destroy;
end;