- TGUI_Window = class(TGUI_Base)
- [...]
- public
- Buttons : array of TGUI_Button;
- [...]
- function AddButton(Top_, Left_, Width_, Height_ : Integer) : PGUI_Button; overload;
- function AddButton(ID : Integer) : PGUI_Button; overload;
- end;
- function TGUI_Window.AddButton(ID : Integer) : PGUI_Button;
- begin
- SetLength(Buttons, Length(Buttons)+1);
- Buttons[High(Buttons)] := TGUI_Button.Create(@Rec.top, @Rec.left);
- Buttons[High(Buttons)].SetAll(0,0,0,0, Ebene);
- Buttons[High(Buttons)].SetAllp(FFM, TRM, Api);
- Buttons[High(Buttons)].GetInfoFromFile(ID);
- result := @Buttons[High(Buttons)];
- end;