Skriptář - Knihy, Skriptá a více pro vás

( V y k r e s l i seznam položek typu TRunBtnltem. U pdatePathListBox;
ShowModal; / / Zobrazí formulář.

1

R esult
finally

;= M o d i f i e d ;

F ree;
end; end; { TLaunchPadEditor !

p roceduře T L a u n c h P a d E d i t o r . F o r m C r e a t e t S e n d e r :

TObject);

b egin 1 V ytvořené záložní Instance objektu T LaunchPad budou použity v p ř í p a d ě , ž e u ž i v a t e l stornuje úpravy položek typu TRunBtnltem. )
F LaunchPad :- TddgLaunchPad.CreatetSel f ) ;

//

Vytvořte i n s t a n c i

komponenty TddgRunButton a

zarovnejte ji

podle

/ / o b k l o p u j í c í h o p anelu. T estRunBtn : - T d d g R u n B u t t o n . C r e a t e t S e l f ) ;

T estRunBtn.Parent
TestRunBtn.Width TestRunBtn.Height end;

:= pnlRBtn;
:= pniRBtn.Width; := p n i R B t n . H e i g h t ;

p roceduře T L a u n c h P a d E d i t o r . F o r m D e s t r o y t S e n d e r : T Object);
begin TestRunBtn.Free; FLaunchPad.Free; end; p roceduře T L a u n c h P a d E d i t o r . P a t h L i s t B o x C l i c k ( S e n d e r : T O b j e c t ) ; // U v o l n ě t e instanci t ř í d y TLaunchPad.

( K dykoli u ž i v a t e l klepne na položku v seznamu, o dráží aktuálně vybranou p o l o ž k u . 1 b egin
i f P a t h L i s t B o x . I t e m l n d e x > - 1 then
TestRunBtn.Commandfine :=

ověřte,

zda t ř í d a TRunButton

PathListBox.ItemsFPathListBox.Itemlndex];

end;
p roceduře T L a u n c h P a d E d i t o r . U p d a t e P a t h L i s t B o x ;

1 Opětovně i n i c i a l i z u j e seznam PathListBox, p oložek TRunBtnltem. 1 v ar
i: begin integer;

aby odrážel a k t u á l n í s tav

P a t h L i s t B o x . C l e a r ; / / Nejprve vyprázdní seznam,

f or i
end;

:« 0 to FRunButtons.Count - 1 do

PathListBox.Items.Add(FRunButtons[i].CommandLine);

p roceduře T L a u n c h P a d E d i t o r . A d d B t n C l i c k ( S e n d e r :

TObject);

( P o k l e p n u t í na t l a č í t k o se zobrazí d i a l o g T O p e n D i a l o g ,

jehož