Креирање на  Toolbar (лента со алатки)

 

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application. После поставување една компонента Toolbar  од палетата со компоненти Win32 на нашата Форма, со притискање десен клик на истата се појавува мени од кое се бира додавање на ново копче (New Button) кое автоматски добива име  ToolButton1,2,3 ...  и.т.н. зависно колку копчиња сакаме. Доколку сакаме да додадеме разделница меѓу копчињата, од менито кое се добива со десен клик на нашиот Toolbar  , наместо  New Button  бираме New Separator  (со ова се прави групирање на копчињата) .

 

За ставање на слики на копчињата од нашата лента со алатки се бира опцијата ImageList од палетата со компоненти Win32 и се става на нашата Форма, се прави двоен клик на неа и се појавува Дијалог за бирање слика во кој се притиска Add (додај), во кој бираме слика (дозволени слики се од типот BMP  и ICO)  и ако сликата е преголема тогаш нуди опција за разделување на сликата на повеќе парчиња).

        

Уште останува да ги врземе листата со слики и лентата со алатки што се прави на следниот начин: се бира нашата лента со алатки и во Object Inspector во  Properties се наоѓа Images и се доделува ImageList1.

ВЕЖБА : Да се креира лента со неколку копчиња со стандардни функции од Pascal (Delphi)  и нивниот резултат да се појави во label (колку копчиња толку лабели) . Лабелите да се подредат спрема левата страна со селектирање (со држење на тастерот Shift и притискање на маусот на лабелите) и со Edit->Align->Left sides.

   

    првата група на копчиња со опции: sqr, sqrt, abs (со  real променлива);

 

    втората група на копчиња со опции: trunc, round (со real променлива);

 

    третата група на копчиња со опции:  int, frac (со real променлива).

 

P.S.     label1.Caption:=floattostr(sqr(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(sqrt(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(abs(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(trunc(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(round(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(int(strtofloat(edit1.text)));

 

            label1.Caption:=floattostr(frac(strtofloat(edit1.text)));