Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - uses ile fonksiyon kullanımı hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

uses ile fonksiyon kullanımı hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
NadireNurSaglam Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 08 Ağustos 2024
Durum: Aktif Değil
Puanlar: 37 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı NadireNurSaglam Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: uses ile fonksiyon kullanımı hatası
    Gönderim Zamanı: 01 Kasım 2024 Saat 15:17
var
  MyForm : TclGameForm;
  mainPnl, topPnl : TclProPanel;
  nextBtn : TclProButton;
  successLbl : TclProLabel;
  pnlImage : TClProImage;
  getsourceList : TclStringList;
  SndAudio:Integer;
  successText, nextBtnText : String;
  exitBtn: TClProImage;
  
  /*
  procedure closeQuery;
  begin
    MyForm.clCanClose := false;
  end;*/
  
  Procedure InsertUserData;
  begin
            getsourceList := Clomosy.StringListNew;
            getsourceList.StrictDelimiter := True;
          getsourceList.Delimiter := '|';
          getsourceList.DelimitedText := Clomosy.GlobalVariableString;
            Clomosy.GlobalVariableString:= Clomosy.StringListItemString(getsourceList,0);    
  end;  
procedure goToUnit;
begin
  nextBtn.Enabled := False;
  Clomosy.RunUnit('uLangTopic');
  MyForm.clHide;
end;
procedure exitButonChanged;
begin
Clomosy.RunUnit('uLanguages');
MyForm.clHide;
end;
procedure mainBody;
begin
    mainPnl:=MyForm.AddNewProPanel(MyForm,'mainPnl');
    mainPnl.Align := alContents;
   
   // {---------------Exit AND SUCCESSFULLY TEXT TOP-------------------------------}
   
   
    /* topPnl:= uComponentAdd.addPnl(MyForm,mainPnl,'topPnl',0,50,1,1,'','','',0,0,0,0,0);
    topPnl.Align:= alMostTop;*/
   
     topPnl:=MyForm.AddNewProPanel(mainPnl,'topPnl');
     topPnl.Align:= alMostTop;
     topPnl.Height:= 50;
     topPnl.clProSettings.RoundHeight:= 1;
     topPnl.clProSettings.RoundWidth:= 1;
     topPnl.clProSettings.BackgroundColor:= clAlphaColor.clnull;
     topPnl.SetclProSettings(topPnl.clProSettings);
     
     
     exitBtn := uComponentAdd.addBtnImg(MyForm, topPnl, 'exitBtn',0,30,0,0,0,5,0,'exitBtn.png','','','',5,5,True);
     exitBtn.Align:= alRight;
     MyForm.AddNewEvent(exitBtn,tbeOnClick,'exitButonChanged');
     
     
    /* successLbl:= uComponentAdd.addProLbl(MyForm,topPnl,'successLbl',successText,0,(topPnl.Width*60) div 100,0,0,5,10
     ,'#ffffff','','',19,0,0,0,);
     successLbl.Align:= alLeft;
     successLbl.clProSettings.FontVertAlign:= palcenter;
     successLbl.clProSettings.FontHorzAlign:= palLeading;
     successLbl.clProSettings.TextSettings.Font.Style:= [fsBold];
     successLbl.SetclProSettings(successLbl.clProSettings);*/
     
     successLbl:= MyForm.AddNewProLabel(topPnl,'successLbl',successText);
     successLbl.Align:= alLeft;
     successLbl.Margins.left:= 10;
     successLbl.Margins.Top:= 5;
     successLbl.Width:= (topPnl.Width*60) div 100;
     successLbl.clProSettings.FontColor:= clAlphaColor.clHexToColor('#ffffff');
     successLbl.clProSettings.FontSize:= 19;
     successLbl.clProSettings.FontVertAlign:= palcenter;
     successLbl.clProSettings.FontHorzAlign:= palLeading;
     successLbl.clProSettings.TextSettings.Font.Style:= [fsBold];
     successLbl.SetclProSettings(successLbl.clProSettings);
     
     //{---------------IMAGE CENTER-------------------------------}
      
      pnlImage := uComponentAdd.addBtnImg(MyForm, mainPnl, 'pnlImage',(mainPnl.Height*35) div 100, (mainPnl.Width*90) div 100,
      20,20,0,10,0,'learnapp3.png','','','',0,0,True);
      pnlImage.Align:= alCenter;
      
    //{---------------BUTTON TOP-------------------------------}
    nextBtnText := clStrToLan('START NEXT TOPIC|SONRAKİ KONUYA BAŞLA');
    nextBtn:=uComponentAdd.addbtn(MyForm,mainPnl,'nextBtnSuccess',nextBtnText,'#00B282',(mainPnl.Height*5) div 100,
    20,20,0,50,0,40,40,'#ffffff','',14,0);
    nextBtn.Align:= alBottom;
    MyForm.AddNewEvent(nextBtn,tbeOnClick,'goToUnit');
    
