mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 15:58:51 -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
parent
afd8871cd6
commit
eb1f32e7b1
@ -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
|
||||
|
||||
@ -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
|
||||
]);
|
||||
|
||||
@ -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.
|
||||
|
||||
|
||||
@ -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>
|
||||
|
||||
@ -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
Loading…
Reference in New Issue
Block a user