TOPIC:

Io sto completamente ridisegnando la grafica delle mie applicazioni Windows Form.
In allegato un esempio.
Le finestre sono CLASS DevoWindow INHERIT Form.
Le finestre sono senza bordo e la TextBar è sostituita da una Label chiamata Caption.
Come posso scrivere questo codice senza che si generi errore?

PROPERTY Text AS STRING
GET
RETURN SELF:Caption:Text
END GET
SET
SELF:Caption:Text := VALUE
END SET
END PROPERTY

Grazie

Ciao Danilo,
vuoi dire che la Label che si chiama "Caption" nella classe DevoWindow non esiste?
Saluti
Wolfgang

Ciao Danilo,
questo codice da me compila:
In teoria puoi accorciare e scrivere la property in una riga (secondo me anche più elegante):
Saluti

Wolfgang

Si Wolfgang grazie, anche a me compila, ma poi, agganciato ad una qualsiasi applicazione in esecuzione da questo errore:
In questo caso la finestra WLoginEnglish eredita dalla DevoWindow.
Se tolgo la property tutto torna a funzionare.

System.NullReferenceException
Riferimento a un oggetto non impostato su un'istanza di oggetto.

Callstack :
WLoginEnglish.System.Void WLoginEnglish..ctor()() : C:\XIDE\Projects\Dll_and_SystemFiles\Applications\SQLManagerNet\Prg\WLoginEx.prg : 8
static System.Void SQLManagerNet.Exe.Functions.Start(System.String[] pString)() : C:\XIDE\Projects\Dll_and_SystemFiles\Applications\SQLManagerNet\Prg\Main.prg : 31

Ciao Danilo,
probabilemente la tua property viene chiamata prima che il label "Caption" è stato creato.
In questo caso scriverei questo codice:Dovrebbe esistere una possibilità ancora più corta, ma devo controllare.
Wolfgang

NO niente anche così non cambia, sembra che richiamare una istanza della form, Self:Text appunto, essendo la finestra senza bordi crei il problema. Si dovrebbe secondo me poter scrivere un qualcosa del tipo : Override Property Text as string

Danilo

Ciao Danilo,
ok, capito,
In effetti la classe System.Windows.Forms.Form ha già un property che si chiama "Text":
docs.microsoft.com/en-us/dotnet/api/syst...dows.forms.form.text
In questo caso in effetti devi aggiungere la keyword "ovveride" davanti per dire che vuoi sovvrascrivere la property della classe parente.
Wolfgang

Ciao Wolfgang, mettendo OVERRIDE l'errore non viene generato e l'applicazione parte, ma l'assegnazione non funziona,
credo che dovrò scrivere SELF:Caption:Text := "bla bla bla" per forza.

Danilo

Hi Danilo,

What is SELF:Caption? Is it an object? Are you sure this is initialized? The error message seems to say that this is NULL.
Maybe you can produce a small sample and post it here to have a look?

.

Ciao Danilo,
potresti darci un piccolo esempio che dimostra il problema?
Wolfgang

Preparo un demo e lo invio. Grazie a tutti
I prepare a demo and submit it. Thank you all

Here is a small application. Look at the DevoWindow.prg prg line 233. I hope I have attached everything.
Thanks
Danilo

Ecco qui una piccola applicazione. Guardate il prg DevoWindow.prg linea 233. Io spero di aver allegato tutto.
Grazie
Danilo

Hi Danilo,

In the SET of the PROPERTY, you have

SELF:Caption:Text := SELF:Text

shouldn't that be

SELF:Caption:Text := VALUE

.

Grrrrrrr, Thank you.

Danilo