Copy image!

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@177 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-11-02 11:07:41 +00:00
parent 2b7c86831f
commit c3aa2b3e36
5 changed files with 2049 additions and 1949 deletions

BIN
Images/copy.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 570 B

View File

@ -168,8 +168,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/>
<CursorPos X="69" Y="435"/>
<TopLine Value="435"/>
<CursorPos X="25" Y="585"/>
<TopLine Value="570"/>
<EditorIndex Value="0"/>
<UsageCount Value="202"/>
<Loaded Value="True"/>
@ -227,7 +227,7 @@
<UnitName Value="Client"/>
<CursorPos X="25" Y="42"/>
<TopLine Value="31"/>
<EditorIndex Value="5"/>
<EditorIndex Value="10"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit26>
@ -258,8 +258,8 @@
<Filename Value="../../Units/MMLCore/window.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Window"/>
<CursorPos X="62" Y="629"/>
<TopLine Value="618"/>
<CursorPos X="5" Y="37"/>
<TopLine Value="15"/>
<EditorIndex Value="2"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
@ -274,16 +274,18 @@
<Unit32>
<Filename Value="../../Units/MMLCore/windowutil.pas"/>
<UnitName Value="windowutil"/>
<CursorPos X="86" Y="19"/>
<TopLine Value="1"/>
<CursorPos X="33" Y="107"/>
<TopLine Value="85"/>
<EditorIndex Value="5"/>
<UsageCount Value="31"/>
<Loaded Value="True"/>
</Unit32>
<Unit33>
<Filename Value="../../Units/MMLCore/input.pas"/>
<UnitName Value="Input"/>
<CursorPos X="3" Y="176"/>
<TopLine Value="139"/>
<EditorIndex Value="6"/>
<TopLine Value="154"/>
<EditorIndex Value="11"/>
<UsageCount Value="53"/>
<Loaded Value="True"/>
</Unit33>
@ -316,7 +318,7 @@
<UnitName Value="mmlpsthread"/>
<CursorPos X="26" Y="31"/>
<TopLine Value="17"/>
<EditorIndex Value="4"/>
<EditorIndex Value="9"/>
<UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit37>
@ -383,9 +385,9 @@
</Unit46>
<Unit47>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<CursorPos X="39" Y="38"/>
<TopLine Value="26"/>
<EditorIndex Value="7"/>
<CursorPos X="26" Y="121"/>
<TopLine Value="99"/>
<EditorIndex Value="12"/>
<UsageCount Value="75"/>
<Loaded Value="True"/>
</Unit47>
@ -405,9 +407,11 @@
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="bitmaps"/>
<CursorPos X="22" Y="61"/>
<TopLine Value="33"/>
<CursorPos X="25" Y="474"/>
<TopLine Value="452"/>
<EditorIndex Value="3"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit50>
<Unit51>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.pp"/>
@ -425,9 +429,11 @@
<Unit53>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/>
<IsPartOfProject Value="True"/>
<CursorPos X="42" Y="236"/>
<TopLine Value="200"/>
<CursorPos X="32" Y="116"/>
<TopLine Value="114"/>
<EditorIndex Value="13"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit53>
<Unit54>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/>
@ -459,9 +465,11 @@
<Unit58>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<CursorPos X="21" Y="239"/>
<TopLine Value="214"/>
<CursorPos X="17" Y="133"/>
<TopLine Value="111"/>
<EditorIndex Value="7"/>
<UsageCount Value="18"/>
<Loaded Value="True"/>
</Unit58>
<Unit59>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpimage.inc"/>
@ -479,9 +487,11 @@
<Unit61>
<Filename Value="../../../lazarus/lcl/intfgraphics.pas"/>
<UnitName Value="IntfGraphics"/>
<CursorPos X="84" Y="1334"/>
<TopLine Value="1334"/>
<UsageCount Value="9"/>
<CursorPos X="3" Y="112"/>
<TopLine Value="90"/>
<EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit61>
<Unit62>
<Filename Value="../../../lazarus/lcl/graphtype.pp"/>
@ -578,7 +588,7 @@
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="1"/>
<EditorIndex Value="8"/>
<EditorIndex Value="14"/>
<UsageCount Value="19"/>
<Loaded Value="True"/>
</Unit76>
@ -753,9 +763,9 @@
<IsPartOfProject Value="True"/>
<UnitName Value="windowselector"/>
<CursorPos X="38" Y="161"/>
<TopLine Value="135"/>
<EditorIndex Value="3"/>
<UsageCount Value="195"/>
<TopLine Value="139"/>
<EditorIndex Value="8"/>
<UsageCount Value="196"/>
<Loaded Value="True"/>
</Unit101>
<Unit102>
@ -790,7 +800,7 @@
<UnitName Value="dtmutil"/>
<CursorPos X="32" Y="18"/>
<TopLine Value="1"/>
<UsageCount Value="182"/>
<UsageCount Value="183"/>
</Unit106>
<Unit107>
<Filename Value="../../../cogat/Units/CogatUnits/compmaths.pas"/>
@ -832,7 +842,7 @@
<UnitName Value="mmath"/>
<CursorPos X="32" Y="42"/>
<TopLine Value="16"/>
<UsageCount Value="162"/>
<UsageCount Value="163"/>
</Unit112>
<Unit113>
<Filename Value="../../../Documents/fpc/rtl/objpas/types.pp"/>
@ -866,9 +876,11 @@
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="ocr"/>
<CursorPos X="43" Y="42"/>
<TopLine Value="5"/>
<UsageCount Value="132"/>
<CursorPos X="35" Y="657"/>
<TopLine Value="639"/>
<EditorIndex Value="4"/>
<UsageCount Value="133"/>
<Loaded Value="True"/>
</Unit117>
<Unit118>
<Filename Value="../../Units/PascalScript/uPSR_extctrls.pas"/>
@ -883,7 +895,7 @@
<UnitName Value="project"/>
<CursorPos X="46" Y="15"/>
<TopLine Value="1"/>
<UsageCount Value="129"/>
<UsageCount Value="130"/>
</Unit119>
<Unit120>
<Filename Value="../../../FPC/FPCCheckout/rtl/inc/heap.inc"/>
@ -997,7 +1009,7 @@
<UnitName Value="web"/>
<CursorPos X="90" Y="16"/>
<TopLine Value="1"/>
<UsageCount Value="57"/>
<UsageCount Value="58"/>
</Unit137>
<Unit138>
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
@ -1198,8 +1210,8 @@
<UnitName Value="framescript"/>
<CursorPos X="24" Y="32"/>
<TopLine Value="32"/>
<EditorIndex Value="9"/>
<UsageCount Value="50"/>
<EditorIndex Value="15"/>
<UsageCount Value="51"/>
<Loaded Value="True"/>
</Unit162>
<Unit163>
@ -1419,123 +1431,127 @@
<UsageCount Value="10"/>
</Unit195>
</Units>
<JumpHistory Count="29" HistoryIndex="28">
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="testunit.pas"/>
<Caret Line="385" Column="34" TopLine="357"/>
<Caret Line="446" Column="17" TopLine="441"/>
</Position1>
<Position2>
<Filename Value="testunit.pas"/>
<Caret Line="386" Column="28" TopLine="357"/>
<Caret Line="867" Column="3" TopLine="865"/>
</Position2>
<Position3>
<Filename Value="testunit.pas"/>
<Caret Line="554" Column="18" TopLine="535"/>
<Caret Line="444" Column="14" TopLine="441"/>
</Position3>
<Position4>
<Filename Value="testunit.pas"/>
<Caret Line="434" Column="3" TopLine="432"/>
<Caret Line="355" Column="3" TopLine="350"/>
</Position4>
<Position5>
<Filename Value="testunit.pas"/>
<Caret Line="14" Column="72" TopLine="1"/>
<Caret Line="446" Column="14" TopLine="441"/>
</Position5>
<Position6>
<Filename Value="testunit.pas"/>
<Caret Line="333" Column="14" TopLine="317"/>
<Caret Line="869" Column="9" TopLine="865"/>
</Position6>
<Position7>
<Filename Value="testunit.pas"/>
<Caret Line="334" Column="14" TopLine="317"/>
<Caret Line="184" Column="12" TopLine="173"/>
</Position7>
<Position8>
<Filename Value="testunit.pas"/>
<Caret Line="566" Column="3" TopLine="558"/>
<Caret Line="410" Column="15" TopLine="399"/>
</Position8>
<Position9>
<Filename Value="testunit.pas"/>
<Caret Line="561" Column="23" TopLine="542"/>
<Caret Line="6" Column="68" TopLine="1"/>
</Position9>
<Position10>
<Filename Value="testunit.pas"/>
<Caret Line="566" Column="9" TopLine="542"/>
<Caret Line="184" Column="12" TopLine="173"/>
</Position10>
<Position11>
<Filename Value="testunit.pas"/>
<Caret Line="197" Column="34" TopLine="179"/>
<Caret Line="410" Column="15" TopLine="399"/>
</Position11>
<Position12>
<Filename Value="testunit.pas"/>
<Caret Line="198" Column="18" TopLine="179"/>
<Caret Line="869" Column="12" TopLine="858"/>
</Position12>
<Position13>
<Filename Value="testunit.pas"/>
<Caret Line="15" Column="85" TopLine="1"/>
<Caret Line="444" Column="15" TopLine="441"/>
</Position13>
<Position14>
<Filename Value="testunit.pas"/>
<Caret Line="99" Column="16" TopLine="80"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="5" Column="143" TopLine="1"/>
</Position14>
<Position15>
<Filename Value="testunit.pas"/>
<Caret Line="136" Column="37" TopLine="117"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="52" Column="34" TopLine="1"/>
</Position15>
<Position16>
<Filename Value="testunit.pas"/>
<Caret Line="137" Column="35" TopLine="117"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="73" Column="27" TopLine="45"/>
</Position16>
<Position17>
<Filename Value="testunit.pas"/>
<Caret Line="138" Column="30" TopLine="117"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="373" Column="33" TopLine="345"/>
</Position17>
<Position18>
<Filename Value="testunit.pas"/>
<Caret Line="139" Column="33" TopLine="117"/>
<Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="37" Column="5" TopLine="13"/>
</Position18>
<Position19>
<Filename Value="testunit.pas"/>
<Caret Line="199" Column="20" TopLine="179"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position19>
<Position20>
<Filename Value="testunit.pas"/>
<Caret Line="9" Column="90" TopLine="1"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="41" Column="121" TopLine="29"/>
</Position20>
<Position21>
<Filename Value="testunit.pas"/>
<Caret Line="344" Column="23" TopLine="325"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="332" Column="13" TopLine="324"/>
</Position21>
<Position22>
<Filename Value="testunit.pas"/>
<Caret Line="345" Column="28" TopLine="325"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="331" Column="36" TopLine="324"/>
</Position22>
<Position23>
<Filename Value="testunit.pas"/>
<Caret Line="374" Column="23" TopLine="343"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="329" Column="18" TopLine="304"/>
</Position23>
<Position24>
<Filename Value="testunit.pas"/>
<Caret Line="91" Column="96" TopLine="80"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="474" Column="42" TopLine="440"/>
</Position24>
<Position25>
<Filename Value="testunit.pas"/>
<Caret Line="203" Column="23" TopLine="184"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="42" Column="43" TopLine="5"/>
</Position25>
<Position26>
<Filename Value="testunit.pas"/>
<Caret Line="379" Column="26" TopLine="372"/>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="89" Column="79" TopLine="62"/>
</Position26>
<Position27>
<Filename Value="testunit.pas"/>
<Caret Line="437" Column="82" TopLine="426"/>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="121" Column="26" TopLine="85"/>
</Position27>
<Position28>
<Filename Value="testunit.pas"/>
<Caret Line="17" Column="76" TopLine="9"/>
<Caret Line="463" Column="28" TopLine="441"/>
</Position28>
<Position29>
<Filename Value="testunit.pas"/>
<Caret Line="137" Column="31" TopLine="118"/>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="658" Column="12" TopLine="644"/>
</Position29>
<Position30>
<Filename Value="testunit.pas"/>
<Caret Line="32" Column="3" TopLine="21"/>
</Position30>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>

