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

MWE:

Browse Source 
* More delphi compatibility added/updated to TListView
  * Introduced TDebugger.locals
  * Moved breakpoints dialog to debugger dir
  * Changed breakpoints dialog to read from resource

git-svn-id: trunk@685 -
This commit is contained in:
lazarus 2002-02-09 01:45:12 +00:00
parent dab88d18cc
commit 8b07b4a5da
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3080,7 +3080,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TgtkObject.SetProperties (Sender : TObject) : integer; function TgtkObject.SetProperties (Sender : TObject) : integer;
const const
aGTKJustification: array[TColumnAlignment] of TGTKJustification = (GTK_JUSTIFY_LEFT,GTK_JUSTIFY_RIGHT,GTK_JUSTIFY_CENTER); aGTKJustification: array[TAlignment] of TGTKJustification = (GTK_JUSTIFY_LEFT,GTK_JUSTIFY_RIGHT,GTK_JUSTIFY_CENTER);
aGTkSelectionMode: Array[Boolean] of TGtkSelectionMode = (GTK_SELECTION_SINGLE,GTk_SELECTION_EXTENDED); aGTkSelectionMode: Array[Boolean] of TGtkSelectionMode = (GTK_SELECTION_SINGLE,GTk_SELECTION_EXTENDED);
var var
Handle : Pointer; Handle : Pointer;
@ -3206,20 +3206,20 @@ begin
gtk_clist_freeze(PgtkCList(Widget)); gtk_clist_freeze(PgtkCList(Widget));
for I := 0 to TListview(sender).Columns.Count-1 do for I := 0 to TListview(sender).Columns.Count-1 do
begin begin
ColName := TListview(sender).Columns.Item[i].Caption; ColName := TListview(sender).Columns[i].Caption;
GetMem(pColName, Length(colname)+1); GetMem(pColName, Length(colname)+1);
StrPcopy(pColName, ColName); StrPcopy(pColName, ColName);
gtk_clist_set_column_title(Pgtkclist(Widget),I,pColName); gtk_clist_set_column_title(Pgtkclist(Widget),I,pColName);
Dispose(pColName); Dispose(pColName);
//set column alignment //set column alignment
gtk_clist_set_column_justification(PgtkCList(Widget),I,aGTKJUSTIFICATION[TListview(sender).Columns.Item[i].Alignment]); gtk_clist_set_column_justification(PgtkCList(Widget),I,aGTKJUSTIFICATION[TListview(sender).Columns[i].Alignment]);
//set width //set width
gtk_clist_set_column_width(PgtkCList(Widget),I, TListview(sender).Columns.Item[i].Width); gtk_clist_set_column_width(PgtkCList(Widget),I, TListview(sender).Columns[i].Width);
//set auto sizing //set auto sizing
gtk_clist_set_column_auto_resize(PgtkCList(Widget),I, TListview(sender).Columns.Item[i].AutoSize); gtk_clist_set_column_auto_resize(PgtkCList(Widget),I, TListview(sender).Columns[i].AutoSize);
//set Visible //set Visible
gtk_clist_set_column_visibility(PgtkCList(Widget),I, TListview(sender).Columns.Item[i].Visible); gtk_clist_set_column_visibility(PgtkCList(Widget),I, TListview(sender).Columns[i].Visible);
end; end;
//sorting //sorting
@ -3765,6 +3765,13 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.107 2002/03/12 23:55:37 lazarus
MWE:
* More delphi compatibility added/updated to TListView
* Introduced TDebugger.locals
* Moved breakpoints dialog to debugger dir
* Changed breakpoints dialog to read from resource
Revision 1.106 2002/03/11 23:07:23 lazarus Revision 1.106 2002/03/11 23:07:23 lazarus
MWE: MWE:
* Made TListview more Delphi compatible * Made TListview more Delphi compatible