1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-24 08:18:52 -05:00

Cleaned up and shortened some of the function list code.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@335 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
bullzeye95 2009-12-25 06:39:59 +00:00
parent afd8871cd6
commit eb1f32e7b1
6 changed files with 3239 additions and 3307 deletions

View File

@ -1,36 +1,35 @@
object FunctionListFrame: TFunctionListFrame
Left = 0
Height = 327
Top = 0
Width = 115
Align = alLeft
ClientHeight = 327
ClientWidth = 115
TabOrder = 0
DesignLeft = 401
DesignTop = 219
object FunctionList: TTreeView
Left = 0
Height = 306
Top = 0
Width = 115
Align = alClient
DefaultItemHeight = 15
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnMouseDown = FunctionListMouseDown
OnMouseUp = FunctionListMouseUp
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
object editSearchList: TEdit
Left = 0
Height = 21
Top = 306
Width = 115
Align = alBottom
OnChange = editSearchListChange
OnKeyPress = editSearchListKeyPress
TabOrder = 1
end
end
object FunctionListFrame: TFunctionListFrame
Left = 0
Height = 327
Top = 0
Width = 115
Align = alLeft
ClientHeight = 327
ClientWidth = 115
TabOrder = 0
DesignLeft = 401
DesignTop = 219
object FunctionList: TTreeView
Left = 0
Height = 300
Top = 0
Width = 115
Align = alClient
DefaultItemHeight = 19
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnMouseDown = FunctionListMouseDown
OnMouseUp = FunctionListMouseUp
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
object editSearchList: TEdit
Left = 0
Height = 27
Top = 300
Width = 115
Align = alBottom
OnChange = editSearchListChange
TabOrder = 1
end
end

View File

@ -1,16 +1,16 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFunctionListFrame','FORMDATA',[
'TPF0'#18'TFunctionListFrame'#17'FunctionListFrame'#4'Left'#2#0#6'Height'#3'G'
+#1#3'Top'#2#0#5'Width'#2's'#5'Align'#7#6'alLeft'#12'ClientHeight'#3'G'#1#11
+'ClientWidth'#2's'#8'TabOrder'#2#0#10'DesignLeft'#3#145#1#9'DesignTop'#3#219
+#0#0#9'TTreeView'#12'FunctionList'#4'Left'#2#0#6'Height'#3'2'#1#3'Top'#2#0#5
+'Width'#2's'#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#15#8'ReadOnly'#9
+#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#11'OnMouseDown'#7#21'Functi'
+'onListMouseDown'#9'OnMouseUp'#7#19'FunctionListMouseUp'#7'Options'#11#17'tv'
+'oAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadO'
+'nly'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0
+#0#5'TEdit'#14'editSearchList'#4'Left'#2#0#6'Height'#2#21#3'Top'#3'2'#1#5'Wi'
+'dth'#2's'#5'Align'#7#8'alBottom'#8'OnChange'#7#20'editSearchListChange'#10
+'OnKeyPress'#7#22'editSearchListKeyPress'#8'TabOrder'#2#1#0#0#0
]);
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFunctionListFrame','FORMDATA',[
'TPF0'#18'TFunctionListFrame'#17'FunctionListFrame'#4'Left'#2#0#6'Height'#3'G'
+#1#3'Top'#2#0#5'Width'#2's'#5'Align'#7#6'alLeft'#12'ClientHeight'#3'G'#1#11
+'ClientWidth'#2's'#8'TabOrder'#2#0#10'DesignLeft'#3#145#1#9'DesignTop'#3#219
+#0#0#9'TTreeView'#12'FunctionList'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5
+'Width'#2's'#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#19#8'ReadOnly'#9
+#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#11'OnMouseDown'#7#21'Functi'
+'onListMouseDown'#9'OnMouseUp'#7#19'FunctionListMouseUp'#7'Options'#11#17'tv'
+'oAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadO'
+'nly'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0
+#0#5'TEdit'#14'editSearchList'#4'Left'#2#0#6'Height'#2#27#3'Top'#3','#1#5'Wi'
+'dth'#2's'#5'Align'#7#8'alBottom'#8'OnChange'#7#20'editSearchListChange'#8'T'
+'abOrder'#2#1#0#0#0
]);

View File

