moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-11 03:45:06 -05:00
Code Issues Releases Wiki Activity

Silly raymond and his +1's. :)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@29 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-04 18:39:18 +00:00
parent faca7515f0
commit a12df46efc
3 changed files with 76 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

123
Projects/SAMufasaGUI/project1.lpi
View File

@ -6,7 +6,7 @@
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="3"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
@ -30,7 +30,7 @@
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="44">
<Units Count="45">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
@ -38,7 +38,7 @@
<CursorPos X="41" Y="17"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="58"/>
<UsageCount Value="59"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
@ -167,10 +167,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/>
<CursorPos X="61" Y="24"/>
<TopLine Value="91"/>
<CursorPos X="22" Y="124"/>
<TopLine Value="111"/>
<EditorIndex Value="1"/>
<UsageCount Value="24"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit18>
<Unit19>
@ -299,10 +299,10 @@
<Filename Value="../../Units/MMLCore/client.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Client"/>
<CursorPos X="34" Y="29"/>
<TopLine Value="14"/>
<CursorPos X="91" Y="24"/>
<TopLine Value="1"/>
<EditorIndex Value="3"/>
<UsageCount Value="23"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit37>
<Unit38>
@ -312,7 +312,7 @@
<CursorPos X="3" Y="16"/>
<TopLine Value="1"/>
<EditorIndex Value="2"/>
<UsageCount Value="23"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit38>
<Unit39>
@ -320,7 +320,7 @@
<UnitName Value="compFiles"/>
<CursorPos X="18" Y="8"/>
<TopLine Value="1"/>
<EditorIndex Value="6"/>
<EditorIndex Value="7"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit39>
@ -330,18 +330,18 @@
<UnitName Value="files"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="5"/>
<UsageCount Value="24"/>
<EditorIndex Value="6"/>
<UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit40>
<Unit41>
<Filename Value="../../Units/MMLCore/window.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Window"/>
<CursorPos X="49" Y="38"/>
<TopLine Value="11"/>
<CursorPos X="10" Y="106"/>
<TopLine Value="91"/>
<EditorIndex Value="4"/>
<UsageCount Value="23"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit41>
<Unit42>
@ -356,131 +356,140 @@
<UnitName Value="CompTypes"/>
<CursorPos X="80" Y="9"/>
<TopLine Value="1"/>
<EditorIndex Value="7"/>
<EditorIndex Value="8"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit43>
<Unit44>
<Filename Value="../../Units/MMLCore/windowutil.pas"/>
<UnitName Value="windowutil"/>
<CursorPos X="35" Y="109"/>
<TopLine Value="80"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit44>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="43" Column="20" TopLine="28"/>
<Caret Line="36" Column="27" TopLine="31"/>
</Position1>
<Position2>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="55" Column="24" TopLine="40"/>
<Caret Line="41" Column="46" TopLine="31"/>
</Position2>
<Position3>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="36" Column="27" TopLine="31"/>
<Caret Line="463" Column="34" TopLine="448"/>
</Position3>
<Position4>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="41" Column="46" TopLine="31"/>
<Caret Line="34" Column="12" TopLine="30"/>
</Position4>
<Position5>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="463" Column="34" TopLine="448"/>
<Caret Line="46" Column="19" TopLine="31"/>
</Position5>
<Position6>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="34" Column="12" TopLine="30"/>
<Caret Line="72" Column="19" TopLine="50"/>
</Position6>
<Position7>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="46" Column="19" TopLine="31"/>
<Caret Line="37" Column="11" TopLine="21"/>
</Position7>
<Position8>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="72" Column="19" TopLine="50"/>
<Caret Line="38" Column="96" TopLine="28"/>
</Position8>
<Position9>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="37" Column="11" TopLine="21"/>
<Caret Line="417" Column="42" TopLine="402"/>
</Position9>
<Position10>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="38" Column="96" TopLine="28"/>
<Caret Line="449" Column="1" TopLine="431"/>
</Position10>
<Position11>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="417" Column="42" TopLine="402"/>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="37" Column="18" TopLine="12"/>
</Position11>
<Position12>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="449" Column="1" TopLine="431"/>
<Caret Line="20" Column="29" TopLine="11"/>
</Position12>
<Position13>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="37" Column="18" TopLine="12"/>
<Filename Value="testunit.pas"/>
<Caret Line="211" Column="1" TopLine="182"/>
</Position13>
<Position14>
<Filename Value="../../Units/MMLCore/files.pas"/>
<Caret Line="20" Column="29" TopLine="11"/>
<Filename Value="testunit.pas"/>
<Caret Line="154" Column="49" TopLine="140"/>
</Position14>
<Position15>
<Filename Value="testunit.pas"/>
<Caret Line="211" Column="1" TopLine="182"/>
<Caret Line="155" Column="8" TopLine="140"/>
</Position15>
<Position16>
<Filename Value="testunit.pas"/>
<Caret Line="154" Column="49" TopLine="140"/>
<Caret Line="160" Column="23" TopLine="145"/>
</Position16>
<Position17>
<Filename Value="testunit.pas"/>
<Caret Line="155" Column="8" TopLine="140"/>
<Filename Value="../../../cogat/Units/CogatUnits/compfiles.pas"/>
<Caret Line="8" Column="18" TopLine="1"/>
</Position17>
<Position18>
<Filename Value="testunit.pas"/>
<Caret Line="160" Column="23" TopLine="145"/>
<Caret Line="29" Column="14" TopLine="11"/>
</Position18>
<Position19>
<Filename Value="../../../cogat/Units/CogatUnits/compfiles.pas"/>
<Caret Line="8" Column="18" TopLine="1"/>
<Filename Value="testunit.pas"/>
<Caret Line="161" Column="39" TopLine="146"/>
</Position19>
<Position20>
<Filename Value="testunit.pas"/>
<Caret Line="29" Column="14" TopLine="11"/>
<Caret Line="29" Column="20" TopLine="16"/>
</Position20>
<Position21>
<Filename Value="testunit.pas"/>
<Caret Line="161" Column="39" TopLine="146"/>
<Caret Line="51" Column="14" TopLine="46"/>
</Position21>
<Position22>
<Filename Value="testunit.pas"/>
<Caret Line="29" Column="20" TopLine="16"/>
<Caret Line="54" Column="17" TopLine="48"/>
</Position22>
<Position23>
<Filename Value="testunit.pas"/>
<Caret Line="51" Column="14" TopLine="46"/>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="31" Column="71" TopLine="14"/>
</Position23>
<Position24>
<Filename Value="testunit.pas"/>
<Caret Line="54" Column="17" TopLine="48"/>
<Caret Line="137" Column="62" TopLine="121"/>
</Position24>
<Position25>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="31" Column="71" TopLine="14"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="157" Column="52" TopLine="141"/>
</Position25>
<Position26>
<Filename Value="testunit.pas"/>
<Caret Line="137" Column="62" TopLine="121"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="232" Column="59" TopLine="217"/>
</Position26>
<Position27>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="157" Column="52" TopLine="141"/>
<Caret Line="236" Column="29" TopLine="217"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="232" Column="59" TopLine="217"/>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position28>
<Position29>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="236" Column="29" TopLine="217"/>
<Caret Line="106" Column="10" TopLine="91"/>
</Position29>
<Position30>
<Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
<Filename Value="../../Units/MMLCore/windowutil.pas"/>
<Caret Line="21" Column="37" TopLine="1"/>
</Position30>
</JumpHistory>
</ProjectOptions>

