Changeset 5


Ignore:
Timestamp:
Jun 3, 2010, 6:00:52 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Formulář pro vkládání položek.
Location:
trunk
Files:
2 added
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UItemEdit.lfm

    r4 r5  
    55  Width = 558
    66  ActiveControl = Panel1
    7   Caption = 'ItemEditForm'
     7  Caption = 'Úprava položky'
    88  ClientHeight = 429
    99  ClientWidth = 558

  • trunk/Forms/UItemEdit.pas

    r4 r5  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    9   StdCtrls, Spin, EditBtn, USqlDatabase;
     9  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit;
    1010
    1111type
    … …  
    128128        TEdit(NewControl).Text := Values[0].Values[Properties[I].Values['ColumnName']];
    129129        TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
     130      end else
     131      if ValueType = Integer(vtPassword) then begin
     132        NewControl := TMaskEdit.Create(Panel1);
     133        NewControl.Parent := Panel1;
     134        NewControl.Top := LastTop;
     135        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     136        TMaskEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
     137      end else
     138      if ValueType = Integer(vtBoolean) then begin
     139        NewControl := TCheckBox.Create(Panel1);
     140        NewControl.Parent := Panel1;
     141        NewControl.Top := LastTop;
     142        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     143        TCheckBox(NewControl).Checked := Boolean(StrToInt(Values[0].Values[Properties[I].Values['ColumnName']]));
     144      end else begin
     145        NewControl := TEdit.Create(Panel1);
     146        NewControl.Parent := Panel1;
     147        NewControl.Top := LastTop;
     148        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
     149        TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
     150        TEdit(NewControl).Text := Values[0].Values[Properties[I].Values['ColumnName']];
    130151      end;
    131152

  • trunk/Forms/UMainForm.lfm

    r4 r5  
    3232    object TreeView1: TTreeView
    3333      Left = 8
    34       Height = 413
     34      Height = 421
    3535      Top = 19
    3636      Width = 176
    … …  
    110110    top = 120
    111111    object AItemDelete: TAction
    112       Category = 'Object'
     112      Category = 'Item'
    113113      Caption = 'Smazat'
    114114    end
    115115    object AItemAdd: TAction
    116       Category = 'Object'
     116      Category = 'Item'
    117117      Caption = 'Přidat'
    118118      OnExecute = AItemAddExecute
    119119    end
    120120    object AItemEdit: TAction
     121      Category = 'Item'
     122      Caption = 'Upravit'
     123      OnExecute = AItemEditExecute
     124    end
     125    object AItemView: TAction
     126      Category = 'Item'
     127      Caption = 'Zobrazit'
     128      OnExecute = AItemViewExecute
     129    end
     130    object AObjectGroupDelete: TAction
     131      Category = 'ObjectGroup'
     132      Caption = 'Odebrat'
     133    end
     134    object AObjectGroupAddGroup: TAction
     135      Category = 'ObjectGroup'
     136      Caption = 'Přidat skupinu'
     137      OnExecute = AObjectGroupAddGroupExecute
     138    end
     139    object AObjectGroupAddObject: TAction
     140      Category = 'ObjectGroup'
     141      Caption = 'Přidat objekt'
     142    end
     143    object AObjectGroupEdit: TAction
     144      Category = 'ObjectGroup'
     145      Caption = 'Upravit'
     146      OnExecute = AObjectGroupEditExecute
     147    end
     148    object AObjectDelete: TAction
     149      Category = 'Object'
     150      Caption = 'Odstranit'
     151    end
     152    object AObjectEdit: TAction
    121153      Category = 'Object'
    122154      Caption = 'Upravit'
    123       OnExecute = AItemEditExecute
    124     end
    125     object AItemView: TAction
    126       Category = 'Object'
    127       Caption = 'Zobrazit'
    128       OnExecute = AItemViewExecute
    129     end
    130     object AObjectGroupDelete: TAction
    131       Category = 'ObjectGroup'
    132       Caption = 'Odebrat'
    133     end
    134     object AObjectGroupAddGroup: TAction
    135       Category = 'ObjectGroup'
    136       Caption = 'Přidat skupinu'
    137       OnExecute = AObjectGroupAddGroupExecute
    138     end
    139     object AObjectGroupAddObject: TAction
    140       Category = 'ObjectGroup'
    141       Caption = 'Přidat objekt'
    142     end
    143     object AObjectGroupEdit: TAction
    144       Category = 'ObjectGroup'
    145       Caption = 'Upravit'
     155      OnExecute = AObjectEditExecute
    146156    end
    147157  end
    … …  
    170180    left = 72
    171181    top = 136
     182    object MenuItem9: TMenuItem
     183      Action = AObjectDelete
     184    end
     185    object MenuItem10: TMenuItem
     186      Action = AObjectEdit
     187    end
    172188  end
    173189  object PopupMenuObjectGroup: TPopupMenu

  • trunk/Forms/UMainForm.pas

    r4 r5  
    2121
    2222  TMainForm = class(TForm)
     23    AObjectEdit: TAction;
     24    AObjectDelete: TAction;
    2325    AObjectGroupEdit: TAction;
    2426    AObjectGroupAddObject: TAction;
    … …  
    3739    ListView1: TListView;
    3840    MenuItem1: TMenuItem;
     41    MenuItem10: TMenuItem;
    3942    MenuItem2: TMenuItem;
    4043    MenuItem3: TMenuItem;
    … …  
    4447    MenuItem7: TMenuItem;
    4548    MenuItem8: TMenuItem;
     49    MenuItem9: TMenuItem;
    4650    Panel1: TPanel;
    4751    Panel2: TPanel;
    … …  
    5458    procedure AItemEditExecute(Sender: TObject);
    5559    procedure AItemViewExecute(Sender: TObject);
     60    procedure AObjectEditExecute(Sender: TObject);
    5661    procedure AObjectGroupAddGroupExecute(Sender: TObject);
     62    procedure AObjectGroupEditExecute(Sender: TObject);
    5763    procedure ButtonAddClick(Sender: TObject);
    5864    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    … …  
    8490
    8591uses
    86   UItemView, UItemEdit;
     92  UItemView, UItemEdit, UItemAdd;
    8793
    8894{$R *.lfm}
    … …  
    153159end;
    154160
     161procedure TMainForm.AObjectEditExecute(Sender: TObject);
     162begin
     163  if Assigned(TreeView1.Selected) then begin
     164    SelectedObject := 9;
     165    SelectedItem := Integer(TreeView1.Selected.Data);
     166    ItemEditForm.Show;
     167  end;
     168end;
     169
    155170procedure TMainForm.AObjectGroupAddGroupExecute(Sender: TObject);
    156171begin
    … …  
    158173end;
    159174
     175procedure TMainForm.AObjectGroupEditExecute(Sender: TObject);
     176begin
     177  if Assigned(TreeView1.Selected) then begin
     178    SelectedObject := 8;
     179    SelectedItem := Integer(TreeView1.Selected.Data);
     180    ItemEditForm.Show;
     181  end;
     182end;
     183
    160184procedure TMainForm.AItemEditExecute(Sender: TObject);
    161185begin
    … …  
    165189procedure TMainForm.AItemAddExecute(Sender: TObject);
    166190begin
    167 
     191  ItemAddForm.Show;
    168192end;
    169193
    … …  
    206230procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
    207231begin
    208   LoadItemList;
    209232  AObjectGroupDelete.Enabled := Assigned(TreeView1.Selected);
    210233  AObjectGroupEdit.Enabled := Assigned(TreeView1.Selected);
    211234  if Assigned(TreeView1.Selected) then begin
    212     if TreeView1.Selected.ImageIndex = 0 then
     235    if TreeView1.Selected.ImageIndex = 0 then begin
    213236      TreeView1.PopupMenu := PopupMenuObjectGroup;
    214     if TreeView1.Selected.ImageIndex = 1 then
     237      ListView1.Visible := False;
     238    end;
     239    if TreeView1.Selected.ImageIndex = 1 then begin
    215240      TreeView1.PopupMenu := PopupMenuObject;
     241      LoadItemList;
     242    end;
    216243  end;
    217244end;
    … …  
    237264      NewNode.ImageIndex := 0;
    238265      NewNode.SelectedIndex := 0;
     266      NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
    239267      ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
    240268      for O := 0 to ObjectDbRows.Count - 1 do begin
    … …  
    263291begin
    264292  SelectedObject := 0;
    265   if Assigned(TreeView1.Selected) then
     293  if Assigned(TreeView1.Selected)then
    266294  with ListView1, Items do begin
     295    Visible := True;
    267296    Clear;
    268297    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));

  • trunk/chronis.lpi

    r4 r5  
    3737      </Item1>
    3838    </RequiredPackages>
    39     <Units Count="16">
     39    <Units Count="17">
    4040      <Unit0>
    4141        <Filename Value="chronis.lpr"/>
    … …  
    4646        <WindowIndex Value="1"/>
    4747        <TopLine Value="1"/>
    48         <CursorPos X="59" Y="23"/>
    49         <UsageCount Value="148"/>
     48        <CursorPos X="59" Y="24"/>
     49        <UsageCount Value="149"/>
    5050        <Loaded Value="True"/>
    5151      </Unit0>
    … …  
    5858        <TopLine Value="1"/>
    5959        <CursorPos X="29" Y="1"/>
    60         <UsageCount Value="16"/>
     60        <UsageCount Value="15"/>
    6161      </Unit1>
    6262      <Unit2>
    … …  
    6868        <TopLine Value="1"/>
    6969        <CursorPos X="37" Y="1"/>
    70         <UsageCount Value="16"/>
     70        <UsageCount Value="15"/>
    7171      </Unit2>
    7272      <Unit3>
    … …  
    7676        <TopLine Value="330"/>
    7777        <CursorPos X="1" Y="347"/>
    78         <UsageCount Value="82"/>
     78        <UsageCount Value="81"/>
    7979      </Unit3>
    8080      <Unit4>
    … …  
    8787        <TopLine Value="118"/>
    8888        <CursorPos X="25" Y="144"/>
    89         <UsageCount Value="136"/>
     89        <UsageCount Value="135"/>
    9090      </Unit4>
    9191      <Unit5>
    … …  
    9898        <TopLine Value="1"/>
    9999        <CursorPos X="24" Y="14"/>
    100         <UsageCount Value="136"/>
     100        <UsageCount Value="135"/>
    101101      </Unit5>
    102102      <Unit6>
    … …  
    104104        <IsPartOfProject Value="True"/>
    105105        <UnitName Value="UPersistentForm"/>
    106         <EditorIndex Value="4"/>
    107106        <WindowIndex Value="0"/>
    108107        <TopLine Value="42"/>
    109108        <CursorPos X="33" Y="46"/>
    110         <UsageCount Value="138"/>
    111         <Loaded Value="True"/>
     109        <UsageCount Value="139"/>
    112110      </Unit6>
    113111      <Unit7>
    … …  
    118116        <WindowIndex Value="0"/>
    119117        <TopLine Value="385"/>
    120         <CursorPos X="1" Y="374"/>
    121         <UsageCount Value="138"/>
     118        <CursorPos X="25" Y="373"/>
     119        <UsageCount Value="139"/>
    122120        <Loaded Value="True"/>
    123121      </Unit7>
    … …  
    129127        <TopLine Value="32"/>
    130128        <CursorPos X="21" Y="13"/>
    131         <UsageCount Value="138"/>
     129        <UsageCount Value="139"/>
    132130      </Unit8>
    133131      <Unit9>
    … …  
    139137        <EditorIndex Value="0"/>
    140138        <WindowIndex Value="0"/>
    141         <TopLine Value="68"/>
    142         <CursorPos X="30" Y="100"/>
    143         <UsageCount Value="34"/>
     139        <TopLine Value="82"/>
     140        <CursorPos X="27" Y="112"/>
     141        <UsageCount Value="35"/>
    144142        <Loaded Value="True"/>
    145143      </Unit9>
    … …  
    152150        <EditorIndex Value="1"/>
    153151        <WindowIndex Value="0"/>
    154         <TopLine Value="93"/>
    155         <CursorPos X="7" Y="114"/>
    156         <UsageCount Value="25"/>
     152        <TopLine Value="125"/>
     153        <CursorPos X="16" Y="137"/>
     154        <UsageCount Value="26"/>
    157155        <Loaded Value="True"/>
    158156      </Unit10>
    … …  
    162160        <HasResources Value="True"/>
    163161        <UnitName Value="ULoginForm"/>
    164         <UsageCount Value="24"/>
     162        <UsageCount Value="25"/>
    165163      </Unit11>
    166164      <Unit12>
    … …  
    171169        <ResourceBaseClass Value="Form"/>
    172170        <UnitName Value="UMainForm"/>
    173         <IsVisibleTab Value="True"/>
    174171        <EditorIndex Value="3"/>
    175172        <WindowIndex Value="0"/>
    176         <TopLine Value="253"/>
    177         <CursorPos X="112" Y="268"/>
    178         <UsageCount Value="24"/>
     173        <TopLine Value="77"/>
     174        <CursorPos X="33" Y="92"/>
     175        <UsageCount Value="25"/>
    179176        <Loaded Value="True"/>
    180177      </Unit12>
    … …  
    203200        <IsPartOfProject Value="True"/>
    204201        <UnitName Value="UTreeState"/>
    205         <UsageCount Value="21"/>
     202        <UsageCount Value="22"/>
    206203        <DefaultSyntaxHighlighter Value="Text"/>
    207204      </Unit15>
     205      <Unit16>
     206        <Filename Value="Forms/UItemAdd.pas"/>
     207        <IsPartOfProject Value="True"/>
     208        <ComponentName Value="ItemAddForm"/>
     209        <ResourceBaseClass Value="Form"/>
     210        <UnitName Value="UItemAdd"/>
     211        <IsVisibleTab Value="True"/>
     212        <EditorIndex Value="4"/>
     213        <WindowIndex Value="0"/>
     214        <TopLine Value="116"/>
     215        <CursorPos X="27" Y="130"/>
     216        <UsageCount Value="21"/>
     217        <Loaded Value="True"/>
     218      </Unit16>
    208219    </Units>
    209220    <JumpHistory Count="30" HistoryIndex="29">
    210221      <Position1>
    211222        <Filename Value="Forms/UItemEdit.pas"/>
    212         <Caret Line="109" Column="33" TopLine="90"/>
     223        <Caret Line="78" Column="1" TopLine="57"/>
    213224      </Position1>
    214225      <Position2>
    215226        <Filename Value="Forms/UItemEdit.pas"/>
    216         <Caret Line="108" Column="33" TopLine="89"/>
     227        <Caret Line="79" Column="1" TopLine="57"/>
    217228      </Position2>
    218229      <Position3>
    219230        <Filename Value="Forms/UItemEdit.pas"/>
    220         <Caret Line="116" Column="36" TopLine="89"/>
     231        <Caret Line="81" Column="1" TopLine="57"/>
    221232      </Position3>
    222233      <Position4>
    223         <Filename Value="Forms/UMainForm.pas"/>
    224         <Caret Line="18" Column="39" TopLine="1"/>
     234        <Filename Value="Forms/UItemEdit.pas"/>
     235        <Caret Line="85" Column="1" TopLine="57"/>
    225236      </Position4>
    226237      <Position5>
    227         <Filename Value="Forms/UMainForm.pas"/>
    228         <Caret Line="189" Column="41" TopLine="182"/>
     238        <Filename Value="Forms/UItemEdit.pas"/>
     239        <Caret Line="86" Column="1" TopLine="57"/>
    229240      </Position5>
    230241      <Position6>
    231         <Filename Value="Forms/UMainForm.pas"/>
    232         <Caret Line="185" Column="29" TopLine="166"/>
     242        <Filename Value="Forms/UItemEdit.pas"/>
     243        <Caret Line="87" Column="1" TopLine="57"/>
    233244      </Position6>
    234245      <Position7>
    235         <Filename Value="Forms/UMainForm.pas"/>
    236         <Caret Line="218" Column="23" TopLine="194"/>
     246        <Filename Value="Forms/UItemEdit.pas"/>
     247        <Caret Line="89" Column="1" TopLine="57"/>
    237248      </Position7>
    238249      <Position8>
    239         <Filename Value="Forms/UMainForm.pas"/>
    240         <Caret Line="219" Column="23" TopLine="195"/>
     250        <Filename Value="Forms/UItemEdit.pas"/>
     251        <Caret Line="90" Column="1" TopLine="58"/>
    241252      </Position8>
    242253      <Position9>
    243         <Filename Value="Forms/UMainForm.pas"/>
    244         <Caret Line="220" Column="23" TopLine="196"/>
     254        <Filename Value="Forms/UItemEdit.pas"/>
     255        <Caret Line="91" Column="1" TopLine="59"/>
    245256      </Position9>
    246257      <Position10>
    247258        <Filename Value="Forms/UMainForm.pas"/>
    248         <Caret Line="221" Column="23" TopLine="197"/>
     259        <Caret Line="237" Column="22" TopLine="220"/>
    249260      </Position10>
    250261      <Position11>
    251262        <Filename Value="Forms/UMainForm.pas"/>
    252         <Caret Line="196" Column="1" TopLine="185"/>
     263        <Caret Line="241" Column="14" TopLine="224"/>
    253264      </Position11>
    254265      <Position12>
    255266        <Filename Value="Forms/UMainForm.pas"/>
    256         <Caret Line="55" Column="15" TopLine="36"/>
     267        <Caret Line="230" Column="40" TopLine="208"/>
    257268      </Position12>
    258269      <Position13>
    259         <Filename Value="Forms/UMainForm.pas"/>
    260         <Caret Line="233" Column="32" TopLine="213"/>
     270        <Filename Value="Forms/UItemAdd.pas"/>
     271        <Caret Line="11" Column="15" TopLine="1"/>
    261272      </Position13>
    262273      <Position14>
    263         <Filename Value="Forms/UMainForm.pas"/>
    264         <Caret Line="230" Column="12" TopLine="214"/>
     274        <Filename Value="Forms/UItemAdd.pas"/>
     275        <Caret Line="14" Column="15" TopLine="1"/>
    265276      </Position14>
    266277      <Position15>
    267         <Filename Value="Forms/UMainForm.pas"/>
    268         <Caret Line="231" Column="12" TopLine="215"/>
     278        <Filename Value="Forms/UItemAdd.pas"/>
     279        <Caret Line="15" Column="15" TopLine="1"/>
    269280      </Position15>
    270281      <Position16>
    271         <Filename Value="Forms/UMainForm.pas"/>
    272         <Caret Line="230" Column="12" TopLine="214"/>
     282        <Filename Value="Forms/UItemAdd.pas"/>
     283        <Caret Line="38" Column="9" TopLine="3"/>
    273284      </Position16>
    274285      <Position17>
    275286        <Filename Value="Forms/UMainForm.pas"/>
    276         <Caret Line="231" Column="12" TopLine="215"/>
     287        <Caret Line="191" Column="10" TopLine="189"/>
    277288      </Position17>
    278289      <Position18>
    279         <Filename Value="Forms/UMainForm.pas"/>
    280         <Caret Line="230" Column="12" TopLine="214"/>
     290        <Filename Value="Forms/UItemAdd.pas"/>
     291        <Caret Line="9" Column="25" TopLine="1"/>
    281292      </Position18>
    282293      <Position19>
    283         <Filename Value="Forms/UMainForm.pas"/>
    284         <Caret Line="229" Column="12" TopLine="213"/>
     294        <Filename Value="Forms/UItemAdd.pas"/>
     295        <Caret Line="51" Column="33" TopLine="31"/>
    285296      </Position19>
    286297      <Position20>
    287         <Filename Value="Forms/UMainForm.pas"/>
    288         <Caret Line="230" Column="12" TopLine="214"/>
     298        <Filename Value="Forms/UItemAdd.pas"/>
     299        <Caret Line="57" Column="32" TopLine="38"/>
    289300      </Position20>
    290301      <Position21>
    291         <Filename Value="Forms/UMainForm.pas"/>
    292         <Caret Line="231" Column="12" TopLine="215"/>
     302        <Filename Value="Forms/UItemAdd.pas"/>
     303        <Caret Line="23" Column="1" TopLine="5"/>
    293304      </Position21>
    294305      <Position22>
    295         <Filename Value="Forms/UMainForm.pas"/>
    296         <Caret Line="232" Column="12" TopLine="216"/>
     306        <Filename Value="Forms/UItemAdd.pas"/>
     307        <Caret Line="88" Column="1" TopLine="81"/>
    297308      </Position22>
    298309      <Position23>
    299         <Filename Value="Forms/UMainForm.pas"/>
    300         <Caret Line="231" Column="12" TopLine="215"/>
     310        <Filename Value="Forms/UItemAdd.pas"/>
     311        <Caret Line="121" Column="27" TopLine="97"/>
    301312      </Position23>
    302313      <Position24>
    303         <Filename Value="Forms/UMainForm.pas"/>
    304         <Caret Line="230" Column="12" TopLine="214"/>
     314        <Filename Value="Forms/UItemAdd.pas"/>
     315        <Caret Line="124" Column="31" TopLine="97"/>
    305316      </Position24>
    306317      <Position25>
    307         <Filename Value="Forms/UMainForm.pas"/>
    308         <Caret Line="229" Column="12" TopLine="213"/>
     318        <Filename Value="Forms/UItemAdd.pas"/>
     319        <Caret Line="125" Column="32" TopLine="104"/>
    309320      </Position25>
    310321      <Position26>
    311         <Filename Value="Forms/UMainForm.pas"/>
    312         <Caret Line="228" Column="12" TopLine="212"/>
     322        <Filename Value="Forms/UItemAdd.pas"/>
     323        <Caret Line="126" Column="32" TopLine="105"/>
    313324      </Position26>
    314325      <Position27>
    315         <Filename Value="Forms/UMainForm.pas"/>
    316         <Caret Line="229" Column="12" TopLine="213"/>
     326        <Filename Value="Forms/UItemAdd.pas"/>
     327        <Caret Line="125" Column="32" TopLine="104"/>
    317328      </Position27>
    318329      <Position28>
    319         <Filename Value="Forms/UMainForm.pas"/>
    320         <Caret Line="230" Column="12" TopLine="214"/>
     330        <Filename Value="Forms/UItemEdit.pas"/>
     331        <Caret Line="148" Column="1" TopLine="112"/>
    321332      </Position28>
    322333      <Position29>
    323         <Filename Value="Forms/UMainForm.pas"/>
    324         <Caret Line="231" Column="12" TopLine="215"/>
     334        <Filename Value="Forms/UItemEdit.pas"/>
     335        <Caret Line="9" Column="50" TopLine="1"/>
    325336      </Position29>
    326337      <Position30>
    327         <Filename Value="Forms/UMainForm.pas"/>
    328         <Caret Line="232" Column="12" TopLine="216"/>
     338        <Filename Value="Forms/UItemAdd.pas"/>
     339        <Caret Line="9" Column="27" TopLine="1"/>
    329340      </Position30>
    330341    </JumpHistory>

  • trunk/chronis.lpr

    r4 r5  
    99  Interfaces, // this includes the LCL widgetset
    1010  Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState,
    11 UItemView, UItemEdit, ULoginForm, UMainForm
     11UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd
    1212  { you can add units after this };
    1313
    … …  
    1919  Application.CreateForm(TItemViewForm, ItemViewForm);
    2020  Application.CreateForm(TItemEditForm, ItemEditForm);
     21  Application.CreateForm(TItemAddForm, ItemAddForm);
    2122  Application.Run;
    2223end.
Note: See TracChangeset for help on using the changeset viewer.