Newsgroup: it.comp.lang.delphi
Titolo: [TD] Lentezza controllo TOpenPictureDialog

Sto facendo le prime prove con TD Ex win32, mi succede che utilizzando il 
controllo in oggetto il tutto rallenta in modo insolito, mi spiego apro la 
diologbox e carico una immagine in un TImage per mezzo di questo codice :
  procedure TForm1.btApriClick(Sender: TObject);
begin
   if opdApri.Execute then
   begin
     image1.Picture.LoadFromFile(opdApri.FileName); // carico l' immagine
   end;
end;
Pero' l' apertura del dialog e' lentissima e anche lo scorrere tra le 
cartelle e lenta il tutto e' talmente lento che a volte per scegliere una 
immagine impiego diversi minuti, anche la chiusura del programma con Close 
e' lenta.
Domando se sto' utilizzando il controllo in modo corretto oppure se forse e' 
l' installazione di TD che ha qualcosa che non va', anche se di problemi non 
me ne da'.
Ciao Novello pivello

 immagine impiego diversi minuti, anche la chiusura del programma con Close
domanda: se navighi tra files e cartelle da winzozz riscontri la stessa
lentezza?
A.

 ha scritto nel messaggio 
news:1164358384.6...@j72g2000cwa.googlegroups.com...

No la navigazione e' per cosi' dire normale, non vedo rallentamenti. Ho 
provato anche ad aprire un nuovo progetto ma il rallentamento si riproduce 
in modo uguale, ho provato l' eseguibile su un altro computer con Win xp sp1 
e il rallentamento si riproduce uguale. Se tolgo la dialogbox il tutto 
ritorna veloce. Ciao Novello 

 ritorna veloce.
Le cartelle delle immagini che sfogli appartengono al tuo disco locale?
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]

 Le cartelle delle immagini che sfogli appartengono al tuo disco locale?
Si e' la cartella locale Immagini quella di default, tra l' altro con dentro 
poche immagini.
Ciao Novello 

 dentro poche immagini.
Aggiungo che se a DesignTime( spero si dica cosi ) provo con Test Dialog il 
tutto e' velocissimo navigo e scelgo le immagini seza problemi.
Ciao Novello 

 tutto e' velocissimo navigo e scelgo le immagini seza problemi.
