mirror of
https://github.com/moparisthebest/Simba
synced 2025-02-16 07:10:10 -05:00
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@276 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Cazax
parent
7179add741
commit
0d20ef5b2d
@ -1,21 +1,22 @@
|
||||
object DebugImgForm: TDebugImgForm
|
||||
Left = 502
|
||||
Height = 300
|
||||
Top = 289
|
||||
Width = 400
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsToolWindow
|
||||
Caption = 'DebugImgForm'
|
||||
ClientHeight = 300
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
OnResize = FormResize
|
||||
LCLVersion = '0.9.29'
|
||||
object DrawImage: TImage
|
||||
Left = 0
|
||||
Height = 300
|
||||
Top = 0
|
||||
Width = 400
|
||||
Align = alClient
|
||||
end
|
||||
end
|
||||
object DebugImgForm: TDebugImgForm
|
||||
Left = 491
|
||||
Height = 300
|
||||
Top = 266
|
||||
Width = 400
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsToolWindow
|
||||
Caption = 'DebugImgForm'
|
||||
ClientHeight = 300
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
OnHide = FormHide
|
||||
OnResize = FormResize
|
||||
LCLVersion = '0.9.29'
|
||||
object DrawImage: TImage
|
||||
Left = 0
|
||||
Height = 300
|
||||
Top = 0
|
||||
Width = 400
|
||||
Align = alClient
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,11 +1,11 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TDebugImgForm','FORMDATA',[
|
||||
'TPF0'#13'TDebugImgForm'#12'DebugImgForm'#4'Left'#3#246#1#6'Height'#3','#1#3
|
||||
+'Top'#3'!'#1#5'Width'#3#144#1#11'BorderIcons'#11#12'biSystemMenu'#10'biMinim'
|
||||
+'ize'#0#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#12'DebugImgForm'#12
|
||||
+'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#8
|
||||
+'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.29'#0#6'TImage'#9'DrawIma'
|
||||
+'ge'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5'Align'#7#8'a'
|
||||
+'lClient'#0#0#0
|
||||
]);
|
||||
{ Este es un archivo de recurso de Lazarus generado automáticamente }
|
||||
|
||||
LazarusResources.Add('TDebugImgForm','FORMDATA',[
|
||||
'TPF0'#13'TDebugImgForm'#12'DebugImgForm'#4'Left'#3#235#1#6'Height'#3','#1#3
|
||||
+'Top'#3#10#1#5'Width'#3#144#1#11'BorderIcons'#11#12'biSystemMenu'#10'biMinim'
|
||||
+'ize'#0#11'BorderStyle'#7#12'bsToolWindow'#7'Caption'#6#12'DebugImgForm'#12
|
||||
+'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#6
|
||||
+'OnHide'#7#8'FormHide'#8'OnResize'#7#10'FormResize'#10'LCLVersion'#6#6'0.9.2'
|
||||
+'9'#0#6'TImage'#9'DrawImage'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'
|
||||
+#3#144#1#5'Align'#7#8'alClient'#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,118 +1,124 @@
|
||||
{
|
||||
This file is part of the Mufasa Macro Library (MML)
|
||||
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
||||
|
||||
MML is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
MML is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
See the file COPYING, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
Image debug window for Mufasa Macro Library
|
||||
}
|
||||
unit debugimage;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
ExtCtrls, bitmaps;
|
||||
|
||||
type
|
||||
|
||||
{ TDebugImgForm }
|
||||
|
||||
TDebugImgForm = class(TForm)
|
||||
DrawImage: TImage;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
DispSize : TPoint;
|
||||
ToDrawBmp: TMufasaBitmap;//The bitmap we should draw!
|
||||
procedure BlackDebugImage;
|
||||
procedure DrawBitmap;
|
||||
procedure GetDebugImage(out bmp : TMufasaBitmap);
|
||||
procedure ShowDebugImgForm; //Uses the global var for w/h
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
DebugImgForm: TDebugImgForm;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
MufasaTypes, math,windowutil,graphtype, IntfGraphics,TestUnit,lclintf,colour_conv,InterfaceBase;
|
||||
{ TDebugImgForm }
|
||||
|
||||
procedure TDebugImgForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BlackDebugImage;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.FormResize(Sender: TObject);
|
||||
begin
|
||||
DrawImage.Picture.Graphic.Width := DrawImage.Width;
|
||||
DrawImage.Picture.Graphic.Height := DrawImage.Height;
|
||||
BlackDebugImage;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.BlackDebugImage;
|
||||
begin
|
||||
DrawImage.Canvas.Brush.Color:= clBlack;
|
||||
DrawImage.Canvas.Pen.Color:= clBlack;
|
||||
DrawImage.Canvas.Rectangle(0,0,DrawImage.Width,DrawImage.Height);
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.DrawBitmap;
|
||||
var
|
||||
rawImage : TRawImage;
|
||||
Bitmap : Graphics.TBitmap;
|
||||
begin
|
||||
if ToDrawBmp = nil then
|
||||
raise Exception.Create('ERROR in TDebugImgForm.DrawBitmap: ToDrawBmp = nil');
|
||||
ArrDataToRawImage(ToDrawBmp.FData,Point(ToDrawBmp.width,ToDrawBmp.height),RawImage);
|
||||
Bitmap := Graphics.TBitmap.Create;
|
||||
Bitmap.LoadFromRawImage(Rawimage,false);
|
||||
DrawImage.Canvas.Draw(0,0,Bitmap);
|
||||
Bitmap.Free;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.GetDebugImage(out bmp: TMufasaBitmap);
|
||||
begin;
|
||||
DrawImage.Picture.SaveToFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
bmp := TMufasaBitmap.Create;
|
||||
bmp.LoadFromFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
DeleteFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.ShowDebugImgForm;
|
||||
begin
|
||||
Show;
|
||||
if (DispSize.x <> Width) or (DispSize.y <> height) then
|
||||
begin;
|
||||
Width := DispSize.x;
|
||||
Height := DispSize.y;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I debugimage.lrs}
|
||||
|
||||
end.
|
||||
|
||||
{
|
||||
This file is part of the Mufasa Macro Library (MML)
|
||||
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
||||
|
||||
MML is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
MML is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
See the file COPYING, included in this distribution,
|
||||
for details about the copyright.
|
||||
|
||||
Image debug window for Mufasa Macro Library
|
||||
}
|
||||
unit debugimage;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
ExtCtrls, bitmaps;
|
||||
|
||||
type
|
||||
|
||||
{ TDebugImgForm }
|
||||
|
||||
TDebugImgForm = class(TForm)
|
||||
DrawImage: TImage;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormHide(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
DispSize : TPoint;
|
||||
ToDrawBmp: TMufasaBitmap;//The bitmap we should draw!
|
||||
procedure BlackDebugImage;
|
||||
procedure DrawBitmap;
|
||||
procedure GetDebugImage(out bmp : TMufasaBitmap);
|
||||
procedure ShowDebugImgForm; //Uses the global var for w/h
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
|
||||
var
|
||||
DebugImgForm: TDebugImgForm;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
MufasaTypes, math,windowutil,graphtype, IntfGraphics,TestUnit,lclintf,colour_conv,InterfaceBase;
|
||||
{ TDebugImgForm }
|
||||
|
||||
procedure TDebugImgForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BlackDebugImage;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.FormHide(Sender: TObject);
|
||||
begin
|
||||
Form1.MenuItemDebugImage.Checked := False;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.FormResize(Sender: TObject);
|
||||
begin
|
||||
DrawImage.Picture.Graphic.Width := DrawImage.Width;
|
||||
DrawImage.Picture.Graphic.Height := DrawImage.Height;
|
||||
BlackDebugImage;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.BlackDebugImage;
|
||||
begin
|
||||
DrawImage.Canvas.Brush.Color:= clBlack;
|
||||
DrawImage.Canvas.Pen.Color:= clBlack;
|
||||
DrawImage.Canvas.Rectangle(0,0,DrawImage.Width,DrawImage.Height);
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.DrawBitmap;
|
||||
var
|
||||
rawImage : TRawImage;
|
||||
Bitmap : Graphics.TBitmap;
|
||||
begin
|
||||
if ToDrawBmp = nil then
|
||||
raise Exception.Create('ERROR in TDebugImgForm.DrawBitmap: ToDrawBmp = nil');
|
||||
ArrDataToRawImage(ToDrawBmp.FData,Point(ToDrawBmp.width,ToDrawBmp.height),RawImage);
|
||||
Bitmap := Graphics.TBitmap.Create;
|
||||
Bitmap.LoadFromRawImage(Rawimage,false);
|
||||
DrawImage.Canvas.Draw(0,0,Bitmap);
|
||||
Bitmap.Free;
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.GetDebugImage(out bmp: TMufasaBitmap);
|
||||
begin;
|
||||
DrawImage.Picture.SaveToFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
bmp := TMufasaBitmap.Create;
|
||||
bmp.LoadFromFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
DeleteFile(MainDir + DS + 'stupidwayofdoingthis.bmp');
|
||||
end;
|
||||
|
||||
procedure TDebugImgForm.ShowDebugImgForm;
|
||||
begin
|
||||
Show;
|
||||
if (DispSize.x <> Width) or (DispSize.y <> height) then
|
||||
begin;
|
||||
Width := DispSize.x;
|
||||
Height := DispSize.y;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I debugimage.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
<ProjectOptions>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<Title Value="Mufasa Stand Alone"/>
|
||||
<Icon Value="0"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<ActiveEditorIndexAtStart Value="4"/>
|
||||
</General>
|
||||
@ -34,14 +36,14 @@
|
||||
<PackageName Value="LCL"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="258">
|
||||
<Units Count="260">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="project1"/>
|
||||
<CursorPos X="79" Y="38"/>
|
||||
<TopLine Value="5"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<CursorPos X="100" Y="21"/>
|
||||
<TopLine Value="19"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<UsageCount Value="205"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
@ -165,8 +167,8 @@
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="TestUnit"/>
|
||||
<CursorPos X="75" Y="1129"/>
|
||||
<TopLine Value="1105"/>
|
||||
<CursorPos X="32" Y="742"/>
|
||||
<TopLine Value="734"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="202"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -223,7 +225,7 @@
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="Client"/>
|
||||
<CursorPos X="20" Y="66"/>
|
||||
<TopLine Value="44"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="201"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -232,8 +234,8 @@
|
||||
<Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="MufasaTypes"/>
|
||||
<CursorPos X="3" Y="50"/>
|
||||
<TopLine Value="35"/>
|
||||
<CursorPos X="14" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="201"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -257,8 +259,8 @@
|
||||
<Filename Value="../../Units/MMLCore/window.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="Window"/>
|
||||
<CursorPos X="31" Y="262"/>
|
||||
<TopLine Value="247"/>
|
||||
<CursorPos X="32" Y="6"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="201"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -276,7 +278,7 @@
|
||||
<CursorPos X="23" Y="8"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="14"/>
|
||||
<UsageCount Value="56"/>
|
||||
<UsageCount Value="59"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit31>
|
||||
<Unit32>
|
||||
@ -292,7 +294,7 @@
|
||||
<UnitName Value="finder"/>
|
||||
<CursorPos X="97" Y="1681"/>
|
||||
<TopLine Value="1666"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="201"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit33>
|
||||
@ -383,9 +385,9 @@
|
||||
</Unit45>
|
||||
<Unit46>
|
||||
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
|
||||
<CursorPos X="38" Y="46"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="11"/>
|
||||
<CursorPos X="117" Y="32"/>
|
||||
<TopLine Value="22"/>
|
||||
<EditorIndex Value="12"/>
|
||||
<UsageCount Value="100"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit46>
|
||||
@ -405,7 +407,7 @@
|
||||
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="bitmaps"/>
|
||||
<CursorPos X="47" Y="361"/>
|
||||
<CursorPos X="6" Y="611"/>
|
||||
<TopLine Value="598"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="200"/>
|
||||
@ -710,9 +712,9 @@
|
||||
<Filename Value="../../Units/MMLCore/dtm.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="dtm"/>
|
||||
<CursorPos X="17" Y="99"/>
|
||||
<TopLine Value="81"/>
|
||||
<EditorIndex Value="10"/>
|
||||
<CursorPos X="112" Y="86"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="11"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit95>
|
||||
@ -729,7 +731,7 @@
|
||||
<UnitName Value="colourpicker"/>
|
||||
<CursorPos X="1" Y="148"/>
|
||||
<TopLine Value="113"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="201"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit97>
|
||||
@ -790,7 +792,7 @@
|
||||
<UnitName Value="dtmutil"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="151"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="206"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit105>
|
||||
@ -805,8 +807,8 @@
|
||||
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/dtm.inc"/>
|
||||
<CursorPos X="33" Y="34"/>
|
||||
<TopLine Value="30"/>
|
||||
<EditorIndex Value="12"/>
|
||||
<UsageCount Value="15"/>
|
||||
<EditorIndex Value="13"/>
|
||||
<UsageCount Value="18"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit107>
|
||||
<Unit108>
|
||||
@ -1000,7 +1002,7 @@
|
||||
<UnitName Value="web"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="158"/>
|
||||
<UsageCount Value="163"/>
|
||||
</Unit136>
|
||||
<Unit137>
|
||||
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
|
||||
@ -1199,7 +1201,7 @@
|
||||
<UnitName Value="framescript"/>
|
||||
<CursorPos X="106" Y="190"/>
|
||||
<TopLine Value="180"/>
|
||||
<UsageCount Value="151"/>
|
||||
<UsageCount Value="156"/>
|
||||
</Unit161>
|
||||
<Unit162>
|
||||
<Filename Value="framesynedit.lrs"/>
|
||||
@ -1511,11 +1513,9 @@
|
||||
<ComponentName Value="ColourHistoryForm"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="colourhistory"/>
|
||||
<CursorPos X="3" Y="1"/>
|
||||
<CursorPos X="88" Y="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="13"/>
|
||||
<UsageCount Value="88"/>
|
||||
<Loaded Value="True"/>
|
||||
<UsageCount Value="93"/>
|
||||
</Unit208>
|
||||
<Unit209>
|
||||
<Filename Value="../../../Documents/lazarus/lcl/comctrls.pp"/>
|
||||
@ -1765,7 +1765,7 @@
|
||||
<UnitName Value="about"/>
|
||||
<CursorPos X="44" Y="21"/>
|
||||
<TopLine Value="4"/>
|
||||
<UsageCount Value="51"/>
|
||||
<UsageCount Value="56"/>
|
||||
</Unit245>
|
||||
<Unit246>
|
||||
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/>
|
||||
@ -1779,7 +1779,7 @@
|
||||
<UnitName Value="internets"/>
|
||||
<CursorPos X="87" Y="3"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="45"/>
|
||||
<UsageCount Value="50"/>
|
||||
</Unit247>
|
||||
<Unit248>
|
||||
<Filename Value="debugimageform.pas"/>
|
||||
@ -1788,7 +1788,7 @@
|
||||
<UnitName Value="debugimageform"/>
|
||||
<CursorPos X="20" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="32"/>
|
||||
<UsageCount Value="37"/>
|
||||
</Unit248>
|
||||
<Unit249>
|
||||
<Filename Value="debugimage.pas"/>
|
||||
@ -1796,9 +1796,12 @@
|
||||
<ComponentName Value="DebugImgForm"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="debugimage"/>
|
||||
<CursorPos X="100" Y="103"/>
|
||||
<TopLine Value="82"/>
|
||||
<UsageCount Value="31"/>
|
||||
<ComponentState Value="1"/>
|
||||
<CursorPos X="62" Y="62"/>
|
||||
<TopLine Value="54"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="36"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit249>
|
||||
<Unit250>
|
||||
<Filename Value="debugimage.lrs"/>
|
||||
@ -1837,9 +1840,7 @@
|
||||
<UnitName Value="Linux"/>
|
||||
<CursorPos X="65" Y="26"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit255>
|
||||
<Unit256>
|
||||
<Filename Value="../../../../Documents/fpc/packages/libc/src/libc.pp"/>
|
||||
@ -1854,127 +1855,143 @@
|
||||
<TopLine Value="162"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit257>
|
||||
<Unit258>
|
||||
<Filename Value="../../../../../../../usr/lib/lazarus/components/mouseandkeyinput/keyinputintf.pas"/>
|
||||
<UnitName Value="KeyInputIntf"/>
|
||||
<CursorPos X="16" Y="50"/>
|
||||
<TopLine Value="47"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit258>
|
||||
<Unit259>
|
||||
<Filename Value="project1.lpi"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="XML"/>
|
||||
</Unit259>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="82" Column="26" TopLine="61"/>
|
||||
<Caret Line="1681" Column="29" TopLine="1656"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="83" Column="26" TopLine="61"/>
|
||||
<Caret Line="1616" Column="14" TopLine="1601"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="85" Column="26" TopLine="61"/>
|
||||
<Caret Line="104" Column="31" TopLine="89"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1696" Column="35" TopLine="1672"/>
|
||||
<Caret Line="1681" Column="96" TopLine="1662"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1682" Column="27" TopLine="1678"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../Units/MMLCore/dtm.pas"/>
|
||||
<Caret Line="74" Column="3" TopLine="59"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1446" Column="24" TopLine="1430"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../Units/MMLCore/dtm.pas"/>
|
||||
<Caret Line="99" Column="17" TopLine="81"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1680" Column="3" TopLine="1670"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1681" Column="80" TopLine="1666"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1741" Column="10" TopLine="1722"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1681" Column="29" TopLine="1656"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1616" Column="14" TopLine="1601"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="104" Column="31" TopLine="89"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../Units/MMLCore/finder.pas"/>
|
||||
<Caret Line="1681" Column="96" TopLine="1662"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../Units/MMLAddon/colourpicker.pas"/>
|
||||
<Caret Line="137" Column="23" TopLine="121"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="40" Column="51" TopLine="40"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="45" Column="51" TopLine="1"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="379" Column="26" TopLine="359"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="362" Column="32" TopLine="359"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="57" TopLine="1291"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1316" Column="57" TopLine="1291"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="10" Column="75" TopLine="1"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="65" TopLine="1291"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="8" Column="103" TopLine="3"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="180" Column="25" TopLine="160"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="57" TopLine="1291"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="40" Column="51" TopLine="40"/>
|
||||
<Caret Line="10" Column="108" TopLine="1"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="45" Column="51" TopLine="1"/>
|
||||
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
|
||||
<Caret Line="104" Column="73" TopLine="73"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="379" Column="26" TopLine="359"/>
|
||||
<Caret Line="165" Column="119" TopLine="160"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="362" Column="32" TopLine="359"/>
|
||||
<Filename Value="../../../../../../../usr/lib/lazarus/components/mouseandkeyinput/keyinputintf.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="57" TopLine="1291"/>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<Caret Line="38" Column="79" TopLine="5"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1316" Column="57" TopLine="1291"/>
|
||||
<Caret Line="1129" Column="75" TopLine="1105"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="10" Column="75" TopLine="1"/>
|
||||
<Filename Value="debugimage.pas"/>
|
||||
<Caret Line="115" Column="99" TopLine="94"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="65" TopLine="1291"/>
|
||||
<Caret Line="1053" Column="33" TopLine="1049"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="8" Column="103" TopLine="3"/>
|
||||
<Filename Value="debugimage.pas"/>
|
||||
<Caret Line="81" Column="35" TopLine="78"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="180" Column="25" TopLine="160"/>
|
||||
<Filename Value="debugimage.pas"/>
|
||||
<Caret Line="71" Column="47" TopLine="59"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="1311" Column="57" TopLine="1291"/>
|
||||
<Caret Line="1052" Column="53" TopLine="1049"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="10" Column="108" TopLine="1"/>
|
||||
<Caret Line="993" Column="49" TopLine="736"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
|
||||
<Caret Line="104" Column="73" TopLine="73"/>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="817" Column="39" TopLine="23"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="testunit.pas"/>
|
||||
<Caret Line="165" Column="119" TopLine="160"/>
|
||||
<Caret Line="24" Column="53" TopLine="1"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
|
||||
@ -1,11 +1,11 @@
|
||||
object Form1: TForm1
|
||||
Left = 274
|
||||
Left = 331
|
||||
Height = 557
|
||||
Top = 233
|
||||
Top = 119
|
||||
Width = 731
|
||||
ActiveControl = ScriptPanel
|
||||
Caption = 'THA FUKING MUFASA'
|
||||
ClientHeight = 532
|
||||
ClientHeight = 528
|
||||
ClientWidth = 731
|
||||
KeyPreview = True
|
||||
Menu = MainMenu1
|
||||
@ -167,7 +167,7 @@ object Form1: TForm1
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 21
|
||||
Top = 511
|
||||
Top = 507
|
||||
Width = 731
|
||||
Panels = <
|
||||
item
|
||||
@ -185,7 +185,7 @@ object Form1: TForm1
|
||||
object PanelMemo: TPanel
|
||||
Left = 0
|
||||
Height = 154
|
||||
Top = 357
|
||||
Top = 353
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
ClientHeight = 154
|
||||
@ -205,25 +205,25 @@ object Form1: TForm1
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 352
|
||||
Top = 348
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
ResizeAnchor = akBottom
|
||||
end
|
||||
object ScriptPanel: TPanel
|
||||
Left = 0
|
||||
Height = 328
|
||||
Height = 324
|
||||
Top = 24
|
||||
Width = 731
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Caption = 'ScriptPanel'
|
||||
ClientHeight = 328
|
||||
ClientHeight = 324
|
||||
ClientWidth = 731
|
||||
TabOrder = 4
|
||||
object PageControl1: TPageControl
|
||||
Left = 0
|
||||
Height = 293
|
||||
Height = 289
|
||||
Top = 0
|
||||
Width = 731
|
||||
Align = alClient
|
||||
@ -236,11 +236,12 @@ object Form1: TForm1
|
||||
OnDragDrop = PageControl1DragDrop
|
||||
OnDragOver = PageControl1DragOver
|
||||
OnMouseDown = PageControl1MouseDown
|
||||
OnPageChanged = PageControl1Change
|
||||
end
|
||||
object SearchPanel: TPanel
|
||||
Left = 0
|
||||
Height = 35
|
||||
Top = 293
|
||||
Top = 289
|
||||
Width = 731
|
||||
Align = alBottom
|
||||
BevelOuter = bvSpace
|
||||
@ -248,35 +249,10 @@ object Form1: TForm1
|
||||
ClientWidth = 731
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
object LabeledEditSearch: TLabeledEdit
|
||||
Left = 104
|
||||
Height = 27
|
||||
Top = 6
|
||||
Width = 174
|
||||
AutoSelect = False
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideTop.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideTop.Side = asrCenter
|
||||
EditLabel.AnchorSideRight.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEditSearch
|
||||
EditLabel.Left = 67
|
||||
EditLabel.Height = 18
|
||||
EditLabel.Top = 10
|
||||
EditLabel.Width = 34
|
||||
EditLabel.Caption = 'Find: '
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
TabOrder = 0
|
||||
OnChange = EditSearchChange
|
||||
OnEnter = LabeledEditSearchEnter
|
||||
OnExit = LabeledEditSearchExit
|
||||
OnKeyDown = LabeledEditSearchKeyDown
|
||||
OnKeyPress = LabeledEditSearchKeyPress
|
||||
end
|
||||
object SpeedButtonSearch: TSpeedButton
|
||||
Left = 16
|
||||
Left = 32
|
||||
Height = 19
|
||||
Top = 5
|
||||
Top = 7
|
||||
Width = 16
|
||||
Color = clBtnFace
|
||||
Flat = True
|
||||
@ -359,11 +335,35 @@ object Form1: TForm1
|
||||
NumGlyphs = 0
|
||||
OnClick = SpeedButtonSearchClick
|
||||
end
|
||||
object LabeledEditSearch: TLabeledEdit
|
||||
Left = 104
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 174
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideTop.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideTop.Side = asrCenter
|
||||
EditLabel.AnchorSideRight.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEditSearch
|
||||
EditLabel.Left = 65
|
||||
EditLabel.Height = 18
|
||||
EditLabel.Top = 9
|
||||
EditLabel.Width = 36
|
||||
EditLabel.Caption = 'Find: '
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
TabOrder = 0
|
||||
OnChange = EditSearchChange
|
||||
OnEnter = LabeledEditSearchEnter
|
||||
OnExit = LabeledEditSearchExit
|
||||
OnKeyDown = LabeledEditSearchKeyDown
|
||||
OnKeyPress = LabeledEditSearchKeyPress
|
||||
end
|
||||
object CheckBoxMatchCase: TCheckBox
|
||||
Left = 320
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 97
|
||||
Height = 20
|
||||
Top = 7
|
||||
Width = 96
|
||||
Caption = 'Match case'
|
||||
OnClick = CheckBoxMatchCaseClick
|
||||
TabOrder = 1
|
||||
@ -972,6 +972,7 @@ object Form1: TForm1
|
||||
end
|
||||
object MenuItemFind: TMenuItem
|
||||
Action = ActionFindStart
|
||||
ImageIndex = 26
|
||||
OnClick = ActionFindstartExecute
|
||||
end
|
||||
object MenuItemFindNext: TMenuItem
|
||||
@ -1132,7 +1133,7 @@ object Form1: TForm1
|
||||
object Mufasa_Image_List: TImageList
|
||||
left = 488
|
||||
Bitmap = {
|
||||
4C691A0000001000000010000000424242004242420042424200424242004242
|
||||
4C691B0000001000000010000000424242004242420042424200424242004242
|
||||
420042424200424242004242420042424200424242004242420042424200A155
|
||||
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
|
||||
4200424242004242420042424200424242004242420042424200A15542FFFFDA
|
||||
@ -1964,7 +1965,39 @@ object Form1: TForm1
|
||||
4FFF4C4C4CFF4A4A4AFF474747FF454545FF25679DFF3274A8FF3D7CAFFF4784
|
||||
B5FF4E8ABAFF3E7EADFF0C578FEAFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF001D639B1619609839145D9562105A
|
||||
92880D5890A4135C92FC0C578FED
|
||||
92880D5890A4135C92FC0C578FED00000000000000008C8C8C308C8C8CAF8C8C
|
||||
8CFF8C8C8CFF8C8C8CFF8C8C8CEF8C8C8C9F8C8C8C1000000000000000000000
|
||||
0000000000000000000000000000000000008C8C8C608C8C8CFF9A9A9AFFD4D3
|
||||
D2FFE2E1DFFFE2E0DCFFCDC9C3FF939392FF8C8C8CEF8C8C8C30000000000000
|
||||
00000000000000000000000000008C8C8C308C8C8CFFB7B7B7FFFFFEFDFFFFFE
|
||||
FCFFFFFDF9FFFFFDF9FFFFFEFCFFF8F2E8FFA29F9CFF8C8C8CDF8C8C8C100000
|
||||
00000000000000000000000000008C8C8CAF9A9A9AFFFFFEFDFFFFFCF8FFFFFB
|
||||
F4FFFFF9EFFFFFF7EAFFFFF6E8FFFFFAF2FFF1E8DBFF939291FF8C8C8C700000
|
||||
00000000000000000000000000008C8C8CFFD4D3D2FFFFFCF9FFFFFBF4FFFFF9
|
||||
EFFFFFF7EBFFFFF5E6FFFFF3E2FFFFF2DDFFFFF2DDFFB7B1A7FF8C8C8CBF0000
|
||||
00000000000000000000000000008C8C8CFFE2E0DDFFFFFBF4FFFFF9F0FFFFF7
|
||||
EBFFFFF5E6FFFFF3E2FFFFF2DDFFFFF0D9FFFFEED4FFC6BCAEFF8C8C8CEF0000
|
||||
00000000000000000000000000008C8C8CFFE2DFDAFFFFF9F0FFFFF7EBFFFFF5
|
||||
E7FFFFF4E2FFFFF2DDFFFFF0D9FFFFEED4FFFFECD0FFC6BBACFF8C8C8CCF0000
|
||||
00000000000000000000000000008C8C8CEFBEBCB7FFFFF7ECFFFFF5E7FFFFF4
|
||||
E2FFFFF2DEFFFFF0D9FFFFEED5FFFFECD0FFFFEBCBFFA29E97FF8C8C8CAF0000
|
||||
00000000000000000000000000008C8C8C80939392FFF1E8DCFFFFF4E3FFFFF2
|
||||
DEFFFFF0D9FFFFEED5FFFFECD0FFFFEBCCFFDBCCB5FF8C8C8CFF8C8C8C500000
|
||||
00000000000000000000000000008C8C8C108C8C8CCFA29F9CFFE9DFCFFFFFF0
|
||||
DAFFFFEED5FFFFECD0FFFFEBCCFFDBCCB5FF939290FF7C7C7CFF818181CF8C8C
|
||||
8C10000000000000000000000000000000008C8C8C108C8C8CBF8C8C8CFFA29F
|
||||
9AFFBEB6ABFFB7B0A5FF9A9894FF8C8C8CFF606060FF3C3C3CFF616161FF8181
|
||||
81CF8C8C8C1000000000000000000000000000000000000000008C8C8C508C8C
|
||||
8C9F8C8C8CBF8C8C8CBF8C8C8C8F54545450020202EF161616FF3B3B3BFF6161
|
||||
61FF818181CF8C8C8C1000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000001010130020202EF151515FF3B3B
|
||||
3BFF616161FF818181CF8C8C8C10000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000001010130020202EF1515
|
||||
15FF3B3B3BFF606060FF808080CF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000010101300202
|
||||
02EF151515FF3A3A3AFF606060FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000101
|
||||
0120020202CF141414FF393939CF
|
||||
}
|
||||
end
|
||||
object MTrayIcon: TTrayIcon
|
||||
@ -2399,14 +2432,12 @@ object Form1: TForm1
|
||||
end
|
||||
object ActionUndo: TAction
|
||||
Caption = '&Undo'
|
||||
DisableIfNoHandler = False
|
||||
ImageIndex = 18
|
||||
OnExecute = ActionUndoExecute
|
||||
ShortCut = 16474
|
||||
end
|
||||
object ActionRedo: TAction
|
||||
Caption = '&Redo'
|
||||
DisableIfNoHandler = False
|
||||
ImageIndex = 12
|
||||
OnExecute = ActionRedoExecute
|
||||
ShortCut = 16473
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user