برمجة وبرامج


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

منتدى هواة البرامج » المنتدى التقني » نصوص برمجية بلغة الدلفي » تحويل صورة من نوع 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]

إرسال موضوع جديد  إرسال مساهمة في موضوع

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