Sometimes we need to change the background image and background color of our delphi
from at runtime. In this article, I have tried to cover this topic.
I have stored 2 images in a folder 'Images'. I have stored the path and name of the image in a table and also the background color of the form (like clSkyBlue, clOlive). I will just pick the
path / name of the image and the background color at runtime from database and assign it to the delphi form.
Note: Background image occupies half height of the delphi form and rest background color is visible.
I will have to create 2 variables like:
FormImage : TImage;
FormPicture : TPicture;
FormPicture : TPicture;
Now I will use FormShow procedure to load image and background color at runtime.
procedure TMyClass.FormShow(Sender: TObject);
var
ImagePath, BackColor: string;
begin
try
//ImagePath := Fetch from database and assign to it.
//BackColor := Fetch from database and assign to it.
FormPicture := TPicture.Create;
FormPicture .LoadFromFile('.\Images\' + ImagePath);
FormImage.Picture.Assign(FormPicture);
myForm.Color := StringToColor(BackColor);
except
on E : Exception do
begin
ShowMessage('Some error occured in procedure FormShow: ' + E.Message);
end;
end;
end;
var
ImagePath, BackColor: string;
begin
try
//ImagePath := Fetch from database and assign to it.
//BackColor := Fetch from database and assign to it.
FormPicture := TPicture.Create;
FormPicture .LoadFromFile('.\Images\' + ImagePath);
FormImage.Picture.Assign(FormPicture);
myForm.Color := StringToColor(BackColor);
except
on E : Exception do
begin
ShowMessage('Some error occured in procedure FormShow: ' + E.Message);
end;
end;
end;
Explanation
First of all, create constructor of TPicture.
Then, use LoadFromFile to load the image to TPicture object.
Then, assign that TPicture to TImage object.
Then, assign back ground color to the delphi form.
Then, use LoadFromFile to load the image to TPicture object.
Then, assign that TPicture to TImage object.
Then, assign back ground color to the delphi form.
No comments:
Post a Comment