Solved

Program ran out of memory!

Posted on 2003-11-28
1
335 Views
Last Modified: 2010-04-05
Hi Experts,

I really can't figure this out but what my program does is have a picture, and when you drage your mouse over it, it masks it with a color. When i drag it over the form and picture a lot of times, I get a "not enough memory to complete" task error. Please help.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    ColorDialog1: TColorDialog;
    SaveDialog1: TSaveDialog;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; //The Form lol
  OrginalPic : TImage; //Orginal Picture
  MyPicState : Boolean; //true are false varible
implementation
{$R *.dfm}


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Pic : TBitmap;//Bitmap
AForm : Word;//A Unsigned 4 byte number
damn : Thandle;//handle
blah : HPALETTE;
begin
Pic := TBitmap.Create; //making a pic a bitmap
Pic.Assign(Image1.Picture.Graphic); //assign the image to pic
Pic.SaveToClipboardFormat(AForm,damn,blah);//save the bitmap in a clipboard
Pic.Free;//freeing the pic from memory
Image1.Picture.LoadFromClipboardFormat(AForm,damn,blah);//load the pic saved to the clippedbaord
Image1.Canvas.Pen.Mode := pmMask;//puts the translucent color over the image
Image1.Canvas.Brush.Color := ColorDialog1.Color;//Set the brush color to to color dialog color
Image1.canvas.Rectangle(0,0,Image1.Width,Image1.Height);//Paint over the whole image
MyPicState := False; //if the mouse is already over it make it stop loading over and over to save memory
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
ColorDialog1.Color := $00FF00;//Color Green In hex just like the rgb function
MyPicState := True;//Set Pic State To True
OrginalPic := TImage.Create(self); //Make the orginalpic
OrginalPic.Picture := Image1.Picture; //save the orginal pic thats from startup
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
OrginalPic.Free; //when the programs done free the orginalpic
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if MyPicState = False then
begin
Image1.Picture := OrginalPic.Picture; //if the mouse is over the form the pic is back to normal
MyPicState := True; //MyPicState is true so when you put the mouse over the pic it will highlight
end;
end;
0
Comment
Question by:ionet
1 Comment
 
LVL 22

Accepted Solution

by:
Mohammed Nasman earned 120 total points
ID: 9841847
Hello

  Use Clipboard object to save the image to and from it, it will remove the error, here's the modified code

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Pic : TBitmap;//Bitmap
AForm : Word;//A Unsigned 4 byte number
damn : Thandle;//handle
blah : HPALETTE;
C : TClipBoard;
begin
C := TClipBoard.Create;
Pic := TBitmap.Create; //making a pic a bitmap
Pic.Assign(Image1.Picture.Graphic); //assign the image to pic
//Pic.SaveToClipboardFormat(AForm,damn,blah);//save the bitmap in a clipboard
C.Assign(Pic);
Pic.Free;//freeing the pic from memory

//Image1.Picture.LoadFromClipboardFormat(AForm,damn,blah);//load the pic saved to the clippedbaord
Image1.Picture.Assign(C);
Image1.Canvas.Pen.Mode := pmMask;//puts the translucent color over the image
Image1.Canvas.Brush.Color := ColorDialog1.Color;//Set the brush color to to color dialog color
Image1.canvas.Rectangle(0,0,Image1.Width,Image1.Height);//Paint over the whole image
MyPicState := False; //if the mouse is already over it make it stop loading over and over to save memory
C.Free;

end;

by the way, why you are copy to and from clipboard, you can avoid these steps
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now