Hi,
i use the newest version, i'm totally new to unigui (and javascript..)
Version 1.0.0.1425
I added a UnimScrollbox, then three panels (with one button each ) inside.
unit Mainm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUImClasses, uniGUIRegClasses, uniGUIForm, uniGUImForm, uniGUImJSForm,
unimPanel, uniGUIBaseClasses, unimScrollBox, uniButton, unimButton;
type
TMainmForm = class(TUnimForm)
UnimScrollBox1: TUnimScrollBox;
UnimPanel1: TUnimPanel;
UnimPanel2: TUnimPanel;
UnimPanel3: TUnimPanel;
UnimButton1: TUnimButton;
UnimButton2: TUnimButton;
UnimButton3: TUnimButton;
procedure UnimButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function MainmForm: TMainmForm;
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, uniGUIApplication;
function MainmForm: TMainmForm;
begin
Result := TMainmForm(UniMainModule.GetFormInstance(TMainmForm));
end;
procedure TMainmForm.UnimButton2Click(Sender: TObject);
begin
//UnimButton1.WebFocus;
Unimscrollbox1.ScrollInView(UnimButton1); //App Execption!
//Unimscrollbox1.VertScrollBar.Position:=0;
end;
initialization
RegisterAppFormClass(TMainmForm);
end.
