moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

Simba: Few more cleanups.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-02-21 22:37:19 +01:00
parent 7201c67e99
commit c0b6afa570
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/Simba/colourhistory.pas
View File

@ -217,7 +217,7 @@ end;
procedure WriteXMLData(n: TTreeNode;
XMLNode: TDOMNode; XMLDoc: TXMLDocument;
var XMLChild: TDOMNode; var C: Integer);
out XMLChild: TDOMNode; var C: Integer);
var
DDataNode, DataNode, Data: TDOMNode;
@ -254,7 +254,7 @@ procedure WalkTree(Node: TTreeNode; XMLNode: TDOMNode; XMLDoc: TXMLDocument;
var C: Integer);
var
N: TTreeNode;
XMLChild, DDataNode, DataNode, Data: TDOMNode;
XMLChild: TDOMNode;
begin
N := Node.GetFirstChild;

4
Projects/Simba/framescript.pas
View File

@ -28,8 +28,8 @@ interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, SynHighlighterPas, SynEdit, SynEditMarkupHighAll,
mmlpsthread,ComCtrls, SynEditKeyCmds, LCLType,MufasaBase, SynEditMarkupSpecialLine, Graphics, Controls, SynEditStrConst,
v_ideCodeInsight, v_ideCodeParser, CastaliaPasLexTypes, CastaliaSimplePasPar, SynEditHighlighter,synedittextbase,SynPluginSyncroEdit;
mmlpsthread,ComCtrls, SynEditKeyCmds, LCLType,MufasaBase, Graphics, Controls, SynEditStrConst,
v_ideCodeInsight, v_ideCodeParser, SynEditHighlighter,SynPluginSyncroEdit;
const
ecCodeCompletion = ecUserFirst;
ecCodeHints = ecUserFirst + 1;

4
Projects/Simba/simbaunit.pas
View File

@ -461,7 +461,7 @@ type
procedure SaveFormSettings;
procedure LoadExtensions;
procedure AddRecentFile(const filename : string);
procedure InitializeTMThread(var Thread : TMThread);
procedure InitializeTMThread(out Thread : TMThread);
procedure HandleParameters;
procedure OnSaveScript(const Filename : string);
property Interpreter : Integer read GetInterpreter write SetInterpreter;
@ -1446,7 +1446,7 @@ begin
RecentFileItems[len - 1-i].Caption:= ExtractFileName(RecentFiles[i]);
end;
procedure TSimbaForm.InitializeTMThread(var Thread: TMThread);
procedure TSimbaForm.InitializeTMThread(out Thread: TMThread);
var
AppPath : string;
ScriptPath : string;