paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 14:17:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

ideintf: make graphicpropedit more generic to allow editing of the form.icon

Browse Source 
git-svn-id: trunk@15508 -
This commit is contained in:
paul 2008-06-22 15:22:14 +00:00
parent 278aa5bc29
commit 770a306580
1 changed files with 12 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ideintf/graphpropedits.pas
View File

@ -173,63 +173,34 @@ var
procedure TGraphicPropertyEditor.Edit;
var
TheDialog: TGraphicPropertyEditorForm;
ABitmap: TBitmap;
Ext : String;
AGraphic: TGraphic;
begin
ABitmap := TBitmap(GetObjectValue(TBitmap));
AGraphic := TGraphic(GetObjectValue(TGraphic));
TheDialog := TGraphicPropertyEditorForm.Create(nil);
try
If (ABitmap <> nil) then
begin
with TheDialog.Preview.Picture.Bitmap do
begin
Width := ABitmap.Width;
Height := ABitmap.Height;
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(0, 0, ABitmap.Width, ABitmap.Height));
Canvas.Draw(0, 0, ABitmap);
end;
end
if (AGraphic <> nil) then
TheDialog.Preview.Picture.Assign(AGraphic)
else
ABitmap := nil;
AGraphic := nil;
if (TheDialog.ShowModal = mrOK) then
begin
if TheDialog.Preview.Picture.Graphic <> nil then
begin
if TheDialog.Modified and FileExists(TheDialog.FileName) then
begin
Ext := ExtractFileExt(TheDialog.FileName);
if ABitmap = nil then
ABitmap := TBitmap.Create;
if AGraphic = nil then
AGraphic := TGraphic(GetTypeData(GetPropType)^.ClassType.Create).Create;
// Paul: can it be not TBitmap at all?
if (ABitmap is TBitmap) then
begin
if (CompareText(Ext, '.bmp') = 0) then
ABitmap.LoadFromFile(TheDialog.FileName)
else
ABitmap.Assign(TheDialog.Preview.Picture.Graphic);
end
else
begin
ABitmap.Width := TheDialog.Preview.Picture.Graphic.Width;
ABitmap.Height := TheDialog.Preview.Picture.Graphic.Height;
with ABitmap.Canvas do
begin
Brush.Color := clWhite;
FillRect(Rect(0, 0, ABitmap.Width, ABitmap.Height));
Draw(0, 0, TheDialog.Preview.Picture.Graphic);
end;
end;
SetPtrValue(ABitmap);
AGraphic.LoadFromFile(TheDialog.FileName);
SetPtrValue(AGraphic);
Modified;
end;
end
else
if ABitmap <> nil then
if AGraphic <> nil then
begin
ABitmap.FreeImage;
AGraphic.Clear;
Modified;
end;
end;