Sei sicuro di non aver agganciato qualche evento alla finestra di dialogo?
Com'è configurato il controllo? (posta il DFM)


 Com'è configurato il controllo? (posta il DFM)
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 363
  ClientWidth = 641
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    641
    363)
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 649
    Height = 41
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Panel1'
    TabOrder = 0
    object btChiudi: TBitBtn
      Left = 16
      Top = 8
      Width = 97
      Height = 25
      Caption = 'btChiudi'
      TabOrder = 0
      OnClick = btChiudiClick
      Glyph.Data = {
        2A030000424D2A030000000000002A0200002800000010000000100000000100
        08000000000000010000120B0000120B00007D0000007D000000FF00FF003C6A
        FF004371FF004977FF001A4BFF002253FF002758FF002E5EFF003160FF003564
        FF000033FF000031FB00002FF7000134FF00012FF5000231F9000333F9000638
        FF00073AFF000739FE00083AFF00093BFF000C3DFD000D3DFF000E3EFF00103E
        F900113FF7001242FF001341FF001645FF001947FF001B48FF001F4BFF00204C
        FF002550FF002852FF002B54FF002C56FF00315AFF00355CFF00365EFF003C62
        FF004166FF004267FF004467FC00476BFF00496BFC004C6FFF005274FF005475
        FF005979FF005A79FF005D7EFF005F7DFF006583FF006584FF006B87FF006B89
        FF00718DFF007792FF007D98FF00829CFF00AFBEFD00EFF2FE00002DF400002D
        F200002BF000002AED000029EC000028EA000026E500082FEA000A34EF003052
        F000708AFF007790FF007E96FF008299FF00899DFF008EA3FF008FA3FF0093A7
        FF000024E1000023DE000021DB00001FD700001ED500001FD500001ED400203D
        DF00304CE500304BE100EFF1FD00EFF1FC00001CD100001BD000001ACE000019
        CB000018C900CFD4F6000016C6000014C2000013BF002031C8003040CC000011
        BC00000FB800000EB500303DC700EFF0FB00EFF0FA00000CB100000AAD000008
        A9003039BC000007A8000007A6000005A30000039F0000019B00AFB0E200EFEF
        F900FFFFFF00FFFFFF00000000000062646566696A6B6F707174757677005E2E
        2D2B2928262422201E1C18140F7758310D0A0B410A0A0A0A0A0A0A0A11765533
        120E6167560A0A607473440A157554351657636D68565F727978730A17745336
        19595D7A6D686C6E7A79740A1B71523804475B5D7A6D6D7A6E72600A1D70464A
        0504475B5D7A7A6D6C5F0A0A1F6F454B0605485A5C7A7A6D68560A0A216B434C
        071A495C7A5C5D7A6D68560A226A424D09103F7A5C5A5B5D7A6D67412369404E
        01133E3F4948475B5D63610B25660C50020813101A05044759570E0A26650B51
        03020109070605041916120D27640A4F3D3C3B3A39373432302F2D2A2C62000A
        0B0C404243454652535455585E00}
    end
    object btApri: TBitBtn
      Left = 120
      Top = 8
      Width = 113
      Height = 25
      Caption = 'btApri'
      TabOrder = 1
      OnClick = btApriClick
      Glyph.Data = {
        FA020000424DFA02000000000000FA0100002800000010000000100000000100
        08000000000000010000120B0000120B00007100000071000000FF00FF006633
        33006E372F00753A2C007F4026008844220091491E009A4D1A00A4521400AE57
        0F00B55A0C00CC660000BF600600D06F0E00D5781A00DB822B00DF8C3A00E597
        4A00E9A15800EFAC6900F3B47500FFCB9800D07E0300E6A64C00F5CC9100EFC8
        8E00F6CE9400F7D09700FEDEAE00D7830000D8850300DB8B1100DE921D00E199
        2B00E19A2C00E19B2D00E39F3700E3A03700E5A33E00E6A74500EAAF5300EFBC
        6C00F2C47B00F5C98500F7D09100F9D49B00F8D39B00F9D59E00FAD7A100FBD9
        A400FBD9A500FBDAA700FCDCAB00FEE0B100FAE2BB00F9E1B800FBE4BD00DABB
        7600C8C0750089821B00C7C68700919B3700F2F3E900F2F3EB0099AF59009CB9
        6300F6F8F2003E5E080099B766009DBE6800577F1B005E9445003EA3220040AB
        2C0010970A006CAC69005B9B5900009800000093000000810000006E0000006A
        0000148E14006CB06B000370060006940A00068C0A0006890A0006850A000DA5
        1300159019000C8815000E9017000F97190011A11B000A7C130026BF3A0053EA
        7C0053E97C0053E77C0056EE820034CA630036CD660039CF690046DD76004DE4
        7D0054EC840063FC960065FE980064FD970066FF9900FFFFFF0000000000000C
        0A090807060504030201000000000B1728272521201F1E1D1D16010000000D29
        1B2E2F303133341C3523020000000E2A1A424B50544C3F3E3822030000000F2B
        18535B66655F4C3F362204000000102C405C686D6B675F4C3724050000001141
        5D696D6E6E6B675F4726060000003D5E6A6C6E6E6E6E6B675F46070000004E64
        6E6E6E63636E6E6B675F430000004D6E6E6E62565A636E6E6B675F0000004860
        6E6155443C52636E6E6B675F00001949594A45322D3A57636E6E6B675F000015
        3914131211103B57636E6E6B67510000000000000000000057636E6E6B500000
        00000000000000000057636E50000000000000000000000000004F580000}
    end
    object btSalva: TBitBtn
      Left = 240
      Top = 8
      Width = 113
      Height = 25
      Caption = 'btSalva'
      TabOrder = 2
      OnClick = btSalvaClick
      Glyph.Data = {
        62030000424D6203000000000000620200002800000010000000100000000100
        08000000000000010000120B0000120B00008B0000008B000000FF00FF009C4D
        4D00CC666600C8646400C3616100C0606000BD5E5E00BC5E5E00B95C5C00B65B
        5B00AA555500A8545400A7535300A6535300A2515100A05050009B4D4D00964B
        4B0093494900904848008C4646008844440084424200814040007C3E3E00763B
        3B00723939006A35350068343400C9656500C3626200B75C5C00B1595900AD57
        57009D4F4F00954B4B008F484800BE6060008A464600793D3D006D3737006935
        3500B75D5D00A554540087454500834343006E3838008C484800713A3A009D51
        5100994F4F00954D4D00914B4B007E414100743C3C00C56767007B404000BF64
        6400CC6C6C00773F3F00834646007E4343007A41410080454500A85B5B00914F
        4F00904F4F00894B4B00E17C7C009D57570096535300884B4B00A35B5B009855
        5500AF636300A85F5F00A35C5C00B2656500C2707000BF6E6E00BD6D6D00B568
        6800F58F8F00D47C7C00CF797900CD787800C8757500EE8D8D00E7898900E185
        8500DA818100F3919100E88A8A00FF999900F9959500F4929200FF9A9A00C679
        7900F99A9A00FF9F9F00FFA3A300FFA6A600FFABAB008C606000FFB0B000FFB3
        B300A6757500B4808000FFB7B700FFBBBB00FFC0C000FFC4C400FFC7C700FCC5
        C500FFCC9900FFF9F100FFFCF800FFF5E600FFEBCB00FFEFD500FFF2DC003A69
        FF004270FF004977FF004E78FE00194AFF001E4FFF002556FF002D5DFF003564
        FF000A3DFF001143FF001341FA00FFFFFF00F9F9F900E8E8E800B7B7B700FFFF
        FF0000000000000013138888888888886736281B000000135D12878787878787
        6A3F1A2E1C000E5060118686868686866B41193E291B0D4E6340313233342F2C
        2D35384730280A566450514A4B4C454642433C493B1A2154656150514A4B4C45
        464243483D192053667C7981807F7E7D8382844D3C27095A687B7A7981807F7E
        7D83824F43180859698585858574737578777655421707586C85727272727272
        7272775A461605576D858585858585747375785C45151E5F6E85727272727272
        7272755B4C14035E6F858585858585858574735D4B130203700625201F0B2101
        2B2426601112000271044437442A440F4423246210000000021D523A5239520C
        520123220000}
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 39
    Width = 641
    Height = 316
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 1
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 113
      Height = 105
      AutoSize = True
    end
  end
  object opdApri: TOpenPictureDialog
    Left = 288
    Top = 72
  end
  object spdSalva: TSavePictureDialog
    Left = 368
    Top = 64
  end
end

Novello ha scritto:
[...]
Non saprei che dirti... è possibile che il problema sia dovuto al fatto 
che, trattandosi di una *TOpenPictureDialog*, il calcolo dell'anteprima 
- se le immagini sono grandi - impieghi un po' di tempo.
Prova a sostituire temporaneamente il componente con una "normale" 
*TOpenDialog* e vedere se il problema si ripresenta. :-|


 *TOpenDialog* e vedere se il problema si ripresenta. :-|
Ho provato e impostato il filtro solo per .bmp ma i tempi rimangono uguali, 
comunque siccome sono solo agli inizi la cosa non mi turba piu' di tanto 
magari con prossimi Hotfix risolvo. Grazie Marco per l' interesse e i 
suggerimenti
ciao Novello pivello