Rocksolid Light

Welcome to RetroBBS

mail  files  register  newsreader  groups  login

Message-ID:  

The world is not octal despite DEC.

devel / comp.lang.clipper.visual-objects / Drag n Drop... was working and not now... why

SubjectAuthor
* Drag n Drop... was working and not now... whySherlock
`* Re: Drag n Drop... was working and not now... whyJamal
 `- Re: Drag n Drop... was working and not now... whyPhil McGuinness

1
Drag n Drop... was working and not now... why

<7868d6b6-df60-4c64-9d88-097012f1c119n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=910&group=comp.lang.clipper.visual-objects#910

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:ac8:5ad5:: with SMTP id d21mr4309196qtd.200.1628900224710; Fri, 13 Aug 2021 17:17:04 -0700 (PDT)
X-Received: by 2002:ad4:4043:: with SMTP id r3mr5373323qvp.1.1628900224573; Fri, 13 Aug 2021 17:17:04 -0700 (PDT)
Path: i2pn2.org!i2pn.org!aioe.org!news.uzoreto.com!tr1.eu1.usenetexpress.com!feeder.usenetexpress.com!tr1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Fri, 13 Aug 2021 17:17:04 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=220.233.174.33; posting-account=fkv0owoAAAA0IVZa41vS7WRyIu4l_fmV
NNTP-Posting-Host: 220.233.174.33
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <7868d6b6-df60-4c64-9d88-097012f1c119n@googlegroups.com>
Subject: Drag n Drop... was working and not now... why
From: sherlock@sherlock.com.au (Sherlock)
Injection-Date: Sat, 14 Aug 2021 00:17:04 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 55
 by: Sherlock - Sat, 14 Aug 2021 00:17 UTC

VO'ers.

Simple code... why does DROP() not get called. I drag a file from Explorer, see the ICON with the [ + ] for drag n drop... but drop does not execute.
Have other code that used to work and wonder why now. Yet my Browser drag and drop works. My original code was TEXTcontrol on Dialog window. Tried the STYLE.. tried lots of things. aargh..

Help... has to be something simple

Phil

CLASS MainWindow INHERIT DATAWINDOW

PROTECT oCCEndWindow AS PUSHBUTTON
PROTECT oDCFixedText1 AS FIXEDTEXT
//{{%UC%}} USER CODE STARTS HERE (do NOT remove this line)

METHOD Drop(oDragEvent) CLASS MainWindow
? "METHOD Drop"
SUPER:Drop(oDragEvent)
? oDragEvent:FileCount
? oDragEvent:FileName(1)
RETURN SELF

METHOD Init(oWindow,iCtlID,oServer,uExtra) CLASS MainWindow

SELF:PreInit(oWindow,iCtlID,oServer,uExtra)

SUPER:Init(oWindow,ResourceID{"MainWindow",_GetInst()},iCtlID)

