Board index » cppbuilder » ok

2003-07-14 07:02:05 AM
cppbuilder110
void __fastcall TForm1::New(int w, int h)
{
Graphics::TBitmap *pBitmapTemp = new Graphics::TBitmap();
TCanvas *pMapCanvas;
pBitmapTemp->Height = h*32;
pBitmapTemp->Width = w*32;
Image->Enabled = true;
Image->Height = h*32;
/*also tried using Image->Picture->Bitmap->Height ... but it is resized
just at the dimension of default size*/
Image->Width = w*32; pCanvas = pBitmapTemp->Canvas;
pCanvas->Pen->Color = clRed;
pCanvas->Pen->Color = clBlack;
BitBlt(Images->Canvas->Handle, 0, 0, w*32, h*32, pCanvas->Handle, 0, 0,
SRCCOPY);
}
 

Watching better at the second time i click on New button the TImage just
resizes, but is the image inside isn't redrawed! it show only the part
contained in the last sized of the TImage object.
How can i reupdate this particular case of painting?
 

b wrote:
solution is to resize the Image's Bitmap as well as resizing the Image...
Image->Width = w*32;
Image->Height = h*32;
Image->Picture->Bitmap->Width = Image->Width;
Image->Picture->Bitmap->Height = Image->Height;
Regards,
--
Damon (TeamB)
BCBCAQ - bcbcaq.bytamin-c.com
 

{smallsort}

"b" <borland.public.cppbuilder.vcl.components.using>wrote in message
You are deynamically allocating a TBitmap but you are never freeing it when
you are done with that. You are leaking the TBitmap memory as well as the
underlying bitmap resources contained inside of it.
Gambit
 

How i just told you, i tried to use that, but if i set the default values of
size of TImage in the Form, the calling picture->bitmap->... resize the
TImage just at the default values, and it doesn't permit to enlarge again.
 

Ok so how i must do to free the memory?
 

"b" <borland.public.cppbuilder.vcl.components.using>wrote in message
'new' - use 'delete':
void __fastcall TForm1::New(int w, int h)
{
Graphics::TBitmap *pBitmapTemp = new Graphics::TBitmap;
//...
delete pBitmapTemp;
}
Gambit
 

ok
 

The following codes works fine:
procedure TMainForm.ws_deleteClick(Sender: TObject);
var
str:string;
begin
try
if application.MessageBox('confirm to delete?','Alert',MB_YESNO)=ID_YES
then
begin
str:=
tf_employee(activemdichild).dx1.DataSource.DataSet.Fields[1].AsString;
with dm.emp_sql do
begin
close;
sql.Clear;
sql.Add('delete from employees');
sql.Add('where job_id=:p');
parameters.ParamByName('p').Value :=str;
execsql;
end;
But still THANK YOU VERY MUCH.
"Bill Todd" < XXXX@XXXXX.COM >дÈëÏûÏ¢ÐÂÎÅ:444d8483$ XXXX@XXXXX.COM ...

Yokummmmmmmmm