paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 09:36:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added the code for adding code when a control is dropped onto the form.

Browse Source 
Shane

git-svn-id: trunk@192 -
This commit is contained in:
lazarus 2001-02-23 16:39:44 +00:00
parent f511da7f78
commit 30734a16b7
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/uniteditor.pp
View File

@ -958,12 +958,14 @@ var
TempSource : TStringList; TempSource : TStringList;
Ancestor : String; Ancestor : String;
begin begin
Writeln('**********************************************************');
TempSource := TStringList.Create; TempSource := TStringList.Create;
TempSource.Assign(Source); TempSource.Assign(Source);
//get the control name //get the control name
PI := _Control.ClassInfo; PI := _Control.ClassInfo;
nmControlType := PI^.Name; nmControlType := PI^.Name;
nmControlType := Uppercase(nmControlType[1]+nmControlType[2])+Lowercase(Copy(nmControlType,3,length(nmControlType)));
Ancestor := GetAncestor; Ancestor := GetAncestor;
Ancestor := 'TFORM'; Ancestor := 'TFORM';
@ -977,7 +979,7 @@ For I := 0 to TempSource.Count-1 do
Writeln('Ancestor is '+Ancestor); Writeln('Ancestor is '+Ancestor);
Writeln('TWinControl(_Control.Owner).Name is '+TWinControl(_Control.Owner).Name); Writeln('TWinControl(_Control.Owner).Name is '+TWinControl(_Control.Owner).Name);
Writeln('Line is '+TempSource.Strings[i]); Writeln('Line is '+TempSource.Strings[i]);
if (pos(Ancestor,TempSource.Strings[i]) <> 0) if (pos(uppercase(Ancestor),uppercase(TempSource.Strings[i])) <> 0)
and (pos(lowercase(TWinControl(_Control.Owner).Name), and (pos(lowercase(TWinControl(_Control.Owner).Name),
lowercase(TempSource.Strings[i])) <> 0) lowercase(TempSource.Strings[i])) <> 0)
and (pos('CLASS',Uppercase(TempSource.Strings[i])) <> 0) then and (pos('CLASS',Uppercase(TempSource.Strings[i])) <> 0) then
@ -990,7 +992,7 @@ For I := 0 to TempSource.Count-1 do
Begin Begin
//alphabetical //alphabetical
inc(i); inc(i);
NewSource := _Control.Name+' : '+nmControlType+';'; NewSource := uppercase(_Control.Name[1])+lowercase(Copy(_Control.Name,2,length(_Control.Name)))+' : '+nmControlType+';';
// Here I decide if I need to try and insert the control's text code in any certain order. // Here I decide if I need to try and insert the control's text code in any certain order.
//if there's no controls then I just insert it, otherwise... //if there's no controls then I just insert it, otherwise...
@ -998,7 +1000,7 @@ For I := 0 to TempSource.Count-1 do
while NewSource > (trim(TempSource.Strings[i])) do while NewSource > (trim(TempSource.Strings[i])) do
inc(i); inc(i);
TempSource.Insert(i,' '+NewSource); TempSource.Insert(i,' '+NewSource);
end; end;