PureBasic Forums - English

I am attempting to capture clipboard text from PDF viewer text copies(cntrl c). However sometimes certain characters like ff,ffi and f end up being replaced by a "?" in the string after clipboard capture.
Cannot figure out why this is happening. If I paste to notepad the text is fine.
ClipData ...

I've added some code to accommodate what I'm trying to do... Almost there but not quite...:)

Thanks again Rashad and Elemente.

; MultiLine Treegadget
; Rashad 19/12/15
;
#TVM_SETITEMHEIGHT = $111B
#TVM_GETITEMHEIGHT = $111C
#TVM_SETBKCOLOR = $111D
#MULTILINEWIDTH = 40
;#TOTLINES= 4
Global hBrush ...

infratec wrote:http://www.purebasic.fr/english/viewtop ... 12&t=64343

Thanks appreciated...

Very Nice thanks... Just what I needed...

All the best..

If no code. Any suggestions would be appreciated... Really stuck...

Hi, does anyone have code for multi-line treegadget. Looked into ownerdraw via callback but seems a bit beyond me ATM. Any help would be greatly appreciated as I need to get my project completed asap.

All the best for Christmas and the new year..

Ok thanks alot. This this what Ive got so far and seems to pretty much do what I want.


ExamineDesktops()
textPos=DesktopWidth(0)/2
width = 120
height = 20

; Open Window that doesnt show on taskbar
OpenWindow(3,0,0,0, 0,"HiddenWindow",#PB_Window_Invisible)
hWnd2=OpenWindow(1, textPos, 0, width ...

I am trying to make a window with no borders and text only that will stay on top. Something like a timer that will sit at the top window bar. Have been playing with this code to try to create a transparent background to write on without success. Can anyone help? thanks..


Procedure ...

;--------------------
; Access PBOSL Timer from any code with Low CPU overhead
; up to 1 ms - Learner
;--------------------
Global ObEvent.l

Procedure mytimer1()
If Not pulseEvent_(ObEvent) ;Sets Event to Signaled then Reset to off
Debug "darn "+ Str(ObEvent)
EndIf

EndProcedure

ObEvent ...

This seems to work ok,

#Red1=$0000FF ;red
#Gray1=$D4D4D4 ;grey
Global Mutex1=CreateMutex()

MainWindow = OpenWindow(0,0,0,800,600,"",#PB_Window_TitleBar|#PB_Window_SystemMenu)
PImage = CreateImage(1,700, 500)
If MainWindow=0 Or CreateGadgetList(WindowID(0))=0:MessageRequester("Error","OpenWindow ...

Thanx for the help netmaestro. Will try your suggestion.
Regards.

Why does this eventually lockup?

#Red1=$0000FF ;red
#Gray1=$D4D4D4 ;grey
Global Mutex1=CreateMutex()

MainWindow = OpenWindow(0,0,0,800,600,"",#PB_Window_TitleBar|#PB_Window_SystemMenu)
PImage = CreateImage(1,700, 500)
If MainWindow=0 Or CreateGadgetList(WindowID(0))=0:MessageRequester("Error ...

Does anyone know how to send midi Volume and Balance Messages along the lines of:

midiOutShortMsg_(hMo, $C0 | Channel | Patch<< 8 )

Thanks.

Ok Solved it..

Channel=1
Controller1=7 ;Channel Volume, '10' for pan
Vol=127
midiOutShortMsg_(hMo, $B0 | Channel | Controller1 << 8| Vol << 16)

To have a smooth effect you should set monitor vert to 30 using SetRefreshRate, but doubt that many monitor would do that... I've never seen a monitor going lower than 50

Is it for a 3D or 2D graphics?
With 3D you have to use a lapsed-time movemente system to handle slower (or faster!) computers ...

Does anyone know if it is possible to get smooth motion(in this case a bouncing ball) without having to run the loop at 60 fps(if vtrace is 60). This
is mainly for slower machines.

i.e.
open windowed screen and init etc
monitor vert sync=60

SetFrameRate(30)
repeat
Start3D()
DisplaySprite3D(0,x,y ...