Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is it possible to display text without word wrap?
Message
From
03/11/1998 15:37:28
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00151158
Message ID:
00154096
Views:
20
>Hi Andrus,
>
>>1. How I can hide memo window title bar: want move memo window up
>>by title bar height of pixels?
>>2. How I can disable memo window resizing? I want to enable only
>>form resizing.
>
>MODIFY MEMO takes two WINDOW clauses. One is the window in which it should be displayed, the other one a window defintion it should use for the edit window. Something like this can be used:
>
>DEFINE WINDOW _Edit ;
>   FROM 1,1 TO 10,10 ;
>   NONE ;
>   NOGROW
>MODIFY MEMO cMemo WINDOW _Edit IN WINDOW Form1 NOWAIT
>You should check out the DEFINE WINDOW command to find all clauses you want to use for your memo window.
>
>>3. set resource command causes disk access. I need set resource on
>>for other memo windows and this command is not scoped to private
>>data session. How to avoid disk sound during resize?
>
>You can resize a MODIFY MEMO window with the ZOOM WINDOW command.

Christof,
Using define window it was not possible to display scrollbars.

After spendig a number of hours I implemented it: an object
oriented modify file command without word wrap!!

Here is the code:

In form init:

this.resize()


In form resize()

local vtop, vleft
vtop = this.top
vleft = this.left
this.top=-sysmetric(9) -sysmetric(4)
this.left = - sysmetric(3)
this.width = this.width-sysmetric(5)+4*sysmetric(3)
MODIFY file c:\autoexec.bat IN WINDOW FORM1 nowait window form1
this.top = m.vtop
this.left = m.vleft
this.width = this.width+sysmetric(5)-4*sysmetric(3)
this.lockscreen = .f.

This causes the editing window to cover the whole screen. However, it is possible
to provide place for buttons by changing resize() event a bit.
Andrus
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform