home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / yerli / 07 / _SETUP.1 / Emlak 2000.exe / 0 / RCDATA / TFORM33 / TFORM33.txt < prev   
Encoding:
Text File  |  1999-02-04  |  3.1 KB  |  156 lines
  1. object Form33: TForm33
  2.   Left = 396
  3.   Top = 226
  4.   AutoSize = True
  5.   BorderStyle = bsNone
  6.   Caption = 'Emlak Listesi'
  7.   ClientHeight = 250
  8.   ClientWidth = 350
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Image1: TImage
  20.     Left = 0
  21.     Top = 0
  22.     Width = 350
  23.     Height = 250
  24.     AutoSize = True
  25.     Picture.Data = {<image000.jpg>}
  26.     OnMouseDown = Image1MouseDown
  27.   end
  28.   object Label1: TLabel
  29.     Left = 64
  30.     Top = 176
  31.     Width = 57
  32.     Height = 13
  33.     AutoSize = False
  34.     Caption = 'Semt Ad∩┐╜'
  35.     Transparent = True
  36.   end
  37.   object Image2: TImage
  38.     Left = 47
  39.     Top = 195
  40.     Width = 105
  41.     Height = 38
  42.     Picture.Data = {<image001.bmp>}
  43.     Stretch = True
  44.     Visible = False
  45.   end
  46.   object Label2: TLabel
  47.     Left = 48
  48.     Top = 208
  49.     Width = 97
  50.     Height = 25
  51.     Alignment = taCenter
  52.     AutoSize = False
  53.     Caption = 'Bul'
  54.     Font.Charset = DEFAULT_CHARSET
  55.     Font.Color = clLime
  56.     Font.Height = -13
  57.     Font.Name = 'MS Sans Serif'
  58.     Font.Style = [fsBold]
  59.     ParentFont = False
  60.     Transparent = True
  61.     OnMouseDown = Label2MouseDown
  62.     OnMouseUp = Label2MouseUp
  63.   end
  64.   object Image3: TImage
  65.     Left = 204
  66.     Top = 195
  67.     Width = 105
  68.     Height = 38
  69.     Picture.Data = {<image002.bmp>}
  70.     Stretch = True
  71.     Visible = False
  72.   end
  73.   object Label3: TLabel
  74.     Left = 208
  75.     Top = 208
  76.     Width = 97
  77.     Height = 25
  78.     Alignment = taCenter
  79.     AutoSize = False
  80.     Caption = '∩┐╜∩┐╜k∩┐╜∩┐╜'
  81.     Font.Charset = DEFAULT_CHARSET
  82.     Font.Color = clLime
  83.     Font.Height = -13
  84.     Font.Name = 'MS Sans Serif'
  85.     Font.Style = [fsBold]
  86.     ParentFont = False
  87.     Transparent = True
  88.     OnMouseDown = Label3MouseDown
  89.     OnMouseUp = Label3MouseUp
  90.   end
  91.   object SpeedButton1: TSpeedButton
  92.     Left = 248
  93.     Top = 168
  94.     Width = 41
  95.     Height = 21
  96.     Caption = 'T∩┐╜m∩┐╜'
  97.     OnClick = SpeedButton1Click
  98.   end
  99.   object Edit1: TEdit
  100.     Left = 120
  101.     Top = 168
  102.     Width = 121
  103.     Height = 21
  104.     TabOrder = 0
  105.   end
  106.   object DBGrid1: TDBGrid
  107.     Left = 64
  108.     Top = 48
  109.     Width = 225
  110.     Height = 113
  111.     DataSource = DataSource1
  112.     TabOrder = 1
  113.     TitleFont.Charset = DEFAULT_CHARSET
  114.     TitleFont.Color = clWindowText
  115.     TitleFont.Height = -11
  116.     TitleFont.Name = 'MS Sans Serif'
  117.     TitleFont.Style = []
  118.     OnDblClick = DBGrid1DblClick
  119.     Columns = <
  120.       item
  121.         Expanded = False
  122.         FieldName = 'No'
  123.         Visible = True
  124.       end
  125.       item
  126.         Expanded = False
  127.         FieldName = 'EmlakTipi'
  128.         Width = 130
  129.         Visible = True
  130.       end>
  131.   end
  132.   object DataSource1: TDataSource
  133.     DataSet = Query1
  134.     Left = 16
  135.     Top = 8
  136.   end
  137.   object Query1: TQuery
  138.     Active = True
  139.     SQL.Strings = (
  140.       'select * from emlaktanimlama')
  141.     Left = 48
  142.     Top = 8
  143.     object Query1No: TIntegerField
  144.       FieldName = 'No'
  145.     end
  146.     object Query1Aklama: TMemoField
  147.       FieldName = 'A∩┐╜∩┐╜klama'
  148.       BlobType = ftMemo
  149.       Size = 100
  150.     end
  151.     object Query1EmlakTipi: TStringField
  152.       FieldName = 'EmlakTipi'
  153.     end
  154.   end
  155. end
  156.