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".

  • available as IDC HAND with LoadCursor is not the same as the crHandPoint cursor in delphi crHandPoint is slightly different from IDC HAND Derived from postings to borland public cppbuilder winapi and borland public delphi winapi by CC Chong and MrBaseball34 on 18 19 Dec 2000 Comments from CC Chong Yes IDC HAND is the hidden resource of Windows On Win98 and above or since ActiveDesktop Update in IE4 if I m not mistaken Windows has the IDC HAND cursor built in to the system But it is not the same as Delphi s crHandPoint Delphi doesn t use Windows IDC HAND crHandPoint is Delphi s own inclusion in it s Controls res found in your Delphi lib Delphi copies crHandPoint into your exe during linking Below crHandpoint has a black wrist band that is not present with IDC HAND Const Declare the cursor constant that contains the resource identifier of the system Hand cursor IDC HAND MakeIntResource 32649 Declare the cursor constant for our own use Constant value must not conflict with any existing Delphi cursor constant NIDC HAND 32649 procedure TForm1 FormCreate Sender TObject begin Screen Cursors NIDC HAND LoadCursor 0 IDC HAND end procedure TForm1 Button1Click Sender

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



  • X Complaints To newsabuse supernews com On Fri 05 Nov 1999 14 54 26 0800 Tim Roberts wrote Then TCursorManager could look something like constructor TCursorManager Create newCursor integer begin iSaveMe Screen Cursor Screen Cursor newCursor end destructor TCursorManager Destroy begin Screen Cursor iSaveMe end Even better use interfaces and let Delphi restore the cursor automatically without needing an explicit try finally procedure Whatever var cursor ICursorManager begin cursor TCursorManager

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


  • delphi graphics 38873 I would like to change the cursor of a component when I have the mouse down on it But it doesn t work on D4 what should I do instead note that I only want it to use these cursors when I under this component Try on of following things after assigning the new cursor Panel1 Cursor SomeCursor Panel1 Parent Perform WM SETCURSOR Parent Handle HTCLIENT or

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


  • place let me now share with you what I found feel free to use this as you wish var PreviousCursor HCursor begin PreviousCursor SetCursor LoadCursor 0 IDC WAIT SetSystemCursor GetCursor OCR NORMAL try Lengthy process finally SetSystemCursor PreviousCursor OCR NORMAL end end Sincerely Philippe Bruno B Eng Director of Research and Development Scanpak Inc www scanpak com 514 685 3505 x 232 I have a tray application that at one

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


  • you must use double buffering In case you don t know it goes something like this 1 Create bitmap the size of your destination canvas We call this bitmap the frame buffer 2 Draw your background image on the frame buffer 3 Draw your other image s on the frame buffer 4 Copy draw the frame buffer to the destination canvas 5 Goto 2 or if you are using Delphi

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


  • delphi graphics 40136 PaulC wrote in message news 3b3a4c4e 1 2 dnews How can I Drag image files from explorer to Timage s on a form You don t specifically drag it to TImage You drag it to your form 1 To accept files from explorer override the CreateParams method of your form procedure TForm1 CreateParams var Params TCreateParams begin inherited Params Exstyle Params Exstyle WS EX ACCEPTFILES end Or if you want to turn it on off use DragAcceptFiles Handle True to accept and false to not accept 2 Accepting dropped files After that trap the WM DROPFILES message The following example put all the filenames into a Memo it also detect the files are dropped to which of the 3 TMemo I used It should be easy to change it into TImage most likely you ll ignore if NoOfFile 1 procedure WMDropFiles var msg TWMDropFiles message WM DROPFILES and implement it procedure TForm1 WMDropFiles var msg TWMDropFiles var i Integer NoOFFiles Integer s string p TPoint m TMemo begin msg Result 0 NoOfFiles DragQueryFile msg Drop Uint 1 0 DragQueryPoint msg Drop p Where is it dropped if PtInRect Memo1 BoundsRect p then m Memo1 else if PtInRect

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


  • Image TImage procedure FormCreate Sender TObject procedure FormDestroy Sender TObject procedure ImageMouseDown Sender TObject Button TMouseButton Shift TShiftState x y Integer procedure ImageMouseMove Sender TObject Shift TShiftState x y Integer procedure ImageMouseUp Sender TObject Button TMouseButton Shift TShiftState x y Integer private OldBg SourceBmp TBitmap OffsetX OffsetY SourceW SourceH xOld yOld Integer FDragging boolean procedure SaveOldBG procedure SaveSource procedure CopyImage Bitmap TBitmap imgLeft imgTop Integer procedure RestoreBG NewX NewY Integer Private declarations public Public declarations end var Form1 TForm1 implementation R DFM procedure TForm1 RestoreBG NewX NewY Integer var DC BackDC HDC begin DC Canvas Handle BackDC OldBG Canvas Handle if NewY OffsetY then BitBlt DC OffsetX OffSetY SourceW NewY OffsetY BackDC OffsetX OffSetY SRCCOPY if NewY OffsetX then BitBlt DC OffsetX OffsetY NewX OffsetX SourceH BackDC OffsetX OffsetY SRCCopy if NewX OffsetX then BitBlt DC NewX SourceW OffsetY OffsetX NewX SourceH BackDC NewX SourceW OffsetY SRCCopy end procedure TForm1 CopyImage Bitmap TBitmap imgLeft imgTop Integer begin BitBlt Canvas Handle imgLeft imgTop Bitmap Width Bitmap Height Bitmap Canvas Handle 0 0 SRCCOPY end procedure TForm1 SaveSource begin Copy Image to Bitmap For Drag SourceW Image Picture Bitmap Width SourceH Image Picture Bitmap Height SourceBMP Width SourceW SourceBMP Height SourceH BitBlt SourceBmp Canvas Handle 0 0 SourceW SourceH Image Picture Bitmap Canvas Handle 0 0 SRCCOPY end procedure TForm1 SaveOldBG begin Save Background Before CopyIng OldBG Width ClientWidth OldBG Height ClientHeight BitBlt OldBG Canvas Handle 0 0 ClientWidth ClientHeight Canvas Handle 0 0 SRCCOPY end procedure TForm1 FormCreate Sender TObject begin OldBG TBitmap Create SourceBmp TBitmap Create end procedure TForm1 FormDestroy Sender TObject begin OldBG Free SourceBmp Free end procedure TForm1 ImageMouseDown Sender TObject Button TMouseButton Shift TShiftState x y Integer var pt TPoint begin xOld x yOld y offset of clicked point from image Left Top pt x 0 pt

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


  • borland public delphi graphics Afterthought Why not let windows do the updating It knows how to paint the original form anyways Remembering a tip by Robert Rossmair from last week I tried the following and it works This way you don t need the OldBG bitmap at all anymore procedure TForm1 RestoreBG NewX NewY Integer var DC HDC R TRect begin DC Self Handle if NewY OffsetY then begin R

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



  •