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

codetools: examples: omit implementation section

Browse Source 
git-svn-id: trunk@11026 -
This commit is contained in:
mattias 2007-04-29 10:35:23 +00:00
parent 894e5506b8
commit af43c121dc
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/listinterfaceclasses.pas
View File

@ -51,7 +51,9 @@ begin
and ((Node.SubDesc and ctnsForwardDeclaration)=0) then begin
CurClassName:=Tool.ExtractClassName(Node,false);
writeln(CurClassName);
end;
end
else if Node.Desc=ctnImplementation then
break;
Node:=Node.Next;
end
end.

11
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -171,6 +171,7 @@ type
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
end;
{ TGtk2WSCustomMemo }
@ -674,6 +675,16 @@ begin
Result := ABS(Entry^.current_pos - Entry^.selection_bound);
end;
class procedure TGtk2WSCustomEdit.SetEchoMode(const ACustomEdit: TCustomEdit;
NewMode: TEchoMode);
var
Entry: PGtkEntry;
begin
inherited SetEchoMode(ACustomEdit, NewMode);
Entry := PGtkEntry(ACustomEdit.Handle);
gtk_entry_append_text();
end;
class procedure TGtk2WSCustomComboBox.ReCreateCombo(
const ACustomComboBox: TCustomComboBox; const AWithEntry: Boolean;
const AWidgetInfo: PWidgetInfo);