discuss.visual-prolog.com

Gukalov

Hi everybody.
In the similar situation I stupidly used imageControl (instead of staticTextControl)
with the set of image files to change the colors and inscriptions (ImageControl:setImageFile(FileName)).

Gukalov

Look at "window.i": predicates setActive : (). predicates bringToTop : (). predicates forceToTop : (). For working with vpi there are: predicates tryGetVpiWindow : () -> vpiDomains::windowHandle VpiWindowHandle determ. predicates getVpiWindow : () -> vpiDomains::windowHandle VpiWindowHandle.

Gukalov

I would try withou varM... clauses sssToItemList(SSS, StartingIndex) = ItemList :- % CurrX = varM::new(StartingIndex), ItemList = [ Item || list::memberIndex_nd(SS, Index, SSS), ItemID = uncheckedConvert(listViewControl::itemID, Index + StartingIndex /*+0*/), % <== e504 error here on 64bit compilati...

Gukalov

Harrison Pratt wrote: ↑
26 Jul 2018 12:57
Do you mean add text from a VIP application?

- Yes, exactly. It need to sign a lot of scans, and I'm too lazy to do it manually)))

Gukalov

Hi)))
How to add simple text label to pdf document?

Gukalov

Hi. "in" can be used instead of list::getMember_nd/1 and etc... implement main open core, console clauses run() :- List = [ 1, 2, 3, 4, 5 ], foreach X in List do write(X, " ") end foreach, nl, nl, foreach Y in setM_redBlack::new(List) do write(Y, " ") end foreach, write("\n.............................

Gukalov

Code: Select all

directory::forAllFiles(FullDirName, {(F) :- file::delete(F)}, "*.txt", false)

Gukalov

Harrison, what about "Ctrl+V"?!
Looks like your code doesn't check what user pastes with Ctrl+V.
And user ain't happy if pasting prohibitted at all.
Isn't it?

Gukalov

Simplier to delete spaces before checking:
if string:hasAlpha(string::replaceAll(Control:getText(), " ", "")) then

But to check if entering name is correct you need something more sirious than just letters&spaces)))
"A m o d Go kh ale" ?!)))

Gukalov

Ups)))
sorry
Just
if string:hasAlpha(Control:getText()) then

Gukalov

As you did before:
clauses
validateNumber(Control) =
if _ = string:hasAlpha(Control:getText()) then
control::contentsOk
else
control::contentsInvalid(Control, Control, string::format("%s must be ???", Control:getText()))
end if.

Gukalov

Hi.

Amod Gokhale wrote: Is there example to validate if string contains only alphabets and message user if it contains numbers?

Class string

Code: Select all

predicates
    hasAlpha : (string Source) determ.
    % @short Succeds if #Source only contains alphabetic characters.

It's not enough?

Gukalov

Hi.

flush may be...

Code: Select all

foreach 
    IS:repeatToEndOfStream(),
    S = IS:readLine(),
    frontToken(S,_Tok,_)
do        
    OS:write(S,"\n"),
    OS:flush()
end foreach,

Gukalov

Ferenc Nagy wrote: 3) They inactivate the helpButton.

If helpResponer is set key "F1" works both with and without helpButton on titleBar. And without titleBar at all "F1" works.
It's almost good, it's good enough

Gukalov

Ferenc Nagy wrote:Hi Gukalov,
Try to add to the setDecoration call these Buttons.
...
The Help button will disappear.

Of course I tried))) And tried some years ago already)))
Why is it like that ask Thomas)))

Search found 27 matches

Re: Color background of standard control

Re: Send to Background-Bring to Top

Re: ListviewControl compilation 32bit vs 64 bit, VP8

Re: Edit pdf document

Edit pdf document

Re: Visual Prolog : Edit Control : Check if string contains numbers

Re: The contradicting arguments, display and working of the frame decoration

Re: Minimize and maximize buttons do not allow to appear the help button