Search found 98 matches

by g.bunzel@domonet.de
Sun Dec 29, 2024 11:16 am
Forum: Product
Topic: Escaping the Font Selector window
Replies: 11
Views: 1180

Re: Escaping the Font Selector window

Hi Irwin,

do you check the Return-Value of the Show()-Method?


From the VO-Help:

StandardFontDialog:Show() Method


Purpose
Display a standard font dialog. To retrieve the value that the user selected, use the StandardFontDialog:Font access.


Syntax
<oStandardFontDialog>:Show() ---> LOGIC ...
by g.bunzel@domonet.de
Sun Apr 28, 2024 7:44 pm
Forum: Product
Topic: easy calculation goes wrong
Replies: 5
Views: 1285

Re: easy calculation goes wrong

Horst,

ich verwende diese Einstellung und hatte noch nie ein Problem mit Rundungsfehlern:
SetFloatDelta (0.0001)

Um bei solchen Berechnung mit möglichst wenig Nachkommastellen zu arbeiten, würde ich erst die Multiplikation und dann die Division machen - damit die Werte der Variablen nicht so klein ...
by g.bunzel@domonet.de
Fri Apr 05, 2024 8:42 am
Forum: Deutsches Forum
Topic: OleAutoObject
Replies: 20
Views: 3020

Re: OleAutoObject

Franz,

wenn für den Laufbalken oDlg:SetMarquee(TRUE, 1) eingeschalten wird, macht die Aktualisierung des Balkens durch

DIBSetProgressControl( oDlg:oDCProgressBar:Handle() )

doch eigentlich gar keinen Sinn.
Aus der Funktionsbeschreibung von DIBSetProgressControl():
//d With this function you can ...
by g.bunzel@domonet.de
Thu Apr 04, 2024 8:35 am
Forum: Deutsches Forum
Topic: FabPaint & FabSplitShell
Replies: 6
Views: 1072

Re: FabPaint & FabSplitShell

Hallo Franz,

...ist im Anhang.

Gerhard
by g.bunzel@domonet.de
Thu Mar 14, 2024 6:01 pm
Forum: Deutsches Forum
Topic: Falsch sortiert
Replies: 5
Views: 1018

Re: Falsch sortiert

Horst,

in VO habe ich diesen Vermerk:

SetAnsi( TRUE ) // after SetNatDLL()!!


Evtl. funktioniert das auch in X#.

HTH

Gerhard
by g.bunzel@domonet.de
Tue Mar 05, 2024 1:19 pm
Forum: VO & Vulcan
Topic: Speed import csv data
Replies: 7
Views: 1797

Re: Speed import csv data

Jack,


IF 'Spectrum:,' $ Left(s_ln, 10)
why $ ??
IF Left(s_ln, 10) == 'Spectrum:,'

Please show your code of ParseCSVRecord().

You should create your array only once with:
a_res := ArrayCreate(5)

and fill it inside your function ParseCSVRecord():
ParseCSVRecord(a_res, s_ln, '"', ',')
No need to ...
by g.bunzel@domonet.de
Sat Sep 23, 2023 10:34 am
Forum: Forum Italiano
Topic: problemi con Append()
Replies: 20
Views: 6809

Re: problemi con Append()

Hi Gian Ferruccio,

the file is locked after your :Append(). The following RLock() can not work after that :Append().

I would try this:

self:oTabReg:Append(TRUE)


and first a Commit() and then Unlock():

self:oTabReg:Commit()
self:oTabReg:Unlock()

That should work.

Best regards.
Gerhard
by g.bunzel@domonet.de
Thu Jun 15, 2023 4:23 pm
Forum: Forum Italiano
Topic: Import/export Excel files - Funziona!!
Replies: 55
Views: 16817

Import/export Excel files

<r>Ciao Gian Ferruccio,<br/>
<br/>
have a look at that tool to work with Excel-files:<br/>
<URL url="http://www.libxl.com/">www.libxl.com/</URL><br/>
<br/>
Easy to use - very fast - no need of a office license for the user - no fight with office-files - works with xls- and xlsx-files - a lot of ...
by g.bunzel@domonet.de
Tue May 16, 2023 9:14 am
Forum: VO & Vulcan
Topic: bBrowser bColorCondition using a method?
Replies: 4
Views: 2489

bBrowser bColorCondition using a method?

<t>Dick,<br/>
<br/>
that should work:<br/>
<br/>
METHOD ....... CLASS MyWindowWithbBrowser<br/>
...<br/>
oColorCondition := bColorCondition{"Server:SomeMethod()", SELF, Color{COLORRED}}<br/>
oColumn:ColorCondition:Add(oColorCondition)<br/>
...<br/>
<br/>
<br/>
METHOD SomeMethod () AS LOGIC PASCAL ...
by g.bunzel@domonet.de
Tue Apr 18, 2023 7:45 am
Forum: Welcome
Topic: Validating textbox input as numeric
Replies: 9
Views: 3995

Validating textbox input as numeric

Roland,

why not set a picture to that textbox. Then there are only numbers possible.

I don't work with Harbour, but something like that should be possible:
SELF:tbTaxRate.Picture := "999.99"

HTH

Gerhard