Clomosy | Forum : PROJEDE SON KISIMDA HATA VERDİ

Yazar: Ahmet Avci
Konu: 1500
Gönderim Zamanı: 10 Mayıs 2026 Saat 15:31

var

MyForm: TclForm;

PnlStart, PnlLens, PnlCell, PnlMicroscope, PnlInfo: TclProPanel;

LblTitleStart: TclProLabel;

BtnStart: TclProButton;

LblTitleLens: TclProLabel;

Btn4x, Btn10x, Btn40x, BtnLensBack: TclProButton;

LblTitleCell: TclProLabel;

BtnPlant, BtnAnimal, BtnCellBack: TclProButton;

LblZoom, LblInfoText: TclProLabel;

ImgMicroscope: TclProImage;

BtnInfo, BtnReset, BtnBackToStart: TclProButton;

SeçilenYakınlık: Dize;

SeçilenHücre: Dize;

infoVisible: Mantıksal değer;

void ShowStartPage; forward;

ShowLensPage'i boş bırak; ileri;

void ShowCellPage; forward;

void ShowMicroscopePage; forward;

void UpdateMicroscopeView; forward;

void BtnStartClick;

{

Lens Sayfasını Göster;

}

void BtnLensClick;

var

ClickedBtn: TclProButton;

{

ClickedBtn = TclProButton(MyForm.clSender);

selectedZoom = ClickedBtn.clTagStr;

Hücre Sayfasını Göster;

}

void BtnCellClick;

var

ClickedBtn: TclProButton;

{

ClickedBtn = TclProButton(MyForm.clSender);

SeçilenHücre = TıklananDüğme.clTagStr;

Mikroskop Sayfasını Göster;

}

void BtnInfoClick;

{

infoVisible = not infoVisible;

PnlInfo.Visible = infoVisible;

}

void BtnResetClick;

{

Lens Sayfasını Göster;

}

void BtnBackToStartClick;

{

Başlangıç Sayfasını Göster;

}

void UpdateMicroscopeView;

var

imgUrl: Dize;

Bilgi metni: Dize;

{

eğer (selectedCell == 'Plant')

{

infoText = 'Bitki kloroplast içerir ve fotosentez yapar. Hücre duvarları vardır.';

Eğer seçili yakınlaştırma seviyesi '4x' ise, imgUrl = ' https://via.placeholder.com/300/4CAF50/FFFFFF?text=Bitki+Hucresi+4X ';

Eğer seçili yakınlaştırma değeri '10x' ise, imgUrl = ' https://via.placeholder.com/300/388E3C/FFFFFF?text=Bitki+Hucresi+10X ';

Eğer seçili yakınlaştırma seviyesi '40x' ise, imgUrl = ' https://via.placeholder.com/300/1B5E20/FFFFFF?text=Bitki+Hucresi+40X ';

}

başka

{

infoText = 'Hayvan hücrelerinde hücre duvarları ve kloroplast bulunmaz.';

Eğer seçili yakınlaştırma seviyesi '4x' ise, imgUrl = ' https://via.placeholder.com/300/F44336/FFFFFF?text=Hayvan+Hucresi+4X ';

Eğer seçili yakınlaştırma değeri '10x' ise, imgUrl = ' https://via.placeholder.com/300/D32F2F/FFFFFF?text=Hayvan+Hucresi+10X ';

Eğer seçili yakınlaştırma seviyesi '40x' ise, imgUrl = ' https://via.placeholder.com/300/B71C1C/FFFFFF?text=Hayvan+Hucresi+40X ';

}

LblZoom.Text = 'Seçim: ' + seçiliZoom + ' | ' + seçilmişHücre + ' Hücresi';

LblInfoText.Text = infoText;

ImgMicroscope.clProSettings.PictureSource = imgUrl;

ImgMicroscope.SetclProSettings(ImgMicroscope.clProSettings);

}

void HideAllPanels;

