Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
readcomponent içinde isim değiştirme
#1
burada timageenview nesnelerinin adını değiştirmem gerekiyor.. çok ilginç aynı flowpanel içine yüklediğim zaman aynı isimleri tutuyor ...

 DataModule2.ADS_SAYFA.First;     ///
  for I := 0 to AlbumSayfaSayisi-1 do
  begin
     Sayfa_FotoSayisi := DataModule2.ADS_SAYFA.FieldByName('FOTOSAYISI').AsInteger;
     pagecnt          := TPageControlex(tpanel(Form1.flowpanel1.Controls[i]).Controls[0]);

     With TTabSheet.Create(pagecnt) do
     begin
     Name        := Format('Sayfa_%.2d', [i]) ;
     Caption     := TabsheetNo(i) ;//TabsheetNo(i);
     PageControl := pagecnt;
     end;

   iTemp             := TStringList.Create;
   iTemp2            := TStringList.Create;
   iTemp.Duplicates  := TDuplicates.dupAccept;
   iTemp2.Duplicates := TDuplicates.dupAccept;
   MemStr            := TMemoryStream.Create;

   try
   RegisterClass( TLabel );
   RegisterClass( TPanel );
   RegisterClass( TEdit );
   RegisterClass( TCheckBox );
   RegisterClass( TRadioButton );
   RegisterClass( tOMultiPanel );
   RegisterClass( timageenview );
   RegisterClass( tieview );
   RegisterClass( tImageEnVect );
   RegisterClass( timage );
   RegisterClass( tpanel );
   RegisterClass( tbutton );
   RegisterClass( tIzgaraPanel );
   RegisterClass( TComponent );

   PanelStr := TMemoryStream.Create;

   DataModule2.ADS_template.Active      :=false;
   DataModule2.ADS_template.CommandText :='select * from sablonlar WHERE sablon_fotosayisi =:par1';
   DataModule2.ADS_template.Parameters.ParamByName('par1').Value:= Sayfa_FotoSayisi;
   DataModule2.ADS_template.Active      :=true;
   DataModule2.ADS_template.Last;

   TemplateNo:=   DataModule2.ADS_template.FieldByName('sablon_id').AsString;
  //   showmessage(TemplateNo) ;

   LoadFromFileToMem('M:\FOTOMS PROJELER\PROJE AUTOTRID3\Win32\Release\Template\'+TemplateNo,PanelStr);

   PanelStr.Position := 0;
   iTemp2.LoadFromStream( PanelStr ); // our original source
   PanelStr.Size := 0;
   MemStr.Position := 0;
   MemStr.WriteComponent( pagecnt.Pages[0]);
   StreamConvert(MemStr);
   // PanelStr now has our destination poanel.
   PanelStr.Position := 0;
   iTemp.LoadFromStream( PanelStr );
       for ii := 0 to iTemp2.Count - 1 do
       begin
         iTemp.Insert( ITemp.Count - 1, iTemp2[ ii ]);
       end;
   PanelStr.Size := 0;
   iTemp.SaveToStream( PanelStr );
   PanelStr.Position := 0;
   Form1.memo1.Lines.LoadFromStream(PanelStr);
   MemStr.Size := 0;
   PanelStr.Position := 0;
   ObjectTextToBinary( PanelStr, MemStr);
   MemStr.Position := 0;

   MemStr.ReadComponent(  pagecnt.Pages[0]);
   pagecnt.Pages[0].Controls[0].Align:=alclient;
   finally
   iTemp.Free;
   iTemp2.Free;
   MemStr.Free;
   PanelStr.Free;


DataModule2.ADS_SAYFA.next;
end;
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  delphide kilitli kullanıcı kurtarma şifre değiştirme Ekvador 1 299 03-09-2020, Saat: 14:44
Son Yorum: pro_imaj
  Form içinde Generics Sınıfı Nasıl Kullanırım 3ddark 3 524 21-08-2020, Saat: 15:12
Son Yorum: ismailkocacan
  Uygulama içinde FB DB bakımı mcuyan 3 426 14-08-2020, Saat: 20:11
Son Yorum: mcuyan
  Firebird - İçinde veri olan bir alanın tipini değiştirme habikus 3 738 07-06-2020, Saat: 23:32
Son Yorum: habikus
  Memo font rengi değiştirme Haydar 3 685 05-06-2020, Saat: 16:12
Son Yorum: cinarbil



Konuyu Okuyanlar: 1 Ziyaretçi