oCCEndWindow := PushButton{SELF,ResourceID{MAINWINDOW_ENDWINDOW,_GetInst()}}
oCCEndWindow:HyperLabel := HyperLabel{#EndWindow,"Close",NULL_STRING,NULL_STRING}

oDCFixedText1 := FixedText{SELF,ResourceID{MAINWINDOW_FIXEDTEXT1,_GetInst()}}
oDCFixedText1:HyperLabel := HyperLabel{#FixedText1,"TODO: Add server, controls "+_CHR(38)+_CHR(38)+" event handlers",NULL_STRING,NULL_STRING}

SELF:Caption := "DataWindow Caption"
SELF:HyperLabel := HyperLabel{#MainWindow,"DataWindow Caption",NULL_STRING,NULL_STRING}
SELF:QuitOnClose := TRUE

IF !IsNil(oServer)
SELF:Use(oServer)
ENDIF

SELF:PostInit(oWindow,iCtlID,oServer,uExtra)

RETURN SELF

METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS MainWindow
SELF:EnableDragDropClient(TRUE)
//
// SELF:oDCFixedText1:SetStyle(WS_EX_ACCEPTFILES , TRUE)
// SELF:SetStyle(WS_EX_ACCEPTFILES , TRUE)
//
RETURN SELF

Re: Drag n Drop... was working and not now... why

<sf7hfi$th$1@gioia.aioe.org>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=911&group=comp.lang.clipper.visual-objects#911

  copy link   Newsgroups: comp.lang.clipper.visual-objects
Path: i2pn2.org!i2pn.org!aioe.org!usMzckGswq/a27BPojtwGg.user.46.165.242.75.POSTED!not-for-mail
From: nospam@example.com (Jamal)
Newsgroups: comp.lang.clipper.visual-objects
Subject: Re: Drag n Drop... was working and not now... why
Date: Sat, 14 Aug 2021 00:40:17 -0400
Organization: Aioe.org NNTP Server
Message-ID: <sf7hfi$th$1@gioia.aioe.org>
References: <7868d6b6-df60-4c64-9d88-097012f1c119n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="945"; posting-host="usMzckGswq/a27BPojtwGg.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:78.0) Gecko/20100101
Thunderbird/78.12.0
X-Notice: Filtered by postfilter v. 0.9.2
Content-Language: en-US
 by: Jamal - Sat, 14 Aug 2021 04:40 UTC

If you run the application from the IDE, the drag/drop does not work!
You need to generate the EXE then run it. It works for me :)

Jamal

On 8/13/2021 8:17 PM, Sherlock wrote:
> VO'ers.
>
> Simple code... why does DROP() not get called. I drag a file from Explorer, see the ICON with the [ + ] for drag n drop... but drop does not execute.
> Have other code that used to work and wonder why now. Yet my Browser drag and drop works. My original code was TEXTcontrol on Dialog window. Tried the STYLE.. tried lots of things. aargh..
>
> Help... has to be something simple
>
> Phil
>
> CLASS MainWindow INHERIT DATAWINDOW
>
> PROTECT oCCEndWindow AS PUSHBUTTON
> PROTECT oDCFixedText1 AS FIXEDTEXT
> //{{%UC%}} USER CODE STARTS HERE (do NOT remove this line)
>
> METHOD Drop(oDragEvent) CLASS MainWindow
> ? "METHOD Drop"
> SUPER:Drop(oDragEvent)
>
> ? oDragEvent:FileCount
> ? oDragEvent:FileName(1)
>
> RETURN SELF
>
> METHOD Init(oWindow,iCtlID,oServer,uExtra) CLASS MainWindow
>
> SELF:PreInit(oWindow,iCtlID,oServer,uExtra)
>
> SUPER:Init(oWindow,ResourceID{"MainWindow",_GetInst()},iCtlID)
>
> oCCEndWindow := PushButton{SELF,ResourceID{MAINWINDOW_ENDWINDOW,_GetInst()}}
> oCCEndWindow:HyperLabel := HyperLabel{#EndWindow,"Close",NULL_STRING,NULL_STRING}
>
> oDCFixedText1 := FixedText{SELF,ResourceID{MAINWINDOW_FIXEDTEXT1,_GetInst()}}
> oDCFixedText1:HyperLabel := HyperLabel{#FixedText1,"TODO: Add server, controls "+_CHR(38)+_CHR(38)+" event handlers",NULL_STRING,NULL_STRING}
>
> SELF:Caption := "DataWindow Caption"
> SELF:HyperLabel := HyperLabel{#MainWindow,"DataWindow Caption",NULL_STRING,NULL_STRING}
> SELF:QuitOnClose := TRUE
>
> IF !IsNil(oServer)
> SELF:Use(oServer)
> ENDIF
>
> SELF:PostInit(oWindow,iCtlID,oServer,uExtra)
>
> RETURN SELF
>
> METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS MainWindow
> SELF:EnableDragDropClient(TRUE)
> //
> // SELF:oDCFixedText1:SetStyle(WS_EX_ACCEPTFILES , TRUE)
> // SELF:SetStyle(WS_EX_ACCEPTFILES , TRUE)
> //
> RETURN SELF
>

Re: Drag n Drop... was working and not now... why

<eff96b3d-c5bd-4f73-93ef-19713dead47dn@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=912&group=comp.lang.clipper.visual-objects#912

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:a05:6214:5182:: with SMTP id kl2mr7044173qvb.19.1628938955069;
Sat, 14 Aug 2021 04:02:35 -0700 (PDT)
X-Received: by 2002:a05:622a:1354:: with SMTP id w20mr5443788qtk.51.1628938954881;
Sat, 14 Aug 2021 04:02:34 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Sat, 14 Aug 2021 04:02:34 -0700 (PDT)
In-Reply-To: <sf7hfi$th$1@gioia.aioe.org>
Injection-Info: google-groups.googlegroups.com; posting-host=220.233.162.254; posting-account=DLsZHwoAAADZjAB6-BmLUbnomrA9rubZ
NNTP-Posting-Host: 220.233.162.254
References: <7868d6b6-df60-4c64-9d88-097012f1c119n@googlegroups.com> <sf7hfi$th$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <eff96b3d-c5bd-4f73-93ef-19713dead47dn@googlegroups.com>
Subject: Re: Drag n Drop... was working and not now... why
From: sherlocksoftware@gmail.com (Phil McGuinness)
Injection-Date: Sat, 14 Aug 2021 11:02:35 +0000
Content-Type: text/plain; charset="UTF-8"
 by: Phil McGuinness - Sat, 14 Aug 2021 11:02 UTC

Jamal

Was not aware of this and answer also in XSHARP group.
So my code that did not work, did actually work but not in IDE.
Wasted few hours there.. but at least I know.

Irony is the Drag n Drop to bBrowser does work in IDE.

Phil

On Saturday, August 14, 2021 at 2:40:19 PM UTC+10, Jamal wrote:
> If you run the application from the IDE, the drag/drop does not work!
> You need to generate the EXE then run it. It works for me :)
>
> Jamal
> On 8/13/2021 8:17 PM, Sherlock wrote:
F:PreInit(oWindow,iCtlID,oServer,uExtra)
> >

1
server_pubkey.txt

rocksolid light 0.9.8
clearnet tor