Changeset 8 for os/trunk/Xvcl

Timestamp:

Jun 2, 2013, 10:46:40 PM (12 years ago)

Author:

chronos

Message:

• Added: Implemented simple TEdit control which react to key press messages.

File:

• os/trunk/Xvcl/Xvcl.Controls.pas (modified) (9 diffs)

os/trunk/Xvcl/Xvcl.Controls.pas

@@ -29 +29 @@
   TKeyState = (ksShift, ksAlt, ksOS);
   TKeyStateSet = set of TKeyState;
-  TMessageKeyboard = class(TMessage)
+  TMessageKeyPress = class(TMessage)
     KeyCode: Integer;
     States: TKeyStateSet;
@@ -59 +59 @@
     FOnMouseDown: TNotifyEvent;
     FOnMouseUp: TNotifyEvent;
+    FOnKeyPress: TNotifyEvent;
     function GetCanvas: TCanvas;
     procedure SetParent(const Value: TWinControl); virtual;
@@ -81 +82 @@
     property OnMouseDown: TNotifyEvent read FOnMouseDown write FOnMouseDown;
     property OnMouseUp: TNotifyEvent read FOnMouseUp write FOnMouseUp;
+    property OnKeyPress: TNotifyEvent read FOnKeyPress write FOnKeyPress;
   end;
 
@@ -97 +99 @@
     FCaption: string;
     procedure SetCaption(const Value: string);
+  protected
+    function HandleMessage(Message: TMessage): Boolean; override;
   public
     procedure Paint; override;
@@ -112 +116 @@
   end;
 
+  TEdit = class(TControl)
+  private
+    FText: string;
+    procedure SetText(const Value: string);
+  protected
+    function HandleMessage(Message: TMessage): Boolean; override;
+  public
+    procedure Paint; override;
+    constructor Create; override;
+    property Text: string read FText write SetText;
+  end;
+
 
 implementation
@@ -153 +169 @@
 
 function TControl.HandleMessage(Message: TMessage): Boolean;
+begin
+  Result := False;
+end;
+
+procedure TControl.Paint;
+begin
+  with Canvas do begin
+    Brush.Color := Color;
+    FillRect(TRectangle.Create(0, 0, Bounds.Width, Bounds.Height));
+  end;
+end;
+
+function TControl.ScreenToClient(Position: TPoint): TPoint;
+begin
+  Result := Position.Substract(Bounds.TopLeft);
+  if Assigned(Parent) then Result := Parent.ClientToScreen(Result);
+end;
+
+procedure TControl.SetColor(const Value: TColor);
+begin
+  if FColor <> Value then begin
+    FColor := Value;
+    if Visible then Paint;
+  end;
+end;
+
+procedure TControl.SetParent(const Value: TWinControl);
+begin
+  if FParent <> Value then begin
+    if Assigned(FParent) then Parent.Controls.Remove(Self);
+    FParent := Value;
+    if Assigned(FParent) then Parent.Controls.Add(Self);
+  end;
+end;
+
+{ TButton }
+
+function TButton.HandleMessage(Message: TMessage): Boolean;
 begin
   Result := False;
@@ -170 +224 @@
 end;
 
-procedure TControl.Paint;
-begin
-  with Canvas do begin
-    Brush.Color := Color;
-    FillRect(TRectangle.Create(0, 0, Bounds.Width, Bounds.Height));
-  end;
-end;
-
-function TControl.ScreenToClient(Position: TPoint): TPoint;
-begin
-  Result := Position.Substract(Bounds.TopLeft);
-  if Assigned(Parent) then Result := Parent.ClientToScreen(Result);
-end;
-
-procedure TControl.SetColor(const Value: TColor);
-begin
-  if FColor <> Value then begin
-    FColor := Value;
-    if Visible then Paint;
-  end;
-end;
-
-procedure TControl.SetParent(const Value: TWinControl);
-begin
-  if FParent <> Value then begin
-    if Assigned(FParent) then Parent.Controls.Remove(Self);
-    FParent := Value;
-    if Assigned(FParent) then Parent.Controls.Add(Self);
-  end;
-end;
-
-{ TButton }
-
 constructor TButton.Create;
 begin
@@ -268 +289 @@
     if Message is TMessageMouse then
     with TMessageMouse(Message) do begin
-    if Control.Bounds.Contains(ScreenToClient(Position)) then begin
+      if Control.Bounds.Contains(ScreenToClient(Position)) then begin
+        if TWinControl(Control).HandleMessage(Message) then begin
+          Result := True;
+          Break;
+        end;
+      end;
+    end else
+    if Message is TMessageKeyPress then
       if TWinControl(Control).HandleMessage(Message) then begin
         Result := True;
         Break;
       end;
-    end;
-  end;
   end;
 end;
@@ -305 +331 @@
 end;
 
+{ TEdit }
+
+constructor TEdit.Create;
+begin
+  inherited;
+  FColor := clWhite;
+end;
+
+function TEdit.HandleMessage(Message: TMessage): Boolean;
+begin
+  Result := False;
+  if Message is TMessageKeyPress then
+  with TMessageKeyPress(Message) do begin
+    if Assigned(FOnKeyPress) then FOnKeyPress(Self);
+    if KeyCode = 8 then Text := Copy(Text, 1, Length(Text) - 1)
+      else Text := Text + Chr(TMessageKeyPress(Message).KeyCode);
+    Paint;
+    Result := True;
+  end else
+end;
+
+procedure TEdit.Paint;
+var
+  TextShort: string;
+begin
+  inherited;
+  with Canvas do begin
+    MoveTo(TPoint.Create(0, 0));
+    LineTo(TPoint.Create(Bounds.Width - 1, 0));
+    LineTo(TPoint.Create(Bounds.Width - 1, Bounds.Height - 1));
+    LineTo(TPoint.Create(0, Bounds.Height - 1));
+    LineTo(TPoint.Create(0, 0));
+    TextShort := Text;
+    while (GetTextSize(TextShort).X > Bounds.Width) and
+      (Length(TextShort) > 0) do
+      Delete(TextShort, 1, 1);
+
+    TextOut(TPoint.Create(3,
+      (Bounds.Height - GetTextSize(TextShort).Y) div 2), TextShort);
+  end;
+end;
+
+procedure TEdit.SetText(const Value: string);
+begin
+  if FText <> Value then begin
+    FText := Value;
+    if Visible then Paint;
+  end;
+end;
+
 end.