Last change
on this file since 15771 was
15771,
checked in by bburlacu, 7 years ago
|
#2895: Add solution skeleton for PushGP with genealogy analysis.
|
File size:
1.4 KB
|
Rev | Line | |
---|
[14834] | 1 | using System;
|
---|
| 2 |
|
---|
[15771] | 3 | namespace HeuristicLab.Problems.ProgramSynthesis { |
---|
[14834] | 4 | using System.Linq.Expressions;
|
---|
| 5 | using System.Reflection;
|
---|
| 6 | using System.Windows.Forms;
|
---|
| 7 |
|
---|
| 8 | public static class ControlExntensions {
|
---|
| 9 | private delegate void SetPropertyThreadSafeDelegate<TResult>(Control control, Expression<Func<TResult>> property, TResult value);
|
---|
| 10 |
|
---|
| 11 | public static void SetPropertyThreadSafe<TResult>(
|
---|
| 12 | this Control control,
|
---|
| 13 | Expression<Func<TResult>> property,
|
---|
| 14 | TResult value) {
|
---|
| 15 | var propertyInfo = (property.Body as MemberExpression).Member
|
---|
| 16 | as PropertyInfo;
|
---|
| 17 |
|
---|
| 18 | if (propertyInfo == null ||
|
---|
[15334] | 19 | // ReSharper disable once AssignNullToNotNullAttribute
|
---|
[14834] | 20 | !control.GetType().IsSubclassOf(propertyInfo.ReflectedType) ||
|
---|
| 21 | control.GetType().GetProperty(
|
---|
| 22 | propertyInfo.Name,
|
---|
| 23 | propertyInfo.PropertyType) == null) {
|
---|
| 24 | throw new ArgumentException("The lambda expression 'property' must reference a valid property on this Control.");
|
---|
| 25 | }
|
---|
| 26 |
|
---|
| 27 | if (control.InvokeRequired) {
|
---|
| 28 | control.Invoke(new SetPropertyThreadSafeDelegate<TResult>
|
---|
| 29 | (SetPropertyThreadSafe), control, property, value);
|
---|
| 30 | } else {
|
---|
| 31 | control.GetType().InvokeMember(
|
---|
| 32 | propertyInfo.Name,
|
---|
| 33 | BindingFlags.SetProperty,
|
---|
| 34 | null,
|
---|
| 35 | control,
|
---|
| 36 | new object[] { value });
|
---|
| 37 | }
|
---|
| 38 | }
|
---|
| 39 | }
|
---|
| 40 | }
|
---|
Note: See
TracBrowser
for help on using the repository browser.