@ -1,193 +1,158 @@
unit framefunctionlist;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, ComCtrls, StdCtrls, Controls;
type
{ TFunctionListFrame }
TFunctionListFrame = class(TFrame)
editSearchList: TEdit;
FunctionList: TTreeView;
procedure editSearchListChange(Sender: TObject);
procedure editSearchListKeyPress(Sender: TObject; var Key: char);
procedure FunctionListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FunctionListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DockFormOnClose(Sender: TObject; var CloseAction: TCloseAction);
private
{ private declarations }
public
DraggingNode : TTreeNode;
ScriptNode : TTreeNode;
InCodeCompletion : boolean;
CompletionCaret : TPoint;
StartWordCompletion : TPoint;
CompletionLine : string;
CompletionStart : string;
function Find(Next : boolean) : boolean;
{ public declarations }
end;
implementation
uses
TestUnit, Graphics,simpleanalyzer;
{ TFunctionListFrame }
procedure TFunctionListFrame.editSearchListChange(Sender: TObject);
begin
Find(false);
end;
procedure TFunctionListFrame.editSearchListKeyPress(Sender: TObject;
var Key: char);
begin
Writeln('test');
end;
procedure TFunctionListFrame.DockFormOnClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction := caHide;
Form1.MenuItemFunctionList.Checked := False;
end;
function TFunctionListFrame.Find(Next : boolean) : boolean;
var
Start,i,index,posi: Integer;
FoundFunction : boolean;
str : string;
Node : TTreeNode;
begin
if(editSearchList.Text = '')then
begin
editSearchList.Color := clWhite;
editSearchList.Repaint;
node := FunctionList.Items.GetFirstNode;
while node <> nil do
begin;
node.Expanded:= false;
node := Node.GetNext;
end;
if InCodeCompletion then
begin;
Form1.CurrScript.SynEdit.Lines[ CompletionCaret.y - 1] := CompletionStart;
Form1.CurrScript.SynEdit.LogicalCaretXY:= point(CompletionCaret.x,CompletionCaret.y);
Form1.CurrScript.SynEdit.SelEnd:= Form1.CurrScript.SynEdit.SelStart;
end;
exit;
end;
FoundFunction := false;
if FunctionList.Selected <> nil then
begin
if next then
Start := FunctionList.Selected.AbsoluteIndex + 1
else
Start := FunctionList.Selected.AbsoluteIndex;
end else
Start := 0;
for i := start to FunctionList.Items.Count - 1 do
begin
Node := FunctionList.Items.Item[i];
if Node.Level = 1 then
if(pos(lowercase(editSearchList.Text), lowercase(FunctionList.Items[I].Text)) > 0)then
begin;
FoundFunction := true;
index := i;
break;
end;
end;
if not FoundFunction then
begin;
for i := 0 to start - 1 do
begin
Node := FunctionList.Items.Item[i];
if Node.Level = 1 then
if(pos(lowercase(editSearchList.Text), lowercase(FunctionList.Items[I].Text)) > 0)then
begin;
FoundFunction := true;
index := i;
break;
end;
end;
end;
Result := FoundFunction;
if Result then
begin;
Writeln(FunctionList.Items[Index].Text);
for i := 0 to FunctionList.Items.Count - 1 do
FunctionList.Items[i].Expanded:= false;
FunctionList.Items[Index].Selected := true;
FunctionList.Items[index].ExpandParents;
editSearchList.Color := clWhite;
if InCodeCompletion then
begin;
str :=format(CompletionLine,[ FunctionList.items[index].text]);
with Form1.CurrScript.SynEdit do
begin;
Lines[ CompletionCaret.y - 1] := str;
LogicalCaretXY:= StartWordCompletion;
i := SelStart;
posi := pos(lowercase(editSearchList.text), lowercase(FunctionList.items[index].text));
SelStart := i + length(editSearchList.Text) + posi - 1;
SelEnd := i + Length(str);
end;
end;
end else
begin
editSearchList.Color := 6711039;
if InCodeCompletion then
Form1.CurrScript.SynEdit.Lines[ CompletionCaret.y - 1] := CompletionStart;
end;
editSearchList.Repaint;
end;
procedure TFunctionListFrame.FunctionListMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
N: TTreeNode;
begin
N := Self.FunctionList.GetNodeAt(x, y);
if(N = nil)then
begin
Self.DragKind := dkDock;
Self.BeginDrag(false, 40);
exit;
end;
Self.DragKind := dkDrag;
if(Button = mbLeft) and (N.Level > 0)then
Self.BeginDrag(False, 10);
DraggingNode := N;
end;
procedure TFunctionListFrame.FunctionListMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
F: ^TCustomDockForm;
begin
if(Self.Parent is TCustomDockForm)then
begin
F := @Self.Parent; //can't typecast parent as a TCustomDockForm
F^.Caption := 'Function List';
F^.BorderStyle := bsSizeable;
F^.OnClose := @DockFormOnClose;
Form1.Splitter1.Hide;
end;
end;
initialization
{$I framefunctionlist.lrs}
end.
unit framefunctionlist;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, ComCtrls, StdCtrls, Controls;
type
{ TFunctionListFrame }
TFunctionListFrame = class(TFrame)
editSearchList: TEdit;
FunctionList: TTreeView;
procedure editSearchListChange(Sender: TObject);
procedure FunctionListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FunctionListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DockFormOnClose(Sender: TObject; var CloseAction: TCloseAction);
private
{ private declarations }
public
DraggingNode : TTreeNode;
ScriptNode : TTreeNode;
InCodeCompletion : boolean;
CompletionCaret : TPoint;
StartWordCompletion : TPoint;
CompletionLine : string;
CompletionStart : string;
function Find(Next : boolean) : boolean;
{ public declarations }
end;
implementation
uses
TestUnit, Graphics, simpleanalyzer;
{ TFunctionListFrame }
procedure TFunctionListFrame.editSearchListChange(Sender: TObject);
begin
Find(false);
end;
procedure TFunctionListFrame.DockFormOnClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction := caHide;
Form1.MenuItemFunctionList.Checked := False;
end;
function TFunctionListFrame.Find(Next : boolean) : boolean;
var
Start,i,index,posi: Integer;
FoundFunction : boolean;
str : string;
Node : TTreeNode;
begin
if(editSearchList.Text = '')then
begin
editSearchList.Color := clWhite;
FunctionList.FullCollapse;
if InCodeCompletion then
begin;
Form1.CurrScript.SynEdit.Lines[CompletionCaret.y - 1] := CompletionStart;
Form1.CurrScript.SynEdit.LogicalCaretXY:= point(CompletionCaret.x,CompletionCaret.y);
Form1.CurrScript.SynEdit.SelEnd:= Form1.CurrScript.SynEdit.SelStart;
end;
exit;
end;
FoundFunction := False;
if FunctionList.Selected <> nil then
begin
Start := FunctionList.Selected.AbsoluteIndex;
if(next)then
inc(Start);
end else
Start := 0;
for i := start to start + FunctionList.Items.Count - 1 do
if(FunctionList.Items[i mod FunctionList.Items.Count].Level = 1)then
if(pos(lowercase(editSearchList.Text), lowercase(FunctionList.Items[i mod FunctionList.Items.Count].Text)) > 0)then
begin
FoundFunction := True;
index := i mod FunctionList.Items.Count;
break;
end;
Result := FoundFunction;
if Result then
begin;
Writeln(FunctionList.Items[Index].Text);
FunctionList.FullCollapse;
FunctionList.Items[Index].Selected := true;
FunctionList.Items[index].ExpandParents;
editSearchList.Color := clWhite;
if InCodeCompletion then
begin;
str := format(CompletionLine, [FunctionList.items[index].text]);
with Form1.CurrScript.SynEdit do
begin;
Lines[CompletionCaret.y - 1] := str;
LogicalCaretXY:= StartWordCompletion;
i := SelStart;
posi := pos(lowercase(editSearchList.text), lowercase(FunctionList.items[index].text));
SelStart := i + length(editSearchList.Text) + posi - 1;
SelEnd := i + Length(str);
end;
end;
end else
begin
editSearchList.Color := 6711039;
if InCodeCompletion then
Form1.CurrScript.SynEdit.Lines[CompletionCaret.y - 1] := CompletionStart;
end;
end;
procedure TFunctionListFrame.FunctionListMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
N: TTreeNode;
begin
N := Self.FunctionList.GetNodeAt(x, y);
if(N = nil)then
begin
Self.DragKind := dkDock;
Self.BeginDrag(false, 40);
exit;
end;
Self.DragKind := dkDrag;
if(Button = mbLeft) and (N.Level > 0)then
Self.BeginDrag(False, 10);
DraggingNode := N;
end;
procedure TFunctionListFrame.FunctionListMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
F: ^TCustomDockForm;
begin
if(Self.Parent is TCustomDockForm)then
begin
F := @Self.Parent; //can't typecast parent as a TCustomDockForm
F^.Caption := 'Function List';
F^.BorderStyle := bsSizeable;
F^.OnClose := @DockFormOnClose;
Form1.Splitter1.Hide;
end;
end;
initialization
{$I framefunctionlist.lrs}
end.