View File

@ -1,11 +1,11 @@
object Form1: TForm1
Left = 478
Left = 278
Height = 553
Top = 249
Top = 235
Width = 723
ActiveControl = PageControl1
Caption = 'Action1'
ClientHeight = 528
ClientHeight = 533
ClientWidth = 723
Menu = MainMenu1
OnClose = FormClose
@ -165,8 +165,8 @@ object Form1: TForm1
end
object StatusBar: TStatusBar
Left = 0
Height = 21
Top = 507
Height = 23
Top = 510
Width = 723
Panels = <
item
@ -183,17 +183,17 @@ object Form1: TForm1
end
object PanelMemo: TPanel
Left = 0
Height = 147
Height = 150
Top = 360
Width = 723
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
ClientHeight = 147
ClientHeight = 150
ClientWidth = 723
TabOrder = 2
object Memo1: TMemo
Left = 1
Height = 145
Height = 148
Top = 1
Width = 721
Align = alClient
@ -659,6 +659,7 @@ object Form1: TForm1
end
object MenuItemCopy: TMenuItem
Caption = 'Copy'
ImageIndex = 22
ShortCut = 16451
OnClick = MenuItemCopyClick
end
@ -836,7 +837,7 @@ object Form1: TForm1
object Mufasa_Image_List: TImageList
left = 512
Bitmap = {
4C69160000001000000010000000424242004242420042424200424242004242
4C69170000001000000010000000424242004242420042424200424242004242
420042424200424242004242420042424200424242004242420042424200A155
42FFA15542FFA15542FF4242420E424242004242420042424200424242004242
4200424242004242420042424200424242004242420042424200A15542FFFFDA
@ -1540,7 +1541,39 @@ object Form1: TForm1
FF00BA6833C5C38458FFD38B68FFE18F70FFDC8D6CFFDA8B6DFFD78A6EFFCD8B
6CFFAB6D44FFA65F2EFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00
FF00FFFFFF00FFFFFF00FFFFFF00C77947AACC8655CECC8857DECB8856DBCC88
56DBCB8757DBCA8350D0C479426EB2673C08FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00CA8554D0FFFFFFDBFDF3E9DEFDF3EADEFCF2
E8DEFAEFE3DEFAF2E7DEEABB88DECF85559CB4693D0AFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00CB8656DAFEF5EDDEFCDEC5DEFBE0C7DEF9DC
C2DEF5D3B4DEFEF9F3DEFAE2C4DEECC193DEC37D4880FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00CB8655DBFEF6F0DEFCE2CDDEFCE3CDDEFADF
C8DEF7D9BCDEF5E9DDDEFAF3EBDEFBF8F3DECD9565DCFFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00CB8655DBFEF7F1DEFCE5D2DEFCE4D1DEFBE2
CCDEF9DDC4DEEAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CF5D09E6DF6CC96
5FDAC479427EB2673C09FFFFFF00CB8654DBFFF7F2DEFEE7D5DEFEE7D5DEFDE5
D1DEFAE0CADEE5BE96FFFFFFFEFFFDF3E9FFFDF3EAFFFCF2E8FFFAEFE3FFFAF2
E7FFEABB88FFCF8555B3B4693D0CCB8553DBFFF7F0DEFFE7D5DEFDE7D6DEFDE6
D4DEFCE4D0DEE4BB93FFFEF5EDFFFCDEC5FFFBE0C7FFF9DCC2FFF5D3B4FFFEF9
F3FFFAE2C4FFECC193FFC37D4893CA8452DBFFF7F1DEFFE9D9DEFFEADBDEFFE9
D9DEFFE7D7DEE4BB92FFFEF6F0FFFCE2CDFFFCE3CDFFFADFC8FFF7D9BCFFF5E9
DDFFFAF3EBFFFBF8F3FFCA8353FECC8352DBFBF5EEDEFFE9D9DEFFEADBDEFFE9
D9DEFFE7D7DEE4BB92FFFEF7F1FFFCE5D2FFFCE4D1FFFBE2CCFFF9DDC4FFF6D7
BBFFF3D1AFFFFAEFE4FFCC8758FECF8253DEEFF1E7DEFFE9D9DEFFEADBDEFFE9
D9DEFFE7D7DEE4BB91FFFFF7F2FFFEE7D5FFFEE7D5FFFDE5D1FFFAE0CAFFF9DE
C4FFF7D9BCFFFDF2E7FFCC8757FEC87C4ED3FCF3ECDEFAF1E8DEFAF0E7DEFBF1
E9DEFBF2EADEE4BA91FFFFF7F0FFFFE7D5FFFDE7D6FFFDE6D4FFFCE4D0FFFBE3
CBFFFADCC2FFFEF3E8FFCC8656FEC7794AB9C8794BCEC87545DDC77545D4C875
45D4C77545D4CA8452FFFFF7F1FFFFE9D9FFFFEADBFFFFE9D9FFFFE7D7FFFFE5
D2FFFFE2CBFFFFF7F1FFCB8555FEFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00CC8352FBFBF5EEFFFFE9D9FFFFEADBFFFFE9D9FFFFE7D7FFFFE5
D2FFFFE2CBFFFBF6EFFFCC8355FEFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00CF8253FFEFF1E7FFFFE9D9FFFFEADBFFFFE9D9FFFFE7D7FFFFE5
D2FFFFE2CBFFEFF2E8FFCE8156FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00C77949EDFCF3ECFFFAF1E8FFFAF0E7FFFBF1E9FFFBF2EAFFFBF2
EAFFFBF2EBFFFDF4EEFFCA8054F9FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00C57342C1C67545E6C87545FEC77545F3C87545F3C77545F3C775
45F3C87546F4C57444E8CA7F53F1
}
end
object MTrayIcon: TTrayIcon

File diff suppressed because it is too large Load Diff

View File

@ -29,7 +29,7 @@ unit TestUnit;
interface
uses
cthreads, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
{$ifdef linux}cthreads,{$endif}Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Menus, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, SynMemo,
//Client,
MufasaTypes,