end;

begin
  MyForm := TclGameForm.Create(Self);
  MyForm.AddGameAssetFromUrl('https://clomosy.com/learn/up_chime.wav');
  SndAudio := MyForm.RegisterSound('up_chime.wav');
  MyForm.SoundIsActive:=True;
  MyForm.PlayGameSound(SndAudio);
  
  
 // MyForm.AddNewEvent(MyForm,tbeOnFormCloseQuery,'closeQuery');
  
  successText := clStrToLan('Successfully Completed|Başarıyla Tamamlandı');
  
  
  TclProButton(MyForm.clFindComponent('BtnGoBack')).Visible :=False;
  TclProButton(MyForm.clFindComponent('BtnFormMenu')).Visible :=False;
  MyForm.SetFormBGImage('bg4.png');
  mainBody;
  InsertUserData;
  MyForm.Run; 

end;
//************************************************************************************************************
yukarıdaki uSuccess unitimde 

topPnl:= uComponentAdd.addPnl(MyForm,mainPnl,'topPnl',0,50,1,1,'','','',0,0,0,0,0);
    topPnl.Align:= alMostTop;

bu kısım ve 

successLbl:= uComponentAdd.addProLbl(MyForm,topPnl,'successLbl',successText,0,(topPnl.Width*60) div 100,0,0,5,10
     ,'#ffffff','','',19,0,0,0,);
     successLbl.Align:= alLeft;
     successLbl.clProSettings.FontVertAlign:= palcenter;
     successLbl.clProSettings.FontHorzAlign:= palLeading;
     successLbl.clProSettings.TextSettings.Font.Style:= [fsBold];
     successLbl.SetclProSettings(successLbl.clProSettings);

bu kısımda uComponentAdd adında bir unitten fonksiyon kullanıyorum. Bu iki kod parçasını uSuccess unitimde kullandığım zaman uSuccess sayfası projemde direk açılmıyor. Ama 

topPnl:=MyForm.AddNewProPanel(mainPnl,'topPnl');
     topPnl.Align:= alMostTop;
     topPnl.Height:= 50;
     topPnl.clProSettings.RoundHeight:= 1;
     topPnl.clProSettings.RoundWidth:= 1;
     topPnl.clProSettings.BackgroundColor:= clAlphaColor.clnull;
     topPnl.SetclProSettings(topPnl.clProSettings);

bu şekilde ve 

 successLbl:= MyForm.AddNewProLabel(topPnl,'successLbl',successText);
     successLbl.Align:= alLeft;
     successLbl.Margins.left:= 10;
     successLbl.Margins.Top:= 5;
     successLbl.Width:= (topPnl.Width*60) div 100;
     successLbl.clProSettings.FontColor:= clAlphaColor.clHexToColor('#ffffff');
     successLbl.clProSettings.FontSize:= 19;
     successLbl.clProSettings.FontVertAlign:= palcenter;
     successLbl.clProSettings.FontHorzAlign:= palLeading;
     successLbl.clProSettings.TextSettings.Font.Style:= [fsBold];
     successLbl.SetclProSettings(successLbl.clProSettings);

bu şekilde kullandığım zaman uSuccess sayfam açılıyor. 
Aşağıdaki fonksiyon uComponentAdd sayfamdaki kullandığım fonksiyonlardan biri:

