home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / ib / setups / intrabld / data.z / EXPERT.CC < prev    next >
Text File  |  1996-12-11  |  8KB  |  208 lines
  1. /****************************************************************************\
  2. *                                                                            *
  3. * Expert.cc  --  IntraBuilder Custom Controls. Contains custom buttons and   *
  4. *                images like those created by the Form Expert.               *
  5. *                                                                            *
  6. * Updated 10/26/96 by IntraBuilder Samples Group                             *
  7. * $Revision:   1.1  $                                                        *
  8. *                                                                            *
  9. * Copyright (c) 1996, Borland International, Inc. All rights reserved.       *
  10. *                                                                            *
  11. \****************************************************************************/
  12. class ExpertImage(FormObj,ImageFile) extends Image(FormObj) {
  13.    this.alignment = 4; //true size;
  14.    this.image = ImageFile;
  15.  
  16.  
  17.    function onDesignLoad(bNew)
  18.    {
  19.       if (bNew && this.image.substring(0,11) != 'ExpertImage') {
  20.          with (new File())
  21.             if (!exists(this.image))
  22.                copy(_sys.env.home() + "designer\\form\\" + this.image, this.image);
  23.          this.dataSource = "filename " + this.image;
  24.       }
  25.       this.onDesignLoad = null;
  26.    }
  27. }
  28.  
  29. class NavigateHorizontalImage(FormObj) extends ExpertImage(FormObj,"expinavh.gif") custom {
  30.    with (this) {
  31.       onImageServerClick = {|nLeft, nTop|;if (nLeft >= 26*0 && nLeft < 26*1){form.rowset.first()}else if (nLeft >= 26*1 && nLeft < 26*2){if (!form.rowset.next(-1)) form.rowset.next();}else if (nLeft >= 26*2 && nLeft < 26*3){if (!form.rowset.next()) form.rowset.next(-1);}else{form.rowset.last()}};
  32.    }
  33. }
  34.  
  35. class NavigateVerticalImage(FormObj) extends ExpertImage(FormObj,"expinavv.gif") custom {
  36.    with (this) {
  37.       onImageServerClick = {|nLeft, nTop|;if (nTop >= 23*0 && nTop < 23*1){form.rowset.first()}else if (nTop >= 23*1 && nTop < 23*2){if (!form.rowset.next(-1)) form.rowset.next();}else if (nTop >= 23*2 && nTop < 23*3){if (!form.rowset.next()) form.rowset.next(-1);}else{form.rowset.last()}};
  38.    }
  39. }
  40.  
  41. class FirstImage(FormObj) extends ExpertImage(FormObj,"navfirst.gif") custom {
  42.    with (this) {
  43.       onImageServerClick = {;form.rowset.first()};
  44.    }
  45. }
  46.  
  47. class LastImage(FormObj) extends ExpertImage(FormObj,"navlast.gif") custom {
  48.    with (this) {
  49.       onImageServerClick = {;form.rowset.last()};
  50.    }
  51. }
  52.  
  53. class NextImage(FormObj) extends ExpertImage(FormObj,"navnext.gif") custom {
  54.    with (this) {
  55.       onImageServerClick = {;if (!form.rowset.next()) form.rowset.next(-1);};
  56.    }
  57. }
  58.  
  59. class PreviousImage(FormObj) extends ExpertImage(FormObj,"navprev.gif") custom {
  60.    with (this) {
  61.       onImageServerClick = {;if (!form.rowset.next(-1)) form.rowset.next();};
  62.    }
  63. }
  64.  
  65. class UpdateHorizontalImage(FormObj) extends ExpertImage(FormObj,"expirowh.gif") custom {
  66.    with (this) {
  67.       onImageServerClick = {|nLeft, nTop|;if (nLeft >= 26*0 && nLeft < 26*1){form.rowset.beginAppend()}else if (nLeft >= 26*1 && nLeft < 26*2){form.rowset.delete()}else if (nLeft >= 26*2 && nLeft < 26*3){form.rowset.save()}else if (nLeft >= 26*3 && nLeft < 26*4){form.rowset.abandon()}else if (nLeft >= 26*4 && nLeft < 26*5){form.rowset.beginEdit()}else if (nLeft >= 26*5 && nLeft < 26*6){with(this) {if (form.rowset.state==5) {text="New Query";form.rowset.applyLocate();} else {text="Run Query";form.rowset.beginLocate();}}}else{with(this) {if (form.rowset.state==4) {text="New Filter";form.rowset.applyFilter();} else {text="Run Filter";form.rowset.beginFilter();}}}};
  68.    }
  69. }
  70.  
  71. class UpdateVerticalImage(FormObj) extends ExpertImage(FormObj,"expirowv.gif") custom {
  72.    with (this) {
  73.       onImageServerClick = {|nLeft, nTop|;if (nTop >= 23*0 && nTop < 23*1){form.rowset.beginAppend()}else if (nTop >= 23*1 && nTop < 23*2){form.rowset.delete()}else if (nTop >= 23*2 && nTop < 23*3){form.rowset.save()}else if (nTop >= 23*3 && nTop < 23*4){form.rowset.abandon()}else if (nTop >= 23*4 && nTop < 23*5){form.rowset.beginEdit()}else if (nTop >= 23*5 && nTop < 23*6){with(this) {if (form.rowset.state==5) {text="New Query";form.rowset.applyLocate();} else {text="Run Query";form.rowset.beginLocate();}}}else{with(this) {if (form.rowset.state==4) {text="New Filter";form.rowset.applyFilter();} else {text="Run Filter";form.rowset.beginFilter();}}}};
  74.    }
  75. }
  76.  
  77. class AddImage(FormObj) extends ExpertImage(FormObj,"updadd.gif") custom {
  78.    with (this) {
  79.       onImageServerClick = {;form.rowset.beginAppend()};
  80.    }
  81. }
  82.  
  83. class DeleteImage(FormObj) extends ExpertImage(FormObj,"upddel.gif") custom {
  84.    with (this) {
  85.       onImageServerClick = {;if (!form.rowset.endOfSet) {form.rowset.delete(); if (form.rowset.endOfSet) {form.rowset.last();}}};
  86.    }
  87. }
  88.  
  89. class EditImage(FormObj) extends ExpertImage(FormObj,"updedit.gif") custom {
  90.    with (this) {
  91.       onImageServerClick = {;form.rowset.beginEdit()};
  92.    }
  93. }
  94.  
  95. class SaveImage(FormObj) extends ExpertImage(FormObj,"updsave.gif") custom {
  96.    with (this) {
  97.       onImageServerClick = {;form.rowset.save()};
  98.    }
  99. }
  100.  
  101. class AbandonImage(FormObj) extends ExpertImage(FormObj,"updaban.gif") custom {
  102.    with (this) {
  103.       onImageServerClick = {;form.rowset.abandon()};
  104.    }
  105. }
  106.  
  107. class SearchImage(FormObj) extends ExpertImage(FormObj,"srchqbf.gif") custom {
  108.    with (this) {
  109.       onImageServerClick = {;with(this) {if (form.rowset.state==5) {text="New Query";form.rowset.applyLocate();} else {text="Run Query";form.rowset.beginLocate();}}};
  110.    }
  111. }
  112.  
  113. class FilterImage(FormObj) extends ExpertImage(FormObj,"fltrfbf.gif") custom {
  114.    with (this) {
  115.       onImageServerClick = {;with(this) {if (form.rowset.state==4) {text="New Filter";form.rowset.applyFilter();} else {text="Run Filter";form.rowset.beginFilter();}}};
  116.    }
  117. }
  118.  
  119. class FirstButton(FormObj) extends Button(FormObj) custom {
  120.    with (this) {
  121.       width = 12;
  122.       text = "First";
  123.       onServerClick = {;form.rowset.first()};
  124.    }
  125. }
  126.  
  127. class LastButton(FormObj) extends Button(FormObj) custom {
  128.    with (this) {
  129.       width = 12;
  130.       text = "Last";
  131.       onServerClick = {;form.rowset.last()};
  132.    }
  133. }
  134.  
  135. class NextButton(FormObj) extends Button(FormObj) custom {
  136.    with (this) {
  137.       width = 12;
  138.       text = "Next";
  139.       onServerClick = {;if (!form.rowset.next()) form.rowset.next(-1);};
  140.    }
  141. }
  142.  
  143. class PreviousButton(FormObj) extends Button(FormObj) custom {
  144.    with (this) {
  145.       width = 12;
  146.       text = "Previous";
  147.       onServerClick = {;if (!form.rowset.next(-1)) form.rowset.next();};
  148.    }
  149. }
  150.  
  151. class AddButton(FormObj) extends Button(FormObj) custom {
  152.    with (this) {
  153.       width = 12;
  154.       text = "Add";
  155.       onServerClick = {;form.rowset.beginAppend()};
  156.    }
  157. }
  158.  
  159. class DeleteButton(FormObj) extends Button(FormObj) custom {
  160.    with (this) {
  161.       width = 12;
  162.       text = "Delete";
  163.       onServerClick = {;if (!form.rowset.endOfSet) {form.rowset.delete(); if (form.rowset.endOfSet) {form.rowset.last();}}};
  164.    }
  165. }
  166.  
  167. class EditButton(FormObj) extends Button(FormObj) custom {
  168.    with (this) {
  169.       width = 12;
  170.       text = "Edit";
  171.       onServerClick = {;form.rowset.beginEdit()};
  172.    }
  173. }
  174.  
  175. class SaveButton(FormObj) extends Button(FormObj) custom {
  176.    with (this) {
  177.       width = 12;
  178.       text = "Save";
  179.       onServerClick = {;form.rowset.save()};
  180.    }
  181. }
  182.  
  183. class AbandonButton(FormObj) extends Button(FormObj) custom {
  184.    with (this) {
  185.       width = 12;
  186.       text = "Abandon";
  187.       onServerClick = {;form.rowset.abandon()};
  188.    }
  189. }
  190.  
  191. class SearchButton(FormObj) extends Button(FormObj) custom {
  192.    with (this) {
  193.       width = 12;
  194.       text = "New Query";
  195.       onServerClick = {;with(this) {if (form.rowset.state==5) {text="New Query";form.rowset.applyLocate();} else {text="Run Query";form.rowset.beginLocate();}}};
  196.    }
  197. }
  198.  
  199. class FilterButton(FormObj) extends Button(FormObj) custom {
  200.    with (this) {
  201.       width = 12;
  202.       text = "New Filter";
  203.       onServerClick = {;with(this) {if (form.rowset.state==4) {text="New Filter";form.rowset.applyFilter();} else {text="Run Filter";form.rowset.beginFilter();}}};
  204.    }
  205. }
  206.  
  207.  
  208.