>>
APLDN Home

>>
Events

>>
Trainings

>>
APL Books

>>
APLDN Links

>>
Discussion Groups

>>
Downloads

>>
Articles

>>
Library

>>
Learning Tools

>>
APLDN User IO

>>
APL2000.com




Bug Reports

Author Thread: Post It Notes
brent.hildebrand
Post It Notes
Posted: Wednesday, September 13, 2006 12:47 AM (EST)

I came across a little application that made "Post it Notes" like windows into which you could enter text that you wanted to remember.  I like the idea, but not the implementation.  So off to APL to try to duplicate the features I liked and "correct" the ones I did not like. 

 

The first draft used a Form without a border and caption.  I put a RichEdit object on the form for text entry, and used the border around the RichEdit to do window drag and resizing functions.  It worked except, that the 'pointer' property of the RichEdit object would get stuck with the pointer I was using along the edge to indicate window resizing.  I tried several work arounds including the Defer method on the onMouseEnter event for the RichEdit.  Did not work.  Most often the cursor gets "stuck" when moving the mouse up from the bottom of the Form.  So there is some issue with events that I have not completely resolved.

 

Next draft, I used a series of Frames as place holders for the border areas, and set the pointer properties for the frames, and onMouseDown events for the mouse drags for resizing and Form moving.  It worked pretty good, and I did not have an issue with the pointer property for the RichEdit control. 

 

I then changed from using Frames to the Picture class so I could change the color of the area containing the Picture just for the fun of it.  And that works great also.  And the Notes2 colors the corner areas blue to demonstrate where they are and what they look like.

 

Now the application is not done, but attached is the workspace with a function for each type of window construction.  The function, Notes0 is the first implementation.  Notes1 uses Frames, and Notes2 uses Pictures.  Invoke each function to create like this:  Notes2 ''

 

Use the Start function to create the Popup menu for editing the text in the RichEdit control.  Note, not everything in the Popup is working yet and I just pulled some of that code in from another workspace.  And there is no saving or reloading of text data.  This is to just demonstrate making windows that are resizable but not necessarily the exact windows standard.  The attached file is in ATF format, so it can be loaded in older APL+Win versions.  It also requires Window 2000 or higher as it using Transparent forms. 

 



Attached file: Notes2.ATF




APL2000 Official Web Site

Most good judgment comes from experience. Most experience comes from bad judgment.
--- Anonymous

APLDN Home   |    |  Events   |  Trainings   |  APL Books   |  APLDN Links   |    |  Discussion Groups   |    |  Downloads   |  Articles   |  Library   |  Learning Tools   |  APLDN User IO   |  APL2000.com   |