function addProLbl(GelenForm, konum, lblIsim, LblCaption, HeightDeger,widthDeger,rightDeger, bottomDeger, topDeger, 
leftDeger,fontClrDeger,bgDeger,brdrClrDeger,fontSizeDeger,rwDeger,rhdeger,brdrwidthDeger): TClProLabel;
var
proLbl: TClProLabel;
begin
  proLbl := GelenForm.AddNewProLabel(konum,lblIsim,LblCaption);

  with proLbl do
  begin
    Margins.Bottom:= bottomDeger;
    Margins.Top:= topDeger;
    Margins.Left:= leftDeger;
    Margins.Right := rightDeger;
    Width:=widthDeger;
    Height := HeightDeger;
    clProSettings.FontSize:= fontSizeDeger;
    clProSettings.RoundHeight:=rhdeger;
    clProSettings.RoundWidth:= rwDeger;
    clProSettings.BorderWidth:=brdrwidthDeger;
  end;
  //----------------------------------------------------------------------------
  if(bgDeger <> '') then
  begin
    proLbl.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger);
  end;
  //----------------------------------------------------------------------------
  if(fontClrDeger <> '') then
  begin
    proLbl.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger);
  end;
  //----------------------------------------------------------------------------
  if(brdrClrDeger <> '') then
  begin
    proLbl.clProSettings.borderColor:=clAlphaColor.clHexToColor(brdrClrDeger);
  end;
  //----------------------------------------------------------------------------
  proLbl.SetclProSettings(proLbl.clProSettings);
  Result := proLbl;
end;

aşağıdaki ise diğer fonksiyonum:

function addPnl(GelenForm, konum, panelIsim,widthDeger,HeightDeger,rhdeger,rwDeger,bgDeger,fontClrDeger,
brdrClrDeger,brdrwidthDeger,topDeger,leftDeger,rightDeger,bottomDeger): TclProPanel;
var
Pnl: TclProPanel;
begin
   Pnl:=GelenForm.AddNewProPanel(konum, panelIsim);
   with Pnl do
   begin
     Width:= widthDeger;
     Height:= HeightDeger;
     Margins.Top:= topDeger;
     clProSettings.RoundHeight:=rhdeger;
     clProSettings.RoundWidth:=rwDeger;
     clProSettings.BorderWidth := brdrwidthDeger;
     Margins.Left:=leftDeger;
     Margins.Right:= rightDeger;
     Margins.Bottom := bottomDeger;
   end;
   
     //----------------------------------------------------------------------------
  if(bgDeger <> '') then
  begin
    Pnl.clProSettings.BackgroundColor:=clAlphaColor.clHexToColor(bgDeger);
  end;
  //----------------------------------------------------------------------------
  if(fontClrDeger <> '') then
  begin
    Pnl.clProSettings.FontColor:=clAlphaColor.clHexToColor(fontClrDeger);
  end;
  //----------------------------------------------------------------------------
  if(brdrClrDeger <> '') then
  begin
    Pnl.clProSettings.borderColor:=clAlphaColor.clHexToColor(brdrClrDeger);
  end;
  //----------------------------------------------------------------------------
    
  Pnl.SetclProSettings(Pnl.clProSettings);
  
  Result := Pnl;
end;
Yukarı Dön
NadireNurSaglam Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 08 Ağustos 2024
Durum: Aktif Değil
Puanlar: 37 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı NadireNurSaglam Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 01 Kasım 2024 Saat 15:27
Sorunu çözdüm. Teşekkür ederim. Başka bir sorum olacaktı.

successLbl.clProSettings.FontVertAlign:= palcenter;
     successLbl.clProSettings.FontHorzAlign:= palLeading;
     successLbl.clProSettings.TextSettings.Font.Style:= [fsBold];

bu şekilde kullanımları uses ile kullandığım diğer unitimdeki fonksiyonuma parametre olarak gönderirken sıkıntı olmuyor. Ama ortak bir fonksiyon olacağı için örneğin palcenter gibi değerleri gönderirken bazı label da fontveralign kullanılmıyor mesela. bu parametreyi nasıl boş olarak gönderebilirim?
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,125 Saniyede Yüklendi.