View File

@ -10,7 +10,7 @@
<TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="5"/>
<ActiveEditorIndexAtStart Value="4"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
@ -121,7 +121,7 @@
<Filename Value="../Documents/lazarus/lcl/include/rasterimage.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="691"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="../Documents/fpc/packages/x11/src/xlib.pp"/>
@ -316,7 +316,7 @@
<UnitName Value="uPSC_forms"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit37>
<Unit38>
<Filename Value="project1.lrs"/>
@ -336,9 +336,7 @@
<UnitName Value="SynEdit"/>
<CursorPos X="32" Y="1834"/>
<TopLine Value="1832"/>
<EditorIndex Value="9"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit40>
<Unit41>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
@ -356,9 +354,7 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/objpash.inc"/>
<CursorPos X="20" Y="233"/>
<TopLine Value="205"/>
<EditorIndex Value="13"/>
<UsageCount Value="27"/>
<Loaded Value="True"/>
</Unit43>
<Unit44>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
@ -747,7 +743,7 @@
<UnitName Value="CompScript"/>
<CursorPos X="1" Y="529"/>
<TopLine Value="508"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit100>
<Unit101>
<Filename Value="../../../Documents/fpc/rtl/objpas/math.pp"/>
@ -898,9 +894,7 @@
<UnitName Value="ComCtrls"/>
<CursorPos X="14" Y="2243"/>
<TopLine Value="2225"/>
<EditorIndex Value="15"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit123>
<Unit124>
<Filename Value="../../../lazarus/lcl/imglist.pp"/>
@ -971,7 +965,7 @@
<UnitName Value="EditorOptions"/>
<CursorPos X="1" Y="293"/>
<TopLine Value="276"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit133>
<Unit134>
<Filename Value="../../../lazarus/ide/frames/editor_color_options.pas"/>
@ -998,7 +992,7 @@
<UnitName Value="SourceEditor"/>
<CursorPos X="35" Y="5100"/>
<TopLine Value="5089"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit136>
<Unit137>
<Filename Value="../../../lazarus/ide/checklfmdlg.pas"/>
@ -1121,7 +1115,7 @@
<UnitName Value="framescript"/>
<CursorPos X="45" Y="165"/>
<TopLine Value="137"/>
<EditorIndex Value="8"/>
<EditorIndex Value="7"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit151>
@ -1155,18 +1149,14 @@
<UnitName Value="SynEditPointClasses"/>
<CursorPos X="3" Y="1287"/>
<TopLine Value="1281"/>
<EditorIndex Value="10"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit156>
<Unit157>
<Filename Value="../../../lazarus/components/synedit/synedittextbase.pas"/>
<UnitName Value="SynEditTextBase"/>
<CursorPos X="14" Y="140"/>
<TopLine Value="112"/>
<EditorIndex Value="11"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit157>
<Unit158>
<Filename Value="../../../lazarus/lcl/include/wincontrol.inc"/>
@ -1209,7 +1199,7 @@
<UnitName Value="KeyMapping"/>
<CursorPos X="32" Y="339"/>
<TopLine Value="328"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit163>
<Unit164>
<Filename Value="../../../lazarus/ide/basedebugmanager.pas"/>
@ -1223,7 +1213,7 @@
<UnitName Value="LMessages"/>
<CursorPos X="11" Y="429"/>
<TopLine Value="429"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit165>
<Unit166>
<Filename Value="../../../lazarus/lcl/include/customactionlist.inc"/>
@ -1337,7 +1327,7 @@
<UnitName Value="WinCEWSExtCtrls"/>
<CursorPos X="56" Y="576"/>
<TopLine Value="560"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit183>
<Unit184>
<Filename Value="../../../fpc/rtl/objpas/classes/classesh.inc"/>
@ -1383,7 +1373,7 @@
<UnitName Value="SynEditMarkupHighAll"/>
<CursorPos X="78" Y="717"/>
<TopLine Value="706"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit190>
<Unit191>
<Filename Value="../../../lazarus/components/synedit/syneditmarkup.pp"/>
@ -1442,7 +1432,7 @@
<CursorPos X="39" Y="310"/>
<TopLine Value="290"/>
<EditorIndex Value="3"/>
<UsageCount Value="178"/>
<UsageCount Value="179"/>
<Loaded Value="True"/>
</Unit198>
<Unit199>
@ -1456,13 +1446,13 @@
<Filename Value="../../../Documents/fpc/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="14" Y="276"/>
<TopLine Value="262"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit200>
<Unit201>
<Filename Value="../../../Documents/lazarus/lcl/include/customform.inc"/>
<CursorPos X="1" Y="137"/>
<TopLine Value="123"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit201>
<Unit202>
<Filename Value="../../../Documents/lazarus/lcl/include/listitems.inc"/>
@ -1474,13 +1464,13 @@
<Filename Value="../../../Documents/lazarus/lcl/include/listitem.inc"/>
<CursorPos X="1" Y="324"/>
<TopLine Value="310"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit203>
<Unit204>
<Filename Value="colourhistory.lfm"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit204>
<Unit205>
@ -1502,21 +1492,21 @@
<UnitName Value="SynEditMiscClasses"/>
<CursorPos X="44" Y="323"/>
<TopLine Value="311"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit207>
<Unit208>
<Filename Value="../../../usr/local/share/lazarus/lcl/dialogs.pp"/>
<UnitName Value="Dialogs"/>
<CursorPos X="14" Y="421"/>
<TopLine Value="409"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit208>
<Unit209>
<Filename Value="../../../usr/local/share/lazarus/lcl/lclintf.pas"/>
<UnitName Value="LCLIntf"/>
<CursorPos X="10" Y="82"/>
<TopLine Value="70"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit209>
<Unit210>
<Filename Value="../../../usr/local/share/lazarus/components/synedit/synedittexttrimmer.pas"/>
@ -1530,28 +1520,28 @@
<UnitName Value="CompilerOptions"/>
<CursorPos X="20" Y="2186"/>
<TopLine Value="2175"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit211>
<Unit212>
<Filename Value="../../../lazarus/components/mouseandkeyinput/xkeyinput.pas"/>
<UnitName Value="XKeyInput"/>
<CursorPos X="17" Y="169"/>
<TopLine Value="166"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit212>
<Unit213>
<Filename Value="../../../Documents/lazarus/components/mouseandkeyinput/mouseandkeyinput.pas"/>
<UnitName Value="MouseAndKeyInput"/>
<CursorPos X="18" Y="41"/>
<TopLine Value="26"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit213>
<Unit214>
<Filename Value="../../../Documents/lazarus/components/mouseandkeyinput/keyinputintf.pas"/>
<UnitName Value="KeyInputIntf"/>
<CursorPos X="5" Y="34"/>
<TopLine Value="24"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit214>
<Unit215>
<Filename Value="../../Units/MMLCore/mmlkeyinput.pas"/>
@ -1565,35 +1555,35 @@
<UnitName Value="XKeyInput"/>
<CursorPos X="5" Y="36"/>
<TopLine Value="29"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit216>
<Unit217>
<Filename Value="../../../laz/lazarus/components/mouseandkeyinput/keyinputintf.pas"/>
<UnitName Value="KeyInputIntf"/>
<CursorPos X="24" Y="12"/>
<TopLine Value="10"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit217>
<Unit218>
<Filename Value="../../../laz/lazarus/components/mouseandkeyinput/mouseandkeyinput.pas"/>
<UnitName Value="MouseAndKeyInput"/>
<CursorPos X="12" Y="26"/>
<TopLine Value="16"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit218>
<Unit219>
<Filename Value="../../../laz/lazarus/components/mouseandkeyinput/winmouseinput.pas"/>
<UnitName Value="WinMouseInput"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit219>
<Unit220>
<Filename Value="../../../laz/lazarus/components/mouseandkeyinput/winkeyinput.pas"/>
<UnitName Value="WinKeyInput"/>
<CursorPos X="15" Y="32"/>
<TopLine Value="24"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit220>
<Unit221>
<Filename Value="../../../Documents/lazarus/lcl/lcltype.pp"/>
@ -1606,7 +1596,7 @@
<Filename Value="../../../Documents/fpc/rtl/inc/objpash.inc"/>
<CursorPos X="11" Y="326"/>
<TopLine Value="311"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit222>
<Unit223>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/keyboard.inc"/>
@ -1619,7 +1609,7 @@
<UnitName Value="xlib"/>
<CursorPos X="10" Y="1535"/>
<TopLine Value="1520"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit224>
<Unit225>
<Filename Value="../../../Documents/lazarus/lcl/include/winapih.inc"/>
@ -1631,26 +1621,26 @@
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk2/gtk2winapi.inc"/>
<CursorPos X="34" Y="10"/>
<TopLine Value="1"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit226>
<Unit227>
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkwinapi.inc"/>
<CursorPos X="32" Y="5220"/>
<TopLine Value="5199"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit227>
<Unit228>
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkint.pp"/>
<UnitName Value="GtkInt"/>
<CursorPos X="26" Y="87"/>
<TopLine Value="82"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit228>
<Unit229>
<Filename Value="../../../Documents/fpc/rtl/unix/ctypes.inc"/>
<CursorPos X="3" Y="59"/>
<TopLine Value="40"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit229>
<Unit230>
<Filename Value="../../../Documents/fpc/packages/x11/src/keysym.pp"/>
@ -1663,20 +1653,20 @@
<Filename Value="../../../Documents/lazarus/lcl/interfaces/gtk/gtkproc.inc"/>
<CursorPos X="14" Y="3074"/>
<TopLine Value="3064"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit231>
<Unit232>
<Filename Value="../../Units/Linux/xdo_util.inc"/>
<CursorPos X="24" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit232>
<Unit233>
<Filename Value="../../Units/Linux/xkeyboard.pas"/>
<UnitName Value="xkeyboard"/>
<CursorPos X="26" Y="9"/>
<TopLine Value="9"/>
<UsageCount Value="0"/>
<UsageCount Value="10"/>
</Unit233>
<Unit234>
<Filename Value="../../../FPC/FPCCheckout/rtl/win/mouse.pp"/>
@ -1693,7 +1683,7 @@
<UnitName Value="about"/>
<CursorPos X="44" Y="21"/>
<TopLine Value="4"/>
<UsageCount Value="141"/>
<UsageCount Value="142"/>
</Unit235>
<Unit236>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/>
@ -1707,7 +1697,7 @@
<UnitName Value="internets"/>
<CursorPos X="87" Y="3"/>
<TopLine Value="1"/>
<UsageCount Value="135"/>
<UsageCount Value="136"/>
</Unit237>
<Unit238>
<Filename Value="debugimageform.pas"/>
@ -1716,7 +1706,7 @@
<UnitName Value="debugimageform"/>
<CursorPos X="20" Y="1"/>
<TopLine Value="1"/>
<UsageCount Value="122"/>
<UsageCount Value="123"/>
</Unit238>
<Unit239>
<Filename Value="debugimage.pas"/>
@ -1727,7 +1717,7 @@
<CursorPos X="59" Y="23"/>
<TopLine Value="88"/>
<EditorIndex Value="4"/>
<UsageCount Value="121"/>
<UsageCount Value="122"/>
<Loaded Value="True"/>
</Unit239>
<Unit240>
@ -1848,10 +1838,10 @@
<ComponentName Value="FunctionListFrame"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="framefunctionlist"/>
<CursorPos X="47" Y="85"/>
<TopLine Value="57"/>
<EditorIndex Value="7"/>
<UsageCount Value="42"/>
<CursorPos X="56" Y="9"/>
<TopLine Value="54"/>
<EditorIndex Value="6"/>
<UsageCount Value="43"/>
<Loaded Value="True"/>
</Unit257>
<Unit258>
@ -1906,9 +1896,9 @@
<IsPartOfProject Value="True"/>
<UnitName Value="simpleanalyzer"/>
<CursorPos X="52" Y="104"/>
<TopLine Value="196"/>
<EditorIndex Value="12"/>
<UsageCount Value="29"/>
<TopLine Value="193"/>
<EditorIndex Value="8"/>
<UsageCount Value="30"/>
<Loaded Value="True"/>
</Unit265>
<Unit266>
@ -1916,8 +1906,8 @@
<UnitName Value="mPasLex"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="14"/>
<UsageCount Value="14"/>
<EditorIndex Value="9"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit266>
<Unit267>
@ -1938,132 +1928,110 @@
<UnitName Value="StdCtrls"/>
<CursorPos X="14" Y="866"/>
<TopLine Value="859"/>
<EditorIndex Value="6"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit269>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="25" HistoryIndex="24">
<Position1>
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/>
<Caret Line="984" Column="3" TopLine="1064"/>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="142" Column="1" TopLine="111"/>
</Position1>
<Position2>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="142" Column="1" TopLine="111"/>
<Caret Line="141" Column="28" TopLine="113"/>
</Position2>
<Position3>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="141" Column="28" TopLine="113"/>
<Filename Value="testunit.pas"/>
<Caret Line="969" Column="37" TopLine="960"/>
</Position3>
<Position4>
<Filename Value="testunit.pas"/>
<Caret Line="969" Column="37" TopLine="960"/>
<Caret Line="984" Column="39" TopLine="973"/>
</Position4>
<Position5>
<Filename Value="testunit.pas"/>
<Caret Line="984" Column="39" TopLine="973"/>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="141" Column="62" TopLine="116"/>
</Position5>
<Position6>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="141" Column="62" TopLine="116"/>
<Caret Line="117" Column="101" TopLine="87"/>
</Position6>
<Position7>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="117" Column="101" TopLine="87"/>
<Caret Line="140" Column="51" TopLine="113"/>
</Position7>
<Position8>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="140" Column="51" TopLine="113"/>
<Caret Line="138" Column="59" TopLine="107"/>
</Position8>
<Position9>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="138" Column="59" TopLine="107"/>
<Filename Value="framescript.pas"/>
<Caret Line="19" Column="46" TopLine="17"/>
</Position9>
<Position10>
<Filename Value="framescript.pas"/>
<Caret Line="19" Column="46" TopLine="17"/>
<Caret Line="33" Column="20" TopLine="17"/>
</Position10>
<Position11>
<Filename Value="framescript.pas"/>
<Caret Line="33" Column="20" TopLine="17"/>
<Caret Line="175" Column="16" TopLine="137"/>
</Position11>
<Position12>
<Filename Value="framescript.pas"/>
<Caret Line="175" Column="16" TopLine="137"/>
</Position12>
<Position13>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="139" Column="26" TopLine="113"/>
</Position12>
<Position13>
<Filename Value="testunit.pas"/>
<Caret Line="62" Column="15" TopLine="34"/>
</Position13>
<Position14>
<Filename Value="testunit.pas"/>
<Caret Line="29" Column="138" TopLine="69"/>
<Caret Line="100" Column="21" TopLine="72"/>
</Position14>
<Position15>
<Filename Value="testunit.pas"/>
<Caret Line="62" Column="15" TopLine="34"/>
<Caret Line="151" Column="17" TopLine="123"/>
</Position15>
<Position16>
<Filename Value="testunit.pas"/>
<Caret Line="100" Column="21" TopLine="72"/>
<Caret Line="193" Column="25" TopLine="165"/>
</Position16>
<Position17>
<Filename Value="testunit.pas"/>
<Caret Line="151" Column="17" TopLine="123"/>
<Caret Line="969" Column="42" TopLine="960"/>
</Position17>
<Position18>
<Filename Value="testunit.pas"/>
<Caret Line="193" Column="25" TopLine="165"/>
</Position18>
<Position19>
<Filename Value="testunit.pas"/>
<Caret Line="969" Column="42" TopLine="960"/>
</Position19>
<Position20>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="85" Column="7" TopLine="63"/>
</Position20>
<Position21>
</Position18>
<Position19>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="84" Column="73" TopLine="56"/>
</Position19>
<Position20>
<Filename Value="testunit.pas"/>
<Caret Line="984" Column="1" TopLine="959"/>
</Position20>
<Position21>
<Filename Value="testunit.pas"/>
<Caret Line="983" Column="87" TopLine="955"/>
</Position21>
<Position22>
<Filename Value="testunit.pas"/>
<Caret Line="984" Column="1" TopLine="959"/>
<Caret Line="984" Column="28" TopLine="955"/>
</Position22>
<Position23>
<Filename Value="testunit.pas"/>
<Caret Line="983" Column="87" TopLine="955"/>
<Caret Line="988" Column="72" TopLine="956"/>
</Position23>
<Position24>
<Filename Value="testunit.pas"/>
<Caret Line="984" Column="28" TopLine="955"/>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="124" Column="64" TopLine="117"/>
</Position24>
<Position25>
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/>
<Caret Line="835" Column="39" TopLine="807"/>
<Filename Value="framefunctionlist.pas"/>
<Caret Line="41" Column="23" TopLine="48"/>
</Position25>
<Position26>
<Filename Value="../../../lazarus/components/synedit/synedit.pp"/>
<Caret Line="1834" Column="32" TopLine="1832"/>
</Position26>
<Position27>
<Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/>
<Caret Line="155" Column="47" TopLine="127"/>
</Position27>
<Position28>
<Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/>
<Caret Line="1389" Column="17" TopLine="1384"/>
</Position28>
<Position29>
<Filename Value="../../../lazarus/components/synedit/syneditpointclasses.pas"/>
<Caret Line="148" Column="58" TopLine="119"/>
</Position29>
<Position30>
<Filename Value="testunit.pas"/>
<Caret Line="988" Column="72" TopLine="956"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

