[RISOLTO] Convertire una unit Delphi

[fr33d0m]

Ciao,
sto tentando di convertire una unit scritta in Delphi ma ho degli errori in fase di compilazione.
L'errore è nella sezione 'uses':

Codice: [Seleziona]

  USES
    Graphics,            // TColor, TCanvas
    ExtCtrls,             // TImage

Egli errori sono questi:

Codice: [Seleziona]

GraphicsPrimitivesLibrary.PAS(14,5) Fatal: Can not find Graphics used by GraphicsPrimitivesLibrary, ppu=..\..\..\lcl\units\i386-win32\graphics.ppu, package LCLBase
GraphicsPrimitivesLibrary.PAS(15,5) Fatal: Can not find ExtCtrls used by GraphicsPrimitivesLibrary, ppu=..\..\..\lcl\units\i386-win32\extctrls.ppu, package LCLBase

Inutile dire che entrambi i files (graphics.ppu e extctrls.ppu) si trovano esattamente in LazarusDir\lcl\units\i386-win32\

[Legolas]

Due cose, che non so se ti aiuteranno a risolvere il problema, ma fa sempre bene ricordare: metti un {$MODE DELPHI} all'inizio della unit e cancella eventuali residui di compilazione di delphi

[fr33d0m]

... metti un {$MODE DELPHI} all'inizio della unit

Quello è stato messo in automatico quando ho fatto la conversione.
La cosa strana è che durante la conversione la unit ExtCtrls non è stata riconosciuta valida e l'ho quindi commentata, mentre la Graphics è stata riconosciuta.
Ho anche provato a scrivere i nomi con tutte le lettere minuscole, come i files stessi delle unit, ma non è cambiato niente.
 

[Legolas]

Uhm... Graphics e ExtCtrls fanno parte del package LCLBase. Forse il convertitore non lo ha aggiunto automaticamente alle dipendenze del pacchetto che stai convertendo

[fr33d0m]

Non è un pacchetto ma una unit a sè ed è usata per creare un oggetto a runtime.
Ho provato anche a convertire il progetto di esempio che usa questa unit e si è compilato tutto perfettamente. 
Peccato che poi in fase di run il debugger solleva questa eccezione:

Failed to create win32 control, error: 1407 : Impossibile trovare la classe della finestra.
In file 'win32wscontrols.pp' at line 259

e poi mestamente crasha tutto. 

[Legolas]

Se riesci a postare la unit originale con il progetto di esempio, vedo di provare a debuggare :-)

[fr33d0m]

Ti giro il link:
http://www.efg2.com/Lab/Graphics/Surface3D.htm
Nella pagina c'è il link per scaricare l'esempio.

Grazie mille in anticipo. 

[Legolas]

Trovato l'inghippo

Nel file Surface3D.lpr:

Codice: delphi [Seleziona]

{...cut...}
begin
  Application.Initialize;  // <-- AGGIUNGI QUESTO!  
  Application.CreateForm(TSurface, Surface); 
  Application.Run;
end.

[fr33d0m]

 
Grande! Non l'avrei mai trovato...

[Legolas]

Figurati, ho semplicemente cercato il codice dell'errore su google 
Se poi riesci anche ad eliminare il flickering quando disegna, magari faccelo sapere

[brunello]

per il flickering imposta a false il RepaintNeeded, ciao Brunello

  DrawSurface (Surface.Image.Canvas, false)