uses ile fonksiyon kullan�m� hatas� : Sorunu çözdüm. Teşekkür ederim....

Fri, 01 Nov 2024 15:27:11 +0000

Yazar: NadireNurSaglam
Konu: 950
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?

uses ile fonksiyon kullan�m� hatas� : var MyForm : TclGameForm; mainPnl,...

Fri, 01 Nov 2024 15:17:01 +0000

Yazar: NadireNurSaglam
Konu: 950
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;

Clomosy | Forum : uses ile fonksiyon kullan�m� hatas�

uses ile fonksiyon kullan�m� hatas� : Sorunu çözdüm. Teşekkür ederim....

uses ile fonksiyon kullan�m� hatas� : var MyForm : TclGameForm; mainPnl,...