برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

منتدى هواة البرامج » المنتدى التقني » نصوص برمجية بلغة الدلفي » تحويل صورة من نوع jpg إلى صورة من نوع bmp و العكس

تحويل صورة من نوع jpg إلى صورة من نوع bmp و العكس

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

يمكن تحويل صورة من نوع jpg إلى صورة من نوع bmp باستعمال لغة الدلفي كما يلي :
  • - ضع على الفورم عنصرين Timage سم الأول ImageJPG والثاني ImageBMP.

  • - ضع عنصر TButton .

  • - أكتب الكود في الحدث OnClick للعنصر Button1.



يمكن تحويل الصورة من نوع bmp إلى صورة من نوع jpg بنفس الطريقة

تحويل صورة من نوع BMP إلى ملف من نوع ICO

  • ياستعمال الرسام أو ي محرر للصور قم إنشاء صورة بحجم 32×32 احفظها بنوع BMP

  • الكود التالي يبين كيف نحول هذه الصورة إلى أيكون



procedure bmp2ico(Image: TImage; FileName: TFilename);
var
Bmp: TBitmap;
Icon: TIcon;
ImageList: TImageList;
begin
Bmp := TBitmap.Create;
Icon := TIcon.Create;
try
Bmp.Assign(Image.Picture);
ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
try
ImageList.AddMasked(Bmp, Bmp.TransparentColor);
ImageList.GetIcon(0, Icon);
// Save it to a file
Icon.SaveToFile(FileName);
finally
ImageList.Free;
end;
finally
Bmp.Free;
Icon.Free;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
bmp2ico(Image1, 'd:\test\test.ico');
end;

معاينة صفحة البيانات الشخصي للعضو http://ta3bir.exprimetoi.net
في معظم الأحيان الأيقونة لا تعمل فهل بالإمكان تعديله حتى يمكن قراءتها في جميع برامج ويندوز

معاينة صفحة البيانات الشخصي للعضو

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى