StatusBar - aggirare l'errore variabile duplicata

Ho notato che inserendo una StatusBar ad un Form , e su questa dei pannelli  con Style = psOwnerDraw;
quando si aggiunge la gestione dell'evento OnDrawPanel

viene generata in automatico
Codice: [Seleziona]

 procedure BarraStatoDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;  const Rect: TRect);  


in fase di compilazione segnala che StatusBar e' duplicata,
ovvio nella classe vi e' la dichiarazione del componente StatusBar: TStatusBar;
creata in automatico,

non resta che ovviare cambiando dichiarazione in modo che il parametro StatusBar abbia un nome diverso

Codice: [Seleziona]
[b][/b]
procedure BarraStatoDrawPanel([b]StatusBar1: TStatusBar[/b]; Panel: TStatusPanel;  const Rect: TRect);  


cosi' StatusBar e StatusBar1 risultano variabili diverse e non si disturbano;

questo solo mantenendo {$mode objfpc}  , se invece la direttiva e' {$mode delphi}  , l'anomalia non si presenta.

SMF 2.0.8 | SMF © 2011, Simple Machines
Privacy Policy
SMFAds for Free Forums
TinyPortal © 2005-2012

Go back to article