Color Palette
Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1482
Tarih: 01 Ağustos 2026 Saat 07:40
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com
Konu: Color Palette
Mesajı Yazan: kaanl0
Konu: Color Palette
Mesaj Tarihi: 07 Mayıs 2026 Saat 10:54
|
Clomosy'de Bu şekilde uygulama içinde ekleyebileceğimiz bir Color Palette var mı ? < defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous"> |
Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 07 Mayıs 2026 Saat 17:46
|
Merhaba Kaan, var MainForm: TCLForm; TargetPnl, PickerContainer: TclProPanel; ColorWebBrowser: TclProWebBrowser; CheckTimer, SetupTimer: TclTimer; LHtml, BaseColor: String; LblTitle: TclProLabel; void OnCheckTimer; var CurrentUrl, HexColor: String; { CurrentUrl = ColorWebBrowser.URL; if (Copy(CurrentUrl, 1, 6) == 'color:') { HexColor = Copy(CurrentUrl, 7, 7); TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(HexColor); TargetPnl.SetclProSettings(TargetPnl.clProSettings); PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(HexColor); PickerContainer.SetclProSettings(PickerContainer.clProSettings); ColorWebBrowser.LoadHTML(LHtml); } } void OnSetupTimer; { SetupTimer.Enabled = False; ColorWebBrowser.LoadHTML(LHtml); CheckTimer.Enabled = True; } { MainForm = TCLForm.Create(Self); MainForm.SetFormColor('#F1F5F9', '', clGNone); BaseColor = '#3B82F6'; TargetPnl = MainForm.AddNewProPanel(MainForm, 'TargetPnl'); TargetPnl.Align = alClient; TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); TargetPnl.SetclProSettings(TargetPnl.clProSettings); PickerContainer = MainForm.AddNewProPanel(MainForm, 'PickerContainer'); PickerContainer.Align = alNone; PickerContainer.Width = 150; PickerContainer.Height = 100; PickerContainer.Left = MainForm.clWidth - 170; PickerContainer.Top = 20; PickerContainer.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); PickerContainer.clProSettings.RoundHeight = 15; PickerContainer.clProSettings.RoundWidth = 15; PickerContainer.clProSettings.BorderWidth = 3; PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(BaseColor); PickerContainer.SetclProSettings(PickerContainer.clProSettings); LblTitle = MainForm.AddNewProLabel(PickerContainer, 'LblTitle', 'Renk Seçici'); LblTitle.Align = alTop; LblTitle.Height = 30; LblTitle.Margins.Top = 5; LblTitle.clProSettings.TextSettings.Font.Style = [fsBold]; LblTitle.clProSettings.FontSize = 12; LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569'); LblTitle.SetclProSettings(LblTitle.clProSettings); ColorWebBrowser = MainForm.AddNewProWebBrowser(PickerContainer, 'ColorWebBrowser'); ColorWebBrowser.Align = alBottom; ColorWebBrowser.Height = 45; ColorWebBrowser.Margins.Bottom = 10; ColorWebBrowser.Margins.Left = 10; ColorWebBrowser.Margins.Right = 10; LHtml = '<html><body style="margin:0; padding:0; overflow:hidden; background:transparent;">' + '<div style="width:100%; height:100%; background:#f1f5f9; color:#334155; font-family:sans-serif; font-weight:bold; font-size:14px; border:1px solid #cbd5e1; border-radius:8px; display:flex; justify-content:center; align-items:center; position:relative;">' + 'Seçiniz <input type="color" id="cp" value="'+BaseColor+'" style="position:absolute; top:0; left:0; width:100%; height:100%; opacity:0; cursor:pointer;">' + '</div><script>document.getElementById("cp").onchange=(e)=>{window.location.href="color:"+e.target.value;};</script></body></html>'; SetupTimer = MainForm.AddNewTimer(MainForm, 'SetupTimer', 500); MainForm.AddNewEvent(SetupTimer, tbeOnTimer, 'OnSetupTimer'); SetupTimer.Enabled = True; CheckTimer = MainForm.AddNewTimer(MainForm, 'CheckTimer', 200); MainForm.AddNewEvent(CheckTimer, tbeOnTimer, 'OnCheckTimer'); CheckTimer.Enabled = False; MainForm.Run; } bu kodu inceler misin |