|
anaSayfa unitimdeki timerAc ve timerKapa void'lerine başka bir unit'den ulaşmak istediğimde Unknown member identifier hatası alıyorum (ilk attığım unit: anaSayfa ikincisi settingsForm) uses apiConnect,fonks; var anaSayfa : TCLForm; sideMenu : TCLMenuFrame; sideMenuOpenBtn, sideMenuCloseBtn, productsBtn, ordersBtn, entSettingsBtn, statisticsBtn,hepsiniGonderBtn,secilenleriGonderBtn : TClProButton; mainVertSB : TCLVertScrollBox; grid1 : TCLPROGrid; enUstLabel,sureLabel : TClProLabel; enUstPanel,productsBtnPanel,ordersBtnPanel,entSettingsBtnPanel,statisticsBtnPanel,gonderBtnPanel : TclProPanel; productsBtnImg,ordersBtnImg,entSettingsBtnImg, statisticsBtnImg : TClProImage; n11Rest : TCLRest; secilenUrunlerList : TCLStringList; timer : TCLTimer; duration,dk,sn : Integer;
void openSideMenu{ sideMenu.visible = True; CLRTMethod(sideMenu,'BringToFront'); } void closeSideMenu{ sideMenu.visible = False; CLRTMethod(sideMenuOpenBtn,'BringToFront'); } void toProductList{ Clomosy.runUnit('productList'); } void toStatisticsForm; { Clomosy.runUnit('statisticsForm'); } void toSettingsForm; { Clomosy.runUnit('settingsForm'); } void getProGrid; var Qry : TCLSQLQuery; { try Qry = TCLSQLQuery.Create(nil); Qry.connection = Clomosy.DBSQLServerConnection; Qry.Sql.Text = 'SELECT REC_NO as "Ürün ID",STOK_ADI as "Ürün Adı",STOK_KODU as "Stok Kodu" FROM TBLSTOKSB2 '; Qry.Open; if (Qry.Found) { grid1 = anaSayfa.AddNewProGrid(mainVertSB,'grid1'); grid1.Align = alTop; grid1.Options.ColumnSize.StretchAll = True; grid1.ConnectDataSet(Qry); grid1.AutoSizeColumns(True,100); grid1.Options.Selection.Mode = smNone; //grid1.SelectedLayoutFillColor = clAlphaColor.clHexToColor('#fffff'); grid1.ColumnCount = 4; anaSayfa.AddNewEvent(grid1,tbeOnProGridCellDblClick,'urunSec'); } except ShowMessage('[01] Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } void hepsiniGonder; var temp,tempId : Integer; { temp = 1; while(grid1.getCellValue(1,temp) <> '') { //ShowMessage(grid1.getCellValue(0,temp)) tempId = grid1.getCellValue(0,temp); apiConnect.apiGonder(n11Rest,tempId); temp = temp+1; } ShowMessage(IntToStr(temp-1) +' Adet Ürün Gönderildi'); } void secilenleriGonder; var tempId,temp,listLen : Integer; { listLen = secilenUrunlerList.Count; if(listLen == 0) ShowMessage('Ürün Seçiniz...'); listLen = listLen-1; for(temp = 0 to listLen) { tempId = StrToInt(secilenUrunlerList[temp]); apiConnect.apiGonder(n11Rest,tempId); } if(listLen >= 0 ) ShowMessage(IntToStr(listLen+1) + ' Adet Ürün Gönderildi.'); } void urunSec; var FCol,FRow:integer; FSender:TCLProGrid; temp,secId : Integer; { FSender = TCLProGrid(anaSayfa.ClSender); FRow = anaSayfa.ClSenderRow; FCol = anaSayfa.ClSenderCol; secId = Grid1.GetCellValue(0,FRow); temp = secilenUrunlerList.IndexOf(IntToStr(secId)); grid1.beginUpdate; if(temp == -1) { Grid1.Colors[0,FRow] = clAlphaColor.clHexToColor('#99b3ff'); Grid1.Colors[1,FRow] = clAlphaColor.clHexToColor('#99b3ff'); Grid1.Colors[2,FRow] = clAlphaColor.clHexToColor('#99b3ff'); Grid1.Colors[3,FRow] = clAlphaColor.clHexToColor('#99b3ff'); secilenUrunlerList.Add(IntToStr(secId)); }else { Grid1.Colors[0,FRow] = clAlphaColor.clHexToColor('#ffffff'); Grid1.Colors[1,FRow] = clAlphaColor.clHexToColor('#ffffff'); Grid1.Colors[2,FRow] = clAlphaColor.clHexToColor('#ffffff'); Grid1.Colors[3,FRow] = clAlphaColor.clHexToColor('#ffffff'); secilenUrunlerList.Delete(temp); } grid1.EndUpdate; } void timerShow; { Dec(duration); if(duration == 0) { duration = 600; hepsiniGonder; }else { dk = (duration div 60); sn = (duration mod 60); sureLabel.Caption = fonks.sifirEkle(dk)+'.'+fonks.sifirEkle(sn); } } void timerAc; { timer.enabled = true; } void timerKapat; { timer.enabled = False; }
{ anaSayfa = TCLForm.Create(self); anaSayfa.SetFormColor('#f4f6f8', '', clGNone); anaSayfa.btnFormMenu.Visible = False; anaSayfa.formwaiting.visible = False; if(Clomosy.PlatformIsMobile) anaSayfa.LytTopBar.Visible = False; sideMenu = anaSayfa.AddNewMenuFrame(anaSayfa,'sideMenu'); sideMenu.align = alContents; sideMenu.clMenuPosition = clLeft; sideMenu.visible = False; n11Rest = TCLRest.Create; n11Rest.BaseUrl = 'http://localhost:5144/'; n11Rest.Resource = 'api/clomosyBaglan/UrunIdAl'; secilenUrunlerList = Clomosy.StringListNew; duration = 600;
/*--------------------------------------------------------*/
enUstPanel = anaSayfa.AddNewProPanel(anaSayfa, 'enUstPanel'); enUstPanel.align = alMostTop; enUstPanel.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#2d3e50'); enUstPanel.height = 50; enUstPanel.setclprosettings(enUstPanel.clprosettings); /*--------------------------------------------------------*/ enUstLabel = anaSayfa.AddNewProLabel(enUstPanel, 'enUstLabel', 'Proje'); //enUstLabel.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#2d3e50'); //enUstLabel.Align = alMostTop; //enUstLabel.width = anaSayfa.clwidth; enUstLabel.clProSettings.FontHorzAlign = palCenter; enUstLabel.clProSettings.FontVertAlign = palCenter; enUstLabel.clProSettings.FontColor = clalphaColor.clwhite; enUstLabel.clprosettings.fontsize = 24; enUstLabel.align = alRight; enUstLabel.setclprosettings(enUstLabel.clprosettings); /*--------------------------------------------------------*/ sideMenuOpenBtn = anaSayfa.AddNewProButton(enUstPanel, 'sideMenuOpenBtn', ''); anaSayfa.SetImage(sideMenuOpenBtn,' https://resmim.net/cdn/2025/06/27/Tu0gmx.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tu0gmx.png '); sideMenuOpenBtn.align = alLeft; sideMenuOpenBtn.width = sideMenuOpenBtn.width/2.5; sideMenuOpenBtn.margins.left = 10; sideMenuOpenBtn.setclprosettings(sideMenuOpenBtn.clprosettings); anaSayfa.AddNewEvent(sideMenuOpenBtn,tbeOnClick,'openSideMenu'); /*--------------------------------------------------------*/ sideMenuCloseBtn = anaSayfa.AddNewProButton(sideMenu.vertScrollBox,'sideMenuCloseBtn',''); anaSayfa.SetImage(sideMenuCloseBtn,' https://resmim.net/cdn/2025/06/27/Tu4Epi.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tu4Epi.png '); sideMenuCloseBtn.width = sideMenuCloseBtn.width/2.5; sideMenuCloseBtn.align = alLeft; sideMenuCloseBtn.margins.bottom = sideMenu.height/1.2; anaSayfa.AddNewEvent(sideMenuCloseBtn,tbeOnClick,'closeSideMenu'); /*--------------------------------------------------------*/ productsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'productsBtnPanel') productsBtnPanel.align = alCenter; productsBtnPanel.margins.bottom = 300; productsBtn = anaSayfa.AddNewProButton(productsBtnPanel,'productsBtn','Ürünlerim'); productsBtn.clprosettings.fontsize = 20; productsBtn.clProSettings.FontHorzAlign = palCenter; enUstLabel.clProSettings.FontVertAlign = palCenter; productsBtn.margins.right = 70; productsBtn.setclprosettings(productsBtn.clprosettings); anaSayfa.AddNewEvent(productsBtn,tbeOnClick,'toProductList'); productsBtnImg = anaSayfa.AddNewProImage(productsBtnPanel, 'productsBtnImg'); anaSayfa.setImage(productsBtnImg,' https://resmim.net/cdn/2025/06/27/Tu5gzi.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tu5gzi.png '); productsBtnImg.align = alLeft; productsBtnImg.width = 20; /*--------------------------------------------------------*/ ordersBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'ordersBtnPanel') ordersBtnPanel.align = alCenter; ordersBtnPanel.margins.bottom = 150; ordersBtn = anaSayfa.AddNewProButton(ordersBtnPanel,'ordersBtn','Siparişler'); ordersBtn.clprosettings.fontsize = 20; ordersBtn.clProSettings.FontVertAlign = palCenter; ordersBtn.margins.right = 70; ordersBtn.setclprosettings(ordersBtn.clprosettings); ordersBtnImg = anaSayfa.AddNewProImage(ordersBtnPanel, 'ordersBtnImg'); anaSayfa.setImage(ordersBtnImg,' https://resmim.net/cdn/2025/06/27/Tus891.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tus891.png '); ordersBtnImg.align = alLeft; ordersBtnImg.width = 20; /*--------------------------------------------------------*/ entSettingsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'entSettingsBtnPanel') entSettingsBtnPanel.align = alCenter; entSettingsBtn = anaSayfa.AddNewProButton(entSettingsBtnPanel,'entSettingsBtn','Ayarlar'); entSettingsBtn.clprosettings.fontsize = 20; entSettingsBtn.clProSettings.FontHorzAlign = palCenter; enUstLabel.clProSettings.FontVertAlign = palCenter; entSettingsBtn.margins.right = 70; entSettingsBtn.setclprosettings(entSettingsBtn.clprosettings); entSettingsBtnImg = anaSayfa.AddNewProImage(entSettingsBtnPanel, 'entSettingsBtnImg'); anaSayfa.setImage(entSettingsBtnImg,' https://resmim.net/cdn/2025/06/27/Tui6WL.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tui6WL.png '); entSettingsBtnImg.align = alLeft; entSettingsBtnImg.width = 20; anaSayfa.AddNewEvent(entSettingsBtn,tbeOnClick,'toSettingsForm') /*--------------------------------------------------------*/ statisticsBtnPanel = anaSayfa.AddNewProPanel(sideMenu.vertScrollBox,'statisticsBtnPanel') statisticsBtnPanel.align = alCenter; statisticsBtnPanel.margins.top = 150; statisticsBtn = anaSayfa.AddNewProButton(statisticsBtnPanel,'statisticsBtn','İstatistikler'); statisticsBtn.clprosettings.fontsize = 20; statisticsBtn.clProSettings.FontHorzAlign = palCenter; enUstLabel.clProSettings.FontVertAlign = palCenter; statisticsBtn.margins.right = 70; statisticsBtn.setclprosettings(statisticsBtn.clprosettings); statisticsBtnImg = anaSayfa.AddNewProImage(statisticsBtnPanel, 'statisticsBtnImg'); anaSayfa.setImage(statisticsBtnImg,' https://resmim.net/cdn/2025/06/27/Tu4T62.png" rel="nofollow - https://resmim.net/cdn/2025/06/27/Tu4T62.png '); statisticsBtnImg.align = alLeft; statisticsBtnImg.width = 20; anaSayfa.AddNewEvent(statisticsBtn,tbeOnClick,'toStatisticsForm'); /*--------------------------------------------------------*/ mainVertSB = anaSayfa.AddNewVertScrollBox(anaSayfa,'mainVertSB'); mainVertSB.Align = alClient; getProGrid; /*--------------------------------------------------------*/ gonderBtnPanel = anaSayfa.AddNewProPanel(anaSayfa,'gonderBtnPanel'); gonderBtnPanel.Align = alBottom; gonderBtnPanel.margins.bottom = 100; gonderBtnPanel.height = 50; /*--------------------------------------------------------*/ hepsiniGonderBtn = anaSayfa.AddNewProButton(gonderBtnPanel,'hepsiniGonderBtn','Hepsini Gönder'); hepsiniGonderBtn.Align = alRight; hepsiniGonderBtn.margins.right = 50; hepsiniGonderBtn.height = 100; hepsiniGonderBtn.width = 300; hepsiniGonderBtn.clProSettings.IsRound = True; hepsiniGonderBtn.clProSettings.RoundWidth = 20; hepsiniGonderBtn.clProSettings.RoundHeight = 20; hepsiniGonderBtn.clProSettings.IsTransparent = false; hepsiniGonderBtn.clprosettings.fontsize = 32; hepsiniGonderBtn.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#d0e6e7'); hepsiniGonderBtn.setclprosettings(hepsiniGonderBtn.clprosettings); anaSayfa.AddNewEvent(hepsiniGonderBtn,tbeOnClick,'hepsiniGonder'); /*--------------------------------------------------------*/ secilenleriGonderBtn = anaSayfa.AddNewProButton(gonderBtnPanel,'secilenleriGonderBtn','Seçilenleri Gönder'); secilenleriGonderBtn.Align = alLeft; secilenleriGonderBtn.margins.left = 50; secilenleriGonderBtn.height = 100; secilenleriGonderBtn.width = 300; secilenleriGonderBtn.clProSettings.IsRound = True; secilenleriGonderBtn.clProSettings.RoundWidth = 20; secilenleriGonderBtn.clProSettings.RoundHeight = 20; secilenleriGonderBtn.clProSettings.IsTransparent = false; secilenleriGonderBtn.clprosettings.fontsize = 32; secilenleriGonderBtn.clprosettings.BackGroundColor = clalphaColor.clhextocolor('#d0e6e7'); secilenleriGonderBtn.setclprosettings(secilenleriGonderBtn.clprosettings); anaSayfa.AddNewEvent(secilenleriGonderBtn,tbeOnClick,'secilenleriGonder'); /*--------------------------------------------------------*/ if(Clomosy.PlatformIsMobile) { gonderBtnPanel.Align = alCenter; gonderBtnPanel.margins.top = 150; hepsiniGonderBtn.Align = alCenter; secilenleriGonderBtn.Align = alCenter; hepsiniGonderBtn.margins.bottom = 150; } /*--------------------------------------------------------*/ sureLabel = anaSayfa.AddNewLabel(anaSayfa,'sureLabel',''); sureLabel.align = alMostBottom; sureLabel.margins.left = (anasayfa.clwidth/2)-10; timer = anaSayfa.AddNewTimer(anaSayfa,'timer', 1000); anaSayfa.AddNewEvent(timer,tbeOnTimer,'timershow'); timerAc; /*--------------------------------------------------------*/ anaSayfa.run; } ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ uses anaSayfa; var ayarlarForm : TCLForm; sureliGonderimSwitch : TCLSwitch; sureliGonderimLabel : TCLProLabel; sureliGonderimPanel : TclProPanel; void sureliGonderimAyarla; { if(sureliGonderimSwitch.IsChecked == True) { anaSayfa.timerAc; } else { anaSayfa.timerKapat; } }
{
ayarlarForm = TCLForm.Create(self); sureliGonderimPanel = ayarlarForm.AddNewProPanel(ayarlarForm, 'sureliGonderimPanel'); sureliGonderimPanel.align = alCenter; sureliGonderimPanel.margins.bottom = 200; sureliGonderimPanel.width = ayarlarForm.clwidth/2; sureliGonderimSwitch = ayarlarForm.AddNewSwitch(sureliGonderimPanel,'sureliGonderimSwitch'); sureliGonderimSwitch.align = alRight; sureliGonderimSwitch.IsChecked = True; ayarlarForm.AddNewEvent(sureliGonderimSwitch,tbeOnClick,'sureliGonderimAyarla'); sureliGonderimLabel = ayarlarForm.AddNewProLabel(sureliGonderimPanel, 'sureliGonderimLabel', 'Süreli Otomatik Gönderim'); sureliGonderimLabel.align = alMostLeft; sureliGonderimLabel.width = 250; sureliGonderimLabel.clprosettings.fontsize = 20; sureliGonderimLabel.setclprosettings(sureliGonderimLabel.clprosettings); anaSayfa.timerKapat; ayarlarForm.run; } |