Index: PlanScan/Main.pas =================================================================== diff -u -r262 -r263 --- PlanScan/Main.pas (.../Main.pas) (revision 262) +++ PlanScan/Main.pas (.../Main.pas) (revision 263) @@ -6,7 +6,8 @@ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Bde.DBTables, Vcl.Grids, Vcl.DBGrids, Vcl.OleCtrls, CACHEQUERYLib_TLB, TLLib_TLB, Vcl.OleServer, - CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls; + CacheActiveX_TLB, Vcl.StdCtrls, Datasnap.DBClient, UiContext, Vcl.ComCtrls, + Vcl.ExtCtrls; type TfmMain = class(TForm) @@ -15,6 +16,8 @@ ClientDataSet1: TClientDataSet; tcMain: TTabControl; DBGrid1: TDBGrid; + pnlZoekKnoppen: TPanel; + pnlActies: TPanel; Button1: TButton; procedure Button1Click(Sender: TObject); private Index: PlanScan/Main.dfm =================================================================== diff -u -r261 -r263 --- PlanScan/Main.dfm (.../Main.dfm) (revision 261) +++ PlanScan/Main.dfm (.../Main.dfm) (revision 263) @@ -37,9 +37,9 @@ ExplicitHeight = 193 object DBGrid1: TDBGrid Left = 4 - Top = 24 - Width = 627 - Height = 308 + Top = 65 + Width = 500 + Height = 267 Align = alClient DataSource = DataSource1 Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] @@ -50,15 +50,34 @@ TitleFont.Name = 'Tahoma' TitleFont.Style = [] end - object Button1: TButton - Left = 3 - Top = 308 - Width = 75 - Height = 25 - Caption = 'Button1' + object pnlZoekKnoppen: TPanel + Left = 4 + Top = 24 + Width = 627 + Height = 41 + Align = alTop TabOrder = 1 - OnClick = Button1Click + ExplicitLeft = 24 + ExplicitTop = 32 + ExplicitWidth = 185 + object Button1: TButton + Left = 0 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Button1' + TabOrder = 0 + OnClick = Button1Click + end end + object pnlActies: TPanel + Left = 504 + Top = 65 + Width = 127 + Height = 267 + Align = alRight + TabOrder = 2 + end end object DataSource1: TDataSource DataSet = ClientDataSet1