{

PnlStart.Visible = False;

PnlLens.Visible = False;

PnlCell.Visible = False;

PnlMicroscope.Visible = False;

}

void ShowStartPage;

{

Tüm panelleri gizle;

seçilenZoom = '';

SeçilenHücre = '';

infoVisible = False;

PnlStart.Visible = True;

}

void ShowLensPage;

{

Tüm panelleri gizle;

seçilenZoom = '';

PnlLens.Visible = True;

}

void ShowCellPage;

{

Tüm panelleri gizle;

SeçilenHücre = '';

PnlCell.Visible = True;

}

void ShowMicroscopePage;

{

Tüm panelleri gizle;

infoVisible = False;

PnlInfo.Visible = False;

Mikroskop görünümünü güncelle;

PnlMicroscope.Visible = True;

}

{

MyForm = TclForm.Create(Self);

MyForm.SetFormColor('#E8F5E9', '', clGNone);

PnlStart = MyForm.AddNewProPanel(MyForm, 'PnlStart');

PnlStart.Align = alClient;

LblTitleStart = MyForm.AddNewProLabel(PnlStart, 'LblTitleStart', 'Sanal Mikroskop');

LblTitleStart.Align = alTop; LblTitleStart.Height = 100; LblTitleStart.Margins.Top = 150;

LblTitleStart.clProSettings.FontSize = 32; LblTitleStart.clProSettings.FontHorzAlign = palCenter;

LblTitleStart.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

LblTitleStart.clProSettings.TextSettings.Font.Style = [fsBold];

LblTitleStart.SetclProSettings(LblTitleStart.clProSettings);

BtnStart = MyForm.AddNewProButton(PnlStart, 'BtnStart', 'Mikroskopa Başla');

BtnStart.Align = alTop; BtnStart.Height = 60; BtnStart.Margins.Left = 50; BtnStart.Margins.Right = 50;

BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2E7D32');

BtnStart.clProSettings.FontColor = clAlphaColor.clWhite; BtnStart.clProSettings.RoundHeight = 15; BtnStart.clProSettings.RoundWidth = 15;

BtnStart.SetclProSettings(BtnStart.clProSettings);

MyForm.AddNewEvent(BtnStart, tbeOnClick, 'BtnStartClick');

PnlLens = MyForm.AddNewProPanel(MyForm, 'PnlLens');

PnlLens.Align = alClient;

LblTitleLens = MyForm.AddNewProLabel(PnlLens, 'LblTitleLens', '1. Adım: Mercek Seçin');

LblTitleLens.Align = alTop; LblTitleLens.Height = 80; LblTitleLens.Margins.Top = 50;

LblTitleLens.clProSettings.FontSize = 24; LblTitleLens.clProSettings.FontHorzAlign = palCenter; LblTitleLens.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

LblTitleLens.SetclProSettings(LblTitleLens.clProSettings);

Btn4x = MyForm.AddNewProButton(PnlLens, 'Btn4x', '4X Mercek');

Btn4x.Align = alTop; Btn4x.Height = 60; Btn4x.Margins.Top = 20; Btn4x.Margins.Left = 50; Btn4x.Margins.Right = 50;

Btn4x.clTagStr = '4x';

MyForm.AddNewEvent(Btn4x, tbeOnClick, 'BtnLensClick');

Btn10x = MyForm.AddNewProButton(PnlLens, 'Btn10x', '10X Mercek');

Btn10x.Align = alTop; Btn10x.Height = 60; Btn10x.Margins.Top = 20; Btn10x.Margins.Left = 50; Btn10x.Margins.Right = 50;

Btn10x.clTagStr = '10x';

MyForm.AddNewEvent(Btn10x, tbeOnClick, 'BtnLensClick');

Btn40x = MyForm.AddNewProButton(PnlLens, 'Btn40x', '40X Mercek');

Btn40x.Align = alTop; Btn40x.Height = 60; Btn40x.Margins.Top = 20; Btn40x.Margins.Left = 50; Btn40x.Margins.Right = 50;

Btn40x.clTagStr = '40x';

MyForm.AddNewEvent(Btn40x, tbeOnClick, 'BtnLensClick');

BtnLensBack = MyForm.AddNewProButton(PnlLens, 'BtnLensBack', '‹ Geri Dön');

BtnLensBack.Align = alBottom; BtnLensBack.Height = 60; BtnLensBack.Margins.Bottom = 50; BtnLensBack.Margins.Left = 50; BtnLensBack.Margins.Right = 50;

MyForm.AddNewEvent(BtnLensBack, tbeOnClick, 'BtnBackToStartClick');

PnlCell = MyForm.AddNewProPanel(MyForm, 'PnlCell');

PnlCell.Align = alClient;

LblTitleCell = MyForm.AddNewProLabel(PnlCell, 'LblTitleCell', '2. Adım: Hücre Seçin');

LblTitleCell.Align = alTop; LblTitleCell.Height = 80; LblTitleCell.Margins.Top = 50;

LblTitleCell.clProSettings.FontSize = 24; LblTitleCell.clProSettings.FontHorzAlign = palCenter; LblTitleCell.clProSettings.FontColor = clAlphaColor.clHexToColor('#1B5E20');

LblTitleCell.SetclProSettings(LblTitleCell.clProSettings);

BtnPlant = MyForm.AddNewProButton(PnlCell, 'BtnPlant', 'Bitki Hücresi (Soğan Zarı vb.)');

BtnPlant.Align = alTop; BtnPlant.Height = 60; BtnPlant.Margins.Top = 20; BtnPlant.Margins.Left = 30; BtnPlant.Margins.Right = 30;

BtnPlant.clTagStr = 'Bitki';

MyForm.AddNewEvent(BtnPlant, tbeOnClick, 'BtnCellClick');

BtnAnimal = MyForm.AddNewProButton(PnlCell, 'BtnAnimal', 'Hayvan Hücresi (Ağız İçi vb.)');

BtnAnimal.Align = alTop; BtnAnimal.Height = 60; BtnAnimal.Margins.Top = 20; BtnAnimal.Margins.Left = 30; BtnAnimal.Margins.Right = 30;

BtnAnimal.clTagStr = 'Hayvan';

MyForm.AddNewEvent(BtnAnimal, tbeOnClick, 'BtnCellClick');

BtnCellBack = MyForm.AddNewProButton(PnlCell, 'BtnCellBack', '‹ Mercek Seçimine Dön');

BtnCellBack.Align = alBottom; BtnCellBack.Height = 60; BtnCellBack.Margins.Bottom = 50; BtnCellBack.Margins.Left = 50; BtnCellBack.Margins.Right = 50;

MyForm.AddNewEvent(BtnCellBack, tbeOnClick, 'BtnResetClick');

PnlMicroscope = MyForm.AddNewProPanel(MyForm, 'PnlMicroscope');

PnlMicroscope.Align = alClient;

PnlMicroscope.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#212121');

PnlMicroscope.SetclProSettings(PnlMicroscope.clProSettings);

LblZoom = MyForm.AddNewProLabel(PnlMicroscope, 'LblZoom', '-');

LblZoom.Align = alTop; LblZoom.Height = 50; LblZoom.Margins.Top = 20;

LblZoom.clProSettings.FontSize = 18; LblZoom.clProSettings.FontColor = clAlphaColor.clWhite; LblZoom.clProSettings.FontHorzAlign = palCenter;

LblZoom.SetclProSettings(LblZoom.clProSettings);

ImgMicroscope = MyForm.AddNewProImage(PnlMicroscope, 'ImgMicroscope');

ImgMicroscope.Align = alTop; ImgMicroscope.Height = 350; ImgMicroscope.Margins.Left = 20; ImgMicroscope.Margins.Right = 20;

BtnInfo = MyForm.AddNewProButton(PnlMicrscope, 'BtnInfo', 'Hücre Bilgisini Göster/Gizle');

BtnInfo.Align = alTop; BtnInfo.Height = 50; BtnInfo.Margins.Top = 20; BtnInfo.Margins.Left = 40; BtnInfo.Margins.Right = 40;

BtnInfo.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0277BD'); BtnInfo.clProSettings.FontColor = clAlphaColor.clWhite;

BtnInfo.SetclProSettings(BtnInfo.clProSettings);

MyForm.AddNewEvent(BtnInfo, tbeOnClick, 'BtnInfoClick');

PnlInfo = MyForm.AddNewProPanel(PnlMicroscope, 'PnlInfo');

PnlInfo.Align = alTop; PnlInfo.Height = 80; PnlInfo.Margins.Top = 10; PnlInfo.Margins.Left = 20; PnlInfo.Margins.Right = 20;

PnlInfo.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#424242'); PnlInfo.clProSettings.IsRound = True; PnlInfo.clProSettings.RoundHeight = 10;

PnlInfo.SetclProSettings(PnlInfo.clProSettings);

LblInfoText = MyForm.AddNewProLabel(PnlInfo, 'LblInfoText', 'Bilgi metni...');

LblInfoText.Align = alClient;

LblInfoText.clProSettings.FontColor = clAlphaColor.clWhite; LblInfoText.clProSettings.WordWrap = True; LblInfoText.clProSettings.FontHorzAlign = palCenter;

LblInfoText.SetclProSettings(LblInfoText.clProSettings);

BtnReset = MyForm.AddNewProButton(PnlMicroscope, 'BtnReset', 'Başka Bir Hücre/Mercek İncele');

BtnReset.Align = alBottom; BtnReset.Height = 55; BtnReset.Margins.Bottom = 10; BtnReset.Margins.Left = 30; BtnReset.Margins.Right = 30;

BtnReset.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF8F00'); BtnReset.clProSettings.FontColor = clAlphaColor.clWhite; BtnReset.clProSettings.RoundHeight = 10;

BtnReset.SetclProSettings(BtnReset.clProSettings);

MyForm.AddNewEvent(BtnReset, tbeOnClick, 'BtnResetClick');

BtnBackToStart = MyForm.AddNewProButton(PnlMicrscope, 'BtnBackToStart', 'Ana Sayfaya Kapat');

BtnBackToStart.Align = alBottom; BtnBackToStart.Height = 55; BtnBackToStart.Margins.Bottom = 30; BtnBackToStart.Margins.Left = 30; BtnBackToStart.Margins.Right = 30;

BtnBackToStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C62828'); BtnBackToStart.clProSettings.FontColor = clAlphaColor.clWhite; BtnBackToStart.clProSettings.RoundHeight = 10;

BtnBackToStart.SetclProSettings(BtnBackToStart.clProSettings);

MyForm.AddNewEvent(BtnBackToStart, tbeOnClick, 'BtnBackToStartClick');

Başlangıç Sayfasını Göster;

MyForm.Çalıştır;

}

ÇALIŞMA ZAMANİ HATASI

Dosya  kütüphanesi Ana: https://via.placeholder.com/  300 / 4 CAF50/FFFFFF?text=Bitki+Hucresi+ 4 X İndirme birden fazla denemeden sonra silindi: Veri gönderme hatası: ( 12029 ) CallProc talimatını analiz ederken paketiyle kurulamadı ( $FFFFFFFF , $1 , $1B5A270 , $0 , 'SetclProSettings' ).

Yığın içeriği şöyledir : [ 3141298567872 ,Boolean: False ,UnicodeString:Plant,UnicodeString: 4 x...].

Kaynak konumu: 87 , 62

Pozisyon: 87 , 62

Porjenin son kısmında bitki veya hayvan hücresi seçildikten sonra görsel kısmında açarken hata verdi.

Bununla ilgili ne yapmalıyım.

]]>