Delphi қосымшасында түстер таңдау

Қолдану аймағына байланысты қосымшадағы айнымалылар 2-ге бөлінеді: жергілікті және ауқымдық. Ауқымдық айнымалылар – қосымшаның процедурасында қолданылады және негізгі модулде сиппатталады. Ал жергілікті айнымалылар – сипатталған процедурада қолданады және сонда сипатталады.

Компьютерлік графикада RGB түс палитрасы қолданады. RGB моделі монитор, теледидар, ұялы телефон экрандарында графикттік суреттер бейнелеу үшін қолданады. Сонымен қатар CMYB (Cyap-Magenta-Yellow-Black) моделі бар. Қажет түсті алу үшін бұл түстердің әрбіреуінің белгілі бір пропорцияда қосу керек. Әрбір түстік көрсеткіш 0 – 255 дейінгі сандық шамамен беріледі.

RGB (0,0,0)-қара RGB (255,255,255)-ақ RGB (0,255,0)-жасыл

Түстерді кездейсоқ сандар генераторы арқылы таңдауға болады. Мысалы: Memo өрісінің фонын батырманы басқанда кездейсоқ түске бояйтын жоба жасау керек болсын. Memo-ның программасы. Procedure TForm1.Bitbtn1.click() Var r,g,b:byte; Begin Randomize; R:=random (255); G:= random (255); B:= random (255); Edit1.text:=inttostr(r); Edit2.text:=inttostr(g); Edit3.text:=inttostr(b); Memo1.color:=RGB (r,g,b) End.

Түстерді Win32 парағындағы TrackBar компоненті арқылы да өзгертyге болады. TrackBar (ползунки-жылжытқыш)  aрқылы қандай да бір процестерді басқаруға болады: Дыбыс қаттылығының бейне өлшемі тб. Негізгі қасиеті Position. Ол max, min мәндері аралығында өзгеретін бүтін сан және жылжытқыш позициясын анықтайды. Мыс: min=0, max=0→Position V; 11 мән қабылдайды.

Orientation қасиеті бағытты анықтайды. Оның екі мәні бар: tr Horizontal-горизонталь, tr Vertical- вертикаль. Шкала меткасының жиілігі.

Frequency қасиеті арқылы анықталады. Бұл қасиет әр белгі арасында неше мүмкін болатын Position мәні жатқанын анықтайды. Бірінші мысалды  TrackBar  компоненті арқылы жүзеге асады.

Var r,g,b:byte; Procedure Tform1.TrackBar1.Change(); Begin R:TrackBar.position; Edit1.text:=inttostr (r); Memo1.Color:=RGB (r,g,b); End;

Min=0, max=255, Frequancy-15, Position=0

Түсті Sambles парағының ColorGrid компоненті арасындағы таңдауға да болады. Бұл компонент 16 түс палитрасынан тұрады. Түсті таңдау ForeGroundColor қасиеті арасында жүзеге асады.

Procedure TForm1.ColorGridChange () Begin Memo1.Color:= ColorGrid1.ForeGroundColor;

Delphi қосымшасында түссіздікті басқару

Delphi программалау ортасында түгелдей немесе жартылай түссіз терезе жасау мумкіндігі бар. Ол үшін AlphaBlend, AlphaBlendValue, TransparentColor, TransparentColorValue қасиеттері қолданылады. Форма түссіздігі дегеніміз қолданушының форманың арғы жағын көрсету. Формаға түссіздік орнату үшін AlphaBlend қасиетінің мәнін true етіп қоямыз. AlphaBlendValue мәні түссіздік дәрежесін көрсетеді. Оның мәні 0 – 255 дейін өзгереді. Мысалы: Форма терезесін жапқан кезде ол жаймен жоғалатын программа коды.

Procedure TForm1.Close (); Var i:byte; Begin For i:=255 downto 0 do Begin Alphablend:=true; AlphaBlendValue:=0; Application.PracessMassage; End; End.

Мысал 2: Форма түссіздігін edit элементіне мән беру арқылы басқару.

Procedure TForm1.Button1.Click(); Begin Form1. Alphablend:=true; Form1. AlphaBlendValue:=strtoint (edit1.text); End;

Мысал 3:Форма түссіздігін мән беріп батырманы басқанда емес мән берген кезде өзгертетін программа.

Procedure TForm1.edit1.Change (); Begin Form1. Alphablend:=true; Form1. AlphaBlendValue:=strtoint (edit1.text); End;