paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: generalize Picture property editor (#0011552)

Browse Source 
git-svn-id: trunk@15572 -
This commit is contained in:
paul 2008-06-25 06:21:17 +00:00
parent 36feee63d6
commit 3797bd0915
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ideintf/graphpropedits.pas
View File

@ -238,24 +238,15 @@ var
begin
Picture := TPicture(GetObjectValue(TPicture));
TheDialog := TGraphicPropertyEditorForm.Create(nil);
if (Picture.Graphic <> nil) and (Picture.Graphic is TBitmap) then
begin
TheDialog.Preview.Picture.Bitmap.Width := Picture.Width;
TheDialog.Preview.Picture.Bitmap.Height := Picture.Height;
with TheDialog.Preview.Picture.Bitmap.Canvas do
begin
Brush.Color := clWhite;
FillRect(Rect(0, 0, Picture.Width, Picture.Height));
Draw(0, 0, Picture.Graphic);
end;
end;
if (Picture.Graphic <> nil) then
TheDialog.Preview.Picture.Graphic := Picture.Graphic;
try
if (TheDialog.ShowModal = mrOK) then
begin
if TheDialog.Preview.Picture.Graphic <> nil then
begin
if TheDialog.FileName <> '' then
If FileExists(TheDialog.FileName) then
if FileExists(TheDialog.FileName) then
begin
Picture.LoadFromFile(TheDialog.FileName);
AddPackage(Picture);