2
Projects/SAMufasaGUI/testunit.lrs
View File

@ -1,3 +1,5 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'@'#1#6'Height'#3#15#2#3'Top'#3#238#0#5'Wi'
+'dth'#3#11#3#13'ActiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientH'

9
Projects/SAMufasaGUI/testunit.pas
View File

@ -121,7 +121,7 @@ begin
for xx := 0 to Loopx do
begin
{ Do comparison here }
Arr[yy * (loopx + 1) + xx] :=RGBToColor(ReturnData.Ptr^.B,ReturnData.Ptr^.G,ReturnData.Ptr^.R);
Arr[yy * (loopx) + xx] :=RGBToColor(ReturnData.Ptr^.B,ReturnData.Ptr^.G,ReturnData.Ptr^.R);
// .Canvas not thread stable on linux. (use fpImage and fpCanvas)
//Bmp.Canvas.Pixels[xx,yy] := RGBToColor(ReturnData.Ptr^.R,ReturnData.Ptr^.G,ReturnData.Ptr^.B);
@ -130,7 +130,14 @@ begin
end;
Inc(ReturnData.Ptr,ReturnData.IncPtrWith);
end;
bmp.Free;
Client.MWindow.SetTarget(@Arr[0], Point(loopx, loopy));
writeln(inttostr(loopx) + ' , ' + inttostr(loopy));
Client.MWindow.GetDimensions(W, H);
writeln(inttostr(w) + ' , ' + inttostr(h));
Bmp := Client.MWindow.CopyClientToBitmap(0, 0, loopx, loopy);
{$IFDEF WINDOWS}