View File

@ -1,11 +1,11 @@
object Form1: TForm1
Left = 273
Left = 473
Height = 557
Top = 233
Top = 246
Width = 734
ActiveControl = ScriptPanel
Caption = 'THA FUKING MUFASA'
ClientHeight = 537
ClientHeight = 532
ClientWidth = 734
KeyPreview = True
Menu = MainMenu1
@ -166,8 +166,8 @@ object Form1: TForm1
end
object StatusBar: TStatusBar
Left = 0
Height = 23
Top = 514
Height = 21
Top = 511
Width = 734
Panels = <
item
@ -185,7 +185,7 @@ object Form1: TForm1
object PanelMemo: TPanel
Left = 0
Height = 154
Top = 360
Top = 357
Width = 734
Align = alBottom
ClientHeight = 154
@ -205,19 +205,19 @@ object Form1: TForm1
Cursor = crVSplit
Left = 0
Height = 5
Top = 355
Top = 352
Width = 734
Align = alBottom
ResizeAnchor = akBottom
end
object ScriptPanel: TPanel
Left = 0
Height = 331
Height = 328
Top = 24
Width = 734
Align = alClient
BevelOuter = bvNone
ClientHeight = 331
ClientHeight = 328
ClientWidth = 734
DockSite = True
TabOrder = 4
@ -225,7 +225,7 @@ object Form1: TForm1
OnDockOver = ScriptPanelDockOver
object PageControl1: TPageControl
Left = 150
Height = 296
Height = 293
Top = 0
Width = 584
Align = alClient
@ -244,7 +244,7 @@ object Form1: TForm1
object SearchPanel: TPanel
Left = 0
Height = 35
Top = 296
Top = 293
Width = 734
Align = alBottom
BevelOuter = bvSpace
@ -340,7 +340,7 @@ object Form1: TForm1
end
object LabeledEditSearch: TLabeledEdit
Left = 104
Height = 21
Height = 27
Top = 6
Width = 174
EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@ -348,10 +348,10 @@ object Form1: TForm1
EditLabel.AnchorSideTop.Side = asrCenter
EditLabel.AnchorSideRight.Control = LabeledEditSearch
EditLabel.AnchorSideBottom.Control = LabeledEditSearch
EditLabel.Left = 73
EditLabel.Height = 14
EditLabel.Top = 9
EditLabel.Width = 28
EditLabel.Left = 65
EditLabel.Height = 18
EditLabel.Top = 10
EditLabel.Width = 36
EditLabel.Caption = 'Find: '
EditLabel.ParentColor = False
LabelPosition = lpLeft
@ -364,9 +364,9 @@ object Form1: TForm1
end
object CheckBoxMatchCase: TCheckBox
Left = 320
Height = 17
Height = 22
Top = 7
Width = 72
Width = 98
Caption = 'Match case'
OnClick = CheckBoxMatchCaseClick
TabOrder = 1
@ -374,27 +374,27 @@ object Form1: TForm1
end
object Splitter1: TSplitter
Left = 145
Height = 296
Height = 293
Top = 0
Width = 5
OnCanResize = Splitter1CanResize
Visible = False
end
inline frmFunctionList: TFunctionListFrame
Height = 296
Height = 293
Width = 145
ClientHeight = 296
ClientHeight = 293
ClientWidth = 145
TabOrder = 3
Visible = False
inherited FunctionList: TTreeView
Height = 275
Height = 266
Width = 145
OnChange = FunctionListChange
OnExit = FunctionListExit
end
inherited editSearchList: TEdit
Top = 275
Top = 266
Width = 145
OnExit = editSearchListExit
OnKeyPress = editSearchListKeyPress

File diff suppressed because it is too large Load Diff