archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • 251 169 67 X Trace newsgroups borland com 1033864242 12 251 169 67 5 Oct 2002 17 30 42 0700 Lines 21 Path newsgroups borland com not for mail Xref newsgroups borland com borland public delphi graphics 52086 Harry Doldersum wrote I m using a generated keyboard event to copy the contents of a window or the full screen to the clipboard From there I want to transport it to

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/1005.txt (2016-02-14)
    Open archived version from archive



  • borland public delphi graphics 39548 Marcus There is no built in method for storing icon files in the clipboard so you have to do a bit more work Here is a little demo unit Unit1 interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls ExtDlgs ExtCtrls var CF ICON Word type TForm1 class TForm Button1 TButton OpenPictureDialog1 TOpenPictureDialog Button2 TButton Image1 TImage procedure Button1Click Sender TObject procedure FormCreate Sender TObject procedure Button2Click Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R DFM uses Clipbrd procedure TForm1 Button1Click Sender TObject var memStream TMemoryStream Data THandle DataPtr Pointer begin if OpenPictureDialog1 Execute then begin memStream TMemoryStream Create try memStream LoadFromFile OpenPictureDialog1 FileName Data GlobalAlloc GMEM MOVEABLE memStream Size try DataPtr GlobalLock Data Move memStream Memory DataPtr memStream Size ClipBoard Open Clipboard SetAsHandle CF ICON Data Clipboard Close GlobalUnlock Data except GlobalFree Data raise end finally memStream Free end end end procedure TForm1 FormCreate Sender TObject var s TFilename begin s ExtractFilePath Application Exename OpenPictureDialog1 InitialDir s OpenPictureDialog1 Filter Icon files ico ICO end procedure TForm1 Button2Click Sender TObject var Data THandle DataPtr Pointer MemStream TMemoryStream Icon TIcon begin Clipboard Open try Data Clipboard GetAsHandle CF

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0608.txt (2016-02-14)
    Open archived version from archive


  • is no standard clipboard format for Jpegs Any application that copies Jpegs to the clipboard will have to register a custom clipboard format If you have such an application copy a JPEG into the clipboard from it and then check which clipboard formats that has produced The Clipboard Formats array contains all the formats but only as numeric IDs you have to use GetClipboardFormatname to get the string name of each format You need that to use with RegisterClipboardFormat when you want to get the format ID later you cannot rely on the value you found in Clipboard Formats during the test since it may be different the next time the app is run procedure TForm1 BtnShowFormatsClick Sender TObject Var buf Array 0 60 of Char n Integer fmt Word name String 30 begin MemFormats Clear for n 0 to Clipboard FormatCount 1 do begin fmt Clipboard Formats n If GetclipboardFormatName fmt buf Pred Sizeof buf 0 Then MemFormats Lines Add StrPas buf Else Begin Case fmt of 1 name CF TEXT 2 name CF BITMAP 3 name CF METAFILEPICT 4 name CF SYLK 5 name CF DIF 6 name CF TIFF 7 name CF OEMTEXT 8 name CF DIB

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/1124.txt (2016-02-14)
    Open archived version from archive


  • 511 1 0 1 6 0 012 0 197 1 0 1 7 0 047 0 349 1 0 1 8 0 073 0 265 1 0 1 9 0 092 0 184 1 0 2 0 0 102 0 109 1 0 2 1 0 107 0 043 1 0 2 2 0 105 0 013 1 1 2 3 0 100 0 058 1 0 2 4 0 090 0 093 1 0 2 5 0 079 0 117 1 0 2 6 0 066 0 131 1 0 2 7 0 052 0 137 1 0 2 8 0 038 0 135 1 0 2 9 0 026 0 128 1 0 3 0 0 014 0 117 1 0 2 peaks How could I smooth the curves in this My maths is rather stale What to do with noise in the data To approximate this mathematically let s take the same function as above but add noise using a random number generator A term 0 1 Rand which will be 0 0 to 0 1 was added to each Y If you apply the No Noise approach from above you ll get that there are 7 peaks By Smoothing Y by taking the average of its value and its two nearest neighbors the smoothed curve shows only 2 peaks as before This is simply a moving average X Y Y Smooth Slope Sign 1 1 0 0 0 062 0 1 0 231 0 2 0 376 0 327 0 3 0 452 0 422 0 950 1 0 0 4 0 513 0 478 0 567 1 0 0 5 0 537 0 508 0 299 1 0 0 6 0 515 0 525 0 165 1 0 0 7 0 526 0 519 0

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1998/0930.txt (2016-02-14)
    Open archived version from archive


  • R filename RES after implementation implementation R DFM R Cursors RES 4 Define constants for the user defined cursors that are positive values Zero and negative numbers are already assigned or are reserved For example CONST crTarget 1 crPencil 2 crCrossHair 3 crX 4 crCircle 5 crBox 6 5 In the TForm FormCreate load the cursors from the RES file Load cursors from resource file Screen Cursors crTarget LoadCursor hInstance

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/CustomCursor.TXT (2016-02-14)
    Open archived version from archive


  • TLabel Timer TTimer procedure TimerTimer Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R DFM procedure TForm1 TimerTimer Sender TObject var Bitmap TBitmap CursorInfo TCursorInfo P TPoint begin GetCursorPos P LabelLocation Caption IntToStr P X IntToStr P Y CursorInfo cbSize SizeOf CursorInfo GetCursorInfo CursorInfo To overlay cursor on screen dump DrawIconEx Bmp Canvas Handle P X P Y CusorInfo hCursor 32 32 0 0 DI

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/ScreenShowCursor.pas.txt (2016-02-14)
    Open archived version from archive


  • borland public delphi winapi Subject Re Get the mouse cursor bitmap problem References Content Type text plain charset us ascii Content Transfer Encoding 7bit NNTP Posting Host 212 7 137 151 Message ID X Trace 31 Mar 2001 06 42 12 0800 212 7 137 151 Lines 16 Path dnews 212 7 137 151 Xref dnews borland public delphi winapi 128422 Milen Boev schrieb I ll be very grateful if

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0331a.txt (2016-02-14)
    Open archived version from archive


  • Type multipart alternative boundary NextPart 2512C4A3 7071 11d5 861C 00409545245F Message Id Status U X UIDL O0MsadHkIcxKfgE This is a multi part message in MIME format NextPart 2512C4A3 7071 11d5 861C 00409545245F Content Type text plain charset iso 8859 1 Content Transfer Encoding 7bit Bugs in Delphi 2 0 cursor handling specifically the omission of the crSize and crSizeAll cursors are discussed on your site I have discovered the ollowing

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Graphics/JustinWashtellCursorNote.txt (2016-02-14)
    Open archived version from archive



  •