ali_abbasi22145
چهارشنبه 02 بهمن 1387, 15:46 عصر
سلام
من رنگ مورد نظر را از يك Memo مانند دستورات زير مي گيرم و براي هر رنگ كار خاصي انجام مي دهم.
اما متغير Color من از نوع TSring و clWhite يا clGreen ... از نوع TColor است آيا تابعي يا دستوري براي تبديل TSring به TColor وجود دارد و برعكس؟
كه دستور وجود داشته باشد آنوقت دستوراتم خلاصه و راحت مي شود.
Color:= Trim(LowerCase(MainForm.Memo1.Lines.Strings[24]));
if (Color = 'blue') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite
else if (Color = 'green') then
ppImage1.Picture.Bitmap.TransparentColor := clGreen
else if (Color = 'white') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite;
من رنگ مورد نظر را از يك Memo مانند دستورات زير مي گيرم و براي هر رنگ كار خاصي انجام مي دهم.
اما متغير Color من از نوع TSring و clWhite يا clGreen ... از نوع TColor است آيا تابعي يا دستوري براي تبديل TSring به TColor وجود دارد و برعكس؟
كه دستور وجود داشته باشد آنوقت دستوراتم خلاصه و راحت مي شود.
Color:= Trim(LowerCase(MainForm.Memo1.Lines.Strings[24]));
if (Color = 'blue') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite
else if (Color = 'green') then
ppImage1.Picture.Bitmap.TransparentColor := clGreen
else if (Color = 'white') then
ppImage1.Picture.Bitmap.TransparentColor := clWhite;