paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 21:19:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed FindRootDesigner for non controls and added gnome icon

Browse Source 
git-svn-id: trunk@3840 -
This commit is contained in:
mattias 2003-02-07 20:34:19 +00:00
parent 04762a6bc3
commit ad0ea540e1
5 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -432,6 +432,7 @@ images/downarrow.ico -text svneol=unset#image/x-icon
images/downarrow.xpm -text svneol=native#image/x-xpixmap
images/fonts.ico -text svneol=unset#image/x-icon
images/fonts.xpm -text svneol=native#image/x-xpixmap
images/ide_icon48x48.png -text svneol=unset#image/png
images/keymapcategory.xpm -text svneol=native#image/x-xpixmap
images/keymaprelation.xpm -text svneol=native#image/x-xpixmap
images/laz_images.lrs svneol=native#text/pascal

4
designer/objectinspector.pp
View File

@ -651,13 +651,16 @@ begin
NewValue:=ValueEdit.Text
else
NewValue:=ValueComboBox.Text;
writeln('TOIPropertyGrid.SetRowValue A ClassName=',CurRow.Editor.ClassName,' Visual=',CurRow.Editor.GetVisualValue,' NewValue=',NewValue,' AllEqual=',CurRow.Editor.AllEqual);
if length(NewValue)>CurRow.Editor.GetEditLimit then
NewValue:=LeftStr(NewValue,CurRow.Editor.GetEditLimit);
if NewValue<>CurRow.Editor.GetVisualValue then begin
Include(FStates,pgsApplyingValue);
try
try
writeln('TOIPropertyGrid.SetRowValue B ClassName=',CurRow.Editor.ClassName,' Visual=',CurRow.Editor.GetVisualValue,' NewValue=',NewValue,' AllEqual=',CurRow.Editor.AllEqual);
CurRow.Editor.SetValue(NewValue);
writeln('TOIPropertyGrid.SetRowValue C ClassName=',CurRow.Editor.ClassName,' Visual=',CurRow.Editor.GetVisualValue,' NewValue=',NewValue,' AllEqual=',CurRow.Editor.AllEqual);
except
on E: Exception do begin
MessageDlg('Error',E.Message,mtError,[mbOk],0);
@ -683,6 +686,7 @@ begin
if OldExpanded then
ExpandRow(FItemIndex);
end;
writeln('TOIPropertyGrid.SetRowValue D ClassName=',CurRow.Editor.ClassName,' Visual=',CurRow.Editor.GetVisualValue,' NewValue=',NewValue,' AllEqual=',CurRow.Editor.AllEqual);
finally
Exclude(FStates,pgsApplyingValue);
end;

BIN
images/ide_icon48x48.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 5.4 KiB

34
install/gnome.ide.desktop Normal file
View File

@ -0,0 +1,34 @@
[Desktop Entry]
Name=Lazarus
Name[az]=Lazarus
Name[ca]=Lazarus
Name[cs]=Lazarus
Name[da]=Lazarus
Name[de]=Lazarus
Name[el]=Lazarus
Name[es]=Lazarus
Name[fr]=Lazarus
Name[ga]=Lazarus
Name[hu]=Lazarus
Name[it]=Lazarus
Name[ja]=Lazarus
Name[ko]=Lazarus
Name[lv]=Lazarus
Name[nl]=Lazarus
Name[nn]=Lazarus
Name[no]=Lazarus
Name[pl]=Lazarus
Name[pt]=Lazarus
Name[pt_BR]=Lazarus
Name[ro]=Lazarus
Name[ru]=Lazarus
Name[sk]=Lazarus
Name[sv]=Lazarus
Name[tr]=Lazarus
Name[uk]=Lazarus
Name[zh_CN]=Lazarus
Comment=Lazarus IDE
Exec=lazarus
Terminal=0
Type=Application
Icon=lazarus.png

2
lcl/forms.pp
View File

@ -911,6 +911,8 @@ begin
end;
if AComponent is TControl then begin
AComponent:=TControl(AComponent).Parent;
end else if (AComponent.Owner<>nil) then begin
AComponent:=AComponent.Owner;
end else begin
exit;
end;