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

  • a bitmap to draw that is higher resolution than a TBitmap allows runs out of resources once about 1500x1500 So I created a TImage loaded a WMF in set the aspect ratio of the TImage properly and used the Stretch property to get it to draw on the TImage That is TImage Picture Graphic is TMetafile at this point Then I have a number of objects that I need to

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



  • color I am over a TImage References Content Type text plain charset us ascii Content Transfer Encoding 7bit NNTP Posting Host 145 3 10 34 X Trace dnews 986969565 145 3 10 34 10 Apr 2001 23 12 45 0700 Lines 26 Path dnews Xref dnews borland public delphi students 10934 Enter something like this in the onMouseMove event procedure TForm1 Image1MouseMove Sender TObject Shift TShiftState X Y Integer var

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


  • Button1Click Sender TObject var Image TImage begin Image TImage Create Form1 Image Top 10 Image Left 10 Image Width 100 Image Height 100 Image Picture LoadFromFile d bitmaps a bmp Image1 Picture LoadFromFile d bitmaps a bmp end Cheers Simon This has to be the commonest mistake of all Without a parent it won t show Image Parent Form1 it s also more usual to do Image TImage Create self

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


  • us ascii Content Transfer Encoding 7bit I noticed another interesting TImageList problem that helped solved my difficulty When I took my ratty looking TImageList and ran the executable on another program it worked fine Solution turned off hardware graphics acceleration on my machine and now everything looks fine including my tool palette in Delphi which would occasionally look miserable C21EC1EC4C245C72AEE83643 Content Type text html charset us ascii Content Transfer Encoding

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


  • unit ScreenMoveLabel interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls ExtCtrls type TForm1 class TForm Panel1 TPanel Image1 TImage Label1 TLabel procedure Label1MouseDown Sender TObject Button TMouseButton Shift TShiftState X Y Integer procedure Label1MouseMove Sender TObject Shift TShiftState X Y Integer procedure Label1MouseUp Sender TObject Button TMouseButton Shift TShiftState X Y Integer private Moving BOOLEAN xDelta INTEGER yDelta INTEGER public Public declarations end var Form1 TForm1 implementation

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


  • Bitmaps from a container and stretch them between points anywhere on my form You might take a look at the ScreenSphereMovie pas unit that is part of http homepages borland com efg2lab Graphics SphereInCubeMovie htm Look at the TNode class definition Instead of just a TBitmap you could extend the node to contain other information The FormCreate creates a BitmapList which is just a TList The ButtonGenMovieClick method creates a

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


  • able to display text in a Memo evenly spaced apart so that they appear as columns of text and I don t want to resort to using Courier New i e like Col1a Col2a Col1b Col2b Col1c Col3c The problem is that even when I specify the same number of tabs between the text it appears that for some lines an extra tab is used to get text properly aligned Is there a way of programmatically accounting for this or another way of ensuring that the text will always be aligned properly If you are determined to use a TMemo instead of a grid or TListview which offers true columns you can use this Setting tabstops in a memo control procedure TScratchMain SpeedButton2Click Sender TObject Var tabs Array 0 2 of Integer Begin set first tabstop at 12 second at 24 third at 44 character position using the average width as base converted to dialog units 4 dialog units make one average char width tabs 0 12 4 tabs 1 24 4 tabs 2 44 4 Memo1 Clear Memo1 Lines Add 01234567890123456789012345678901234567890123456789 Memo1 Lines Add Start 9 One 9 Two 9 Three Memo1 Perform EM SETTABSTOPS 3 LongInt tabs Memo1

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


  • the space right of the tabs not covered by them to display a bitmap you subclass the pagecontrol VCL style this time set the controls Ownerdraw property to true and supply a OnDrawTab event handler that paints the tabs label transparently requires D4 The additions necessary are in the form declaration first proc added by Delphi for OnDrawTab event procedure PageControl1DrawTab Control TCustomTabControl TabIndex Integer const Rect TRect Active Boolean private Private declarations FOldPageCOntrolWndProc TWndMethod procedure PageControlWndProc Var Msg TMessage In the implementation FormCreate at these two lines FoldPageControlWndProc Pagecontrol1 WindowProc Pagecontrol1 WindowProc PageControlWndProc The two additional methods are implemented as procedure TForm1 PageControlWndProc var Msg TMessage var canvas TCanvas x y Integer r TRect begin If msg Msg WM ERASEBKGND Then Begin msg Result 1 r pagecontrol1 clientrect canvas TCanvas Create try canvas handle HDC msg wparam y 0 While y r Bottom Do Begin x 0 While x r right Do Begin canvas Draw x y Background Inc x Background Width End Inc y Background Height End finally canvas handle 0 canvas free end End Else FOldPageControlWndProc Msg end As you see this is very similar to the window proc used for the tabs One could certainly move

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



  •