• 326 Vote(s) - 2.84 Average
• 1
• 2
• 3
• 4
• 5
Page 8: Extra Practice
06-16-2011, 04:39 PM, (This post was last modified: 06-23-2011, 04:13 PM by ashimo.)
 ashimo Moderator Reputation: 3 Posts: 99 Joined: Jun 2011
Page 8: Extra Practice
Extra Practice

Practice Problem 1: Application

In the "Application" sample, add a button whose function is to delete a selected line.

Hint: To delete a selected line, use {RecordGrid.delete-selection}.

Solution

Solution Program: c:\Curl\Try3\04_exercise1\start.curl

Code:
```{value     let data:RecordSet =         {RecordSet             {RecordFields                 {RecordField name, domain = String},                 {RecordField age, domain = int},                 {RecordField score, domain = int},                 {RecordField city, domain = String},                 {RecordField tel, domain = String}             },             {RecordData name = Matt, age = 33, score = 88, city = Cambridge, tel = 555-1567},             {RecordData name = Sarah, age = 27, score = 79, city = Seattle, tel = 555-5692},             {RecordData name = Jacob, age = 26, score = 90, city = Chicago, tel = 555-7259},             {RecordData name = Miles, age = 23, score = 98, city = Miami, tel = 555-2644},             {RecordData name = Anna, age = 27, score = 81, city = San Diego, tel = 555-9968},             {RecordData name = Paul, age = 28, score = 86, city = Denver, tel = 555-6389},             {RecordData name = Diana, age = 25, score = 85, city = Atlanta, tel = 555-4712}         }     let rg:RecordGrid = {RecordGrid                             record-source = data,                             height = 3cm,                             width = 10cm                         }     let sort-button:CommandButton = {CommandButton                                         label = Sort score in descending order,                                         {on Action do                                             set rg.sort = score DESC                                         }                                     }     let filter-button:CommandButton = {CommandButton                                           label = Display data of city 'Miami',                                           {on Action do                                               set rg.filter = {RecordData city = Miami}                                           }                                       }     let reverse-button:CommandButton = {CommandButton                                            label = Cancel the filter,                                            {on Action do                                                set rg.filter = null                                            }                                        }     let delete-button:CommandButton = {CommandButton                                           label = Delete the selected line,                                           {on Action do                                               {rg.delete-selection}                                           }                                       }     {rg.set-frozen-region 0, 1}     {VBox         rg,         {HBox             sort-button,             filter-button,             reverse-button,             delete-button         }     } }```

 « Next Oldest | Next Newest »

 Possibly Related Threads... Thread Author Replies Views Last Post Page 1: Displaying Data in a Grid ashimo 2 6,559 08-25-2011, 09:55 AM Last Post: ashimo Page 7: Summary ashimo 0 3,177 06-16-2011, 04:37 PM Last Post: ashimo Page 6: Structure of a Program that Sorts and Filters the Data ashimo 0 3,281 06-16-2011, 04:32 PM Last Post: ashimo Page 5: Sorting and Filtering Data ashimo 0 3,794 06-16-2011, 04:27 PM Last Post: ashimo Page 4: Structure of a Program for Setting the RecordGrid's Appearance and Functiona ashimo 0 3,702 06-16-2011, 04:24 PM Last Post: ashimo Page 3: Using Options to Modify the RecordGrid Appearance and Functionality ashimo 0 3,781 06-16-2011, 04:20 PM Last Post: ashimo Page 2: Structure of a Program that Displays a Table in a Grid ashimo 0 3,230 06-16-2011, 04:16 PM Last Post: ashimo
Forum Jump: